scrip pertemuan4

Public Class Form1

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

        Dim Halaman As Byte

        Halaman = 1

        Do While Halaman <= 10

            ListBox1.Items.Add(Halaman)

            Halaman = Halaman + 1

        Loop

        Dim page As Byte

        page = 1

        Do Until page = 11

            ListBox2.Items.Add(page)

            page = page + 1

        Loop

        Dim Hal As Byte

        For Hal = 1 To 10

            ComboBox1.Items.Add(Hal)

        Next

        Dim pages As Byte

        pages = 1

        While pages <= 10

            ComboBox2.Items.Add(pages)

            pages = pages + 10

        End While

        Dim Hlm As Integer

        For Hlm = 10 To 1 Step -1

            ListBox3.Items.Add(Hlm)

        Next

        Dim Pag As Integer

        Pag = 1

        Do While Pag <= 10

            ListBox4.Items.Add(Pag)

            Pag = Pag * 1 + 2

        Loop

        Dim pg As Integer

        pg = 2

        Do While pg <= 10

            ListBox5.Items.Add(pg)

            pg = pg * 1 + 2

        Loop

    End Sub

End Class