在窗体上画一个命令按钮,其名称为Command 1,然后编写如下程序:
Option Base l
Private Sub Command 1_Click()
Dim a
a=Array(1,2,3,4)
j=1
For i=4To l Step-1
S=S+a(i)* j
j=j*10
Next i
Print S
End Sub
A.4321 B.12 C.34 D.1234
参考答案:
答案解析:
阅读程序:Option Base 1Dim arr()As IntegerPrivate Sub Form_Click0
阅读程序:Option Base 1Dim arr()As IntegerPrivate Sub Form_Click0Dim i As Integer,j A