Option Base 1
Private Sub Command1_Click()
Dim a
a = Array(1, 2, 3, 4)
j = 1
For i = 4 To 1 Step -1
s = s + a(i) * j
j = j * 10
Next i
Print s
End Sub
答案是1234但我不知道是怎么做出来得,谁能告诉我我要具体的解答过程
楼上那位估计没学过VB....不要随便误导别人Option Base 1 Private Sub Command1_Click() Dim a a = Array(1, 2, 3, 4) j = 1 For i = 4 To 1 Step -1 s = s + a(i) * j j = j * 10 Next i