IBM Lotus Symphony


Sætningen While...Wend [Runtime]

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.

Syntaks:

While Betingelse [Sætning] Wend

Eksempel:

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


Produktfeedback | Yderligere dokumentation | Varemærker