Materi Perulangan (Looping) pada Visual Basic 6.0

Private Sub Form_Load()

'mengisi combo hari

For a = 1 To 7

    cbhari.AddItem (WeekdayName(a))

Next

   

'mengisi combo tanggal

a = 1

While a <= 31

    cbtgl.AddItem a

a = a + 1

Wend

'mengisi combo bulan

a = 1

Do While a <= 12

    cbbulan.AddItem (MonthName(a))

    a = a + 1

Loop

'mengisi combo tahun

For a = 2000 To Year(Now)

    cbtahun.AddItem a

Next

End Sub