Program Visual Basic Perulangan

Sintaknya :

Dim i, jumlah As Variant

Private Sub Form_Load()
For i = 1 To 31
Me.cmbtanggal.AddItem (Str(i))
Next i

For i = 1 To 12
Me.cmbbulan.AddItem (MonthName(i))
Next i

For i = 1970 To Year(Now)
Me.cmbtahun.AddItem (Str(i))
Next i
End Sub

Private Sub cmddountil_Click()
List1.Clear
i = 3
Do Until i > 8
List1.AddItem (i)
i = i + 2
Loop
End Sub

Private Sub cmddowhile_Click()
List1.Clear
i = 20
Do While i > 10
List1.AddItem (i)
i = i - 5
Loop
End Sub

Private Sub cmdfornext_Click()
List1.Clear
Dim a As Integer
a = 2
jumlah = 0
For i = 1 To 10
List1.AddItem (i)
jumlah = jumlah + a
a = a + 3
Next
End Sub

Private Sub cmdwhilewent_Click()
List1.Clear
i = 10
While i <= 60
List1.AddItem (i)
i = i + 5
Wend
End Sub

Private Sub cmdexit_Click()
x = MsgBox("Anda Ingin Keluar Dari Form Ini?", vbQuestion + vbYesNo, "Informasi")
If x = vbYes Then
End
End If
End Sub