在窗体上画一个命令按钮（其名称为Commandl），然后编写如下代码：　　Private Sub Command l_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