Съдържание

# Оператор Do...Loop

Повтаря операторите между Do и Loop, докато условието има стойност True или до момента, когато стойността му стане True.

### Синтаксис:

      Do {While | Until} condition = True
      ' Do While: операторният блок се повтаря, докато условието е изпълнено
      ' Do Until: операторният блок се повтаря, докато условието не е изпълнено
         statements
         [Exit Do]
         statements
      Loop

      Do
         statements
         [Exit Do]
         statements
      ' Loop While: операторният блок се повтаря, докато условието е изпълнено
      ' Loop Until: операторният блок се повтаря, докато условието не е изпълнено
      Loop {While | Until} condition = True

### Параметри:

Операторът Do…Loop изпълнява цикъл, който трае докато определено условие продължава да има – или да няма – стойност True. Условието за изход от цикъла трябва да бъде въведено след оператора Do или Loop. Горните примери са валидни комбинации.

condition: сравнение, числов израз или израз на Basic, който дава резултат True или False.

statements: оператори, които искате да се повтарят, докато условието има – или няма – стойност True.

За да завършите цикъла безусловно, използвайте оператора Exit Do. Можете да го поставите където и да е в оператор Do…Loop. Освен това можете да дефинирате условие за изход със структура If…Then както следва:

      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

Теми, свързани с показаната

Оператори For, Select Case и While

Функции Iif и Switch

Моля, подкрепете ни!