Perintah Pengulangan For Next VB

Berikut saya coba untuk menampilkan cara menggunakan perintah perulangan for di VB.Net, Cara kerja dari program dibawah ini, adalah seperti kita mendaftar sebuah email atau facebook yang harus memasukan tanggal dan tahun lahir, Jika combobox tgl dibawah di klik maka akan tampil angka dari 1 sampai dengan 31,dan jika combobox bulan yang dipilih maka akan tampil bulan dari january hingga desember untuk tahunnya saya buat diawali dengan 1945 sampai tahun di dikomputer.
Untuk lebih jelasnya silahkan sobat mempraktekannya sendiri dan untuk source codenya ada dibawah silahkan sobat lihat.


  Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim a As VariantType

        For a = 1 To 31
            Me.ComboBox1.Items.Add(Str(a))
        Next a

        For a = 1 To 12
            Me.ComboBox2.Items.Add(MonthName(a))
        Next a

        For a = 1945 To Year(Now)
            Me.ComboBox3.Items.Add(Str(a))
        Next a
    End Sub

Sobat suka tulisan ini..?

	Dapatkan Tulisan Gratis Via Email!
Follow Fajar345!