举个例子
public Class Dynamicobj
Dim DynamicObj() as obj
Dim I,J as Integer
For I=0 To 100
Redim Preserve DynamicObj(J)
DynamicObj(J) = I
J+=1
Next
end class
上面的100是常量,但我们常常可以用于一个未知的集合变量需要遍历的情况,遍历出来的结果不同数组的维数以及值就有可能不同了。其他的情况基本类似。
Dim DynamicObj() as obj
Dim I,J as Integer
For I=0 To 100
Redim Preserve DynamicObj(J)
DynamicObj(J) = I
J+=1
Next
end class