IBM Lotus Symphony


Instrukcja While...Wend [środowisko wykonawcze]

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.

Składnia

While Warunek [Instrukcja] Wend

Przykład

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


Opinia na temat produktu | Dodatkowa dokumentacja | Znaki towarowe