Bir grup deyimi belli sayıda çalıştırarak bir döngü oluşturur. Döngü bir kez işledikten sonra artırım değeri eklenir. Eğer herhangi bir artırım değeri kullanılmadıysa o zaman bir arttırılır. Sayaç değeri bitiş değerinden büyük olduğu zaman döngü sona erdirilir ve program Next deyiminden itibaren devam eder.

Döngü değimleri amaç değişkenlerin değerlerini belli aralıklarla yaptırmak. Belli aralıklardaki sayıların toplamı , çıkartmak,çarpmak

Kalıp

FOR değişken=1 TO 70

'

'

'

'

NEXT 

ÖRNEK 1

Private Sub Command1_Click()

'1 den 10 a kadar olan sayıları toplatalım

Dim a As Integer

Dim b As Integer

    For a = 1 To 10

        b = b + a  'buradaki yeni b= kavramı mat. = değil

    Next

Print b

End Sub

ÖRNEK 2

Private Sub Command1_Click()

'1 den 10 a kadar olan sayıları toplatalım print e dikkat

Dim a As Integer

Dim b As Integer

    For a = 1 To 10

        b = b + a  'buradaki yeni b= kavramı mat. = değil

Print b

    Next

' olayın farkını anlat

End Sub

ÖRNEK 3

Private Sub Command1_Click()

'klavyeden bir sayı girilecek ve

'makina o syıya kadar olan sayıların toplamını alacak

Dim a As Double

Dim b As Double

Dim c As Double

a = InputBox("birinci sayıyı girin")

For b = 1 To a

c = c + b

Next

Print ("1 den ") & a & ("ya kadar olan sayıların toplamı"), c

End Sub

ÖRNEK 4

Private Sub Command1_Click()

' Belli bir sayıya kadar toplama yapmak

‘ Bir atlatarak toplatmak için

' step komutu kullanılarak

Dim a As Double

Dim b As Double

Dim c As Double

a = InputBox("birinci sayıyı girin")

For b = 1 To a Step 2

c = c + b

Next

Print c

End Sub

ÖRNEK 5

Private Sub Command11_Click()

' 1 den girilen bir sayıya kadar olan sayılan çarpımı

' en fazla 170 ! e kadar yapablirsiniz.

Dim a As Double, b As Double, c As Double

a = InputBox("birinci sayıyı girin")

c = 1

    For b = 1 To a

    c = c * b

    Next

Print a; "!  ="; c

End Sub

ÖRNEK 6

Private Sub Command12_Click()

' üç boyutlu bir yazı yazılması

Dim t, i, x1, y1, x, y

x = 200

y = 200

t = "Oguz Kemalettin KUTLU"

FontName = "tahoma"

FontSize = 30

    For i = 0 To 15

    x1 = x + i * 5 ' 10 birim sağa kayar

    y1 = y + i * 10 ' 10 birim aşağıya kayar

    ForeColor = QBColor(i)    'QBColor (0 - 15 ) ARASI ÖZEL RENKLER

                              'forecolor=rgb(red,green,blue)

                              ' qbcolor kullanılacaksa eğer to 16 olamaz

    CurrentX = x1

    CurrentY = y1

Print t

Next            ' döngüyü anlatmayı unutma

End Sub

ÖRNEK 7

'Private Sub Form_Resize() ' formun boyutu değişse bile yazı ona uygun hale gelir.

'Cls ' önce ekranın temizlnmesi lazım

'Show

'Dim t, i

't = "Oguz KUTLU – Visual Basic Öğretmeni"

'FontName = "tahoma"

'For i = 1 To 10

'FontSize = i * 5

'CurrentX = (ScaleWidth - TextWidth(t)) / 2 ' yazıyı tam merkezden başlatmak için yazıyı 10 kere büyüterek aşağıya doğru yazarak iner

'Print t

'Next

'End Sub