Module
Contents
Index 🔎︎

# Do...Loop Statement

ཆ་རྐྱེན་ནི་ True འམ་ False སྐབས་ Do དང་ Loop རྗོད་པའི་བར་གྱི་རྗོད་པ་བསྐྱར་ཟློས་ཀྱིས་ལག་བསྟར་བྱའོ།

## སྐད་བརྡ་

    Do [{While | Until} condition = True]

རྗོད་པའི་མིང་

    [Exit Do]

རྗོད་པའི་མིང་

    Loop

ཡང་ན་

    Do

རྗོད་པའི་མིང་

    [Exit Do]

རྗོད་པའི་མིང་

    Loop [{While | Until} condition = True]

## ཞུགས་གྲངས་/གཞི་རྒྱུ་

Condition གཤིབ་བསྡུར་དང་གྲངས་ཀ་འམ་ཡིག་རྟགས་ཕྲེང་བའི་མཚོན་ཚུལ་ དེའི་ཐང་ནི་ True འམ་ False

རྗོད་པའི་མིང་ ཆ་རྐྱེན་ནི་ True སྐབས་བསྐྱར་ཟློས་སུ་ལག་བསྟར་བྱ་དགོས་པའི་རྗོད་པ།

ཆ་རྐྱེན་ནི་ Trueཡིན་པ་དང་ Do...Loop རྗོད་པས་བསྐྱར་འཁོར་གལ་བསྟར་བྱེད། བསྐྱར་འཁོར་ཕྱིར་ཐོན་བྱ་བར་སྤྱོད་པའི་ཆ་རྐྱེན་ནི་ངེས་པར་དུ་ Do འམ་ Loop རྗོད་པའི་རྗེས་སུ་འཇོག་དགོས། གཤམ་གྱི་དཔེ་གཞི་ནི་ནུས་ལྡན་གྱི་རྗོད་པའི་ཚོ་སྒྲིག་ཁག་གཅིག་ཡིན།

## སྐད་བརྡ་

    Do While condition = True

...རྗོད་པའི་མིང་

    Loop

ཆ་རྐྱེན་ནི་ Trueཡིན་པ་དང་ Do While དང་ Loop རྗོད་པའི་བར་གྱི་རྗོད་པའི་མིང་།

    Do Until condition = True

...རྗོད་པའི་མིང་

    Loop

ཆ་རྐྱེན་ནི་ Falseཡིན་པ་དང་ Do Until དང་ Loop རྗོད་པའི་བར་གྱི་རྗོད་པའི་མིང་བསྐྱར་ཟློས་སུ་ལག་བསྟར་བྱེད།

    Do

...རྗོད་པའི་མིང་

    Loop While condition = True

ཆ་རྐྱེན་ནི་ Trueཡིན་པ་ཙམ་གྱིས་ Do དང་ Loop རྗོད་པའི་བར་གྱི་རྗོད་པའི་མིང་བསྐྱར་འཁོར་ཀྱིས་ལག་བསྟར་བྱེད།

    Do

...རྗོད་པའི་མིང་

    Loop Until condition = True

ཆ་རྐྱེན་ནི་ Trueཡིན་ན་ Do དང་ Loop རྗོད་པའི་བར་གྱི་རྗོད་པའི་མིང་།

Exit Do སྐད་བརྡ་ནི་ཆ་རྐྱེན་མེད་པར་བསྐྱར་འཁོར་མཇུག་སྒྲིལ་སྐབས་བེད་སྤྱད་ཆོག ཁྱེད་ཀྱིས་ Do...Loop རྗོད་པའི་ནང་གི་གནས་ས་གང་རུང་དུ་སྣོན་འཇུག་བྱས་ཆོག དེ་མིན་ད་དུང་ If...Then གྲུབ་ཆ་སྤྱད་ནས་ཕྱིར་ཐོན་བྱ་བའི་ཆ་རྐྱེན་ཞིག་མཚན་འཇོག་བྱས་ཆོག

    Do...

རྗོད་པ་

    If condition = True Then Exit Do

རྗོད་པ་

    Loop...

## དཔེ་གཞི་

    Sub ExampleDoLoop

    Dim sFile As String

    Dim sPath As String

        sPath = "c:\"

        sFile = Dir$( sPath ,22)

        If sFile <> "" Then

            Do

                MsgBox sFile

                sFile = Dir$

            Loop Until sFile = ""

        End If

    End Sub