VB解析算法及程序实现

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

2、*3.14)求出圆的半径。 已知“水仙花数”的定义，找出110000范围内所有的水仙花数。用计算机解决上述问题时，适合用解析算法的是()A.B.C.D.4.出租车计价规则：3公里以内，10元；超出3公里每公里增加2元。假定公里数为x,金额为y.解决此问题的公式和流程图如下图所示:流程图加框处部分的算法属于：（）A.解析算法B.排序算法C.枚举算法D.递归算法5现要求编写VB程序实现如下功能：分别在文本框 Textl、Text2、和Text3中输 入三条线段的长度，单击“判断”按钮 Command1后，在标签Labell中显示判 断结果。程序运行界面如图：按此要求编写的程序如下：Private

3、Sub Comma nd1_Click()Dim a As Sin gle ,b As Si ngleDim c As Single ,st As Stringa=Val(Text1.Text)b=Val(Text2.Text)c=Val(Text3.Text)If Not (a + b > c And b + c > a And c + a > b) The nst ="这三条线不能构成一个三角形”Elself a * a + b * b = c * c Or a * a + c * c = b * b Or b * b + c * c = a * a The n

4、st = “可以构成一个直角三角形”ElseIfThe nst = “可以构成一个等边三角形”Elsest = “可以构成一个不等边的斜三角形”End IfLabel1.Capti on =End Sub划线处应填写正确的语句是：(1) 划线处(2) 划线处6.下列VB程序段实现计算s=1+1/2+2/3+3/4+99/100的值。请将下面划线处 代码补充完整。Private Sub Comma nd1_Click()Dim i As In tegerDim s As Doubles=1For i=2 To 100s=Next iText1.Text=Str(s)End Sub程序划线处应填入

5、的内容是7用解析算法求物体重力的 VB程序代码如下：Private Sub Comma nd1_Click()Dim g As Si ngleDim m As Si nglem=Val(Text1.Text)g=m*9.8label1.C aptio n=Str(g)End Sub程序界面如上图所示：在文本框输入15，单击“计算”按钮 Command1后，标签Label1中显示的内容是8. 根据臀围计算裤子尺寸的换算有以下公式： 尺=厘米*0.03 码=厘米*0.3+7如臀围为90厘米，那么在购买时需要选 2.7尺(90*0.03)也即34码(90*0.3+7)的裤子，下面 VB程序可用于解决

6、此实际问题，程序运行界面如下图所示：运行程序，在文本框Textl中输入臀围，单击计算“计算”按钮TextlComma nd1,在标签Label2中显示裤子购买的参考尺寸，程序代码如下：Private Sub Comma nd1_Click()Dim n As Si ngleDim c As Si ngleDim m As In tegern=I nt(Val(Text1.Text)c=n*0.03m=码是裤子”Label2.Caption="你需要购买” +Str( c)+ "尺(” +Str( m)+ “)End Sub程序划线处应填入的内容是9. 某书店出租图书的费用标

7、准如下：借书一天内，收费2元；借书超过一天的,超过部分按每天0.8元收取。最后费用按四舍五入这算成整数。程序算法结构与运行界面如下图所示F面VB程序用于解决此问题:Private Sub Comma nd1_Click()Dim n As In tegerDim s As Si nglen=Val(Text1.Text)If n<1 ThenMsgBox “输入错误”ElseIf n=1 The ns=2Elses=2+n*0.8End IfText2.Text=Str(s)End Sub程序加框处代码有误，请修改以实现该程序的功能(1) 加框处应改为(2) 加框处应改为10下列VB程序

8、实现如下功能：程序运行时，在文本框Textl和Text2中分别输入x和n的值，单击命令按钮Command1后，调用函数f计算s的值，并在文本框Text3中显示计算结果。其中s2!3x3!n xn!Private Sub Comma nd1_Click()Dim x As Sin gle ,n As Si ngle ,s As Si ngle x=Val(Text1.Text) n=Val(Text2.Text)s=f(x ,n)Text3.Text=End SubFunction f(x As Single ,n As Single)As SingleDim sum As Single ,i

9、As Integer ,t As Singlesum=Ot=1For i=1 To nt=t*x/isum=Next iEnd Fun cti on请在划线处填入合适的代码以实现该程序的功能(1) 划线处(2) 划线处(3) 划线处11按下面公式计算f的值：x 2 x 1Command!TextlLabelJ2f (x) x1 x 22xx 2现要求编写VB程序(运行界面如 图所示)，实现如下功能：在文本 框Text1中输入x的值，单击“计 算” Command1,在标签Label3中显示f的值。按此要求编写的程序如下Fun cti on f(x As In teger) As Si ngle 'If x<=-1 Thenf=x+2ElseIf x>-1 And x<2 Thenf= Abs(x+3)Elsef=2*xEnd IfEnd Fun cti