2010年下半年VB试卷及参考答案.doc

绝密★启用前 2010年下半年浙江省高等学校计算机等级考试 二级Visual Basic程序设计试卷 说明 (1) 本试卷共5页，满分100分；考试时间为90分钟； (2) 考生应将所有试题的答案填写在答卷上； (3) 程序阅读与填空全部是选择题，请在答卷上的各小题选项的对应位置上填“√”； (4) 请在答卷上填写学校名称、准考证号和姓名，并将你的准考证号的后五位填写在答卷 第1页右下角的指定位置内。 第一部分 程序阅读与填空（24小题，每小题3分，共72分） 1. 阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。 【程序说明】 文本框控件Text1中只能输入数字字符，按回车键则将与Val(Text1.Text)等值的二进制数在Label1显示。如Text1.Text为13，则Label1.Caption为1101。 【程序】 Private Sub Text1_KeyPress(K As Integer) Dim n As Integer If K = 13 Then Label1.Caption = : n = Text1.Text Do While (1) Label1.Caption = (2) (3) Loop End If If Chr(K) 0 Or Chr(K) 9 Then (4) End Sub 【供选择的答案】 (1) A、n 1 B、n 0 C、n = 0 D (2) A、n Mod 2 Label1.Caption B、Label1.Caption n Mod 2 C、n Mod 2 + Label1.Caption D、Label1.Caption + n Mod 2 (3) A、n = n Mod 2 B、n = n - 1 C、n = n / 2 D、n = n \ 2 (4) A、k = k -1 B、Exit Sub C、Exit D、k = 0 2. 阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。 【程序说明】单击Command1后将同时出现在列表框控件List1、List2中的数添加到列表框控件List3中（如下图所示）。 【程序】 Private Sub Command1_Click() Dim m As Integer, n As Integer, i As Integer, j As Integer m = List1.ListCount: n = List2.ListCount ReDim a(m) As Single, b(n) As Single For i = 1 To m a(i) = List1.List(i - 1) Next i For i = 1 To n b(i) = List2.List(i - 1) Next i For i = 1 To (5) For j = 1 To (6) If a(i) = b(j) Then (7) Next j If (8) Then List3.AddItem a(i) Next i End Sub 【供选择的答案】 (5) A、m B、n C、m - 1 D、n -1 (6) A、m B、n C、m - 1 D、n -1 (7) A、Eixt Do B、Exit Sub C、Break D、Exit For (8) A、j n B、j m C、j = n D、j = m 3. 阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。 【程序说明】 将1～1000之间的素数（除了1以外只能被1和其自身整除的数）顺序输出到新建的文件e:\prime.txt中。 【程序】 Private Sub Command1_Click() Dim i As Integer, j As Integer, k As Boolean Open e:\prime.txt For (9) As #1 For i = 2 To 1000 j = 2: k =