Contoh Program Perulangan

 

Public Class Form1

   

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        ListBox1.Items.Clear()

        Dim i As Integer

        Dim tulisan As String

        tulisan = ""

        For i = 1 To 8

            tulisan = tulisan + i.ToString

            ListBox1.Items.Add(tulisan)

        Next

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        ListBox1.Items.Clear()

        Dim x, y, z, i As Integer

        x = 0

        y = 1

        ListBox1.Items.Add(x)

        ListBox1.Items.Add(y)

        Do Until i = 5

            z = x + y

            ListBox1.Items.Add(z)

            x = y

            y = z

            i = i + 1

        Loop

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        ListBox1.Items.Clear()

    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

        ListBox1.Items.Clear()

        Dim a As String

        Dim b, c As Integer

        b = jmlperulangan.Text

        a = inputkata.Text

        For c = 1 To b

            ListBox1.Items.Add(a)

        Next

    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click

        Dim a As String

        Dim b, c As Integer

        b = jmlperulangan.Text

        a = inputkata.Text

        Do While c < b

            ListBox1.Items.Add(a)

            c = c + 1

        Loop

    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click

        Dim a As String

        Dim b, c As Integer

        b = jmlperulangan.Text

        a = inputkata.Text

        Do Until c = b

            ListBox1.Items.Add(a)

            c = c + 1

        Loop

    End Sub

End Class

Penjelasan:

1. Bilangan segitiga

Dim i As Integer           : Mendeklarasikan i sebagai variable ber tipe datastring

Dim tulisan As String      : Mendeklarasikan tulisan sebagai variable bertipe data integer

tulisan = ""               : Tulisan bernilai null

For i = 1 To 8              : Akan dilakukan perulangan sebanyak 8 kali dimulai dari 1      sampai 8

              tulisan = tulisan + i.ToString : Variable tulisan bernilai  variable tulisan ditambah variable i yang    dirubah ke tipe data string

ListBox1.Items.Add(tulisan) : Memasukan nilai tulisan  kedalam ListBox1

Next                        : Mengulangi sampai ke 8

1. Fibonacci

Dim x, y, z, i As Integer : Menjadikan x, y, z, dan i sebagai variable bertipe data integer

x = 0                       : x bernilai nol

y = 1                      : y bernilai satu

ListBox1.Items.Add(x)      : Memasukan nilai variable x ke dalam ListBox1

ListBox1.Items.Add(y)      : Memasukan nilai variable y ke dalam ListBox1

Do Until i = 5              : i akan berhenti melakukan perulangan sampai i bernilai 5

z = x + y                   : Penjumlahan variable x dan y

ListBox1.Items.Add(z)      : Memasukan nilai variable z ke dalam ListBox1

x = y                       : Merubah nilai variable x menjadi nilai variable y

y = z                : Merubah nilai variable y menjadi nilai variable z

i = i + 1            : Penjumlahan variable i ditambah satu

Loop                 : Berulang sampai i bernilai 5

1. For – Next
   
   
   Dim a As String            : Menjadikan a variable bertipe data string

Dim b, c As Integer        : Menjadikan b, c variable bertipe data string

b = jmlperulangan.Text     : b sebagai bernilai sama textbox jmlperulangan

a = inputkata.Text          : a sebagai bernilai sama textbox inputkata

For c = 1 To b             : c akan berulang sebanyak nilai variable b dimulai dari 1

ListBox1.Items.Add(a)      : Memasukan nilai variable a ke dalam listbox1

Next                       : Berulang sebanyak nilai b

1. Do while
   
   
   Dim a As String            : Menjadikan a variable bertipe data string

Dim b, c As Integer        : Menjadikan b, c variable bertipe data string

b = jmlperulangan.Text     : b sebagai bernilai sama textbox jmlperulangan

a = inputkata.Text          : a sebagai bernilai sama textbox inputkata

Do While c < b             : Melakukan perulangan sampai c bernilai kurang dari b

ListBox1.Items.Add(a)      : Memasukan nilai variable a kedalam listbox

c = c + 1                   : Penjumlahan variable c ditambah satu

Loop                        : Ulangi sampai c kurang dari b

1. Do until
   
   
   Dim a As String            : Menjadikan a variable bertipe data string

Dim b, c As Integer        : Menjadikan b, c variable bertipe data string

b = jmlperulangan.Text     : b sebagai bernilai sama textbox jmlperulangan

a = inputkata.Text          : a sebagai bernilai sama textbox inputkata

Do Until c = b             : Ulangi c sampai bernilai sama dengan b

ListBox1.Items.Add(a)      : Memasukan nilai variable a ke daam ListBox1

c = c + 1                  : Penjumlahan variable c ditambah 1

Loop                       : Ulangi sampai c = b