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

2021年春浙江省高等学校
计算机等级考试试卷(二级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、n As Integer B、k As Integer
C、Byval n As Byte D、I As Integer
(2) A、k>1 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 n>6 B、While n>=6 C、Until n>=6 D、While n>6
试题2（每小题3分，共15分）
阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。
【程序说明

Dim n As Integer

P1.Enabled = True: n = 0
Else

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()

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、x>2 And y>2 C、x*x+y*y<=2 D、x*x+y*y>4
试题3（每小题3分，共12分）
阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。
【程序说明】

【程序】

Dim x As Single

Do While (11)
Input #1, x: List1.Additem x
Loop
Close #1
End Sub

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

For i = 1 To n: Print #1,a(i): Next i
Close #1
End Sub
【供选择的答案】
(10) A、Output B、Input C、Append D、Read
(11) A、Eof(1) B、Not Eof(1) C、Eof(fn) D、Not Eof(fn)
(12) A、Count B、ListCount-1 C、List D、ListCount
(13) A、a(j)>a(k) B、a(j)<=a(k) C、a(j)<>a(k) D、a(j)te 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、1 4 9 B、9 C、1 3 5 D、5
(15) 写出运行时在Text1中依次按“2↙ 4↙ 6↙ ”后窗体上的显示结果。
A、2 4 6 B、12 C、6 D、2 6 12
(16) 写出运行时在Text1中依次按“1↙ -3↙ 5↙ ”后窗体上的显示结果。
A、1 -2 3 B、1 4 9 C、1 -3 5 D、3
(17) 写出运行时在Text1中依次按“1↙ 2a↙ 5↙ ”后窗体上的显示结果。
A、1 43 48 B、1 2 5 C、5 D、1 3 8
试题5（每小题3分，共9分）
阅读下列程序并回答问题，在每小题提供的若干可选答案中，挑选一个正确答案。
【程序】
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

Dim m As Integer, n As Integer
m = InputBox("m="): n = InputBox("n=")
Form1.Cls: Print f(m, n)
End Sub
(18) 运行时若输入m值为15、n值为25，窗体上的显示结果为：
A、25 B、15 C、5 D、3
(19) 运行时若输入m值为24、n值为16，窗体上的显示结果为：
A、24 B、16 C、8 D、2
(20) 运行时若输入m值为123、n值为23，窗体上的显示结果为：
A、100 B、1 C、23 D、146
试题6（每小题3分，共12分）
阅读下列程序并回答问题，在每小题提供的若干可选答案中，挑选一个正确答案。
【程序】
Private Sub f(n As Integer, k As Integer, x As String)
Dim m As Integer, t As Integer
x= "": m = n : n = Abs(n)
Do While n <> 0
t = n Mod k
If k=16 And t>9 Then x = Chr(Asc("a")+t-10) + x Else x = t & x
n = n \ k
Loop
If m < 0 Then x = "-" + x
End Sub

Dim x As Integer, y As Integer, s As String
x = Inputbox("x="): y = Inputbox("y=")
Call f(x, y, s)
Form1.Cls: Print s
End Sub
(21) 运行时若输入x值为13、y值为2，窗体上的显示结果为
A、1011 B、33 C、1101 D、1001
(22) 运行时若输入x值为27、y值为8，窗体上的显示结果为：
A、33 B、1101 C、1011 D、1001
(23) 运行时若输入x值为-14、y值为2，窗体上的显示结果为：
A、-1110 B、1101 C、1101- D、1011
(24) 运行时若输入x值为123、y值为16，窗体上的显示结果为：
A、123 B、321 C、b7 D、7b
试题7(28分)
按照下列要求和规定的步骤编程：
⑴ 编制函数过程sum，用于计算1个整数的各位数字之和（如引用sum(132)的结果是6，引用sum(-23)的结果是5，等等）。

① 输入10个数到整型数组a；
② 将a(1)各位数字和赋值到b(1)、a(2)各位数字和赋值到b(2)、...、a(10)各位数字和赋值到b(10)【要求调用函数sum实现】；
③ 在窗体上以一行输出a数组各元素值（保持原输入值不变）；
④ 在窗体上以一行输出b数组各元素值。
2007年春浙江省高等学校
计算机等级考试试卷(二级Visual Basic)
试题1（每小题3分，共12分）
(1) B (2) A (3) D (4) C
试题2（每小题3分，共15分）
(5) D (6) C (7) B (8) A (9) A
试题3（每小题3分，共12分）
(10) B (11) B (12) D (13) A
试题4（每小题3分，共12分）
(14) A (15) D (16) B (17) D
试题5（每小题3分，共9分）
(18) C (19) C (20) B
试题6（每小题3分，共12分）
(21) C (22) A (23) A (24) D
试题7(28分)
⑴ 1解
Private Function sum(ByVal n As Integer) As Integer
n = Abs(n)
Do While n > 0
sum = sum + n Mod 10
n = n \ 10
Loop
End Function
2解
Private Function sum(ByVal n As Integer) As Integer
Dim s As String, i As Integer
s = Trim(Str(Abs(n)))
For i = 1 To Len(s)
sum = sum + Val(Mid(s, i, 1))
Next i
End Function
⑵

Dim a(10) As Integer, b(10) As Integer, i As Integer
For i = 1 To 10
a(i) = InputBox("")
b(i) = sum(a(i))
Print a(i);
Next i
Print
For i = 1 To 10
Print b(i);
Next i
End Sub