Struktur Perulangan Visual Basic 6.0

Struktur loop memperbolehkan anda untuk melaksanakan sekelompok baris lebih dari
satu kali :

Do...Loop
Gunakan Do loop untuk mengeksekusi suatu blok statement dengan jumlah perulangan
yang tak terhingga, ada beberapa Do...Loop statement, tetapi masing-masing
mengevaluasi suatu kondisi untuk menentukan apakah melanjutkan eksekusi
Berikut ini adalah statement Do…Loop, yang dijalankan selama kondisi benar :

Do While conditionstatementsLoop

Ketika Visual menjalankan Do loop ini, pertama kali akan di coba kondisinya, jika
kondisi False (zero), akan diloncati semua statements yang mengikuti kondisi tersebut.
Visual Basic akan menjalankan statements jika kondisi benar dan kembali ke Do…Loop
berikutnya.

Function Faktorial (x)
Dim Hasil As Double
Dim Count As Long
Hasil = 1
count = 2
Do While Count <= x
Hasil = Hasil * count
count = count + 1
Loop  Faktorial = count   End Function

Variasi lain dari statement Do…Loop, yang menjamin minimal satu kali statement
dijalankan :

Do
statements
Loop While condition 

Dua variasi yang analog dengan dua contoh sebelumnya adalah perulangan minimal satu
kali. Dan berikut ini adalah berulang atau tidak sama sekali :

Do Until conditionstatementsLoopDostatementsLoop Until condition

For...Next

Do loops bekerja dengan baik, ketika anda tidak tahu berapa bayak kali untuk butuhkan
untuk menjalankan statement. Ketika anda mengetahui harus menjalankan statement
sejumlah kali, bagaimanapun For…Next adalah pilihan yang lebih baik. Tidak seperti Do
Loop, For…loop menggunakan suatu variabel yang disebut counter yang mana akan
bertambah atau berkurang pada setiap perulangan.
Syntaxnya adalah :

For counter = start To end [Step increment]
statements
Next [counter] 

Argumen counter, start, end, dan increment semuanya adalah numerik

1. Dalam melakukan For loop, Visual Basic :
2. Menset nilai counter sama dengan start
3. Mencoba apakah counter lebih besar dari end. Jika ya, Visual Basic meninggalkan looping tersebut.
4.  Menjalankan statements tersebut.
5. Menaikkan counter dengan 1 atau dengan nilai step yang ditentukan
6.  Mengulangi langkah 2 sampai 4 

Code berikut akan mencetak semua item yang terdapat pada suatu daftar list.

Private Sub Form_Click ()
Dim I As Integer
For i = 0 To List1.ListCount-1
Print List1.List(I)
Next
End Sub

Struktur Kendali Nested

Anda dapat meletakkan suatu struktur kendali didalam struktur kendali lainnya, yang
dikenal dengan istilah nested. Struktur kendali pada Visual Basic dapat nested sebanyak
level yang anda inginkan.
Meninggalkan suatu Struktur Kendali
Statement Exit memperbolehkan anda untuk keluar langsung dari suatu For loop, Do
Loop, syntax untuk statement Exit adalah sederhana : Exit For dapat muncul sebanyak
mungkin dalam suatu For. Loop, demikian juga Exit Do untuk Do loop.

For counter = start To end [Step increment][statementblock][Exit For][statementblock]Next [counter[, counter] [,...]]Do [{While | Until} condition][statementblock][Exit Do][statementblock]Loop

Statement Exit Do bekerja pada semua versi syntax Do loop.
Exit For dan Exit Do adalah kadang-kadang perlu untuk keluar dari suatu loop dengan
segera, tanpa melakukan iterasi yang berikutnya.