《高级语言程序设计（VB）》B卷
参考答案及评分标准 2008.7
一、填空题（每题1分，共10分）
1. 值传递，地址传递 2. True 3. Int(1 + Rnd * 10) 4. 1
5. 双精度实 6. Open \7. Print List1.List(5) 8. Combo5.AddItem “华南理工大学”，3
或 Combo5.List(3) = “华南理工大学” 9. False 或 0 10. 整个应用程序
二、单项选择题（每题2分，共30分）
1. C 2. B 3. C 4. C 6. C 7. A 8. B 9. C
5. C 10. C
11. D 12. D 13. C 14. C 15. D
三、程序阅读题 (每题6分，共24分)
1. x= 3 y= 0
x= 6 y= 7.5 每行结果占2分 x= 11 y= 121
2. 2 4 6
8 12 每行结果占2分 18
3. * 3 6
15 45 90 每行结果占2分
16 48 96 4. 200
100 每个结果占1.5分 300 300
四、程序填空题 (每空2分，共20分)
(1) s (2) Is >=70 (3) Case Else或Is >=0或Is < 60 (4) Dim i%
(5) True (6) Text1.Text = i
(7) stu (8)student.maths+student.physics+student.programming或267或355(送分)
(9) v (10) Abs(v - u) >= eps
五、程序设计题（每题8分，共16分）
1．Private Sub Command1_Click()
Call triangle(\使用Call关键字的调用格式 triangle \不用Call关键字的调用格式 End Sub
Private Sub triangle(ByVal Str As String, ByVal n As Integer) Private Sub Command1_Click() Print \Dim I As Integer, J As Integer
Print \For I = 1 To n
Print \ For J = 1 To I Print \Print \ Print Str;
Print \ Next J
Print \ Print Print \ 这样不能给分! Next I End Sub End Sub
事件过程Command1_Click() 占2分,即两个调用子过程语句各占1分。 子过程triangle占6分,其中输出三角形图案占4分,其它占2分。
2．Private Sub Command1_Click() Dim a(1 To 10) As Integer
Dim i As Integer, j As Integer, t As Integer, max As Integer Randomize
For i = 1 To 10 '用随机数初始化数组 a(i) = Int(90 * Rnd) + 10 Next i
For i = 1 To 10 '输出原始序列 Print a(i); Next i Print
For i = 1 To 9 '对数组排序 t = i
For j = i + 1 To 10 '寻找最大元素 If a(j) > a(t) Then t = j Next j
If t <> i Then '交换数组元素 max = a(i) a(i) = a(t) a(t) = max End If Next i
For i = 1 To 10 '输出排序后序列 Print a(i); Next i End Sub
用随机数初始化数组占2分。 对数组排序占5分,其中寻找最大元素占3分, 交换数组元素占2分。其它占1分。