vba学习笔记数组的LBound和UBound

编程基础 • 2025-01-13 17:33 • 阅读 34

需要注意：
arr的第一维没有写从几开始的就是从0 开始的
LBound(arr) 和 LBound(arr, 1)的结果是相同的

Sub testLboundAndUbound()
    Dim arr(3, 4 To 6, 7 To 9) As Integer
    Debug.Print "arr: " & LBound(arr) & " " & UBound(arr)
    Debug.Print "xxx: " & LBound(arr, 1) & " " & UBound(arr, 1)
    Debug.Print "yyy: " & LBound(arr, 2) & " " & UBound(arr, 2)
    Debug.Print "zzz: " & LBound(arr, 3) & " " & UBound(arr, 3)
    Dim x, y, z As Integer
    For x = LBound(arr, 1) To UBound(arr, 1)
        For y = LBound(arr, 2) To UBound(arr, 2)
            For z = LBound(arr, 3) To UBound(arr, 3)
                arr(x, y, z) = x * y * z
            Next
        Next
    Next
    For x = LBound(arr, 1) To UBound(arr, 1)
        For y = LBound(arr, 2) To UBound(arr, 2)
            For z = LBound(arr, 3) To UBound(arr, 3)
                Debug.Print "arr(" & x & "," & y & "," & z & ") =" & arr(x, y, z)
            Next
        Next
    Next
End Sub

上面sub在立即窗口的结果如下：
arr: 0 3
xxx: 0 3
yyy: 4 6
zzz: 7 9
arr(0,4,7) =0
arr(0,4,8) =0
arr(0,4,9) =0
arr(0,5,7) =0
arr(0,5,8) =0
arr(0,5,9) =0
arr(0,6,7) =0
arr(0,6,8) =0
arr(0,6,9) =0
arr(1,4,7) =28
arr(1,4,8) =32
arr(1,4,9) =36
arr(1,5,7) =35
arr(1,5,8) =40
arr(1,5,9) =45
arr(1,6,7) =42
arr(1,6,8) =48
arr(1,6,9) =54
arr(2,4,7) =56
arr(2,4,8) =64
arr(2,4,9) =72
arr(2,5,7) =70
arr(2,5,8) =80
arr(2,5,9) =90
arr(2,6,7) =84
arr(2,6,8) =96
arr(2,6,9) =108
arr(3,4,7) =84
arr(3,4,8) =96
arr(3,4,9) =108
arr(3,5,7) =105
arr(3,5,8) =120
arr(3,5,9) =135
arr(3,6,7) =126
arr(3,6,8) =144
arr(3,6,9) =162

vba学习笔记 数组的LBound和UBound

相关推荐

vba学习笔记数组的LBound和UBound