Fungsi Perulangan

adalah sebuah kondisi dimana satu atau beberapa kode program dieksekusi secara berulang-ulang.
Macam-macam struktur perulangan:

1. FOR ... NEXT : banyaknya perulangan ditentukan sejak awal

1. For [var] = N awal To N akhir [step(stp)]
   [statement1]
   [statement2]
   Next

2. Keterangan: var = variabel yang berubah dari N awal s/d N akhir
   N awal = nilai awal
   N akhir = nilai akhir
   Stp = besar perubahan nilai

2. WHILE ... WEND : menguji perulangan terlebih dahulu jika kondisi terpenuhi, maka kode program akan diulang terus-menerus.
   

   While [uji kondisi]
   [statement1]
   [statement2]
   Wend

3. DO ... LOOP : jika kondisi belum terpenuhi, maka program akan diulang terus-menerus.

Do Until [uji kondisi]
[statement1]
[statement2]
Loop

Contoh program
>> Form

>> Code

Private Sub Command1_Click()
Dim v3 As Integer
v3 = Text1.Text
For i = 1 To v3
MsgBox i
Next
End Sub

Private Sub Command2_Click()
Dim v3 As Integer
Dim i As Integer
v3 = Text1.Text
i = 1
While i <= v3
MsgBox i i = i + 1
Wend
End Sub

Private Sub Command3_Click()
Dim v3 As Integer
Dim i As Integer
v3 = Text1.Text i = 1
Do Until i > v3
MsgBox i
i = i + 1
Loop
End Sub