vb练习题 参考答案完整.docVIP

一．单项选择题 1.A 2. C 3.C 4.D 5.B 6. C 7. C 8. A 9.D 10. D 11. A 12. B 13. B 14.A15 .B 1.B 2. B 3. C. 4. B 5. B 6. D.7. C.8.A.9. D.10. D 11 A.12. D.13.D. 14.A.15. C. 1-5 BCCCC 6-10 CBBAC 11-15 ABBBA 二、填空题 Rnd】 （rnd()\rnd(1)） 【x Mod 5】 【x】 (2) 【x0】 【xamin】 (3) 【index】fontname】a()】10】n=n-1】1. False 2. 9 3. Rnd() X Mod 5 X 4. NMax NMin S – Max - Min 5. Int(10 + Rnd * 90) n mod 2 = 0 1.F 2.9 3.Rnd x mod 5 x 4. t a(3) a(1) 5. Int(Rnd*90)+10 n mod 2=0 1. Rnd x mod 5=0 x 2. N Max N Min S - Max - Min 3. M T 4. s=s+x Call Fact(c, x) 三、阅读程序题 135 (2) 456 (竖排也对) (3) 321456 (4) 200 (5) 27 (6) 23 1. 文件框Text3的结果是： 26 2. 程序运行时连续3次单击Command1，且设输入的数据为6、5、4时，分别写出文本框Text1的值。 S=6 S=11 S=44 3. 写出程序运行时单击窗体后，窗体Form1上的结果： 18 4. 写出程序运行时单击窗体后，Form1上的输出结果 4 3 3 4 5. 写出程序运行时单击窗体后，窗体Form1上的输出结果。 S=10 6．点击两次后，Sum的值应该是： 61.努力 2.321456 3.s=6 s=11 s=44 4.18 5.6 12 6． 1. 15 30 45 2. 5 3. 6 5 4 3 4. 40 四．程序设计题 Dim max As Integer Dim min As Integer Dim i As Integer Dim a As Integer max = 0 min = 100 For i = 1 To 10 a = int(Rnd * 100) + 1 Print a; If a = max Then max = a If a = min Then min = a Next I Print Print 最大值为, max, 最小值为, min Dim max As Integer Dim min As Integer Dim i As Integer Dim a(1to 10) As Integer For i = 1 To 10 a(i) = int(Rnd * 100) + 1 Print a(i); Next I max = a(1) min = a(1) For i = 1 To 10 If a（i）max Then max = a(i) If a (i) min Then min = a(i) Next I Print Print 最大值为, max, 最小值为, min 通过输入框 输入10个同学的成绩保存在数组z() 中(成绩为单精度数据类型) ，用冒泡排序法按降序排列并在同一行输出，另起一行，输出平均分。 相关变量规定如下：和 sum，循环变量 i、j，交换元素中间变量 T，如需其他变量依次为 a、b 、c Dim z(1 To 10) As Single Dim sum As Single Dim i As Integer Dim j As Integer Dim t As Single For i = 1 To 10 z(i) = val(InputBox(输入成绩, 输入)) Next i For i = 1 To 9 For j = 1 To 10 - i If z(j) z(j + 1) Then t = z(j) z(j) = z(j + 1) z(j + 1) = t End If Next j Next i For i = 1 To 10 Print z(i); sum = sum + z(i) Next I Print Print