利用 dim Arr（）as string这样声明，一旦赋值后，数组大小也就固定了。如果要改变数组大小，要用redim 命令redim arr（10）
加preserve 可以不清空数组，保持原有数据 preserve redim arr（）