Turinys

# Do...Loop sakinys

Pakartoja sakinius tarp Do ir Loop sakinio, kai sąlyga yra True kai atitinkama sqlyga tampa lygi True.

### Sintaksė:

      Do {While | Until} condition = True
      ' Do While: Sakinių blokas kartojamas tol, kol sąlyga yra teisinga
      ' Do Until: Sakinių blokas kartojamas tol, kol sąlyga yra klaidinga
         statements
         [Exit Do]
         statements
      Loop

      Do
         statements
         [Exit Do]
         statements
      ' Loop While: Sakinių blokas kartojamas tol, kol sąlyga yra teisinga
      ' Loop Until: Sakinių blokas kartojamas tol, kol sąlyga yra teisinga
      Loop {While | Until} condition = True

### Parametrai:

Do ... Loop sakinys vykdo ciklą tol, kol tam tikra sąlyga yra True. Išėjimo iš ciklo sąlyga turi būti įvesta po sakinio Do arba Loop. Aukščiau pateikti pavyzdžiai yra tinkami deriniai.

sąlyga: Lyginimas, skaitinis arba „Basic“ reiškinys, kurio rezultatas yra True arba False.

sakiniai: Sakiniai, kuriuos norite kartoti, kol sąlyga yra True.

Naudokite Exit Do sakinį, kad besąlygiškai užbaigtumėte ciklą. Šį sakinį galite pridėti bet kur cikle Do…Loop. Taip pat galite apibrėžti išėjimo sąlygą naudodami struktūrą If ... Then taip:

      Do...
         statements
         If condition = True Then Exit Do
         statements
      Loop...

### Pavyzdys:

    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

Susijusios temos

For sakiniui Pasirinkite Case arba While sakinius

Iif arba Switch funkcijos