a数组定义为a(10)就是固定数组了,不能用redim重新定义应该改为动态数组:Private Sub Form_Click()Dim a() As Integerredim preserve a(20)a(1) = 1a(2) = 2Print a(1)End Sub
