2008秋二级VB.doc

2008年秋浙江省高等学校计算机等级考试试卷（二级 Visual Basic）试题1（每小题3分，共12分）阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。【程序说明】运行时每隔10秒钟，以窗体标题的形式显示此时正在上第几节课或是晚餐或是午休时间，等等。【程序】Private Sub Form_Load() Timer1.Interval = _(1)_End SubPrivate Sub _(2)_ _Timer() Dim x As Single x = _(3)_ + Minute(Time) / 60 Select Case x Case Is 21 Form1.Caption = Over Case _(4)_ Form1.Caption = 第911节课 Case Is 18 Form1.Caption = 晚餐时间 Case Is = 14 Form1.Caption = 第58节课 Case Is 12 Form1.Caption = 午餐时间 Case Is = 8 Form1.Caption = 第14节课 End Select Print xEnd Sub【供选择的答案】(1)A 10B 100C 1000D 10000(2)A IntervalB Command1C Timer1D Timer(3)A Hour(Now)B House(Time)C Hour(Date)D Hour()(4)A 19, 20, 21B 19 To 21C 19.21D Is = 19 And Is = A And UCase(s(i) = Z Then If _(7)_ Then 如果si-1不是英文字母，而si是英文 sum = sum + 1 字母，则判定si是一个单词的首字母 isalpha = True End If Else _(8)_ End If Next iEnd SubPrivate Sub Command2_Click() Label1.Caption = 文本中有 & sum & 个单词End Sub【供选择的答案】(5)A Option Base 1B Dim sum As IntegerC Option Base 0D sum = 0(6)A ReDim s(n) As String * 1B ReDim s(n) As ByteC Dim s(n) As String * 1D Dim s(n) As Byte(7)A si alphaB si = isalphaC isalphaD Not isalpha(8)A isalpha = TrueB Exit ForC isalpha = FalseD sum = sum -1试题3（每小题3分，共12分）阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。【程序说明】如下图所示，在图片框上拖动鼠标后绘制出一个轮廓线为黄色的矩形：鼠标按下、抬起位置分别为其斜对角线的顶点，在绘制一个与矩形内接、轮廓线为红色的椭圆。【程序】Dim x1 As Single, y1 As SinglePrivate Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) _(9)_End SubPrivate Sub Picture1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) Dim x0 As Single, y0 As Single, b As Single Picture1.Line (x1, y1)-(X, Y), _(10)_ x0 = x1 + (X - x1) / 2 计算椭圆中心点坐标 y0 = y1 + (Y - y1) / 2 b = Abs(Y - y1) / Abs(X - x1) 计算椭圆纵横轴之比 If _(11)_ Then Picture1.Circle (x0, y0), Abs(Y - y1) / 2, 255, , , b Else Picture1.Circle (x0, y0), Abs(X - x1) / 2, 255, , , b End IfEnd SubPrivate Sub Form_Load() _(11)_End Sub【供选择的答案】(9)A CurrentX = X: CurrentY = YB x1 = X: y1 = YC Picture1.PSet (X, Y), vbYellowD X = x1: Y = y1(10)A vbYellow, BB vbYellow, BFC vbYellow, FillD vbYellow, FB(11)A b 1B b 1C b = 1D b 1(12)A Picture1.FillStyle = 0B Picture1.FillStyle = TrueC Picture1.FillStyle = 1D Picture1.FillStyle = False试题4（每小题3分，共12分）阅读下列程序并回答问题，在每小题提供的若干可选答案中，挑选一个正确答案。【程序】Private Sub Command1_Click() Dim a As Integer, b As Integer, x As Long, i As Integer On Error GoTo qq a = InputBox(a=) b = InputBox(b=) x = a While Not (a Mod x = 0 And b Mod x = 0) x = x - 1 Wend Print x Exit Subqq: MsgBox 请重新输入 Exit SubEnd Sub【供选择的答案】(13)单击Command1后，依次输入8、6后，显示：A 2B 24C 14D 1(14)单击Command1后，依次输入28、16后，显示：A 44B 1C 112D 4(15)单击Command1后，依次输入3、5后，显示：A 15B 1C 8D 125(16)单击Command1后，依次输入4、32987后，显示：A 空白B 1C 0D 请重新输入试题5（每小题3分，共12分）阅读下列程序并回答问题，在每小题提供的若干可选答案中，挑选一个正确答案。【程序】Private Function f(x() As Integer, m As Integer) As Boolean Dim i As Intege