Question

Private Sub Command1_Click() Dim a(1 To 10) As Integer Dim i As Integer For i = 1 To 10 a(i) = i *

运行程序后显示下标越界，如何改正，并求解释下标越界
Private Sub Command1_Click()
Dim a(1 To 10) As Integer
Dim i As Integer
For i = 1 To 10
a(i) = i * i
Next i
List1.AddItem Str(a(i))
End Sub

Answer 1

Private Sub Command1_Click()
Dim a(1 To 10) As Integer
Dim i As Integer
For i = 1 To 10
a(i) = i * i
iList1.AddItem Str(a(i))
Next
End Sub

前面的循环结束的时候next I是11了，a最大才10，所以下标越界

追问

可i不是只到10吗，怎么还能到11的？

追答

next I是11

Answer 2

当for i=10时，循环到next是，i=11了，加句 On Error Resume Next，应该可以屏蔽错误
Private Sub Command1_Click()

On Error Resume Next