Form Perulangan

1. Design form dibawah ini dengan nama form perulangan, gunakan label, listbox, combobox dan button pada toolbox

Listing Code :

Dim i, jumlah As Variant

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

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

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

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

For i = 1990 To Year(Now)
Me.tahun.AddItem (Str(i))
Next i
End Sub

Private Sub fornext_Click()
txtlist.Clear
Dim a As Integer
a = 1
jumlah = 0
For i = 1 To 10
txtlist.AddItem (i)
Next
End Sub

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

Keterangan :
1. Do Until = Jika kondisinya salah akan berulang
2. Do While = Jika kondisinya benar akan berulang
3. For Next = Jika konsidinya terpenuhi
4. While Went = Jika kondisinya benar akan berulang