Module
Contents
Index 🔎︎

# While...Wend Statement

當遇到 While 陳述式時，程式將對條件進行測試。如果條件為 False (假)，則直接執行 Wend 陳述式之後的程式。如果條件為 True (真)，則執行迴圈直至程式到達 Wend 陳述式，然後跳回 While 陳述式。如果條件仍為 True (真)，則再次執行迴圈。

與 Do...Loop 不同，不能使用 Exit 陳述式取消 While...Wend 迴圈。請勿使用 GoTo 陳述式結束 While...Wend 迴圈，否則將導致執行階段錯誤。

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