跪求：2007年春浙江省高等学校计算机等级考试二级VB答案

（三）2007年春浙江省高等学校
计算机等级考试参考答案(二级Visual Basic)

1B 2A 3D 4C 5A 6C 7B 8A 9C 10B 11B 12D 13A 14A 15D 16A 17D 18C 19C 20B 21C 22A 23A 24D

试题7参考程序：
Private Function sum(n As Long)
Dim i As Integer, s As Integer, n1
n1 = n
For i = 1 To n Step 10
s = s + n1 Mod 10
n1 = n1 \ 10
If n1 = 0 Then Exit For
Next i
sum = s
End Function
Private Sub command1_click()
Dim a(10) As Long, b(10) As Long
For i = 1 To 10
a(i) = InputBox("输入A（1）--A（10）：")
b(i) = sum(a(i))
Next i
For i = 1 To 10
Print a(i);
Next i
Print
For i = 1 To 10
Print b(i);
Next i
Print
End Sub