单项选择题

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