Anweisung While…Wend

Wenn ein Programm auf eine Anweisung While stößt, testet es die Bedingung. Wenn die Bedingung False ist, wird das Programm direkt nach der Anweisung Wend fortgesetzt. Wenn die Bedingung True ist, wird die Schleife ausgeführt, bis das Programm Wend findet und springt dann zurück zur Anweisung While. Wenn die Bedingung immer noch True ist, wird die Schleife erneut ausgeführt.

Im Gegensatz zur Anweisung Do…Loop können Sie eine Schleife While…Wend nicht mit Exit abbrechen. Verlassen Sie niemals eine Schleife While…Wend mit GoTo, da dies zu einem Laufzeitfehler führen kann.

Ein Do…Loop ist flexibler als ein While…Wend.

Syntax:

Syntax für While


    While Condition [statements] Wend

Beispiel:


  Sub ExampleWhileWend
      Dim stext As String
      Dim iRun As Integer
      sText ="Dies ist ein kurzer 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 verschlüsselt"
  End Sub

Anweisungen Do…Until oder Do…While

Anweisung Exit

Bitte unterstützen Sie uns!