Dim maxima(10 To 20)

Print UBound(maxima)'Output:  20

' 2-dimensional array

Dim maxima(1 to 5, 2 to 10)

Print UBound(maxima,2)'Output: 10

' 3-dimensional array

Dim maxima(1 to 5, 5 to 10, 10 to 15)

Print UBound(maxima,1)'Output: 5

Print UBound(maxima,2)'Output: 10

Print UBound(maxima,3)'Output: 15

関連項目

UBound 関数

用語集