07春浙江省高校V二级计算机等级考试真题试卷(含答案).docVIP

PAGE 1 PAGE 7 2007年春浙江省高等学校 计算机等级考试试卷(二级Visual Basic) 说明： = 1 \* GB2 ⑴ 考生应将所有试题的答案填写在答卷上。其中试题1～试题6，请在答卷上各小题正确选项的对应位置处填“√”；  = 2 \* GB2 ⑵ 请将你的准考证号的后五位填写在答卷右下角的指定位置内；  = 3 \* GB2 ⑶ 考试时间为90分钟; 试题1（每小题3分，共12分） 阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。 【程序说明】单击窗体后输入1个不小于6的正整数，然后输出该数所有的质数因子（如输入6则输出“ 2 3”，输入60则输出“ 2 2 3 5”，等等）。 【程序】 Private Sub f( (1) ) Dim i As Integer i = 2 Do While (2) If (3) Then k = k /i: Print i; Else i = i + 1 Loop End Sub Private Sub Form_Click() Dim n As Integer Do n = InputBox(n=) Loop (4) Call f(n) Print End Sub 【供选择的答案】 (1) A、n As Integer B、k As Integer C、Byval n As Byte D、I As Integer (2) A、k1 B、k=1 C、k=1 D、k Mod i=0 (3) A、k\i=0 B、k\i*i=0 C、n Mod i=0 D、(k\i)*i=k (4) A、Until n6 B、While n=6 C、Until n=6 D、While n6 试题2（每小题3分，共15分） 阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。 【程序说明】 统计鼠标单击图片框控件P1中两个同心圆所围成黑色区域的次数：首次单击Command1将统计结果请零、P1可用，再次单击则以消息框显示统计结果、P1不可用。 Dim n As Integer Private Sub Command1_Click() If Command1.Caption = 开始 Then Command1.Caption = 显示 P1.Enabled = True: n = 0 Else Command1.Caption = (5) P1.Enabled = False: MsgBox(单击该区域 + (6) + 次) End If End Sub Private Sub Form_Activate() P1.Width = P1.Height P1.Scale(-3, 3) - (3, -3) P1.FillStyle = (7) P1.FillColor = (8) : P1.Circle(0, 0), 2 P1.FillColor = vbwhite: P1.Circle(0, 0), 1 End Sub Private Sub Form_Load() Command1.Caption = 开始: P1.Enabled = False End Sub Private Sub P1_MouseDown(Button As Integer, Shift As Integer, _ x As Single, y As Single) If x * x + y * y = 1 And (9) Then n = n +1 End Sub 【供选择的答案】 (5) A、退出 B、开 始 C、显示 D、开始 (6) A、n B、Val(n) C、Str(n ) D、Trim(n) (7) A、1 B、0 C、2 D、3 (8) A、vbBlack B、Rgb(255,0,0) C、vbwhite D、Rgb(255,255,0) (9) A、x*x+y*y=4 B、x2 And y2 C、x*x+y*y=2 D、x*x+y*y4 试