For Each melakukan perulangan berdasarkan jumlah item yang ada dalam sebuah collection.
Sintaks:
For Each variable [As object_type ] In group
statements
[Condition][Exit For]
statements
Next [ variable ]
Nilai variable adalah variabel yang menjadi item dalam sebuah collection
group adalah nama collection
statements adalah kode yang akan dijalankan dalam iterasi.
[Condition][Exit For] adalah sintaks untuk keluar dari loop jika memenuhi kondisi 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 artikel tentang 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)
0 Comments