Perulangan pada VB2010

Perulangan dibutuhkan untuk menampilkan data-data secara berulang kali hingga pada kondisi tertentu. Sebagai contoh, kita akan menampilkan beberapa angka secara berurutan.
Format penulisannya yaitu:  
For counter=startNumber to endNumber (Step increment)
    One or more VB statements
Next

Contoh1:
Masukkan 1 buah listbox ke dalam form, kemudian ketik code berikut:
Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim counter As Integer
        For counter = 1 To 10
            ListBox1.Items.Add(counter)
        Next
    End Sub
End Class



*program akan menampilkan angka 1 hingga 10 dalam listbox

Contoh2:
Masukkan 1 buah listbox ke dalam form, kemudian ketik code berikut:
Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim counter, sum As Integer
        For counter = 0 To 100 Step 10
            sum += counter
            ListBox1.Items.Add(sum)
        Next
    End Sub
End Class



*menampilkan jumlah dari deret 0+10+20+30+40+…

Contoh3:
Masukkan 1 buah listbox ke dalam form, kemudian ketik code berikut:
Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim counter, sum As Integer
        sum = 1000
        For counter = 100 To 5 Step -5
            sum -= counter
            ListBox1.Items.Add(sum)
        Next
    End Sub
End Class



*menampilkan perhitungan dari deret -100-95-90-85-…

Contoh4:
Masukkan 1 buah listbox ke dalam form, kemudian ketik code berikut:
Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim n As Integer
        For n = 1 To 10
            If n > 6 Then
                Exit For
            End If
            ListBox1.Items.Add(n)
        Next
    End Sub
End Class



*menampilkan deret angka dengan batas angka 6
untuk mendapatkan file pdf nya klik download