vb等级考试试题集锦

2008年秋浙江省高等学校计算机等级考试试卷（二级Visual Basic）试题1（每小题3分，共12分）阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。

【程序说明】运行时每隔10秒钟，以窗体标题的形式显示此时正在上第几节课或是晚餐或是午休时间，等等。

【程序】Private Sub Form_Load()Timer1.Interval = ___(1)___End SubPrivate Sub ___(2)___ _Timer()Dim x As Singlex = ___(3)___ + Minute(Time) / 60Select Case xCase Is > 21Form1.Caption = "Over"Case ___(4)___Form1.Caption = "第9~11节课"Case Is > 18Form1.Caption = "晚餐时间"Case Is >= 14Form1.Caption = "第5~8节课"Case Is > 12Form1.Caption = "午餐时间"Case Is >= 8Form1.Caption = "第1~4节课"End SelectPrint xEnd Sub【供选择的答案】(1) [A] 10 [B] 100 [C] 1000 [D] 10000(2) [A] Interval [B] Command1 [C] Timer1 [D] Timer(3) [A] Hour(Now) [B] House(Time) [C] Hour(Date) [D] Hour()(4) [A] 19, 20, 21 [B] 19 To 21[C] 19..21 [D] Is >= 19 And Is <= 21试题2（每小题3分，共12分）阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。

【程序说明】运行时初始界面如下图左所示。

单击Command1统计Text1中的单词数，单击Command2在标签控件中显示所统计的单词数（如下图右所示）。

12【程序】 ___(5)___Private Sub Command1_Click()Dim n As Integer, i As Integer, isalpha As Boolean n = Len(Text1.Text) ___(6)___ sum = 0For i = 1 To ns(i) = Mid(Text1.Text, i, 1) Next iisalpha = False '做s[0]不是英文字母的标记 For i = 1 To nIf UCase(s(i)) >= "A" And UCase(s(i)) <= "Z" ThenIf ___(7)___ Then '如果s[i-1]不是英文字母，而s[i]是英文 sum = sum + 1 '字母，则判定s[i]是一个单词的首字母 isalpha = True End If Else___(8)___ End If Next i End SubPrivate Sub Command2_Click()Label1.Caption = "文本中有" & sum & "个单词" End Sub【供选择的答案】 (5) [A] Option Base 1 [B] Dim sum As Integer [C] Option Base 0 [D] sum = 0(6) [A] ReDim s(n) As String * 1 [B] ReDim s(n) As Byte [C] Dim s(n) As String * 1 [D] Dim s(n) As Byte (7) [A] s[i] <> alpha [B] s[i] = isalpha [C] isalpha [D] Not isalpha (8) [A] isalpha = True[B] Exit For[C] isalpha = False[D] sum = sum -1试题3（每小题3分，共12分）阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。

【程序说明】如下图所示，在图片框上拖动鼠标后绘制出一个轮廓线为黄色的矩形：鼠标按下、抬起位置分别为其斜对角线的顶点，在绘制一个与矩形内接、轮廓线为红色的椭圆。

【程序】Dim x1 As Single, y1 As SinglePrivate Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) ___(9)___End SubPrivate Sub Picture1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) Dim x0 As Single, y0 As Single, b As SinglePicture1.Line (x1, y1)-(X, Y), ___(10)___x0 = x1 + (X - x1) / 2 '计算椭圆中心点坐标y0 = y1 + (Y - y1) / 2b = Abs(Y - y1) / Abs(X - x1) '计算椭圆纵横轴之比If ___(11)___ ThenPicture1.Circle (x0, y0), Abs(Y - y1) / 2, 255, , , bElsePicture1.Circle (x0, y0), Abs(X - x1) / 2, 255, , , bEnd IfEnd SubPrivate Sub Form_Load()___(11)___End Sub【供选择的答案】(9) [A] CurrentX = X: CurrentY = Y [B] x1 = X: y1 = Y[C] Picture1.PSet (X, Y), vbYellow [D] X = x1: Y = y1(10) [A] vbYellow, B [B] vbYellow, BF[C] vbYellow, Fill [D] vbYellow, FB(11) [A] b > 1 [B] b < 1 [C] b = 1 [D] b <> 1(12) [A] Picture1.FillStyle = 0 [B] Picture1.FillStyle = True[C] Picture1.FillStyle = 1 [D] Picture1.FillStyle = False3试题4（每小题3分，共12分）阅读下列程序并回答问题，在每小题提供的若干可选答案中，挑选一个正确答案。

【程序】Private Sub Command1_Click()Dim a As Integer, b As Integer, x As Long, i As IntegerOn Error GoTo qqa = InputBox("a=")b = InputBox("b=")x = aWhile Not (a Mod x = 0 And b Mod x = 0)x = x - 1WendPrint xExit Subqq: MsgBox "请重新输入"Exit SubEnd Sub【供选择的答案】(13) 单击Command1后，依次输入8、6后，显示：[A] 2 [B] 24 [C] 14 [D] 1(14) 单击Command1后，依次输入28、16后，显示：[A] 44 [B] 1 [C] 112 [D] 4(15) 单击Command1后，依次输入3、5后，显示：[A] 15 [B] 1 [C] 8 [D] 125(16) 单击Command1后，依次输入4、32987后，显示：[A] 空白[B] 1 [C] 0 [D] 请重新输入试题5（每小题3分，共12分）阅读下列程序并回答问题，在每小题提供的若干可选答案中，挑选一个正确答案。

【程序】Private Function f(x() As Integer, m As Integer) As BooleanDim i As Integer, j As IntegerFor i = 1 To mIf x(i) < 60 Then Exit ForNext iIf i <= m Then f = True Else f = FalseIf f ThenFor j = i To m - 1: x(j) = x(j + 1): Next jm = m - 1End IfEnd FunctionPrivate Sub Command1_Click()Dim a(8) As Integer, n As Integer, i As Integera(1) = 76: a(2) = 56: a(3) = 87: a(4) = 43a(5) = 46: a(6) = 94: a(7) = 52: a(8) = 88n = 84While f(a, n)For i = 1 To nPrint a(i);Next iPrintWendEnd Sub【供选择的答案】(17) 单击Command1后，窗体第一行显示：[A] 76 87 43 46 94 52 88 88 [B] 76 87 94 88[C] 76 87 43 46 94 52 88 [D] 76 87 46 94 52 88(18) 单击Command1后，窗体第二行显示：[A] 76 87 43 46 94 52 88 88 [B] 76 87 46 94 52 88[C] 76 87 46 94 52 88 88 88 [D] 76 87 94 52 88 88(19) 单击Command1后，窗体第三行显示：[A] 76 87 94 52 88 88 88 88 [B] 76 87 94 88[C] 76 87 94 52 88 [D] 76 87 94 52 88 88(20) 单击Command1后，窗体第四行显示：[A] 76 87 94 88 [B] 56 43 46 52[C] 76 87 94 88 88 88 88 88 [D] 76 87 94 52 88试题6（每小题3分，共12分）程序运行时，先后依次选中列表框控件List1中的表项“张三”、“王五”、“刘七”，如下图所示。