2010春计算机二级VB.docVIP

2010年上半年浙江省高等学校计算机等级考试试卷 二级 Visual Basic 程序设计试卷 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] f(36) 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 2. 阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。 【程序说明】 若列表框控件List1中某表项为其他两表项之和，单击Command1 后将这些表项添加到列表框控件List2中（如下图所示） 【程序】 Private Sub Command1_Click() Dim i As Integer, j As Integer, k As Integer, n As Integer n = ___(5)___ For i = 0 To n - 1 For j = 0 To n - 1 For k = 0 To n - 1 If ___(6)___ Then If ___(7)___ Then List2.AddItem List1.List(i) ___(8)___ 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 3. 阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。 【程序说明】 某文本文件存储若干学生的学号和两门课成绩，下列事件过程用通用对话框控件选择该文件，在Label1显示总分最高的学生之学号、总分。 【程序】 Private Sub Form_Click() Dim xh As String, zf As Integer Dim x As String, k1 As Integer, k2 As Integer Commondialog1.___(9)___ Open CommonDialog1.FileName For Input As #1 ___(10)___ Input #1, x, k1, k2 If