Isi
Indeks 🔎︎

# Pernyataan Do...Loop

Mengulangi pernyataan antara pernyataan Do dan Loop pada saat kondisinya Benar atau hingga kondisinya menjadi Benar.

## Sintaksis

Do [{While | Until} condition = True]

blok pernyataan

[Exit Do]

blok pernyataan

Loop

or

Do

blok pernyataan

[Exit Do]

blok pernyataan

Loop [{While | Until} condition = True]

## Parameter/Elemen

Kondisi: Perbandingan, numerik atau ekspresi string, yang mengevaluasi Benar atau Salah.

Blok pernyataan: Pernyataan yang ingin Anda ulangi ketika atau sampai kondisinya Benar.

PernyataanDo ... Loop mengeksekusi perulangan selama, atau sampai, kondisi tertentu Benar. Kondisi untuk keluar dari perulangan harus dimasukkan mengikuti pernyataan Do atau Loop . Contoh berikut adalah kombinasi yang valid:

## Sintaksis

Do While condition = True

blok pernyataan

Loop

Blok pernyataan antara pernyataan Do While dan Loop diulang selama kondisinya benar.

Do Until condition = True

blok pernyataan

Loop

Blok pernyataan antara pernyataan Do Until dan Loop tetap diulang selama kondisinya masih salah.

Do

blok pernyataan

Loop While condition = True

Blok pernyataan antara pernyataan Do dan Loop berulang selama kondisinya benar.

Do

blok pernyataan

Loop Until condition = True

Blok pernyataan antara pernyataan Do dan Loop berulang sampai kondisinya benar.

Gunakan pernyataan Exit Do untuk mengakhiri perulangan tanpa syarat. Anda dapat menambahkan pernyataan ini di mana saja dalam pernyataan Do...Loop. Anda juga dapat menentukan kondisi keluar dari perulangan menggunakan struktur If...Then sebagai berikut:

Do...

statements

If condition = True Then Exit Do

statements

Loop...

## Contoh

    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