动态数组的基础问题

Question

Private Sub Command1_Click()
Dim name() As String
n = Val(InputBox("请输入学生的人数"))
ReDim name(1 To n) As String
For i = 1 To n
name(i)=InputBox("请输入学生的姓名")
Next i
End Sub直接在复制到VB代码中,在窗体加一按钮.
为什么运行时会提示"缺少as"语法错误的???????
name(i)=InputBox("请输入学生的姓名")在这里出错,请问为什么?

Answer 1

Set name(i) = InputBox("请输入学生的姓名")

Answer 2

Private Sub Command1_Click()Dim name1() As String
n = Val(InputBox("请输入学生的人数"))
ReDim name1(1 To n) As String
For i = 1 To n
name1(i) = InputBox("请输入学生的姓名")
Next iEnd Sub
你用了系统的预定义名字

Answer 3

呵呵 这样就可以的 name改为任意的呵呵 如name1