!2010春计算机等级考试试卷.docVIP

2010年春浙江省高等学校计算机等级考试 二级Visual Basic试卷说明：⑴ 考生应将所有试题的答案填写在答卷上。 ⑵程序阅读与填空全部是选择题，请在答卷上各小题正确选项的对应位置处填“√”；； ⑶ 试卷共页，满分100分，考试时间为90分钟; 程序阅读与填空（24小题，每小题3分，共72分） 数列1、1、2、3、5、8、……中，从第三项起的各项均为其前两项之和，计算并显示数列的第36项（已知该项值大Private Sub Command1_Click() Dim (1) ‘ Dim i As Integer (2) For i = (3) f3 = f1 + f2 (4) Next i Print f3 End Sub 【供选择的答案】 (1) A、f1 f2, f3 As Integer B、f1 As Long, f2 As Long, f3 As Long C、f36) As Long D、f1 As Byte, f2 As Byte, f3 As Byte (2) A、f1 =f2 = 1 B、f(1) = 1: f(2) = 1 C、f1 = 1: f2 = 1 D、f(1) =f(2) = 1 (3) A、3 To 36 B、1 To 36 C、2 To 36 D、1 To 35 (4) A、f3 = f2: f2 = f1 B、f2 = f1: f3 = f2 C、f2 = f3: f1 = f2 D、f1 = f2: f2 = f3 若列表框控件List1中某表项为其他两表项之和，单击Command1后将这些表项添加到列表框List2中。 Private Sub Command1_Click() Dim i As Integer, j As Integer, k As Integer, n As Integer n = (5) ‘List1.ListCount For i = 0 To n - 1 For j = 0 To n - 1 For k = 0 To n - 1 If (6) Then ‘ i j And j k And i k If (7) Then ‘Val(List1.List(i)) = Val(List1.List(j)) + Val(List1.List(k)) List2.AddItem List1.List(i) (8) Exit For End If End If Next k If k = n - 1 Then Exit For Next j Next i End Sub 【供选择的答案】 (5) A、 ListCount B、List1.ListCount-1 C、 List1.ListCount D、ListCount-1 (6) A、 i j Or j k Or i k B、i j And j k And i k C、 i j Or j k D、Not i= j Or j = k Or i = k (7) A、List1.List(i) = List1.List(j) + List1.List(k) B、Val(List1.List(i)) = Val(List1.List(j)) + Val(List1.List(k)) C、List(i) =List(j) + List(k) D、List(i) =List(j) List(k) (8) A、k=k+1 B、j=j+1 C、Exit Do D、Exit For 阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确的答案。 【程序说明】 某文本文件存储若干的学号和两门课成绩，下列事件过程用通用对话框控件选择该文件，在Label1显示总分最高的学生之学号、总分。Private Sub Form_Click() Dim xh As String, zf As Integer Dim