你好,ReDim只可以重新定义动态数组,所谓动态数组就是在第一次dim时没有指定大小的,如Dim a$()。
你讲代码改一下:
Private Sub Command1_Click()
Dim a$()
ReDim a(2)
a(1) = "vb 欢迎你!"
ReDim a(10)
a(10) = "vb 讨厌你"
Print a(10)
End Sub
这样应该就不会出问题了,结果是输出"vb 讨厌你"。
希望能对你有帮助!
redim 是定义动态数组的,你的a$(2)是静态的
你这样试一试
Private Sub Command1_Click()
Dim a$()
ReDim a(1)
a(1) = "vb 欢迎你!"
Print a(1)
ReDim a(10)
a(1) = "vb 讨厌你"
Print a(1)
End Sub