[Visual Basic] 비주얼베이직 스크립트 (VBScript) 배열 Array Msgbox로 디버깅 보기

VBScript의 배열에 대한 자세한 설명은 아래에...

https://ansan-survivor.tistory.com/1590

[Visual Basic] 비주얼베이직 스크립트 (VBScript) 배열, 리스트 (Array), 배열 크기, 배열사이즈 함수 uboun

 

배열 행렬 (Array)의 내부 인자에 어떤값이 들어있는지 찾고싶을 때 debug용 코드

아래와 같은 행렬 모양의 내부 인자값들을 Msgbox로 알아보고 싶을 때.

(결과)

배렬의 인자 순서대로 msgbox가 차례대로 아래와 같이 출력된다.

반응형

 

코드

' 동적 행렬선언.
Dim pntsArr()


' 행렬 선언 <배열명>(column, row) 형태의 메모리크기 지정.
' 0부터 카운터 함으로 pntsArr<3자리, 5자리>  
' 즉, pntsArr(2,4)에서 2는 0,1,2임으로 3칸을 의미.
' 3번째 칸은 곡선을 만들 때 사용.
ReDim pntsArr(2,4)

' 좌표 그리기 0,0 부터 쭉 그리고 다시 0,0으로 닫음.
pntsArr(0,0) = 0.0   :pntsArr(1,0) = 0.0   :pntsArr(2,0) =    0.0
pntsArr(0,1) = 200.0 :pntsArr(1,1) = 0.0   :pntsArr(2,1) =    0.0
pntsArr(0,2) = 200.0 :pntsArr(1,2) = 100.0 :pntsArr(2,2) =    0.0
pntsArr(0,3) = 0.0   :pntsArr(1,3) = 100.0 :pntsArr(2,3) =    0.0
pntsArr(0,4) = 0.0   :pntsArr(1,4) = 0.0   :pntsArr(2,4) =    0.0

Dim i, j, WScript
For i = 0 to UBound(pntsArr, 2)
    For j = 0 to UBound(pntsArr, 1)
        MsgBox( "(" & j & "," & i & "): " & pntsArr(j, i) ) 
    Next 
Next