Do...Loop İfadesi
Do ve Loop ifadeleri arasındaki komutları durum Doğru olduğu sürece veya durum Doğru olana kadar tekrar eder.
Sözdizimi
Do [{While | Until} durum = True]
ifade bloğu
[Exit Do]
ifade bloğu
Loop
or
Do
ifade bloğu
[Exit Do]
ifade bloğu
Loop [{While | Until} durum = True]
Parametreler/Öğeler
Durum: Bir durum True veya False olarak hesaplanabilen bir sayısal veya karakter dizisi ifadesidir.
İfade bloğu: While veya Until durumları True olduğunda tekrarlanmasını istediğiniz ifadeler.
Do...Loop komutu belli bir durum doğru olana veya doğru olduğu sürece döngüyü çalıştırır. Döngüden çıkmak için durum ya Do'dan veya Loop komutundan sonra girilmelidir. Takip eden örnekler geçerli katışımlardır:
Sözdizimi
Do While durumu = Doğru
...ifade bloğu
Loop
Durum bloğu Do While ve Döngü durumları arasında yineler bu yüzden uzun durum doğrudur.
Do Until durum = True
...ifade bloğu
Loop
Do Until ve Loop komutları arasındaki ifade bloğu durum yanlış olana kadar tekrarlanır.
Do
...ifade bloğu
Loop While durum = True
Do ve Loop komutları arasındaki ifade bloğu durum doğru olduğu sürece tekrarlanır.
Do
...ifade bloğu
Loop Until durum = True
Do ve Loop komutları arasındaki ifade bloğu durum doğru olana kadar tekrarlanır.
Exit Do komutunu durumdan bağımsız bir şekilde döngüyü sonlandırmak için kullanın. Bu komutu Do...Loop komutları içine herhangi bir yere ekleyebilirsiniz. Aynı zamanda If...Then yapısı kullanarak da bir çıkış durumunu takip eden şekilde tanımlayabilirsiniz:
Do...
durumlar
If durum = True Then Exit Do
durumlar
Loop...
Örnek
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