在窗体上画一个名为Commandl的命令按钮,然后编写如下代码:option Base 1Pdvate Sub Commandl_Cli

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

option Base 1

Pdvate Sub Commandl_Click()

Dim a

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

J=1

For i=3 To 1 Step-1

s=s+a(i)*J

j=j*10

Nexti

Print s

End Sub

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

A．1234

B．12

C．34

D．4321

A解析：B=4×1+3×10+2×100+1 x 1000=1234。