2010秋VB试卷.docVIP

绝密★启用前 2010年下半年浙江省高等学校计算机等级考试 二级Visual Basic 程序涉及试卷 说明 本试卷共5页，满分100分；考试时间为90分钟； 考试应将所有试题的答案填写在答卷上； 程序阅读与填空全部是选择题，请在答卷上的各小题选项的对应位置上填“√”； 请在答卷上填写学校名称、准考证号和姓名，并将你的准考证号的后五位填写在答卷第1页右下角的指定位置内。 第一部分 程序阅读与填写（24小题，每小题3分，共72分） 阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确案。 【程序说明】文本框控件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 (2) End Sub 【供选择的答案】 （1）A、n1 B、n0 C、n=0 D、n/20 （2）A、n Mod 2 Label1.Caption B、Label1.Captionn 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 ,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 = I To m a(1) = 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. Exit 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.txtzhong。 【程序】 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 = ___(10)___ While j = Sqr( I ) And k If i Mod j = 0 Then k = False Else ___(11)___ Wend If ___(12)___ Then Print #1,i Next i Close #1 End Sub 【供选择的答案】 （9）A, Output B, Input C, Append D, R