浙江高校计算机等级考试题型,浙江省高校计算机等级考试试卷.doc

PAGE 1

PAGE 9

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 IntegerB、k As Integer

C、Byval n As ByteD、I As Integer

(2) A、k>1B、k>=1C、k=1D、

(3) A、k\i=0B、k\i*i=0C、n Mod i=0D、(k\i)*i=k

(4) A、Until n>6B、While n>=6C、Until n>=6D、While n>6

试题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、nB、Val(n) C、Str(n)D、Trim(n)

(7) A、1B、0 C、2D、3

(8) A、vbBlackB、Rgb(255,0,0)C、vbwhiteD、Rgb(255,255,0)

(9) A、x*x+y*y<=4B、x>2 And y>2C、x*x+y*y<=2D、x*x