IBM Lotus Symphony


While...Wend-lause [käytönaikainen]

Kun ohjelma kohtaa While-lauseen, se tarkistaa ehdon. Jos ehdon arvo on False, ohjelma jatkaa suoraan seuraavaan Wend-lauseeseen. Jos ehdon arvo on True, silmukka suoritetaan, kunnes ohjelma löytää Wend-lauseen ja siirtyy takaisin While-lauseeseen. Jos ehdon arvo on yhä True, silmukka suoritetaan uudestaan.

Toisin kuin Do...Loop-lauseessa, et voi peruuttaa While...Wend-silmukkaa Exit-lauseella. Älä koskaan poistu While...Wend-silmukasta GoTo-lauseella, koska siitä voi seurata käytönaikainen virhe.

Do...Loop-lause on joustavampi kuin While...Wend-lause.

Syntaksi:

While Condition [Statement] Wend

Esimerkki:

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,"Text encoded"

end sub


Palautetta tuotteesta | Lisäohjeet | Tavaramerkit