While...Wend Statement
වැඩසටහනකට While ප්රකාශනයක් හමු වු විට එය කොන්දේසිය පරීක්ෂා කරයි. කොන්දේසිය False නම් වැඩසටහන සෘජුවම Wend ප්රකාශනය අනුගමනය කරමින් දිගටම කරගෙන යයි. කොන්දේසිය True නම්, වැඩසටහන Wend හමුවෙන තුරු පුඩුව ක්රියාත්මක කරවන අතර ආපසු While ප්රකාශනයට පනී. කොන්දේසිය තවමත් True නම් පුඩුව නැවතත් ක්රියාත්මක කරනු ලබයි.
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.
Do...Loop, While...Wend ට වඩා නම්ය වේ.
කාරක රීතිය:
While කොන්දේසි [ප්රකාශනය] Wend
උදාහරණය:
Sub ExampleWhileWend
Dim stext As String
Dim iRun As Integer
sText ="මෙය කෙටි පෙළකි"
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,"කේතාංකනය කල පෙළ"
End Sub