08秋浙江省计算机二级VB试卷.pdfVIP

2008 年秋浙江省高等学校 计算机等级考试试卷(二级Visual Basic) 说明：⑴ 考生应将所有试题的答案填写在答卷上。其中试题1～试题6，请在答卷上各小题 正确选项的对应位置处填“√”； ⑵ 请将你的准考证号的后五位填写在答卷右下角的指定位置内； ⑶ 考试时间为90 分钟; 试题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 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() 1 (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) 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 Ba