Private Sub Command1_Click()
Dim A(1 To 10) As Integer
Dim b As Integer
For b = 1 To 10
A(b) = b
Next b
Text1.Text = A(b - 5)
End SubA(b)=b 这里是什么意思
Dim A(1 To 10) As Integer
Dim b As Integer
For b = 1 To 10
A(b) = b
Next b
Text1.Text = A(b - 5)
End SubA(b)=b 这里是什么意思
也就是a()这个数组的第b项
A(b)=b就是给这个项赋值
也就相当于a(1)=1 a(2)=2....