在窗体上画一个命令按钮（名称为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