While...Wend Statement

Kiam programo renkontas ordonon While, ĝi testas la kondiĉon. Se la kondiĉo estas falsa, la programo daŭras ruliĝi tuj post la ordono Wend. Se la kondiĉo estas vera, la iteracio ruliĝas ĝis kiam la programo renkontas ordonon Wend kaj saltas al la ordono While . Se la kondiĉo ankoraŭ estas vera, la iteracio ruliĝas denove.

Kontraste al la ordono Do...Loop oni ne povas nuligi iteracion While...Wend per Exit. Neniam eliru el iteracio While...Wend loop per GoTo, ĉar tio povas kaŭzi rultempan eraron.

Do...Loop estas pli fleksebla ol While...Wend.

Sintakso:

While Kondiĉo [Ordono] Wend

Ekzemplo:

Sub ExampleWhileWend

Dim stext As String

Dim iRun As Integer

    sText ="Jen mallonga teksto"

    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,"Teksto enkodita"

End Sub