UC知道vb const 代码出错
来源：百度知道 编辑：UC知道 时间：2024/09/23 02:20:36
Option Base 1
Private Sub Form_Click()
Const a = 6
Dim x(a) As Integer
For i = 1 To a
x(i) = i ^ 2
Next i
Print x(i)
End Sub
运行出错，请高手指教，错在何处。谢谢。
Private Sub Form_Click()
Const a = 6
Dim x(a) As Integer
For i = 1 To a
x(i) = i ^ 2
Next i
Print x(i)
End Sub
运行出错，请高手指教，错在何处。谢谢。
你的Print x(i)可能写错地方了，应该把它放到For循环体内。
如果没有写错，就要注意：For循环结束后，i的值为7而不为6，你的x数组总共只有6个元素，所以Print x(i)就会出现数组下标越界的错误。