2012年春季VB二级考.docx

2012 年上半年浙江省高等学校计算机等级考试二级Visual Basic 程序设计试卷说明：⑴ 本试卷共 4 页，满分 100 分；考试时间为 90 分钟；⑵ 考生应将所有试题的答案填写在答卷上；⑶ 程序阅读与填空全部是选择题，请在答卷上的各小题选项的对应位置上填“√”一、程序阅读与填空（24 小题，每小题 3 分，共 72 分）1. 阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案程序说明】用下列近似公式求自然对数的底数e，累加过程到末项小于 10-12为止1e » 1 +1 + 1 1 1+ + + L1! 2! 3! 4!【程序】Private Sub Command1_Click() Dim (1) Dim i As Integer e = 2_(2) While (3) t = t / i (4) i = i + 1 Wend Print eEnd Sub【供选择的答案】(1) A、e As Double, t As Double B、e As Single, t As SingleC、e As Double, t As Single D、e As Single, t As Double(2) A、t = 1: i = 2B、t = 2: i = 1C、t = 1: i = 1D、t = 2: i = 2(3) A、t <1e-12B、t >=1e-12C、e >=1e-12D、e <1e-12(4) A、e = e + 1/tB、e = e + 1\tC、e = e + t/iD、e = e + t2. 阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。

程序说明】单击Command1 后，生成一个5 至 100 之间的随即整数n，计算下列表达式的值并显示1 + 2 + 3 +4 + Kn - 1 + n【程序】Private Sub Command1_Click()Dim s As Single, i As Integer, n As Integer n = (5) s = (6)For i = (7)s = (8) Next i Print s End Sub【供选择的答案】(5) A、Rnd * 10B、5 + Rnd * 100C、5 + Rnd * 95D、5 + Rnd (95)(6) A、n-1B、1C、nD、0(7) A、1 To nB、n To 1 Step -1C、n To 1D、1 To n-1(8) A、s + Sqr(i)B、Sqr(s+i)C、i + Sqr(s)D、n + Sqr(s)3. 阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案程序说明】文件 e:\aaa.txt 中存放了若干条商品的名称、数量、价格，执行下列过程将删除其中数量为 0 的商品信息程序】Private Sub Command1_Click()Dim mc As String, sl As Integer, jg As Single Open "e:\aaa.txt" For (9) As #1 Open "e:\bbb.txt" For (10) As #2 Do While Not EOF(1)Input #1, mc, sl, jgIf (11) Then Write #2, mc, sl, jg LoopClose #1: Close #2 Kill "e:\aaa.txt"Name (12) End Sub【供选择的答案】( 9) A、OutputB、InputC、AppendD、Read(10) A、OutputB、InputC、AppendD、Read(11) A、sl = "0"B、sl = ""C、sl <> 0D、sl = 0(12) A、"e:\aaa.txt" As "e:\bbb.txt" B、e:\bbb.txt As e:\aaa.txtC、"e:\bbb.txt" As "e:\aaa.txt" D、"e:\bbb.txt" , "e:\aaa.txt"4. 阅读下列程序并回答问题，在每小题提供的若干可选答案中，挑选一个正确答案。

3Private Sub Command1_Click()Dim i As Integer, j As Integer, n As Integer, k As Integer n = Val(InputBox("n="))ReDim a(n) As Integer For i = 1 To na(i) = Val(InputBox("a(" & i & ")=")) Next iFor i = 1 To n - 1 For j = i + 1 To nIf a(i) < a(j) Then k = k + 1 Next jNext i Print k End Sub【问题】(13) 单击命令按钮Command1 并输入 3、2、5、1 后，显示结果为： A、1 B、3 C、0 D、5(14) 单击命令按钮Command1 并输入 3、1、2、5 后，显示结果为： A、1 B、3 C、0 D、5(15) 单击命令按钮Command1 并输入 3、5、2、1 后，显示结果为： A、1 B、3 C、0 D、5(16) 单击命令按钮Command1 并输入 4、1、3、2、4 后，显示结果为：A、1 B、3 C、0 D、55. 阅读下列程序并回答问题，在每小题提供的若干可选答案中，挑选一个正确答案。

程序】Private Sub f(s As String) Label1.Caption = ""For i = Len(s) To 1 Step -1Label1.Caption = Label1.Caption + Mid(s, i, 1) Next iEnd SubPrivate Sub Text1_KeyPress(K As Integer) If k = 13 Then Call f(Text1.Text)If k < Asc("0") Or k > Asc("9") Then k = 0 End Sub【问题】(17) 在文本框控件Text1 输入 235↙后，标签控件Label1 标题显示为：A、325 B、253 C、235 D、532(18) 在文本框控件Text1 输入 132456↙后，标签控件Label1 标题显示为：A、123456 B、654231 C、654321 D、456123(19) 当输入焦点在Text1 时按下按键“$”，其文本显示结果为： A、前缀、增加字符“$” B、空白C、没有变化 D、后缀、增加字符“$”(20) 当文本框控件Text1 的下列哪个属性为True 时，其文本可显示但不可编辑。

A、Multiline B、Locked C、Visible D、Enabled6. 阅读下列程序并回答问题，在每小题提供的若干可选答案中，挑选一个正确答案程序说明】Dim k As IntegerPrivate Sub Form_Load()P1.Scale (-100, 100)-(100, -100)k = 0: P1.DrawWidth = 5Timer1.Interval = 10: Timer1.Enabled = True End SubPrivate Sub Timer1_Timer()P1.Circle (0, 0), 80, vbRed, k * 3.141593 / 180, (k + 1) * 3.141593 / 180k = k + 1If k = 360 Then Timer1.Enabled = False End Sub【问题】(21) 运行终止时，图片框控件P1 中的显示为：A、扇形 B、红色实心圆 C、红色边线的一段圆弧 D、红色边线的圆(22) 运行时P1 中的圆或圆弧或扇形的绘制方式是：A、顺时针 B、逆时针 C、起点在 12 点方向 D、起点在 9 点方向(23) 运行时P1 中的圆或圆弧或扇形的半径为：A、5 B、10 C、80 D、100(24) 将Timer1 过程中Circle 语句内的“k * 3.141593 / 180, (k + 1) * 3.141593 / 180”改为“-k * 3.141593 / 180, -(k + 1) * 3.141593 / 180”，绘图终止时 P1 中显示：A、红色实心圆 B、黑色实心圆 C、半圆形 D、半个圆弧二、程序编写 (每题 14 分，共 28 分)1. 编制事件过程Command1_Click，输入 10 个数，计算、显示他们的平均值，显示这10个数中所有大于平均值的数。

2. 编程，在图片框控件P1 绘制红色边线兰色填充的矩形，鼠标按下处为矩形左上角、抬起处为右下角。