《Visual Basic程序设计》试题
参考答案及评分标准
2004.7
一．填充题 （每题1分，共10分）
1． Mid(“Visual BASIC 6.0”,8,5) 2． Int((b-a+1)*Rnd+a) 3． Int(x / 100 + 0.5) * 100 4． True
5． Year Mod 4=0 And year Mod 400<>0 6． LoadPicture 7． Text 8. 1 9． change 10. SetFocus
二．单项选择题 （每题1.5分，共30分）
1． d 2． c 3． d 4. c 5． d 6． c 7． C 8. c 9． b 10． c 11． b 12. d 13． c 14． d 15． d 16． a 17. a 18． d 19. C 20. a
三.阅读下面程序，写出程序的运行结果。(共26分)
1． 1 9
4 12 7 17 10 20
每行结果占1分，共4分 2． 70 20
200 70
每行结果占3分，共6分 3． x= 384 y= 105 每个结果占2分，共 4分 4． 6
10 10 4 1 3 5 7 4 0
第1，4行结果各占1分，第2，3行结果各占2分，共6分 5． 3 26 每个结果占3分，共6分
四．程序填空题（每空2分，共20分）
1．t <= 10000 t*n
2．int((90*Rnd+10)) __ goto 1 p=i _ 3．B() ubound(c) n=n-1
3
4. Not EOF(3) Input #3,score
五．程序设计题（每题7分，共14分） 1.
Private Sub Form_Click()
Dim s!(1 To 5, 1 To 5), i!, j!, sum!, avevb! For i = 1 To 5 For j = 1 To 3
s(i, j) = InputBox(\ Next j Next i
'每个学生的平均成绩: For i = 1 To 5 sum = 0
For j = 1 To 3
sum = sum + s(i, j) Next j
s(i, 4) = sum / 3 Next i
'VB课程的平均成绩: sum = 0
For i = 1 To 5
sum = sum + s(i, 3) Next i
avevb = sum / 5 '每个学生的名次: For i = 1 To 5 s(i, 5) = 1 For j = 1 To 5
If s(j, 4) > s(i, 4) Then s(i, 5) = s(i, 5) + 1 Next j Next i
Print \输出每个学生的信息: \For i = 1 To 5
Print \第\号同学的平均成绩为: \名次为: \ If s(i, 3) > avevb Then
Print \课程的成绩高于平均成绩\ Else
Print \课程的成绩低于平均成绩\
4
End If Next i End Sub 2．
Private Sub Command1_Click() Dim m%, n%, p%, s# m = InputBox(\ n = InputBox(\ p = InputBox(\
Print f(1, m), f(3, n), f(5, p) s = (f(1, m) + f(3, n)) / f(5, p) Print \End Sub
Private Function f(ByVal k%, ByVal x%) As Long Dim i%, sum As Long sum = 0
For i = 1 To x
sum = sum + i ^ k Next i f = sum End Function
正确定义求f=
ki?函数过程 4分 i?1x命令按钮的单击事件过程占3分
5