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