中心理论组学习笔记,幼儿园教师学习笔记

需要注意：
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 NextEnd 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