没有动态数组吧就算利用 dim Arr（）as string这样声明，一旦赋值后，数组大小也就固定了。如果要改变数组大小要用redim 命令redim arr（10）preserve redim arr（）加preserve 可以不清空数组，保持原有数据
这个与在VB里是一样的格式！Dim d() As 数据类型
dim a() as string
