Module
Contents
Index 🔎︎

# While...Wend 语句

当遇到 While 语句时，程序将对条件进行测试。如果条件为 False，则直接执行 Wend 语句之后的程序。如果条件为 True，则继续执行循环直至程序到达 Wend 语句，然后跳回 While 语句。如果条件仍为 True，则再次执行循环。

与 Do...Loop 语句不同，您不能使用 Exit 取消 While...Wend 循环。您不应当使用 GoTo 来终止 While...Wend 循环，因为这会导致运行时错误。

Do...Loop 语句比 While...Wend 语句更为灵活。

## 语法：

    While Condition [Statement] Wend

## 示例：

    Sub ExampleWhileWend

    Dim stext As String

    Dim iRun As Integer

        sText ="短文本示例"

        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