2006年春浙江省高等学校计算机等级考试试卷(二级Visual-Basic)

2006年春浙江省高等学校
计算机等级考试试卷(二级Visual Basic)
说明：⑴考生应将所有试题的答案填写在答卷上。

其中试题1～试题6，请在答卷上各小题正确选项的对应位置处填“√”；
⑵请将你的准考证号的后五位填写在答卷右下角的指定位置内；
⑶考试时间为90分钟;
试题1（每小题3分，共15分）
阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。

【程序说明】
界面设计如上图所示，程序运行时要求有以下功能：
•按Command1（出题）后随机生成两个两位正整数存入模块级变量a、b且a>b，并分别在Label1、Label2中显示，此后Command1不可用；
•在Text1中输入结果、按回车后，以消息框显示运算正确与否、累计所完成题数以及做错的题数，Command1恢复为可用；
•按Command2（退出）后以消息框显示所完成题数以及做错的题数，退出。

【程序】
Dim n As Integer, n_error As Integer
（1）
Private Sub Command1_Click()
a = 10 + Rnd * 89:
b = 10 + Rnd * 89
If a < b Then （2）
Label1.Caption = a: Label2.Caption = b
n = n + 1: Text1.Text = "": Command1.Enabled = False
End Sub
Private Sub Text1_ (3) (KeyAscii As Integer)
If KeyAscii <> 13 Then (4) ' 回车键的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) )
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 、KeyAscii=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 个数n a a a ,,,21 ，按照下列公式计算s 的值并显示。

【程序】 Private Function f( (6) ) 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)
For i = 1 To n
a(i) = InputBox("a(" & i & ")=", "输入各数组元素")
Next i
v = f(a, n) / n
For i = 1 To n s = (8)
Next i (9)
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分）
阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。

【程序说明】
n
v a v a v a s n a a a v n n 2
2221
21)()()(-++-+-=+++=
•图片框控件P1、P2除Name属性外均取缺省值，将鼠标在P1拖动绘制矩形框（边框颜色通过通用对话框指定）：鼠标按下处为矩形左上角，鼠标抬起处为矩形右下角；
•鼠标抬起后，将P1中矩形区域内的图象在P2中重新绘制，如下图所示。

【程序】
(10)
Private Sub P1_MouseDown(Button As Integer, Shift As Integer, _
X As Single, Y As Single)
x1 = 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)
jk = P2.ScaleWidth/(X - x1): ik = P2.ScaleHeight/(Y - y1)
Commondialog1.Action = (12)
P1.Line (x1, y1)-(X, Y), Commondialog1.Color, B
For j = x1 To X
For i = y1 To Y
c = (13) '读取该点处的颜色值
(14)
Next i, j
End Sub
【供选择的答案】
(10) A、Dim x As Single,y As Single B、Dim x2 As Single,y2 As Single
C、Public x1 As Single,y1 As Single
D、Dim x1 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-x1)*jk,(i-y1)*ik),c B、P1.Pset((j-x1)*jk,(i-y1)*ik),c
C、P2.PSet((i-y1)*ik,(j-x1)*jk),c
D、P1.Pset((i-y1)*ik,(j-x1)*jk),c
试题4（每小题3分，共9分）
阅读下列程序并回答问题，在每小题提供的若干可选答案中，挑选一个正确答案。

【程序】
Private Sub Form_Load()
Text1.Text = "": List1.Clear
End Sub。