While...Wend Statement
While རྗོད་པ་ཕྲད་པའི་སྐབས་བྱ་རིམ་གྱིས་ཆ་རྐྱེན་ལ་ཚོད་བགམ་བྱེད། གལ་ཏེ་ཆ་རྐྱེན་ནི་ Falseཡིན་ན་ ཐད་ཀར་དུ་ Wend རྗོད་པའི་རྗེས་ལ་བྱ་རིམ་ལག་བསྟར་བྱེད། གལ་ཏེ་ཆ་རྐྱེན་ནི་ Trueཡིན་ན་མུ་མཐུད་ནས་བསྐྱར་འཁོར་ལག་བསྟར་བྱས་ཏེ་ Wend རྗོད་པ་ལ་ཐུག་པའི་བར་དེ་ལྟར་བྱེད། དེ་རྗེས་ While རྗོད་པ་ལ་མཆོངས་བྱེད། གལ་ཏེ་ཆ་རྐྱེན་དེ་ད་དུང་ Trueཡིན་ན་བསྐྱར་དུ་བསྐྱར་འཁོར་ལག་བསྟར་བྱེད།
Do...Loop རྗོད་པ་དང་མི་འདྲ་ ཕྱིར་ཐོན་ While...Wend བསྐྱར་འཁོར་སུབ་པ་བེད་སྤྱོད་མི་རུང་། དེས་འཁོར་རྒྱུག་སྐབས་ནོར་འཁྲུལ་ཐོན་པ་ཆགས་ངེས་ GoTo ཕྱིར་ཐོན་ While...Wend བསྐྱར་འཁོར་རྩ་བ་ནས་སྤྱོད་མི་རུང་ དེས་འཁོར་རྒྱུག་སྐབས་ནོར་འཁྲུལ་ཐོན་པ་ཆགས་ངེས།
Do...Loop རྗོད་པ་ནི་ While...Wend རྗོད་པ་ལས་རྐྱེན་པ་ཡོད།
བརྡ་འཕྲོད་
While Condition [Statement] Wend
དཔེ་གཞི་
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