请教一个关于数组的问题

kukulsz

代码如下：
Dim Arr()
For a=0 to 10
Arr(a)=a
Next
运行时报错提示Subscript out of range
由于不能确定数组个数，要定义一个空数组，再循环往里面加数据，请问该如何正确使用？求指点

TIB

要用一下redim

feiyunkai

Dim Arr()
For a=0 to 10
redim Arr(a)
Arr(a)=a
Next

ppppp1990

你错误理解定长数组了，按照你的本意，第一行应该是
Dim Arr(10),
输出结果是Arr(0)=0
Arr(1)=1....
Arr(10)=10