BRAINLESS: Perulangan Tersarang Dengan Program VB Net

Pada artikel perulangan pada program vb net sudah dibahas beberapa jenis perulangan, salah satunya yaitu pemakaian perulangan for pada vb net.

Berikut akan dibahas perulangan tersarang dengan program vb net.

Lihat contoh dibawah ini :

For i = 1 to 10
    combobox1.items.add (i)
Next i

Contoh diatas merupakan contoh perulangan yang biasa dengan satu for. Perulangan tersarang dengan program vb net merupakan perulangan yang terdapat didalam suatu perulangan juga. Lihat contoh program di bawah ini :

Bisa anda lihat bahwa perulangan tersebut untuk nilai J akan diulang sebanyak nilai I dan perulangan J terletak di dalam perulangan I.

Contoh Program Perulangan.

Design seperti tampilan cover

Form terdapat 2 TextBox dengan nama Nilai dan Hasil

Ketikkan listing program perulangan tersarang pada program vb net berikut ini :

Public Class Form1
    Private Sub Nilai_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Nilai.TextChanged
        Dim x As String = ""
        Hasil.Text = ""
        For i = 1 To Val(Nilai.Text)
            x = ""
            For j = 1 To i
                x = x & i
            Next
            Hasil.Text = Hasil.Text & x & vbCrLf
        Next
    End Sub
End Class

Hasil Program perulangan tersarang dengan program vb net bisa dilihat berikut ini :

Perulangan Tersarang Dengan Program VB Net

Sumber : Mesran.net