IBM Lotus Symphony
|
Wenn das Programm auf eine While-Anweisung trifft, überprüft es die angegebene Bedingung. Ist die Bedingung nicht erfüllt, wird das Programm direkt hinter der Wend-Anweisung fortgesetzt. Ist die Bedingung erfüllt, wird die Schleife ausgeführt, bis das Programm auf die Wend-Anwendung trifft. An diesem Punkt springt das Programm zurück zur While-Anweisung. Wenn die Bedingung dann immer noch erfüllt ist, wird die Schleife ein weiteres Mal ausgeführt usw.
Anders als bei Do...Loop kann eine While...Wend-Schleife nicht mit Exit verlassen werden. Verlassen Sie keinesfalls eine While...Wend-Schleife mit GoTo, da dies zu Laufzeitfehlern führen kann.
In jedem Fall ist die Verwendung von Do...Loop flexibler und damit empfehlenswert.
While Bedingung [Anweisung] Wend
Sub ExampleWhileWend
Dim stext As String
Dim iRun As Integer
sText ="Das ist ein kleiner 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