IBM Lotus Symphony
|
Når der står en While-sætning i et program, undersøges betingelsen. Hvis betingelsen er falsk, fortsætter programmet med sætningen lige efter Wend-sætningen. Hvis betingelsen er sand, udføres løkken, indtil programmet støder på Wend og derefter hopper tilbage til While-sætningen. Hvis betingelsen stadig er sand, udføres løkken igen.
I modsætning til sætningen Do...Loop, kan du ikke afbryde en While...Wend-løkke med Exit. Afbryd aldrig en While...Wend-løkke med GoTo, da det kan medføre en fejl under programkørslen.
Sætningen Do...Loop er mere fleksibel end While...Wend.
While Betingelse [Sætning] Wend
Sub EksempelWhileWend
Dim sTekst As String
Dim iRun As Integer
sTekst ="Dette er en kort tekst"
iRun = 1
While iRun < Len(sTekst)
if Mid(sTekst,iRun,1 )<> " " then Mid( sTekst ,iRun, 1, Chr( 1 + Asc( Mid(sTekst,iRun,1 )) )
iRun = iRun + 1
Wend
MsgBox sTekst,0,"Kodet tekst"
End Sub