Perulangan (Looping)

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

1. 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 condition
   statements
Loop

Ketika Visual menjalankan Do Loop ini, pertama kali akan di coba kondisinya, jika kondisi False (zero), akan diloncati semua statement yang mengikuti kondisi tersebut. Visual Basic akan menjalankan statement 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 condition
   statements
Loop

Do
   statements
Loop Until condition


2. For...Next

Do Loop 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…Next 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.Yang dilakukan Visual Basic ketika melakukan For Next adalah:

1. Menset nilai counter sama dengan start. 
2. Mencoba apakah counter lebih besar dari end. Jika ya, Visual Basic meninggalkan looping tersebut. 
3. Menjalankan statements tersebut.
4. Menaikkan counter dengan 1 atau dengan nilai step yang ditentukan  
5. 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

3. While ... Wend

While – Wend digunakan untuk mengeksekusi suatu blok statement dengan jumlah perulangan yang tak terhingga.
Berikut ini adalah statement While –Wend, yang dijalankan selama kondisi benar :

While condition
   statements
Wend

Ketika menjalankan While ini, pertama kali akan di  coba kondisinya, jika kondisi False (zero), akan diloncati semua statement yang mengikuti kondisi tersebut. Program akan menjalankan statement jika kondisi benar dan kembali ke While berikutnya.

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