2001年秋浙江高校非计算机专业学生.doc

PAGE 1 PAGE 2 2006年秋浙江省高等学校 计算机等级考试试卷(二级Visual Basic) 说明： = 1 \* GB2 ⑴ 考生应将所有试题的答案填写在答卷上。其中试题1～试题6，请在答卷上各小题正确选项的对应位置处填“√”； = 2 \* GB2 ⑵ 请将你的准考证号的后五位填写在答卷右下角的指定位置内； = 3 \* GB2 ⑶ 考试时间为90分钟; 试题1（每小题3分，共12分） 阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。 【程序说明】 ?运行时初始界面如左上图所示，在文本框中输入一个整数n并按回车键后：如果n1则重新输入，否则按钮Command1可用； ?按Command1计算费波那契数列第n项的值（该数列第1、2项均为1，此后各项为该项前两项之和，如：1、1、2、3、5、8、┄）； ?用消息框输出结果（右上图表示输入n为8后，输出结果是21），按消息框中“是”按钮则界面显示如左上图，按“否”按钮则退出。 【程序】 Dim n As Integer Private Sub Form_Load() Command1.Enabled = False End Sub Private Sub Text1_KeyPress(k As Integer) If (1) Then Exit Sub n = Text1.Text If n 1 Then MsgBox (n应大于零！): Exit Sub Command1.Enabled = True End Sub Private Sub Command1_Click() Dim i As Integer (2) f(1) = 1: f(2) = 1 For i = (3) f(i) = f(i-1) + f(i-2) Next i k = MsgBox(第 n 项为 f(n) ，是否继续？, (4) ) If k = vbYes Then Text1.Text = : Command1.Enabled = False Text1.SetFocus Else End End If End Sub 【供选择的答案】 (1) A、k = 13 B、k 13 C、KeyAscii13 D、 (2) A、Redim f(8) As Long B、Redim f(n) As Long C、Dim f(n) As Long D、Dim f(8) As Long (3) A、1 To n B、1 To n Step 1 C、2 To n D、3 To n (4) A、vbNo B、vbYes C、vbYesNo D、vbQuestion 试题2（每小题3分，共15分） 阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。 【程序说明】 单击Command1后，将所有在List1中存在、而在List2中不存在的表项添加到列表框控件List3中。 Private Sub Command1_Click() Dim i As Integer, j As Integer (5) For i = 0 To (6) For j = 0 To (7) If List1.List(i) = List2.List(j) Then (8) Next j If (9) Then List3.AddItem List1.List(i) Next i End Sub 【供选择的答案】 (5) A、List3.Clear B、List3.List= C、List3.delete D、List3.Cls (6) A、List1.ListCount B、List1.ListCount - 1 C、List2.ListCount D、List2.ListCount - 1 (7) A、List2.ListCount - 1 B、List2.ListCount C、List1.ListCount – 1 D、List1.ListCount (8) A、Exit For