1 2006 年春浙江省高等学校 计算机等级考试试卷（二级Visual Basic） 说明: (1)考生将所有试题的答案填写在答卷上.其中题 1试题 6, 请在答卷上各 小题正确选项的对应位置处填“”； （2）请将你的准考证号的后五位填写在答卷右下角的指定位置内； （3）考试时间为 90 分钟； 试题 1（每小题 3分，共 15分） 阅读下列程序和程序，在每小题提供的若干可选答案中，挑选一个正确答案。 【程序说明】 界面设计如上图所示，程序运行时要求有以下功能： 按 Commandl （出题）后随机生成两个两位正整数存入模块级变量a、b 且 ab，并分 别在 Labell Labe12中显示，此后 Commandl 不可用； 在 Textl 中输入结果、按回车后，以消息框显示运算正确与否、累计所完成题数以及 做错的题数， Commandl 恢复为可用； 按 Command2( 退出)后以消息框显示所完成题数以及做错的题数，退出。 【程序】 Dim n As Integer, n_error As Integer (1) Dim a As Byte, b As byte, c As Byte Private Sub Command1_Click() a = 10 + Rnd * 89: b = 10 + Rnd * 89 If a b Then (2) B、c=a: a=b: b=c 2 Label1.Caption = a: Label2.Caption = b n = n + 1: Text1.Text = : Command1.Enabled = False End Sub Private Sub Text1_ (3)KeyDown (keyAscii As Integer) If keyAscii 13 Then (4) Exit Sub 回车键的 ASCII 码值为 13 If a - b = Val(Text1.Text) Then MsgBox (回答正确 ) Else MsgBox (回答不正确 ) n_error = n_error + 1 End If Command1.Enabled = True End Sub Private Sub Command2_Click() MsgBox ( (5) “共” n “题，错” n_error “题” ) End End Sub 【供选择的答案】 （1）A、小学生两位数减法训练程序 B、a=0: b=0 : c=0 C、n=0: n_error=0 D、Dim a As Byte, b As byte, c As Byte (2) A 、b=a: a=b B 、c=a: a=b: b=c C、a=b: b=a D、c=a: b=a: a=c (3) A 、KeyPress B、Change C、KeyDown D、KeyUp (4) A 、Exit Sub B、KeyAscii=13 C、KeyAsecii=0 D、Exit Do 3 (5) A 、“共” n “题，错” n_error “题” B、 “共 n 题，错 n_error题” C 、 “共” + n + “题，错” n_error +“题” D、共 n “题，错” n_error “题” 试题 2（每小题 3 分，共 12 分） 阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。 【程序说明】 输入 n 后，再输入 n 个数 a1,a2, ，an, 按照下列公式计算s 的值并显示。 v= s= 【程序】 Private Function f( (6) x() As Single, n As Integer ) As Single Dim i As Integer For i = 1 To n: f = f + x(i): Next i End Function Private Sub command1_Click() Dim n As Integer, a() As Single, i As Integer Dim V As Single, s As Single n = InputBox(输入数据个数 ) （7） ReDim a(n) For i = 1 To n a(i) = InputBox(a( & i & )=, 输入各数组元素 ) Next i V = f(a, n) / n For i = 1 To n s = (8) s+(a(i)-v)2 a1+a2+an n (a1-v) 2+(a 2-v) 2+(a n-v) n 4 Next i (9) Print s0.5/n End Sub 【供选择的答案】 （6） A 、x() As Single, n As Integer B、x(n) As Single C、a As Single,n As Integer D、n As Integer,x() As Single （7） A 、Dim a(n) As Single B、ReDim a() C、Dim a (n) D、ReDim a(n) （8） A 、(a(i)-v)*(a(i)-v) B、s+a(i)-v2 C、s+(a(i)-v)2 D、(a(i)-v)2 （9） A、s=s0.5/n B、Print s0.5/n C、Print Sqr(s) D、Sqr(s)/n 试题 3（每小题 3 分，共 15 分） 阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。 【程序说明】 图片框控件 P1、P2除 Name 属性外均取缺省值，将鼠标在P1拖动绘制矩形框（边 框颜色通过用对话框指定） ：鼠标按下处为矩形左上角，鼠标抬起处为矩形右下角； 鼠标抬起后，将P1中矩形区域内的图象在P2中重新绘制，如下图所示。 【程序】 (10) Dim xl As Single,y1 As Single 5 Private Sub p1_MouseDown(Button As Integer, Shift As Integer, _ X As Single, Y As Single) xl = X: y1 = Y End Sub Private Sub p1_MouseUp(Button As Integer, Shift As Integer, _ X As Single, Y As Single) Dim j As Single, i As Single, jk As Single, ik As Single Dim (11) As Long jk = P2.ScaleWidth / (X - xl): ik = P2.ScaleHeight / (Y - y1) CommonDialog1.Action = (12) 3 P1.Line (xl, y1)-(X, Y), CommonDialog1.Color, B For j = xl To X For i = y1 To Y c = (13) P1.Point(j,i) 读取该点处的颜色值 (14) P2.PSet (j-xl)*jk,(i-y1)*ik),c Next i, j End Sub 【供选择的答案】 （10）A、Dim x As Single ,y As Single B、Dim x2 As Single,y2 As Single C、Public xl As Single ,yl As Single D、Dim xl As Single,y1 As Single （11）A、c As Long B、c As Integer C、c As Single D、c As Double （12）A、1 B、2 C、3 D、4 （13）A、P1.Pset(j,i) B、P2.Pset(j,i) C、P1.Point(j,i) D、P1.Point(i,j) （14） A、P2.PSet (j-xl)*jk,(i-y1)*ik),c B、P1.Pest(j-xl)*jk,(i-yl)*ik),c C、P2.PSet(i-yl)*ik,(j-xl)*jk),c 6 D、P1.Pset(i-yl)*ik,(j-x1)*jk),c 试题 4（每小题 3 分，共 9 分） 阅读下列程序并回答问题，在每小题提供的若干可选答案中，挑选一个正确答案。 【程序】 Private Sub Form_Load() Text1.Text = : List1.Clear End Sub Private Sub Text1_Keypress(K As Integer) Dim n As Integer If K=Asc(0)And k= 85 Then s(1) = s(1) + 1 ElseIf x = 60 Then s(2) = s(2) + 1 Else s(3) = s(3) + 1 End If Next I Label1.Caption = s(1) Label2.Caption = s(2) Label3.Caption = s(3) End Sub 试题 8（每题 14 分） Dim k As Long Private Sub Command1_Click() Timer1.Enabled = True 11 End Sub Private Sub Form_Load() Timer1.Interval = 1000 Timer1.Enabled = False End Sub Private Sub Timer1_Timer() Label2(0).Caption = Time k = k + 1 Label2(1).Caption = k 3600 Label2(2).Caption = (k Mod 3600) 60 Label2(3).Caption = k Mod 60 End Sub 模块级变量声明2 分 Commandl_ Click 过程 2 分 Form_Load 过程首句 1 分 Enabled属性设置 1 分 Timerl_Timer 首、未句 2 分 每个赋值语句各 1 分