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