Module
Contents
Index 🔎︎

# While...Wend Statement

프로그램은 While 문을 만날 경우 조건을 테스트합니다. 조건이 False일 경우 Wend 문의 바로 다음부터 프로그램 실행이 계속됩니다. 조건이 True일 경우 Wend가 있는 곳까지 루프가 실행된 다음 다시 While 문으로 되돌아갑니다. 조건이 여전히 True일 경우 루프가 다시 실행됩니다.

Do...Loop와 달리 While...Wend 루프는 Exit로 취소할 수 없습니다. 또한 While...Wend 루프를 GoTo로 종료할 경우 런타임 오류가 발생할 수 있으므로 주의해야 합니다.

유연성이 더 뛰어나다는 점에서 Do...Loop를 사용하는 것이 좋습니다.

## 구문:

    While Condition [Statement] Wend

## 예:

    Sub ExampleWhileWend

    Dim stext As String

    Dim iRun As Integer

        sText ="This is a short text"

        iRun = 1

        while iRun < Len(sText)

            if Mid(sText,iRun,1 )<> " " then Mid( sText ,iRun, 1, Chr( 1 + Asc( Mid(sText,iRun,1 )) )

            iRun = iRun + 1

        Wend

        MsgBox sText,0,"Text encoded"

    End Sub