IBM Lotus Symphony
|
Po wykryciu instrukcji While przez program sprawdzany jest warunek. Jeśli warunek ma wartość False, program jest kontynuowany od instrukcji Wend. Jeśli warunek ma wartość True, pętla jest wykonywana do momentu, gdy program znajdzie instrukcję Wend, a następnie przechodzi z powrotem do instrukcji While. Jeśli warunek nadal ma wartość True, pętla jest wykonywana ponownie.
W przeciwieństwie do instrukcji Do...Loop nie można anulować pętli While...Wend za pomocą instrukcji Exit. Z pętli While...Wend nigdy nie należy wychodzić za pomocą instrukcji GoTo, ponieważ może to spowodować błąd wykonywania programu.
Pętla Do...Loop jest bardziej elastyczna niż While...Wend.
While Warunek [Instrukcja] Wend
Sub Przyklad_WhileWend
Dim sTekst As String
Dim iPrzebieg As Integer
sTekst ="To jest krótki tekst"
iPrzebieg = 1
while iPrzebieg < Len(sTekst)
if Mid(sTekst,iPrzebieg,1 )<> " " then Mid( sTekst, iPrzebieg, 1, Chr( 1 + Asc( Mid(sTekst,iPrzebieg,1 )) )
iPrzebieg = iPrzebieg + 1
Wend
MsgBox sTekst,0,"Tekst zakodowany"
end sub