VB解析算法及程序实现

1、1. 计算长方体体积的算法描述如下：2. 输入长方体的长、宽(w)、高(h)计算长方形体积v=z*w*h输出结果结束上述算法届丁()枚举算法B.排序算法C.解析算法D.递归算法下列问题适合用解析算法求解的是()将十三张纸牌按从小到大进行排列统计100内偶数的各位数字之和恰好为10的个数计算一辆车行驶100公里的油耗寻找本年级身高最高的同学有如下问题： 已知圆锥的半径r和高度h,使用公式V=1兀r2h求出此圆锥体的体积。3 已知班级每位同学的其中成绩总分s,按照s的值从大到小进行成绩排名。 已知圆的周长s,利用公式r=s/(2*求出圆的半径。 已知“水仙花数”的定义，找出110000范围内所有的

2、水仙花数。用计算机解决上述问题时，适合用解析算法的是()A.B.C.D.3. 出租车计价规则：3公里以内，10元；超出3公里每公里增加2元。假定公里数为x,金额为y.解决此问题的公式和流程图如下图所示：4. 流程图加框处部分的算法届丁：()A.解析算法B.排序算法C.枚举算法D.递归算法现要求编写VB程序实现如下功能：分别在文本框Text1、Text2、和Text3中输入三条线段的长度，单击“判断”按钮Command!，在标签Label1中显示判断结果。程序运行界面如图：按此要求编写的程序如下：PrivateSubCommand1_Click()DimaAsSingle,bAsSingleDi

3、mcAsSingle,stAsStringa=Valb=Valc=ValIfNot(a+b>cAndb+c>aAndc+a>b)Thenst="这三条线不能构成一个三角形"Elselfa*a+b*b=c*cOra*a+c*c=b*bOrb*b+c*c=a*aThenst=“可以构成一个直角三角形”ElselfThenst=“可以构成一个等边三角形”Elsest=“可以构成一个不等边的斜三角形”EndIfEndSub划线处应填写正确的语句是：(1) 划线处划线处一下列VB程序段实现计算s=1+1/2+2/3+3/4+99/100的值。请将下面划线处代码补充完

4、整。PrivateSubCommand1_Click()DimiAsIntegerDimsAsDoubles=1Fori=2To100s=Nexti5. =Str(s)EndSub程序划线处应填入的内容是用解析算法求物体重力的VB程序代码如下：PrivateSubCommand1_Click()DimgAsSingleDimmAsSinglem=Valg=m*=Str(g)EndSub程序界面如上图所示：6. 在文本框输入15,单击“计算”按钮Command后，标签Label1中显示的内容是根据臀围计算裤子尺寸的换算有以下公式：尺=厘米*码=厘米*+7如臀围为90厘米，那么在购买时需要选尺(9

5、0*)也即34码(90*+7)的裤子,下面VB程序可用丁解决此实际|可题，程序运行界面如下图所小：运行程序，在文本框Textl中输入臀围，单击计算“计算”按钮Command1在标签Label2中显示裤子购买的参考尺寸，程序代码如下：PrivateSubCommand1_Click()DimnAsSingleDimcAsSingleDimmAsIntegern=Int(Val)c=n*m=7. ="你需要购买”+Str(c)+"尺(”+Str(m)+")码是裤子”EndSub程序划线处应填入的内容是某书店出租图书的费用标准如下：借书一天内，收费2元；借书超过一天的，

6、超过部分按每天元收取。最后费用按四舍五入这算成整数。程序算法结构与运行界面如下图所示。下面VB程序用丁解决此问题：PrivateSubCommand1_Click()DimnAsIntegerDimsAsSingle'n=ValIfn<1ThenMsgBox"输入错误”ElseIfn=1Thens=2Elses=2+n*，EndIf=Str(s)EndSub程序加框处代码有误，请修改以实现该程序的功能。(1) 加框处应改为加框处应改为下列VB程序实现如下功能：程序运行时，在文本框Textl和Text2中分别输入x和n的值，单击命令按钮Command后，调用函数f计算s的

7、值，并在文本nxon!23框Text3中显示计算结果。其中sx2!3!PrivateSubCommand1_Click()DimxAsSingle,nAsSingle,sAsSinglex=Valn=Vals=f(x,n)=®EndSubFunctionf(xAsSingle,nAsSingle)AsSingleDimsumAsSingle,iAsInteger,tAsSinglesum=0t=1Fori=1Tont=t*x/isum=Nexti入x的值，单击“计算”Command1在标签Label3中显示f的值按此要求编写的程序如下。Functionf(xAsInteger)AsSingle'Ifx<=-1Thenf=x+2ElseIfx>-1Andx<2Thenf=Abs(x+3)'Elsef=2*xEndIfEndFunctionPrivateSubCommand1_Click()DimxAsSingle,yAsSinglex=Valy=f(x)=Str(y)，EndSub加框处代码有误，请修正。(1) 加框处应改为(2) 加框处应改为(3) 加框处应改为End