2008秋二级VB.docVIP

2008年秋浙江省高等学校 计算机等级考试试卷（二级 Visual Basic） 试题1（每小题3分，共12分） 阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。 【程序说明】运行时每隔10秒钟，以窗体标题的形式显示此时正在上第几节课或是晚餐或是午休时间，等等。 【程序】 Private Sub Form_Load() Timer1.Interval = ___(1)___ End Sub Private Sub ___(2)___ _Timer() Dim x As Single x = ___(3)___ + Minute(Time) / 60 Select Case x Case Is 21 Form1.Caption = Over Case ___(4)___ Form1.Caption = 第9~11节课 Case Is 18 Form1.Caption = 晚餐时间 Case Is = 14 Form1.Caption = 第5~8节课 Case Is 12 Form1.Caption = 午餐时间 Case Is = 8 Form1.Caption = 第1~4节课 End Select Print x End 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在标签控件中显示所统计的单词数（如下图右所示）。 【程序】 ___(5)___ Private Sub Command1_Click() Dim n As Integer, i As Integer, isalpha As Boolean n = Len(Text1.Text) ___(6)___ sum = 0 For i = 1 To n s(i) = Mid(Text1.Text, i, 1) Next i isalpha = False 做s[0]不是英文字母的标记 For i = 1 To n If UCase(s(i)) = A And UCase(s(i)) = Z Then If ___(7)___ Then 如果s[i-1]不是英文字母，而s[i]是英文 sum = sum + 1 字母，则判定s[i]是一个单词的首字母 isalpha = True End If Else ___(8)___ End If Next i End Sub Private 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] su