Perintah Pengulangan

Desain Awal

Coding Button For Next 

        'MENAMPILKAN 1 ANGKA KE 10
        'Dim A, B As Integer
        'ListBox1.Items.Clear()
        'B = A
        'For A = 1 To 10
        'ListBox1.Items.Add(A)
        'Next

        'MENAMPILKAN 10 ANGKA KE 1
        ' Cara 1
        'Dim A, B As Integer
        'ListBox1.Items.Clear()
        'B = 11
        'For A = 1 To 10
        'B = B - 1
        'ListBox1.Items.Add(B)
        'Next

        'MENAMPILKAN 10 ANGKA KE 1
        ' Cara(2)
        Dim A As Integer
        ListBox1.Items.Clear()
        For A = 10 To 1 Step -1
            ListBox1.Items.Add(A)
        Next

Coding Button Do While

'MENAMPILKAN ANGKA 11 KE 10
        'Dim A As Integer
        'A = 1
        ' Do While A <= 10
        'ListBox1.Items.Add(R)
        ' A = A + 1
        'Loop

        'MENAMPILKAN ANGKA 10 KE 1
        'Dim A As Integer
        'ListBox1.Items.Clear()
        'A = 10
        'Do While A >= 1
        'ListBox1.Items.Add(R)
        'A = A - 1
        'Loop

        'MENAMPILKAN ANGKA 2 SAMPAI 10 BUAH
        Dim A As Integer
        ListBox1.Items.Clear()
        A = 10
        Do While A >= 1
            ListBox1.Items.Add("2")
            A = A - 1
        Loop


Coding Button Do Until

'MENAMPILKAN ANGKA 1 SAMPAI 10
        Dim A As Integer
        ListBox1.Items.Clear()
        A = 10
        Do Until A < 1
            ListBox1.Items.Add(A)
            A = A - 1
        Loop



Coding Button Latihan For Next

'MENAMPILKAN PERKALIAN 5
        Dim A As Integer
        ListBox1.Items.Clear()
        For A = 1 To 10
            ListBox1.Items.Add(A & "X 5 = " & A * 5)
        Next

Coding Button Latihan Do While

        'MENAMPILKAN PERKALIAN 7
        Dim G As Integer
        ListBox1.Items.Clear()
        G = 1
        Do While G <= 10
            ListBox1.Items.Add((G) & " X 7 =  " & (G) * 7)
            G = G + 1
        Loop

Coding Button Latihan Do Until

MENAMPILKAN PERKALIAN 10
        Dim F As Integer
        ListBox1.Items.Clear()
        F = 1
        Do Until F > 10
            ListBox1.Items.Add((F) & " X 10 = " & (F) * 10)
            F = F + 1
        Loop

Coding Button Klik

'MEMBUAT PERKALIAN PILIHAN
        Dim O, Berapa As Integer

        Berapa = InputBox("Perkalian Berapa", "Ketik Angka")

        ListBox1.Items.Clear()
        For O = 1 To 10
            ListBox1.Items.Add((O) & " X " & Berapa & " = " & (O) * Berapa)
        Next

Coding Button Sampai

'MENAMPILKAN PERKALIAN SAMPAI YANG DI KEHENDAKI
        Dim O, Berapa, Sampai As Integer

        Berapa = InputBox("Perkalian Berapa", "Ketik Angka")
        Sampai = InputBox("Sampai Berapa", "Ketik Angka")

        ListBox1.Items.Clear()
        For O = 1 To Sampai
            ListBox1.Items.Add((O) & " X " & Berapa & " = " & (O) * Berapa)
        Next

Button Exit

If MsgBox("Apakah anda yakin ingin keluar ?", MsgBoxStyle.Question + MsgBoxStyle.YesNo, "Perhatian") = MsgBoxResult.Yes Then Me.Close()

SEMOGA BERMANFAAT

---