VB测试题答案

《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

本文来源：https://www.bwwdw.com/article/tvs.html