2009春计算机二级VB.docVIP

2009年春浙江省高等学校 计算机等级考试试卷（二级Visual Basic） 1+1/2+1/3+1/4+…+1/n 运行时初始界面如下图左所示，输入10并按回车键后的界面如下图中所示（输入数若小于1则清空文本框，需重新输入），按“计算”按钮后的界面如下图右所示。 【程序】 Dim n As Integer Private Sub Form_Load() Command1. ___(1)___ End Sub Private Sub ___(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 = Text1.SetFocus End Sub 【供选择的答案】 (1) [A] Enabled = True [B] Enabled = False [C] Visible = True [D] Visible = False (2) [A] Text1_KeyPress [B] Text1_Click [C] Text1_Change [D] Text1_KeyDown (3) [A] k = Text1.Text [B] k = 13 [C] n = 13 [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] a( i )= [B] a( + i + )= [C] a( , i , )= [D] a( ; i ; )= (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宽度的三分之一为半径的圆之外的区域改为白色。下图右是鼠标单击图像鼻翼处的处理效果。窗体加载后，P1的坐标单位应为像素。 【程序】 Private Sub Command1_Click() 加载图片 CommonDialog1. ___(9)___ P1.Picture = LoadPicture(CommonDi