(完整版)浙江省07-08VB二级考试卷真题及答案

2008年春浙江省高等学校
计算机等级考试试卷(二级Visual Basic )
说明：⑴ 考生应将所有试题的答案填写在答卷上。

其中试题1〜试题6,请在答卷上各小题正确选项的对应位置处填；
⑵ 请将你的准考证号的后五位填写在答卷右下角的指定位置内；
⑶考试时间为90分钟；
试题1 (每小题3分，共12分)
阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。

【程序说明】单击Command侑用输入对话框输入1个整数，单击Command值在Textl 中显示其反序的数(高位变低位)。

要求在文本框中不可输入任何字符。

例如：输入123显示321,输入-567显示-765。

【程序】
(1)
Private Sub Form_Load()
(2)
End Sub
Private Sub Command1_Click()
Text1.Text = "": n = InputBox("n=")
End Sub
Private Sub Command2_Click()
If n < 0 Then n = -n: Text1.Text ="-"
While n <> 0
Text1.Text = (3) ___________________
(4)
Wend
End Sub
【供选择的答案】
B(1) A、Dim n As Byte
C 、Dim n As String B、
D im n As Integer
Public n As Byte
A(2) A、Text1.Locked = True B> Text1.Locked = False
C 、Text1.Visible = True Text1.Visible = False
D(3) A、n/10 & Text1.Text B、n Mod 10 & Text1.Text
C 、Text1.Text & n/10
D 、Text1.Text & n Mod 10
A(4) A、n = n \ 10 B 、n = n / 10
C 、n = n Mod 10 n = n - 10
试题2 (每小题3分，共12分)
阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。

【程序说明】
运行时，可以在图片框控件p1用红色绘制下列坐标线并加上数字显示。

Private Sub Form_Activate() Pl.Height = Pl.Width Pl.FontSize = 10 (5) (-10, 110)-(110, -10)
(6)
P1.Line (-5, 0)-(100, 0) P1.Line (0, -5)-(0, 100) For i =
(7) ______________
P1.Line (i, 0)-(i, 2) P1.Line (0, i)-(2, i) Next i Fori = 1 To 9
P1.CurrentX = i * 10 - 2 P1.CurrentY = -2
(8) Next i End Sub
【供选择的答案】
B(5) A 、P1.Draw B 、P1.Line
P1.Scale
B(6) A 、P1.ForeColor = RGB(255,0,0) B C 、P1.FillColor = VbRed A(7) A 、1 To 9 Step 1 B 、10 To 90 B(8) A 、PSet i
B 、P1.Print i
试题3 (每小题3分，共12分)
阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。

【程序说明】
单击“读文件”按钮将文本文件读入并逐行在列表框控件
List1中显示；然后单击“分
解"按钮将List1每行中的英文字母、其他字符分别显示在 List2、List3各行中。

运行结果如下图所示。

G P1.Print 以
、P1.FillColor = RGB(255,0,0) 以 P1.ForeColor = Red
G 10 To 90 Step 10 以 2 To 9 C 、P1.Pset i D 、Print i
【程序】
Private Sub Command1_Click()' 读文件Dim s As String Open "e:\xxx.txt" For (9) As #1 While Not EOF(1)
Line Input #1, s : List1.AddItem s
Wend
Close #1
End Sub
Private Sub Command2_Click()' 分解
Dim i As Integer, n As Integer, s1 As String, s2 As String For i = 1 To (10) n =
Len(List1.List(i - 1))
ReDim a(n) As String * 1
Forj = 1 To n
a(j) = (11) _______
Next j
s1 = "": s2 =""
Forj = 1 To n
If (12) Then s1=s1+a(j) Else s2=s2+a(j)
Next j
List2.AddItem s1
List3.AddItem s2
Next i
End Sub
【供选择的答案】
C( 9)A 、Read
C、Input
D(10)A、List1.Count
C、ListCount-1
A(11)A 、Mid(List1.List(i-1),j,1)
C 、Mid(List1.List(i-1),j) D
B、Append
D、Output
B、ListCount
D、List1.ListCount
B、Middle(List1.List(i-
1),j,1)
B(12)A、a(j)>='a' And a(j)<='z' Or a(j)>='A' And a(j)<='Z'
、a(j)>="a" And a(j)<="z" Or a(j)>="A" And a(j)<="Z"
C 、"a"<=a(j)<="z" Or "A"<=a(j)<="Z"
D 、(a(j)>='a' And a(j)<='z') Or (a(j)>='A' And a(j)<='Z')
试题4 (每小题3分，共12分)
阅读下列程序并回答问题，在每小题提供的若干可选答案中，挑选一个正确答案。

【程序】
Private Sub Text1_KeyPress(K As Integer)
If K < Asc("0”) Or K > Asc("9”) Then
K = 0
Else
Label1.Caption = Chr(K) + Label1.Caption
End If
End Sub
【供选择的答案】
B (13) Text1
A 、135 获得输入焦点后，依次按敏〔字键1、3、5, Label1 显示
B 、531
C 、9 5
A (14) Text1 获得输入焦点后，依次按数字键2、7、9, Label1 显示
A 、972
B 、279
C 、297 D、1
8
C (15) Text1 获得输入焦点后，依次按-、2、3、5 键，Label1 显示
A 、-532 B、-235 C 、532235
D (16) Text1 获得输入焦点后，依次按1、2、a、5 键，Label1 显示
A 、空白
B 、12a5
C 试题5 (每小题3分，共12分)
、5a21
以
521
阅读下列程序并回答问题，在每小题提供的若干可选答案中，挑选一个正确答案。

【程序】
Private Sub Form_Load()
Timer1.Interval = 1000
End Sub
Private Sub Timer1_Timer()
Static k As Byte
Form1.CurrentX=0: Form1.CurrentY=0 ' 窗体的所有其他属性均取缺省值Form1.Cls
If k = 0 Then k = 1 Else k = 0
If k=0 Then Form1.ForeColor = RGB(0, 255, 0) Else _
Form1.ForeColor = RGB(0, 0, 255)
Print Time
End Sub
【供选择的答案】
A(17)激活Timer1后，每间隔1秒显示一次系统时间，方式是：
A、蓝、绿色交替显示 B 、蓝色显示 C 、绿色显示 D 、红色显示
B(18)系统时间的显示位置，是在：
A、窗体右上角B 、窗体左上角C 、窗体右下角 D 、窗体左下角B(19)如果将Timer 过程中的语句"Static k As Byte "改为"Dim k As Byte "，激活Timerl
后，窗体系统时间显示上的颜色为：
A、蓝、绿色交替 B 、蓝色C 、绿色D 、红色
A(20)如果要同时显示系统日期、时间，对Timer过程中Print语句之输出列表不可取的是：
A、Date,Time B 、Date;Time C 、Date-Time D 、Date + Time
试题6 (每小题3分，共12分)
阅读下列程序并回答问题，在每小题提供的若干可选答案中，挑选一个正确答案。

【程序】
Private Sub f(b() As Integer, ByRef m As Integer)
Dim i As Integer, j As Integer, k As Integer
i = 1
Do While i <= m
For j = 1 To m
If b(i) Mod b(j) = 0 And i <> j Then
For k = i To m - 1: b(k) = b(k + 1): Next k
Exit For
End If
Next j
If j > m Then i = i + 1 Else m = m - 1
Loop
End Sub
Private Sub Command1_Click()
Dim a(6) As Integer, i As Integer, n As Integer
n = 6
For i = 1 To 6: a(i) = InputBox("a(" & i & ")="): Next i
Call f(a, n)
For i = 1 To n: Print a(i); : Next i
End Sub
D(21)单击Command输入7、8、5、4、9、3后，相应的显示结果为：
A、8 9 3 B 、8 9 3 3 3 3 C 、7 5 4 3 3 3 D 、7 5 4 3 C(22)如果将过程f首句中的“ ByRef”改为“ Byval”，输入数据同(21),显示结果为：
A、8 9 3 B 、8 9 3 3 3 3 C 、7 5 4 3 3 3 D 、7 5 4 3 B(23)单击Command输入4、12、27、8、-6、3后，相应的显示结果为：
A、4 3 3 3 3 3 B 、4 3 C 、12 27 8 -6 D 、12 27 8 A(24)如果将过程f首句中的“ ByRef”改为“ Byval”，输入数据同(23),显示结果为：
A、4 3 3 3 3 3 B 、4 3 C 、12 27 8 -6 D 、12 27 8
试题7(28分)
编程，按Command可输入有10个实数的数组，调用函数f求他们的平均值V,然后输出其中与V之差的绝对值为最小的那个数组元素。

请将答卷上函数过程f (包括形参列表)、事件过程Command作卜充完整。

Private Function f(a() as single,n as integer ) As Single ' 2 分
Dim I as integer,sum as single '1 分
Sum=0
For I=1 to n ' 5 分
Sum=sum+a(i)
Next I
F=sum/n ' 2 分
End Function
Private Sub Command1_Click()
Dim a(10) As Single, i As Integer, v As Single, x As Single, d As Single
'输入数据(3分)
for I= 1 to 10
a(i)=inputbox( "请输入数据”)
next i
'计算平均值v (3分)
v=f(a,10)
'将与v之差的绝对值为最小的那个数组元素赋值给x,输出x。

d=abs(v-a(1)) : x=a(1) '2 分
for I=2 to 10 '绝对值2分，其余6分
if d<abs(v-a(i)) then
d=abx(v-a(i))
x=a(i)
endif
next I
print x ' 2 分
End Sub
2007年秋浙江省高等学校
计算机等级考试试卷(二级Visual Basic )
说明：⑴ 考生应将所有试题的答案填写在答卷上。

其中试题1〜试题6,请在答卷上各小题正确选项的对应位置处填；
⑵请将你的准考证号的后五位填写在答卷右下角的指定位置内；
⑶考试时间为90分钟；
试题1 (每小题3分，共12分)
阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。

【程序说明】单击Command信计算a?x2+ b?x+ c的值并显示，界面设计以及运行时的显示分别如下图左、图右所示。

要求在文本框中不可输入英文字母。

【程序】
Private Sub Command1_Click()
Dim a As Single, b As Single, c As Single, x As Single, y As Single a = Text1(0).Text: b = Text1(1).Text c = Text1(2).Text: x = Text1(3).Text y = a * x * x + b * x + c Label3.Caption = y End Sub
Private Sub Text1_ Select Case (3) Case "A" To "Z" K = 0 Case (4) K = 0 End Select End Sub
【供选择的答案】
试题2 (每小题3分，共12分)
阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。

【程序说明】
过程f 的功能是：返回Single 类型数组n 个元素的平均值，查找数组中最大值、最小 值并通过相应的实参返回到调用处。

该过程可以被其他模块中的过程所调用。

(5) f(a() As Single, n As Integer, (6) ) As Single
Dim i As Integer max = a(1): min=a(1) For i = 1 To n
If a(i)>max Then max=a(i) If a(i)<min Then min=a(i)
(7) Next i
计算结果 8.25
(1) (Index As Integer,
A(1) A 、keyPress
D(2) A 、keyAscii As Integer Integer
B(3) A 、Chr(KeyAscii) C(4) A 、a To z B
'a'...'z'
B change C
B 、Value B 、Chr(K)
、'a' To 'z'
keydown
、Text() 、Asc(K)
G "a" To "z"
D 、 keyup
D> k As
D 、Asc(KeyAscii)
A(5) A 、Function B 、Sub Function
B(6) A 、max As Single,min As Single C 、Byval max As Single Single
A(7) A 、f=f+a(i) B 、f=f+a(i)/n D(8) A 、find = max B 、End Sub
Function
试题3 (每小题3分，共12分)
阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。

【程序说明】
单击Commandl 后读入文件中所有数据(多于10个)，将其中较大的 5个数、较小的5 个数以及其他数分别在列表框控件
Listl 、List3、List2中显示。

【程序】
Private Sub Command1_Click()
Dim n As Integer, x As Single, i As Integer,] As Integer,k As Integer Open "e:\score.txt" For Input As #1 Do While (9)'
统计文件中的数据个数 n
Input #1, x : n = n + 1 Loop
(10) As Single
Close #1: Open "e:\score.txt" For Input As #1 ' 重新打开文件
For i = 1 To n Inp ut #1,a(i) Next i Close #1 For i = 1 To n-1 k = i
For j = i+1 To n If (11) Then k=j Next j
x = a(i): a(i) = a(k): a(k) = t If i <= 5 Then List1.AddItem a(i) Else If (12) Then List3.AddItem a(i) Else
List21.AddItem a(i) End If Next i End Sub
G Private Sub D 、Private B> max As Integer,min As Integer Ck Byval max As Single,Byval min As G f=a(i)
D 、f=a(i)/n
G find = min
D> End
⑼A 、 Not Eof(1) B
、Eof(1)
C 、 Eof(1)
D 、 Read (10) A 、 D im a(n) B 、Redim a(n) C
、 Redim a() D 、 static a(n) (11) A 、
a (i)>a(k) B
、 a(i)<a(k) C
、a(j)>a(k) D 、a(j)<a(k) (12) A 、 i >=n-5 B
、 i>n-5 C
、 n>5
D
、 i<n
试题4 （每小题3分，共12分）
阅读下列程序并回答问题，在每小题提供的若干可选答案中，挑选一个正确答案。

【程序】
Dim m As Integer
Private Sub Command1_Click()
Dim a As Integer, i As Integer, f As Integer a = InputBox("a=") f= 1: i = 2 While i <= a / 2
If a Mod i = 0 Then f = f + i i = i + 1 m = m + 1 Wend
Form1.Cls: Print f End Sub
【供选择的答案】
Command 输入7后，窗体上的显示结果为： C 、5 D 、7
Command 输入8后，窗体上的显示结果为： C 、8 D 、6
Command 输入9后，窗体上的显示结果为： C 、7 D 、4
）mmand1并依次输入7、8、9后，变量m 的当前值为:
C 、8
D 、3
试题5 （每小题3分，共12分）
阅读下列程序并回答问题，在每小题提供的若干可选答案中，挑选一个正确答案。

【程序】
Private Function f(a As Integer, b As Integer) As Integer Dim r As Integer, t As Integer f = a
Do While f Mod b <> 0 f = f + a Loop End Function
Private Sub Command1_Click() Static k As Integer
(13) 运行时第 1次单击 A 、 1 B 、3
(14) 运行时第 2次单击
A 2
B 、7
(15) 运行时第 3次单击
A 3
B
、5
(16) 运行时3次单击C
A 6 B
、7
Dim m As Integer, n As Integer
m = InputBox("m=") n = InputBox("n=") k = k + 1 Forml.Cls
Print f(m, n)
End Sub
【供选择的答案】
(17) 运行时第1次单击Command输入4、6后，窗体上的显示结果为：
A、4 B 、24 G 8 D 、12
(18) 运行时第2次单击Command输入15、10后，窗体上的显示结果为:
A、150 B 、20 C 、30 D 、2
(19) 运行时第3次单击Command输入4、10后，窗体上的显示结果为：
A、10 B 、20 C 、40 D 、80
(20) 第4次单击Command侑，该事件过程中变量k的当前值为：
A、4 B 、3 C 、0 D 、2
试题6 (每小题3分，共12分)
阅读下列程序并回答问题，在每小题提供的若干可选答案中，挑选一个正确答案。

界面设计以及运行时HScroll1.Value 值为90时的显示分别如下图左、图右所示。

【程序】
Private Sub Form_Load()
Picture1.Width = Picture1.Height
Picture1.Scale (-10, 10)-(10, -10)
Picture1.BorderStyle = 0
HScroll1.SmallChange = 2: rgeChange = 10
End Sub
Private Sub HScroll1_Change()
Dim t As Single
Picture1.Cls
t = HScroll1.Value * 3.14159 / 180
Label1.Caption = HScroll1.Value
Picture1.Circle (0, 0), 10, vbRed
Picture1.Line (0, 0)-(9 * Cos(t), 9 * Sin(t))
End Sub
C 、 单击滚动条两端箭头时 Value 的增量为10或-10。

D 、 单击滚动条上空白区域时
Value 的增量为2或-2。

试题7（28分）
编程，计算多项式 a 1 a 2x a 3x 2
a n x n 1的值。

在文本框控件 Text1、Text2中
分别输入n 、x 后，按Command 可输入a 1、a 2、a 3、 、a n ,按Command”计算该多项式 的值并以标签控件
Label3显示。

程序设计时的界面设计如下图左所示。

运行时输入n 为3、x 为1.5，输入a 〔、a 2、&3分
别为1、2、3后的输出结果如下图右所示。

请将答卷上各事件过程补充完整。

2007年春浙江省高等学校
计算机等级考试试卷（二级Visual Basic ）
说明：⑴ 考生应将所有试题的答案填写在答卷上。

其中试题 1〜试题6,请在答卷上各小 题正确选项的对应位置处
填；
⑵ 请将你的准考证号的后五位填写在答卷右下角的指定位置内； ⑶考试时间为90分钟；
试题1 （每小题3分，共12分）
阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。

(21) A 、
(22) A
、
(23) A
、
决定运行时图片框控件边框不显示的相关属性为： C 、FillStyle D 以原点
为起点的直线指向: C 、 6点方向 D
以原点为起点的直线指向:
C 、 6点方向 D
、BorderStyle (24) A
、 BackColor B 、ForeColor
滚动条Value 属性值为180时， 12点方向 B 、9点方向 滚动条Value 属性值为270时，
12点方向
B 、9点方向
下列说法中正确的是：
拖动滚动条滑块的过程中以及结束后都不会触发 HScroll1_Change 事件
拖动滚动条滑块的过程结束后立即触发
HScroll1_Change 事件
、3点方向 、3点方向
【程序说明】单击窗体后输入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
【供选择的答案】
B(1) A 、n As Integer C 、Byval n As Byte A(2) A 、k>1 B 、k>=1 D(3) A 、k\i=0
8 k\i*i=0
试题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 = ( P1.Enabled = False: MsgBox(
"单击该区域”+
⑹ +
"次")
End If End Sub
Private Sub Form_Activate() P1.Width = P1.Height P1.Scale(-3, 3) - (3, -3) P1.FillStyle = (7)
Pl.FillColor = (8) : P1.Circle(0, 0), 2 Pl.FillColor = vbwhite: P1.Circle(0, 0), 1 End Sub
B> k As Integer
Ek I As Integer
G k=1 G n Mod i=0
D> k Modi=0 D> (k\i)*i=k
C(4) A 、Until n>6
8 While n>=6
G Until n>=6
D 、While n>6
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
【供选择的答案】
D(5) A、"退出" 8 "开始"G ”显示""开始"
C(6) A、n B、Val(n) C、Str(n ) D Trim(n)
B(7)A 、 1 B、0 C、2 以3 A(8) A、vbblank B Rgb(255,0,0) G vbwhite Rgb(255,255,0) A(9) A、x*x+y*y<=4 8 x>2 And y>2 G x*x+y*y<=2 x*x+y*y>4
试题3 （每小题3分，共12分）
阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。

【程序说明】
某文件中存放了若干个实数，单击Command1可用对话框打开该文件、并将读入的所有
数据在List1中显示，单击Command^将读入的数据按值从大到小顺序重新写入到该文件。

【程序】
Private Sub Command1_Click()
Dim x As Single
List1.Clear: CommonDialog1.Action = 1
Open CommonDialog1.FileName For (10) As #1
Do While (1 _________________
Inp ut #1, x: List1.Additem x
Loop
Close #1
End Sub
Private Sub Command2_Click()
Dim n As Single,x As Single,i As Integer,] 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
【供选择的答案】
B(10) A 、 Output B
、 Input
C
、 Append
D 、Read B(11) A 、 Eof(1) B 、Not Eof(1) C
、 Eof(fn) D 、 Not
Eof(fn) D(12) A 、 Count
B
、ListCount-1
C 、 List
D 、 ListCount
A(13)
A 、 a(j)>a(k) B
、a(j)<=a(k)
C
、a(j)<>a(k)
D
、a(j)<a(k)
试题4 (每小题3分，共12分)
阅读下列程序并回答问题，在每小题提供的若干可选答案中，挑选一个正确答案。

【程序】
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 A(14) 与出运行时在
Text1 中依次按“ 1/ 3 /
5 /
”后窗体上的显示结果。

A 、1 4 9
B 、9
C 、1 3 5
D 、5 D (15) 与出运行时在 Text1 中依次按 “ 2 / 4 / / 6 / '”后窗体上的显示结果。

A 、2 4 6
B
、12
C
、6
D
、2 6 12
B (16) 与出运行时在 Text1 中依次按 “1 / -3
5
/ ”后窗体上的显示结果。

A1 -2 3 B 、1 4 9 C 、1 -3 5 D
、3 D (17) 与出运行时在 Text1 中依次按 “ 1 / 2a 5 / ”后窗体上的显示结果。

A1 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
Private Sub Command1_Click()
试题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 Loop
If m < 0 Then x = "-" + x End Sub
Private Sub Command1_Click()
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
试题7(28分)
按照下列要求和规定的步骤编程: 1个整数的各位数字之和(如引用 sum(132)的结果是
6,引用sum(-23)的结果是5,等等)
⑵编写事件过程Command1_Click,完成下列运算： ① 输入10个数到整型数组 a;
Dim m As Integer, n As Integer m = InputBox( " m="): n = InputBox( Form1.Cls: Print f(m, n) End Sub
C(18)运行时若输入m 值为 A 、 25
B
、 15
C(19)运行时若输入m 值为 A 、 24
B
、 16
B(20)运行时若输入m 值为 A 、 100 B 、 1
15、 24、 123
、
C
n 值为 C n 值为 25, 5 窗体上的显示结果为:
D 、3
窗体上的显示结果为:
D 、2
16,
8
n 值为23,窗体上的显示结果为:
、23 D
、146
End Sub
C(21)运行时若输入
1011 B 运行时若输入 33 B 运行时若输入 B A(22) A 、 x 值为13、
、 33
x 值为27、
、 1101
y 值为 C y 值为 2,窗体上的显示结果为：
1101 D 、 1001 8,窗体上的显示结果为：
D C 、1011 、1001
A(23) A 、 -1110 D(24)运行时若输入 A 、 123 B
x 值为-14、y 值为2,窗体上的显示结果为：
、1101 C 、1101- D 、1011
x 值为123、y 值为16,窗体上的显示结果为:
C
、1101- 321 、b7 D 、 7b ⑴编制函数过程sum,用于计算
②将a(1)各位数字和赋值到b(1)、a(2)各位数字和赋值到b(2)、...、a(10)各位数字和赋值到b(10)【要求调用函数sum实现】；
③在窗体上以一行输出a数组各元素值(保持原输入值不变)；
④在窗体上以一行输出b数组各元素值。

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
Private Sub Command1_Click()
Dim a(10) As Integer, b(10) As Integer, i As Integer
Fori = 1 To 10
a(i) = InputBox(”?? e ?e ?a(" & i & ")")
Next i
Fori = 1 To 10
b(i) = sum(a(i))
Next i
Fori = 1 To 10
Print a(i);
Next i
Print
Fori = 1 To 10
Print b(i);
Next i
End Sub
2007年春计算机等级考试参考答案（二级Visual Basic）试题1~6 （每小题3分）
试题7 (28分)
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
Private Sub Command1_Click()
Dim a(10) As Integer, b(10) As Integer, i As Integer
Fori = 1 To 10
a(i) = InputBox(”?? e ?e ?a(" & i & ")")
Next i
Fori = 1 To 10
b(i) = sum(a(i))
Next i
Fori = 1 To 10
Print a(i);
Next i
Print
Fori = 1 To 10
Print b(i);
Next i
End Sub。