HENDIKA

Saturday, 20 April 2013






Public Class Perulanganfornext

    Private Sub Perulanganfornext_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim a As Byte
        For a = 1 To 10
            ComboBox2.Items.Add(a)

        Next
        Dim c As Byte
        For c = 65 To 90
            ComboBox3.Items.Add(Chr(c))

        Next
        Dim b As Integer
        For b = 10 To 1 Step -1
            ComboBox1.Items.Add(b)

        Next
    End Sub
End Class

0 komentar:

Post a Comment