简单问题：怎么样获取动态数组的维数？谢谢

Question

如题。

Answer 1

Dim Upper
Dim MyArray(1 To 10, 5 To 15, 10 To 20)   '声明数组变量。
Dim AnyArray(10)
Upper = UBound(MyArray, 1)   '返回 10。
Upper = UBound(MyArray, 3)   '返回 20。
Upper = UBound(AnyArray)   '返回 10。

Answer 2

UBound   '指定数组的最大下标
LBound   '指定数组的最小下标
例子同上

Answer 3

Function GetArryCount(Temp() As Integer) As Integer
        Dim i As Integer
        Dim T As Integer
        Const ItemCount = 100
        On Error GoTo Err1
        For i = 0 To ItemCount
            T = UBound(Temp, i + 1)
        Next i
Err1:
        GetArryCount = i
End Function

Answer 4

谢谢，我找到答案了。
谢谢大家的帮助，也谢谢wfnuser(夏雪) 的答案。