Modul
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