自定义数据的动态数组问题

Question

自己定义了一个数组，放在模块里面，如下类型
Type Genetype
    Value As Double      
    Upper() As Double     
    Lower() As Double    
End Type下面是调用的时候
dim Pop() as Genetypen= txt1.textRedim Pop(n)可是Upper()怎么重新Redim啊,还需要Redim么，在哪儿定义？因为下面用到Pop(i).Upper(j)和Pop(i).Value

Answer 1

ReDim prevserve Pop(1).Upper(10)

Answer 2

如果一开始就定义Redim Pop(n).upper(m)，是不是不需要Redim Pop(n)？是不是也不需要preserve ？如下面即可？？dim Pop() as Genetypen= txt1.text
m ＝txt2.textRedim Pop(n).upper(m)