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
Loopor
Doblok 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 = Trueblok pernyataan
LoopBlok pernyataan antara pernyataan Do While dan Loop diulang selama kondisinya benar.
Do Until condition = Trueblok pernyataan
LoopBlok pernyataan antara pernyataan Do Until dan Loop tetap diulang selama kondisinya masih salah.
Doblok pernyataan
Loop While condition = TrueBlok pernyataan antara pernyataan Do dan Loop berulang selama kondisinya benar.
Doblok pernyataan
Loop Until condition = TrueBlok 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 Dopernyataan
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