老是越界

linan521 发布于 2014-01-15 15:34， 297 次点击

Option Base 1
Private Sub Command1_Click()
Dim n As Integer
Dim s()
n = InputBox("请输入学生人数的个数")
For i = 1 To n
s(i) = InputBox("请输入第" & i & "个学生的学号")
Print s(i)
Next
End Sub
为什么老是越界？
谢谢各位高手指点！！！

2 回复

lowxiong2014-01-15 15:47

Private Sub Command1_Click()
Dim n As Integer
Dim s()
n = Val(InputBox("请输入学生人数的个数"))
If n = 0 Then Exit Sub
ReDim s(n)
For i = 1 To n
s(i) = InputBox("请输入第" & i & "个学生的学号")
Print s(i)
Next
End Sub

alike2014-01-15 16:10

Option Base 1
Private Sub Command1_Click()
Dim n As Integer
Dim s()
n = InputBox("请输入学生人数的个数")
ReDim s(n)
For i = 1 To n
s(i) = InputBox("请输入第" & i & "个学生的学号")
Print s(i)
Next
End Sub