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