Vb.Net: Exit For Loop

Untuk keluar dari loop sebelum iterasi final kita bisa memakai pernyataan Exit For.
Sintaks Exit For digunakan untuk keluar dari perulangan For Next dan For Each.

Contoh masalah, kita akan melakukan looping pada sekumpulan array, dan jikalau salah satu item array bernilai 10 maka iterasi akan berhenti.

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 arr() As Integer = 14, 8, 9, 7, 10, 12, 13
        For i As Integer = 0 To arr.GetUpperBound(0)
            If arr(i) = 10 Then Exit For
            ListBox1.Items.Add(arr(i))
        Next

    End Sub

End Class

Runtime:

Click here if you like this article.


Baca juga artikel ihwal Perulangan (Looping) yang lain:
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