IBM Lotus Symphony


Stavek While...Wend [izvajalno okolje]

Kadar program naleti na stavek While, testira pogoj. Če je pogoj False, program nadaljuje neposredno na stavek Wend. Če je pogoj True, se zanka izvaja, dokler program ne najde Wend, nato pa skoči nazaj na stavek While. Če je pogoj še vedno True, se zanka ponovno izvede.

Za razliko od stavka Do...Loop zanke While...Wend ne morete preklicati z Exit. Nikdar ne zapustite zanke While...Wend z GoTo, saj lahko to povzroči napako pri izvajanju.

Blok Do...Loop je fleksibilnejši od bloka While...Wend.

Skladnja:

While Condition [Statement] Wend

Primer:

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


Povratne informacije o izdelku | Dodatna dokumentacija | Blagovne znamke