While...Wend Statement
Ha a program While utasĂtást talál, akkor megvizsgálja a feltĂ©telt. Ha a feltĂ©tel hamis, akkor a program közvetlenĂĽl a Wend utasĂtás után folytatja. Ha a feltĂ©tel igaz, 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 igaz, akkor a ciklus Ăşjra vĂ©grehajtásra kerĂĽl.
A Do...Loop utasĂtással ellentĂ©tben, a While...Wend ciklust nem fejezheti be az Exit utasĂtással. While...Wend ciklusbĂłl ne lĂ©pjen ki a GoTo utasĂtással, mert ez futásidejű hibát okozhat.
Egy Do...Loop ciklus sokkal rugalmasabb, mint egy While...Wend ciklus.
Szintaxis:
While FeltĂ©tel [UtasĂtás] Wend
PĂ©lda:
Sub ExampleWhileWend
Dim stext As String
Dim iRun As Integer
sText ="Ez egy rövid szöveg"
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