在窗体上画一个名为Commandl的命令按钮，然后编写如下代码：

option Base 1

Pdvate Sub Commandl_Click()

D．im a

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

J=1

F．or i=3 To 1 Step-1

s=s+a(i)*J

j=j*10

Nexti

Print s

E．nd Sub

运行上面的程序，其输出结果是

A．1234

B．12

C．34

D．4321