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
Update Contact :
No Wa/Telepon (puat) : 085267792168
No Wa/Telepon (fajar) : 085369237896
Email : Fajarudinsidik@gmail.com
No Wa/Telepon (puat) : 085267792168
No Wa/Telepon (fajar) : 085369237896
Email: Fajarudinsidik@gmail.com
atau Kirimkan Private messanger melalui email dengan klik tombol order dibawah ini :