Fungsi Looping For Next

Fungsi Looping/Perulangan For Next adalah fungsi untuk mengeksekusi kode sampai batas perulangannya,berbeda dengan timer fungsi ini tidak mempunyai interval jadi peng-eksekusi-an kode nya begitu cepat hampir sesuai dengan kecepatan processor. Fungsi Looping/perulangan ini kerap di jumpai pada program yang di buat dalam visual basic.
Algoritmanya seperti ini :

For <Variabel = BatasMinimum> to <BatasMaksimum> Step <BerapaLangkah> 
<Kode yang ingin di eksekusi> 
Next <Variabel>  

Atau seperti ini :

For Usia = Muda to Tua Step 1 
UmurKu = Usia
Next Usia

• Percobaan 

Buatlah :
1. 1 Buah ListBox

• Name = List1

2. 1 Buah CommanButton

• Name = Command1
• Caption = "Generate"

Sehinggan menjadi seperti ini : <Klik untuk memperbesar>

Tulis Kode ini di bagian Command1_Click()

 Dim i As Integer 
List1.Clear
List1.AddItem "Naik 1 angka, 0 sampai 10" 
For i = 0 To 10 Step 1 
         List1.AddItem "Angka " & i 
Next i 
List1.AddItem "Turun 1 angka, 10 sampai 0" 
For i = 10 To 0 Step -1
         List1.AddItem "Angka " & i 
Next i 
List1.AddItem "Naik 2 angka, 0 sampai 10" 
For i = 0 To 10 Step 2
         List1.AddItem "Angka " & i 
Next i 
List1.AddItem "Turun 2 angka, 10 sampai 0" 
For i = 10 To 0 Step -2
         List1.AddItem "Angka " & i 
Next i

 Download Projectnya disini