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 IntegerDim i As IntegerFor i = 1 To 10a(i) = i * iiList1.AddItem Str(a(i))NextEnd Sub前面的循环结束的时候next I是11了，a最大才10，所以下标越界