2009年春浙江省高等学校
计算机等级考试试卷(二级Visual Basic)
试题1（每小题3分，共12分）
阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。 【程序说明】输入n后，计算并显示下列表达式的值。
1?1111????? 234n运行时初始界面如下图左所示，输入10并按回车键后的界面如下图中所示（输入数若小于1则清空文本框，需重新输入），按“计算”按钮后的界面如下图右所示。
【程序】
Dim n As Integer
Private Sub Form_Load()
Command1. (1) End Sub
Private Sub Text1_(2) (K As Integer) If K <> 13 Then Exit Sub (3) If n > 0 Then
Command1.Enabled = True Text1.Enabled = False Else
Text1.Text = \ End If End Sub
Private Sub Command1_Click() Dim y As Single, i As Integer For i = 1 To n (4) Next i
Label3.Caption = y Command1.Enabled = False Text1.Enabled = True Text1.Text = \
1
Text1.SetFocus End Sub 【供选择的答案】
(1) A、Enabled=True B、Enabled=False C、Visible=True D、Visible=False (2) A、KeyPress B、Click C、Change (3) A、k=Text1.Text B、k = 13 C、n = 13
D、KeyDown D、n = Text1.Text
(4) A、y = y + 1/n B、y = y + 1\\n C、y = y + 1/i D、y = y + 1\\i
试题2（每小题3分，共12分）
阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。 【程序说明】运行时输入10个数后，输出其中较小的5个数。 【程序】
Private Sub Command1_Click()
Dim a(10) As Single, t As Single, i As Byte, j As Byte, k As Byte For i = 1 To 10
a(i) = InputBox( (5) ) Next i
For i = 1 To 9 (6)
For j = i + 1 To 10
If (7) Then k = j Next j
t = a(i): a(i) = a(k): a(k) = t Next i
For i = (8) Print a(i) Next i End Sub 【供选择的答案】
(5) A、\、\ C、\、\
(6) A、k = i B、i = k C、k = i + 1 D、i = k + 1 (7) A、a(j) < a(i) B、a(j) > a(i) C、a(j) > a(k) D、a(j) < a(k) (8) A、5 To 1 B、10 To 6 C、1 To 5
D、5 To 10
试题3（每小题3分，共12分）
阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。 【程序说明】单击Command1以通用对话框控件选择图象文件并加载，如下图左所示。单击图片框控件p1后，将以单击处为圆心、p1宽度的三分之一为半径的圆之外的区域改为
2
白色。下图右是鼠标单击头像鼻翼处的处理效果。窗体加载后，p1的坐标单位应为像素。
【程序】
Private Sub Command1_Click() '加载图片 CommonDialog1. (9)
P1.Picture = LoadPicture(CommonDialog1.FileName) End Sub
Private Sub (10)
P1.ScaleMode = 3 '设置P1的坐标单位为像素 End Sub
Private Sub P1_MouseDown(Button As Integer, _ Shift As Integer, X As Single, Y As Single) Dim r As Long, i As Long, j As Long r = P1.ScaleWidth / 3
For i = P1.ScaleLeft To P1.ScaleLeft + P1.ScaleWidth For j = P1.ScaleTop To P1.ScaleTop + P1.ScaleHeight If (i - X) ^ 2 + (j - Y) ^ 2 (11) r * r Then _ P1.PSet (i, j), (12) Next j Next i End Sub 【供选择的答案】
( 9) A、Action B、ShowOpen C、ShowFont D、Action = 3 (10) A、Form_Load() B、Form_Click() C、P1_Load() D、P1_Click() (11) A、< B、> C、<> D、 =
(12) A、White B、Rgb(0,0,255) C、vbWhite D、Rgb(255,0,0)
试题4（每小题3分，共12分）
阅读下列程序并回答问题，在每小题提供的若干可选答案中，挑选一个正确答案。 【程序】
3
Private Sub Command1_Click()
Dim n As Integer, i As Integer, j As Integer List1.Clear
n = InputBox(\
ReDim a(2 To n) As Integer For i = 2 To n a(i) = i Next i
For i = 2 To Sqr(n) If a(i) <> 0 Then
For j = 2 * i To n Step i a(j) = 0 Next j End If Next i
For i = 2 To n
If a(i)<>0 Then List1.AddItem i Next i End Sub 【供选择的答案】
(13) 单击Command1输入4后，列表框控件逐行显示：
A、1，2 B、2，3 C、3，4 D、2 (14) 单击Command1输入6后，列表框控件逐行显示：
A、2，3，5 B、2，3 C、3，5 D、2，4 (15) 单击Command1输入8后，列表框控件逐行显示：
A、3，5 B、2，4，6 C、3，5，7 D、2，3，5，7 (16) 该事件过程的功能是，输入n后：
A、显示小于n的奇数 B、小于n的偶数 C、显示小于n的素数 D、显示不大于n的素数
试题5（每小题3分，共12分）
阅读下列程序并回答问题，在每小题提供的若干可选答案中，挑选一个正确答案。 【程序】
Private Function f(ByVal a As Integer, ByVal b As Integer) As Integer Dim r As Integer r = a Mod b While r <> 0
a = b: b = r: r = a Mod b Wend
4
f = b End Function
Private Sub Command1_Click() Dim m As Integer, n As Integer
m = InputBox(\ Form1.Cls
Print f(m, n); m; n End Sub 【供选择的答案】
(17) 单击Command1后，输入28、36，窗体显示：
A、4 4 8 B、4 8 4 C、4 28 36 D、38 36 4 (18) 单击Command1后，输入36、28，窗体显示：
A、4 4 8 B、4 8 4 C、4 36 28 D、38 36 4 (19) 将函数f参数设置改为“a As Integer,b As Integer”，单击Command1后输入28、 36，窗体显示：
A、4 4 8 B、4 8 4 C、4 28 36 D、38 36 4 (20) 将函数f参数设置改为“a As Integer,b As Integer”，单击Command1后输入54、 42，窗体显示：
A、6 54 42 B、6 12 6 C、42 12 6 D、12 6 6
试题6（每小题3分，共12分）
程序运行时的初始界面如下图所示，列表框中所显示的是从磁盘文件输入的信息。回答问题，在每小题提供的若干可选答案中，挑选一个正确答案。
【程序】
Private Sub Form_Load() '从文件e:\\aa.txt读入数据、追加到List1 Dim ss As String
Open \
5