Tugas Ke-3 (Perulangan)

Programnya :

Listingnya :
Private Sub Cmdclear_Click()
List1.Clear
Cmbtgl.Clear
Cmbbln.Clear
Cmbthn.Clear
End Sub

Private Sub Cmddountil_Click()
List1.Clear
i = 1
Do Until i > 5
List1.AddItem (i)
i = i + 1
Loop
End Sub

Private Sub Cmddowhile_Click()
List1.Clear
i = 10
Do While i > 6
List1.AddItem (i)
i = i - 1
Loop
End Sub

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

Private Sub Cmdkeluar_Click()
Irna = MsgBox("Anda Yakin Ingin Keluar dari Program Ini?", vbQuestion + vbOKCancel, "Konfirmasi")
End
End Sub

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

Private Sub Form_Load()
For i = 1 To 31
Me.Cmbtgl.AddItem (Str(i))
Next i
For i = 1 To 12
Me.Cmbbln.AddItem (MonthName(i))
Next i
For i = 1990 To Year(Now)
Me.Cmbthn.AddItem (Str(i))
Next i
End Sub