[VB] UBOUND 함수를 사용해 배열 상한 인덱스 구하기

Dim nSourceArray(4, 5) As Integer ' 5×6 배열을 정의한다.

Dim I      As Integer
Dim J      As Integer
Dim nValue As Integer

For I = 0 To 4
    
    For J = 0 To 5
        
        nSourceArray(I, J) = nValue
            
        nValue = nValue + 1

    Next J

Next I

MsgBox "Array : (" & UBound(nSourceArray, 1) & ", " & UBound(nSourceArray, 2) & ")"