问题
单项选择题
下面程序运行后，输出结果为( )。
Dim a()
a＝Array(1,3,5,7,9)
S＝0
For i＝1 To 4
S＝S*10+a(i)
Next i
Print s
A．1357
B．3579
C．7531
D．9753
答案
参考答案：B
解析： 本题考查数组和循环的知识。在VBA中定义的数组如果没有指明下限一律默认下限为0。本题实际上每次把s*10然后加上数组的某一个元素构成一个新的数字，是从下标为1也就是第二个数组元素开始的。