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...

pernyataan

If condition = True Then Exit Do

pernyataan

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

Mohon dukung kami!