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

■ UBound 함수를 사용해 배열 상한 인덱스를 구하는 방법을 보여준다.

▶ 예제 코드 (VB)


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) & ")"

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) & ")"