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

绝密★启用前 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、B、C、、 A、n Mod 2 Label1.CaptionB、Label1.Captionn Mod 2 C、n Mod 2 Label1.Caption D、Label1.Captionn Mod 2 (3) A、B、C、n / 2 D、n \ 2 (4) A、B、C、D、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、B、C、D、 A、B、C、D、 A、B、C、D、Exit ForA、B、C、D、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、OutPutB、C、D、A、B、C、D、A、j = j + 1、C、D、A、、C、D、Dim m As Integer Private Sub Form_Load() Timer1.Interval = 1000: Timer1.Enabled = False Label2.FontSize = 8: m = 8 End Sub Private Sub Command1_Click() Timer1.Enabled = True End Sub Private Sub Timer1_Timer() Dim n As Integer: Static k As Integer m = m + 8: Label