vb解析算法及程序实现.pdfVIP

1.计算长方体体积的算法描述如下： ①输入长方体的长 (z)、宽(w)、高(h) ②计算长方形体积 v = z * w * h ③输出结果 ④结束 上述算法属于 （） A. 枚举算法 B. 排序算法 C. 解 析算法 D. 递归算法 2. 下 列 问题 适 合 用 解 析 算 法 求 解 的是 （ ） A.将十三张纸牌按从小到大进行排列 B.统计 100 内偶数的各位数字之和恰好为 10 的个数 C.计算一辆车行驶 100 公里的油耗 D.寻找本年级身高最高的同学 3.有如下问题： 1 ①已知圆锥的半径 r 和高度 h，使用公式V= πr h2 求出此圆锥体的体积。 3 ②已知班级每位同学的其中成绩总分 s，按照 s 的值从大到小进行成绩排名。 ③已知圆的周长 s，利用公式 r=s/(2*求出圆的半径。 ④已知“水仙花数”的定义，找出 1～10000 范围内所有的水仙花数。 用计算机解决上述问题时，适合用解析算法的是（ ） A. ①② B. ①③ C. ③④ D. ②④ 4.出租车计价规则：3 公里以内，10 元；超出 3 公里每公里增加 2 元。假定公 里数为 x,金额为 y.解决此问题的公式和流程图如下图所示： 流程图加框处部分的算法属于：（ ） A.解析算法 B.排序算法 C.枚举算法 D.递归算法 5.现要求编写 VB 程序实现如下功能：分别在文本框 Text1、Text2、和Text3 中 输入三条线段的长度，单击“判断”按钮Command1 后，在标签Label1 中显示判 断结果。程序运行界面如图： 按此要求编写的程序如下： Private Sub Command1_Click() Dim a As Single ,b As Single Dim c As Single ,st As String a=Val b=Val c=Val If Not (a + b c And b + c a And c + a b) Then st = “这三条线不能构成一个三角形” ElseIf a * a + b * b = c * c Or a * a + c * c = b * b Or b * b + c * c = a * a Then st = “可以构成一个直角三角形” ElseIf ① Then st = “可以构成一个等边三角形” Else st = “可以构成一个不等边的斜三角形” End If = ② End Sub 划线处应填写正确的语句是： （1）划线处① （2）划线处② 6. 下 列 VB 程 序 段 实 现 计 算 s=1+1/2+2/3+3/4+…+99/100 的值。请 将下面划线处代码补充完整。 Private Sub Command1_Click() Dim i As Integer Dim s As Double s=1 For i=2 To 100 s= Next i =Str(s) End Sub 程序划线处应填入的内容是 7.用解析算法求物体重力的 VB 程序代码如下： Private Sub Command1_Click() Dim g As Single Dim m As Single m=Val g=m* =Str(g) End Sub 程序界面如上图所示： 在文本框输入 15，单击“计算”按钮 Command1 后，标签 Label1 中显示的 内容是 8.根据臀围计算裤子尺寸的换算有以下公式： ①尺=厘米* ②码=厘米*+7 如臀围为 90 厘米，那么在购买时需要选尺（90*）也即34 码（90*+7）的裤子， 下 面 VB 程 序 可 用 于 解 决 此 实 际 问题 ，程 序 运 行 界 面 如 下 图所 示 ： 运行程序，在文本框 Text1 中输入臀围，单击计算“计算”按钮 Co