全局数组变量里面的上标只能用数值吗

cjh2705

我写了几个过程，均要用到数组变量stu(    )
定义时用
Public stu(999, 20) As Variant
但999和20我想用变量m,n来表示，执行出错，有什么办法吗？
谢谢高手！多谢！

cjh2705

怎么没有大侠理我呢

lsdongjh

Public stu  As Variant

Function InicArr(Rows As Long, Cols As Long)
    ReDim Str(1 To Rows, 1 To Cols)
End Function


Sub Test()
    Dim m, n
    m = 100
    n = 100
   
    InicArr m, n
End Sub

zopey

1. Public stu() As Variant
   
2. 
   
3. Sub pey_test()
   
4. Dim m, n
   
5. m = 999: n = 20
   
6. 
   
7. ReDim stu(1 To m, 1 To n)
   
8. MsgBox UBound(stu)
   
9. End Sub

复制代码

taller

除了第一次外，redim 只能修改最后一个维度的上下届