Kullanımı şu şekildedir;
FOR sayaç değişkeni = başlangıç değeri TO bitiş değeri STEP artış miktarı
Komutlar
NEXT sayaç değişkeni
Başlangıç değeri ile belirtilen değerden bitiş değeri ile belirtilen değere kadar For ile Next arasındaki komut satırları tekrarlanır. Step parametresi artış değerini belirtmek için kullanılır. Eğer step parametresi kullanılmazsa varsayılan artış değeri 1’dir.
Örneğin 0 ile 10 arasındaki sayıları ekranda listeleyen bir konsol uygulaması yazalım;
Module Module1
Sub Main()
Dim i As Byte
For i = 0 To 10
Console.WriteLine(i)
Next
Console.ReadLine()
End Sub
End Module
Step parametresini kullanmadığımız için artış değeri 1’dir. Döngümüz 0’dan 10’a kadar kurulduğu için i değişkeninin değeri ekrana 10 defa artan şekilde yazılacaktır. Console.Readline ifadesi ile de ekran çıktısını enter tuşuna basılana kadar bekletiyoruz.
Aynı uygulamamızı 0’dan 10’a kadar olan çift sayıları görüntüleyecek şekilde değiştirelim.
Module Module1
Sub Main()
Dim i As Byte
For i = 0 To 10 Step 2
Console.WriteLine(i)
Next
Console.ReadLine()
End Sub
End Module
Görüldüğü gibi bu defa step parametresini kullanarak artım değerini 2 yaptık. Ekran çıktımız aşağıdaki gibi oldu:
Klavyeden girilen bir sayının faktöriyelini bulacak bir örnek uygulama yapalım;
Mesela 4 sayısının faktöriyeli matematikte şu şekilde bulunur:
4*3*2*1=24
4 sayısının faktöriyeli 24'tür. Buna göre programımızda 1 den klavyeden girilen sayıya kadar bir döngü oluşturacağız. Ve döngü değeri ile çarpım değerini her defasında yeniden çarpacağız. Kodumuz şu şekilde olacak:
Public Class Form1
Private Sub cmdsayigir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdsayigir.Click
Dim i, sayi, fak As Integer
fak = 1
sayi = InputBox("Faktöriyeli bulunacak sayıyı girin")
For i = 1 To sayi
fak = fak * i
Next i
MsgBox(sayi & " sayısının faktöriyeli = " & fak)
End Sub
End Class
Kodumuzu çalıştırıp input box ile 4 sayısını girdiğimizde aşağıdaki gibi çıktı alırız;
