[单项选择题] 在窗体上面一个名为Command1的命令按钮，然后编写如下代码： Option Base 1 Private Sub Command1_Click() Dim a a=Ar

[单项选择题] 在窗体上面一个名为Command1的命令按钮，然后编写如下代码：
Option base 1
Private Sub Command1_Click()
Dim a
a=Array(1,2,3,4)
j=1
For i=4 To 1 Step-1
s=s+a(i)*j
j=j*10
Next i
Print S
End Sub
运行上面的程序，其输出结果是( )

A．1234
B．12
C．34
D．4321

参考答案：

A

问题解析:

Array(arglist)函数用于将arglist参数中一组用逗号隔开的值列转换成一个数组并赋值给某数组变量。本题中，a(1)=1，a(2)=2，a(3)=3，a(4)=4。 本题每次执行For循环体后，s及j的值情况如下。 第1次：s=0+a(4)*1=4,j=1*10=10； 第2次：s=4+a(3)+10=34，j=10*10=100; 第3次：s=34+(2)+100=234,i=100*10=1000； 第4次：s=234+a(1)*1000=1234。