Gawin...Loop Statement

Inuulit ang mga pahayag sa pagitan ng Gawin at ang Loop pahayag habang ang kondisyon ay totoo o hanggang sa maging kondisyon totoo .

  Do {While | Until} condition = True
  ' Gawin Habang: Ang bloke ng pahayag ay inuulit hangga't totoo ang kundisyon
  ' Gawin Hanggang: Ang bloke ng pahayag ay inuulit hangga't mali ang kundisyon
     statements
     [Exit Do]
     statements
  Loop

  Do
     statements
     [Exit Do]
     statements
  ' Loop While: Umuulit ang statement block hangga't totoo ang kundisyon
  ' Loop Until: Umuulit ang statement block hanggang sa totoo ang kundisyon
  Loop {While | Until} condition = True

Ang Gawin...Loop ang pahayag ay nagpapatupad ng isang loop hangga't, o hanggang, ang isang tiyak na kundisyon ay totoo . Ang kundisyon para sa paglabas sa loop ay dapat na ipasok kasunod ng alinman sa Gawin o ang Loop pahayag. Ang mga halimbawa sa itaas ay wastong kumbinasyon.

kundisyon: Isang paghahambing, numeric o Basic na expression, na sinusuri sa alinman totoo o Mali .

mga pahayag: Mga pahayag na gusto mong ulitin habang o hanggang ang isang kundisyon ay totoo .

Gamitin ang Lumabas sa Do pahayag na walang kondisyong tapusin ang loop. Maaari mong idagdag ang pahayag na ito kahit saan sa a Gawin ... Loop pahayag. Maaari mo ring tukuyin ang isang kondisyon sa paglabas gamit ang Kung...Kung gayon istraktura tulad ng sumusunod:

  Do...
     statements
     If condition = True Then Exit Do
     statements
  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