Option Base 1 '因为用了这句，所以数组下标从1开始
Private Sub command1_click()
Dim d
d = Array(1, 2, 3, 4, 5)
n = 1
For k = 5 To 3 Step -1
s = s + d(k) * n
n = n * 10
Next k
Print s
'当k=5时，s=s+d(k)*n=0+5*1=5
'当k=4时，s=s+d(k)*n=5+4*10=45
'当k=3时，s=s+d(k)*n=45+3*100=345
'当k=2时,小于3，循环结束
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ号：24596024