Module
Contents
Index 🔎︎

# 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