《2010年下半年VB模拟测验及参考答案》由会员分享，可在线阅读，更多相关《2010年下半年VB模拟测验及参考答案（6页珍藏版）》请在金锄头文库上搜索。
1、绝密启用前2010年下半年浙江省高等学校计算机等级考试二级Visual Basic程序设计试卷说明(1) 本试卷共5页，满分100分；考试时间为90分钟；(2) 考生应将所有试题的答案填写在答卷上；(3) 程序阅读与填空全部是选择题，请在答卷上的各小题选项的对应位置上填“”；(4) 请在答卷上填写学校名称、准考证号和姓名，并将你的准考证号的后五位填写在答卷第1页右下角的指定位置内。第一部分 程序阅读与填空（24小题，每小题3分，共72分）1. 阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。【程序说明】 文本框控件Text1中只能输入数字字符，按回车键则将与Val(Te
2、xt1.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) 9 Then (4) End Sub【供选择的答案】(1) A、n 1 B、n 0 C、n = 0 D、n / 2 0(2) A、n
3、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 = 02. 阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。【程序说明】单击Command1后将同时出现在列表框控件List1、List2中的数添加到列表框控件List3中（如下图所示）。【程序
4、】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(
5、i) = b(j) Then (7) Next j If (8) Then List3.AddItem a(i) Next iEnd 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 = m3. 阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。【程序说明】 将11000之间的素数（除了1以外只能被1和其自身整除的数）顺序输出到新建的文件e:prime.tx
6、t中。【程序】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 #1End Sub【供选择的答案】 (9) A、OutPut B、Input C、Append
7、D、Read (10) A、1 B、False C、True D、0 (11) A、j = j + 1 B、j = j + 2 C、k = k + 1 D、k = k - 1(12) A、k True B、Not k C、k = False D、k4. 阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。【程序】 Dim m As Integer Private Sub Form_Load() Timer1.Interval = 1000: Timer1.Enabled = FalseLabel2.FontSize = 8: m = 8 End Sub Private Su
8、b Command1_Click() Timer1.Enabled = True End Sub Private Sub Timer1_Timer() Dim n As Integer: Static k As Integer m = m + 8: Label1.FontSize = m n = n + 8: Label2.FontSize = n k = k + 1: Label3.Caption = k Timer1.Interval = Timer1.Interval / 4 End Sub【问题】(13) 单击命令按钮Command1后，标签控件Label1的标题字体： A、无变化 B
9、、逐渐变大 C、逐渐变小 D、颜色变化(14) 单击命令按钮Command1后，标签控件Label2的标题字体： A、无变化 B、逐渐变大 C、逐渐变小 D、颜色变化(15) 执行事件过程Command1后，标签控件Label3中显示： A、3 B、4 C、5 D、6(16) 将过程Timer1_Timer中表达式“Timer1.Interval/4”改为“Timer1.Interval/3”， 单击命令按钮Command1，标签控件Label3中显示： A、5 B、6 C、7 D、85. 阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。【程序】Private Sub
10、f1(a() As Single, n As Integer, x1 As _Single, x2 As Single) Dim i As Integer x1 = a(1): x2 = a(1) For i = 2 To n If a(i) x1 Then x1 = a(i) If a(i) x2 Then x2 = a(i) Next iEnd SubPrivate Sub Command1_Click() Dim n As Integer, i As Integer, a As Single, b As Single n = InputBox(n=) ReDim x(n) As Sing
11、le For i = 1 To n x(i) = InputBox(x( & i & )=) Next i Call f1(x, n, a, b) Print a, bEnd Sub【问题】(17) 单击命令按钮Command1后输入3、2.5、1.4、-1这4个数，显示结果为： A、3 -1 B、2.5 -1 C、-1 3 D、-1 2.5(18) 单击命令按钮Command1后输入4、1.5、-2.6、3.7、0.8这5个数，显示结果为： A、4 -2.6 B、-2.6 4 C、3.7 -2.6 D、1.5 0.8(19) 将函数f1首句中“x1 As Single”改为“Byval x1
12、 As Single”，单击Command1后输入3、2.5、1.4、-1这4个数，显示结果为： A、-1 0 B、0 0 C、3 0 D、0 -1(20) 将函数f1首句中“x1 As Single, x2 As Single”改为“Byval x1 As Single, ByVal x2 As Single”，单击Command1后输入3、2.5、1.4、-1这4个数，显示结果为： A、-1 0 B、0 0 C、3 0 D、0 -16. 阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。【程序】Private Sub Form_Load() P1.Width = P1
13、.Height P1.Scale (-100, 100)-(100, -100)End SubPrivate Sub Command1_Click() P1.Cls P1.Line (-100, 100)-(100, -100) P1.Line (100, 100)-(-100, -100)End SubPrivate Sub Command2_Click() P1.Cls P1.Line (-100, -100)-(0, 100) P1.Line (0, 100)-(100, -100)End SubPrivate Sub Command3_Click() P1.Cls P1.Line (-100, 100)-(100, -100) P1.Line (100, 100)-(-100, -100
