Enhavo
Indekso 🔎︎

# 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