怎么声明动态二维数组

鑫11

怎么声明动态二维数组

konggs

鑫11兄：请看下面：

Sub 动态二位数组()
Dim arr As Variant
Dim a%, k%, b%
ReDim arr(20, 30)
k = 1
For a = 0 To 20
    For b = 0 To 30
        arr(a, b) = k
        k = k + 1
    Next
Next
MsgBox arr(20, 30)
End Sub

鑫11

谢谢