04-07VB等级考试试卷.doc

2007年春浙江省高等学校 计算机等级考试试卷(二级Visual Basic) 说明：⑴ 考生应将所有试题的答案填写在答卷上。其中试题1～试题6，请在答卷上各小题正确选项的对应位置处填“√”； ⑵ 请将你的准考证号的后五位填写在答卷右下角的指定位置内； ⑶ 考试时间为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、B、kC、D、 (2) A、B、C、D、 (3) A、B、C、D、 A、B、C、D、 【供选择的答案】 (5) A、B、C、D、 A、B、C、D、A、B、C、D、A、B、C、D、A、B、C、D、Private Sub Command1_Click() Dim x As Single List1.Clear: CommonDialog1.Action = 1 Open CommonDialog1.FileName For (10) As #1 Do While (11) Input #1, x: List1.Additem x Loop Close #1 End Sub Private Sub Command2_Click() Dim n As Single,x As Single,i As Integer,j As Integer,K As Integer n = List1. (12) Redim a(n) As Single For i = 1 To n: a(i) = List1.List(i-1): Next i For i = 1 To n -1 k = i For j = i+1 To n: If (13) Then k = j: Next j x = a(k): a(k) = a(i): a(i) = x Next i Open CommonDialog1.FileNmae For Output As #1 For i = 1 To n: Print #1,a(i): Next i Close #1 End Sub 【供选择的答案】 (10) A、 B、C、D、 A、B、C、D、 A、B、C、D、A、B、C、D、Private Sub Form_Load() Text1.Text=: Form1.Cls End Sub Private Sub Text1_KeyPress(k As Integer) Static s As Integer If (Chr(k) 0 Or Chr(k) 9) And k 13 Then k=0 If k=13 Then s = s + Val(Text1.Text): Text1.Text = : Print s; End Sub (14) 写出运行时在Text1中依次按“1↙ 3↙ 5↙ ”后窗体上的显示结果。 A、B、C、D、Private Function f(a As Integer, b As Integer) As Integer Dim r As Integer, t As Integer If a b Then t = a: a = b: b = t Do r = a Mod b If r = 0 Then Exit Do a = b: b = r Loop f = b End Function Private Sub Command1_Click() Dim m As Integer, n As Integer m = InputBox(m=): n = InputBox(n