例: UBound function

' Single dimension array
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