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
帮我看看这个运行的时候怎么老是提示下标越界啊?
谢谢了

你的显示命令不对，用数组应该用循环
for n = 1 to 4
Print stuname(i)
next
应该就可以了。
或者将你的程序改为：



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
Print stuname(i)
Next i

End Sub