在窗体上画一个名为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