VB解析算法及程序实现.doc

《VB解析算法及程序实现.doc》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、3.1解析算法及程序实现1.计算长方体体积的算法描述如下：①输入长方体的长(z)、宽(w)、高(h)②计算长方形体积v=z*w*h③输出结果④结束上述算法属于（）A.枚举算法B.排序算法C.解析算法D.递归算法2.下列问题适合用解析算法求解的是（）A.将十三张纸牌按从小到大进行排列B.统计100内偶数的各位数字之和恰好为10的个数C.计算一辆车行驶100公里的油耗D.寻找本年级身高最高的同学3.有如下问题：①已知圆锥的半径r和高度h，使用公式V=π求出此圆锥体的体积。②已知班级每位同学的其中成绩总分s，按照s的值

2、从大到小进行成绩排名。③已知圆的周长s，利用公式r=s/(2*3.14)求出圆的半径。④已知“水仙花数”的定义，找出1～10000范围内所有的水仙花数。用计算机解决上述问题时，适合用解析算法的是（）A.①②B.①③C.③④D.②④4.出租车计价规则：3公里以内，10元；超出3公里每公里增加2元。假定公里数为x,金额为y.解决此问题的公式和流程图如下图所示：流程图加框处部分的算法属于：（）A.解析算法B.排序算法C.枚举算法D.递归算法5.现要求编写VB程序实现如下功能：分别在文本框Text1、Text2、和Tex

3、t3中输入三条线段的长度，单击“判断”按钮Command1后，在标签Label1中显示判断结果。程序运行界面如图：按此要求编写的程序如下：PrivateSubCommand1_Click()DimaAsSingle,bAsSingleDimcAsSingle,stAsStringa=Val(Text1.Text)b=Val(Text2.Text)c=Val(Text3.Text)IfNot(a+b>cAndb+c>aAndc+a>b)Thenst=“这三条线不能构成一个三角形”ElseIfa*a+b*b=c*cO

4、ra*a+c*c=b*bOrb*b+c*c=a*aThenst=“可以构成一个直角三角形”ElseIf①Thenst=“可以构成一个等边三角形”Elsest=“可以构成一个不等边的斜三角形”EndIfLabel1.Caption=②EndSub划线处应填写正确的语句是：（1）划线处①（2）划线处②6.下列VB程序段实现计算s=1+1/2+2/3+3/4+…+99/100的值。请将下面划线处代码补充完整。PrivateSubCommand1_Click()DimiAsIntegerDimsAsDoubles=1Fo

5、ri=2To100s=NextiText1.Text=Str(s)EndSub程序划线处应填入的内容是7.用解析算法求物体重力的VB程序代码如下：PrivateSubCommand1_Click()DimgAsSingleDimmAsSinglem=Val(Text1.Text)g=m*9.8label1.Caption=Str(g)EndSub程序界面如上图所示：在文本框输入15，单击“计算”按钮Command1后，标签Label1中显示的内容是8.根据臀围计算裤子尺寸的换算有以下公式：①尺=厘米*0.03②码

6、=厘米*0.3+7如臀围为90厘米，那么在购买时需要选2.7尺（90*0.03）也即34码（90*0.3+7）的裤子，下面VB程序可用于解决此实际问题，程序运行界面如下图所示：运行程序，在文本框Text1中输入臀围，单击计算“计算”按钮Command1，在标签Label2中显示裤子购买的参考尺寸，程序代码如下：PrivateSubCommand1_Click()DimnAsSingleDimcAsSingleDimmAsIntegern=Int(Val(Text1.Text))c=n*0.03m=Label2.C

7、aption=“你需要购买”+Str（c）+“尺（”+Str（m）+“）码是裤子”EndSub程序划线处应填入的内容是9.某书店出租图书的费用标准如下：借书一天内，收费2元；借书超过一天的，超过部分按每天0.8元收取。最后费用按四舍五入这算成整数。程序算法结构与运行界面如下图所示。下面VB程序用于解决此问题：PrivateSubCommand1_Click()DimnAsIntegerDimsAsSingle’①n=Val(Text1.Text)Ifn<1ThenMsgBox“输入错误”ElseIfn=1Then

8、s=2Elses=2+n*0.8’②EndIfText2.Text=Str(s)EndSub程序加框处代码有误，请修改以实现该程序的功能。（1）加框①处应改为（2）加框②处应改为10.下列VB程序实现如下功能：程序运行时，在文本框Text1和Text2中分别输入x和n的值，单击命令按钮Command1后，调用函数f计算s的值，并在文本框Text3中显示计算结果。其中。Pr