在窗体上画一个命令按钮(其名称为Command1)，然后编写如下代码：

Private Sub Command1_Click()

Dim a

a=Array(1，2，3，4)

i=3:j=1

Do While i＞=0

s=s+a(i)*j

i=i-1

j=j*10

Loop

Print s

End Sub

运行上面的程序，单击命令按钮，则输出结果是（）。

A．4321

B．123

C．234

D．1234