16春计算机考试试卷,2010春计算机等级考试试卷.doc

2010春计算机等级考试试卷

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)

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

阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确的答案。

【程序说明】

某文本文件存储若干的学号和两门课成绩，下列事件过程用通用对话框控件选择该文件，在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 Comm