Vb.Net: Struktur Perulangan For Each

For Each melaksanakan perulangan berdasarkan jumlah item yang ada dalam suatu collection.

Sintaks:
For Each variable [As object_type ] In group
    statements
    [Condition][Exit For]
    statements
Next [ variable ]

Nilai variable yakni variabel yang menjadi item dalam suatu collection

group yaitu nama collection

statements yaitu aba-aba yang hendak dijalankan dalam iterasi.

[Condition][Exit For] ialah sintaks untuk keluar dari loop jika memenuhi keadaan tertentu

Contoh penggunaan:
UI:

Code:

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, _
            ByVal e As System.EventArgs) Handles MyBase.Load
        Button1.Text = "Start Loop!"
    End Sub

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

        Dim kalimat() As String
        Dim spasi() As Char = " "c
        Dim kata As String

        kalimat = TextBox1.Text.Split(spasi)
        For Each kata In kalimat
            ListBox1.Items.Add(kata)
        Next

    End Sub

End Class

Runtime:

Click here if you like this article.


Baca juga postingan wacana Perulangan (Looping) lainnya:
Struktur Perulangan Do While
Struktur Perulangan Do Until
Penggunaan Exit Do
Struktur Perulangan For Next
Struktur Perulangan For Each 
Penggunaan Continue For
Penggunaan Exit For
Perulangan Tak Terhingga (Infinite Loops)


Sumber http://rani-irsan.blogspot.com