For - Next Döngüsü

For-Next döngüsü sayacın başlangıç değerinden başlayarak bitiş değerine kadar istenilen miktarda artırılarak blok içindeki komutları çalıştırır.

Yazlım:

Kod:
For Sayac=BaşlangıçDeğeri to BitişDeğeri [Step Artırım]
Komutlar
Next


Not: Artma değeri verilmezse artış miktarı 1 olarak alınır.

Örnek: 1’den 10’a kadar olan sayıları toplayan programı yapınız?

Kod:
Private Sub Form_Load()
Dim sayi,i
For i=1 to 10
sayi=sayi+i
Next
MsgBox sayi
End Sub