2010年下半年vb试卷及参考答案

绝密启用前 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) “9“ Then (4) End Sub 【供选择的答案】 (1) A、n 1 B、n 0 (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 中（如下图所示） 。 2 【程序】 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 True B、Not k C、k = False D、k 4. 阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。 【程序】 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: 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、逐渐变大 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、8 5. 阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。 【程序】 Private Sub 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) = Asc(“A“) And KeyAscii = Asc(“Z“) Then 5 分 KeyAscii = KeyAscii + Asc(“a“) - Asc(“A“) 4 分 End If End Sub 2. 编程，计算表达式 的值。91089231 xaxa 要求：编制一个自定义函数过程 f，计算并返回一元 n-1 次代数多项式的值；编制事件过程 Command1_Click，输入 x 和多项式系数，调用 f 后显示计算结果。 Private Function f(x As Single, a() As Single, n As Integer) As Single 2 分 Dim i As Integer 2 分 For i = 1 To 10 4 分 f = f + a(i) * x (i - 1) Next i End Function Private Sub Command1_Click() Dim x As