(完整版)浙江省2006年春二级VB考试试卷及答案[1]

2006年春浙江省高等学校

计算机等级考试试卷（二级Visual Basic）

说明: (1)考生将所有试题的答案填写在答卷上.其中题1～试题6,请在答卷上各小题正确选项的对应位置处填“√”；

（2）请将你的准考证号的后五位填写在答卷右下角的指定位置内；

（3）考试时间为90分钟；

试题1（每小题3分，共15分）

阅读下列程序和程序，在每小题提供的若干可选答案中，挑选一个正确答案。

【程序说明】

界面设计如上图所示，程序运行时要求有以下功能：

·按Commandl（出题）后随机生成两个两位正整数存入模块级变量a、b且a＞b，并分别在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

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

(5) A 、“共”＆ n ＆“题，错”＆ n_error

＆“题”

B 、“共n 题，错n_error 题”

C 、“共”+ n +“题，错”＋ n_error +“题”

D 、共＆ n “题，错”＆ n_error

＆“题”

试题2（每小题

3分，共12分）

阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。【程序说明】

输入n 后，再输入n 个数a 1,a 2,…，a n ,按照下列公式计算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

a 1+a 2+…a n

n (a 1-v)2+(a 2-v)2

+…+(a n -v)

n

Next i

(9) Print s^0.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)-v^2

C、s+(a(i)-v)^2

D、(a(i)-v)^2 （9）

A、s=s^0.5/n

B、Print s^0.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