Private Sub Command 1_Click()
D.im a
a=Array(1,2,3,4)
i=3:i=1
D.o While i>=0
s=s+a(i)*j
i=i-1
j=j*10
Loop
Print s
E.nd Sub
运行上面的程序,单击命令按钮,则输出结果是( )。
A.4321
B.123
C.234
D.1234