Option Base 1
Dim stuname() As String

Private Sub Form_Click()
ReDim stuname(4) As String
For i = 1 To 4
Dim a As String
a$ = InputBox$("input name")
stuname(i) = a
Next i
Print stuname(i)
End Sub
帮我看看这个运行的时候怎么老是提示下标越界啊?
谢谢了