PERULANGAN 

1.FOR
2.DO WHILE

3.DO UNTIL

4. WHILE

CONTOH SOAL :

 CODING

 Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim x As Integer, awal As Integer, akhir As Integer, urutan As Integer
        lstderet.Items.Clear()
        awal = Convert.ToInt32(txtawal.Text)
        akhir = Convert.ToInt32(txtakhir.Text)
        urutan = Convert.ToInt32(txtstep.Text)

        For x = awal To akhir Step urutan
            lstderet.Items.Add(x.ToString())
        Next
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim x, awal, akhir, urutan As Integer
        lstderet.Items.Clear()
        awal = Convert.ToInt32(txtawal.Text)
        akhir = Convert.ToInt32(txtakhir.Text)
        urutan = Convert.ToInt32(txtstep.Text)

        x = awal
        Do While x <= akhir
            lstderet.Items.Add(x.ToString())
            x += urutan
        Loop

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim x, awal, akhir, urutan As Integer
        lstderet.Items.Clear()
        awal = Convert.ToInt32(txtawal.Text)
        akhir = Convert.ToInt32(txtakhir.Text)
        urutan = Convert.ToInt32(txtstep.Text)

        x = awal
        Do Until x > akhir
            lstderet.Items.Add(x.ToString())
            x += urutan
        Loop
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Dim x, awal, akhir, urutan As Integer
        lstderet.Items.Clear()
        awal = Convert.ToInt32(txtawal.Text)
        akhir = Convert.ToInt32(txtakhir.Text)
        urutan = Convert.ToInt32(txtstep.Text)

        x = awal
        While x <= 20
            lstderet.Items.Add(x.ToString())
            x += urutan
        End While
    End Sub

End Class