Tartalom

# While...Wend utasítás

Ha a program While utasítást talál, akkor megvizsgálja a feltételt. Ha a feltétel False, akkor a program közvetlenül a Wend utasítás után folytatja. Ha a feltétel True, akkor a ciklus addig hajtódik végre, amíg a program meg nem találja a Wend utasítást, majd visszaugrik a While utasításra. Ha a feltétel továbbra is True, akkor a ciklus újra végrehajtásra kerül.

Unlike the Do...Loop statement, you cannot cancel a While...Wend loop with Exit. Never exit a While...Wend loop with GoTo, since this can cause a run-time error.

A Do...Loop is more flexible than a While...Wend.

### Szintaxis:

        While Condition [statements] Wend

### Példa:

      Sub ExampleWhileWend
          Dim stext As String
          Dim iRun As Integer
          sText ="This is a short text"
          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,"Kódolt szöveg"
      End Sub

Kapcsolódó témakörök

Do...Until or Do...While statement

Exit statement