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

Please support us!