첨부 실행 코드는 나눔고딕코딩 폰트를 사용합니다.
유용한 소스 코드가 있으면 icodebroker@naver.com으로 보내주시면 감사합니다.
블로그 자료는 자유롭게 사용하세요.

■ WHILE ~ WEND문 사용하기

----------------------------------------------------------------------------------------------------

Dim pArray As Variant

Dim I      As Integer

 

pArray = Array(11, 12, 13, 14, 15, 6, 7, 8, 9, 10)

 

I = 0

    

While I < 10

 

    If pArray(I) > 10 Then

    

        Print Str(pArray(I)) & " is Big";

        

    Else

    

        Print Str(pArray(I)) & " is Small";

        

    End If

    

    Print

        

    I = I + 1

 

Wend

----------------------------------------------------------------------------------------------------

Posted by 사용자 icodebroker
TAG

댓글을 달아 주세요