浙江省09年春二级vb考试试卷及答案

浙江省2009年春二级VB考试试卷及
答案
2009年春浙江省高等学校计算机等级考试试卷(二级Visual Basic) 试题1 阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。

【程序说明】输入n后，计算并显示下列表达式的值。

1?1111????? 234n运行时初始界面如下图左所示，输入10并按回车键后的界面如下图中所示，按“计算”按钮后的界面如下图右所示。

【程序】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 = True= False Else = \ End If End Sub Private Sub Command1_Click() Dim y
As Single, i As Integer For i = 1 To n (4)Next i = y= False = True= \ 1 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=B、k = 13C、n = 13
D、KeyDown D、n = (4) A、y = y + 1/n B、y = y + 1\\n C、y = y + 1/i D、y = y + 1\\i 试题2 阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。

【程序说明】运行时输入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 + 1D、i = k + 1 (7) A、a(j) a(i)C、a(j) > a(k)D、a(j) D、5 To 10 试题3 阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。

【程序说明】单击Command1以通用对话框控件选择图象文件并加载，如下图左所示。

单击图片框控件p1后，将以单击处为圆心、p1宽度的三分之一为半径的圆之外的区域改为 2 白色。

下图右是鼠标单击头像鼻翼处的处理效果。

窗体加载后，p1的坐标单位应为像素。

【程序】Private Sub Command1_Click() ‘加载图片CommonDialog1. (9)= LoadPicture() End Sub Private Sub (10)= 3’设置P1的坐标单位为像素End Sub Private Sub P1_MouseDown(Button As Integer,
_Shon B、ShowOpen C、ShowFont D、Action = 3 (10) A、Form_Load()B、Form_Click()C、P1_Load()D、P1_Click() (11) A、C、D、= (12) A、White B、Rgb(0,0,255)C、vbWhite D、Rgb(255,0,0) 试题4 阅读下列程序并回答问题，在每小题提供的若干可选答案中，挑选一个正确答案。

【程序】 3 Private Sub Command1_Click() Dim n As Integer, i As Integer, j As Integer 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) = 0Next j End If Next i For i = 2 To n If a(i)0 Then i Next i End Sub 【供选择的答案】(13) 单击Command1输入4后，列表框控件逐行显示：A、1，2B、2，3C、3，4D、2 (14) 单
击Command1输入6后，列表框控件逐行显示：A、2，3，5B、2，3C、3，5D、2，4 (15) 单击Command1输入8后，列表框控件逐行显示：A、3，5B、2，4，6C、3，5，7D、2，3，5，7 (16) 该事件过程的功能是，输入n 后：A、显示小于n的奇数B、小于n的偶数C、显示小于n的素数D、显示不大于n的素数试题5 阅读下列程序并回答问题，在每小题提供的若干可选答案中，挑选一个正确答案。

【程序】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(\ 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 8B、4 8 4 C、4 28 36D、38 36 4 (20) 将函数f参数设置改为“a As Integer,b As Integer”，单击Command1后输入54、42，窗体显示：A、6 54 42B、6 12 6C、42 12 6D、12 6 6 试题6 程序运行时的初始界面如下图所示，列表框中所显示的是从磁盘文件输入的信息。

回答问题，在每小题提供的若干可选答案中，挑选一个正确答案。

【程序】Private Sub Form_Load() ‘从文件e:\\读入数据、追加到List1 Dim ss As String Open \ 5
While Not EOF(1) Line Input #1, ss ss Wend Close #1 End Sub Private Sub Command1_Click() ‘查找、保存Dim xm As String, rq As Date, cj As Integer Dim i As Integer For i = 0 To - 1 If Val(Mid((i), 16, 3)) > cj Then xm = Trim(Mid((i), 1, 4))rq = Mid((i), 5, 10) cj = Val(Mid((i), 16, 3))End If Next i Open \ Print #1, xm; rq; cj Close #1 End Sub (21) 单击Command1后，文件e:\\中第1行显示：A、王小波1987-12-5 92B、\王小波\ C、董召弟1988-5-24 43D、\董召弟\(22) 若将Click事件中“Print #1”用“Write #1”置换，单击Command1后，文件e:\\中第1行显示：A、王小波1987-12-5 92B、\王小波\ C、董召弟1988-5-24 43D、\董召弟\ (23) 单击Command1后，文件e:\\中的记录数为：A、1B、10
C、11
D、12 (24) 若将Click 事件中“Output”用“Append”置换，运行后文件e:\\中记录数为：A、1B、10C、11D、12 试题7(28分) 编程，求一组数x1、x2、...、xn的算术平均值与标准差，计算公式如下图左所示，界面设计如下图右所示。

单击Command1输入数据个数n以及n 个数，单击Command2计算并显示n个数的算术平均值，单击Command3计算并显示他们的标准差。

6 2009年春浙江省高等学校计算机等级考试二级VB参考答案试题1~试题6 请在各小题正确选项的对应位置处填“√” (1) (2) (3) (4) (5) (6) (7) A √ √ √ B √C√ D √√
(13) (14) A √ B √√ C√ √
D √ √(15) (16) (17) (18) (19) 7
(8) (9) (10) (11) (12) √√ √ √√(20) (21) (22) (23) (24) √ √ √√√ 试题7 Dim a() As Double, ave As Double, n As Integer, seit As
Double Private Sub Command1_Click() ‘输入数据n以及n 个数。

小计10分Dim i As Integer’ 1 分n = Inputbox(\分Redim a(n)‘ 3 分For i = 1 To n ‘ 4 分a(i) = InputBox(\Next i End Sub Private Sub Command2_Click() ‘计算、显示平均值。

小计7分Dim i As Integer’ 1 分For i = 1 To n’ 4 分ave = ave + a(i)/n Next i = ave’ 2 分End Sub Private Sub Command3_Click() ‘计算、显示标准差。

小计11分Dim i As Integer’ 1 分For i = 1 To n’ 5 分seit = seit + (a(i) - ave) Next i seit = sqr(seit / (n - 1))‘ 3 分= seit’ 2 分End Sub 8。