2010年秋季VB二级考.docVIP

2010年秋浙江省高等学校 计算机等级考试试卷(二级Visual Basic) 题序 一 二 三 四 五 六 七 八 九 总分 得分 评卷人 一、程序填空（每空3分，12空，共36分） 阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。 程序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 A、n 1 B、n 0 C、n = 0 D、n / 2 0 A、n Mod 2 Label1.Caption B、Label1.Caption n Mod 2 C、n Mod 2 + Label1.Caption D、Label1.Caption + n Mod 2 A、n = n Mod 2 B、n = n – 1 C、n = n / 2 D、n = n \ 2 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 A、m B、n C、m – 1 D、n – 1 A、m B、n C、m – 1 D、n – 1 A、Exit Do B、Exit Sub C、Break D、Exit For 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 = ______(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 Clos