Bir kontrol yapısı ile döngüden çıkış işleminin yapıldığı döngü yapısıdır. Kullanımı şu şekildedir;

Do

            Komutlar

            Kontrol yapısı

            Sayaç değişkeni =Sayaç değişkeni + Artım Değeri

Loop

Örnek olarak yine 0 ile 10 arasındaki sayıları ekranda listeleyen bir konsol uygulamasını Do Loop döngüsü ile yazalım.

Module Module1

    Sub Main()

        Dim i As Byte

        Do

            Console.WriteLine(i)

            If i = 10 Then Exit Do

            i = i + 1

        Loop

        Console.ReadLine()

    End Sub

End Module

Kodumuzda döngünün bitiş değeri olan 10 sayısına gelinip gelinmediğini if i=10 ifadesi ile kontrol edip eğer döngü sonuna gelinmişse Exit Do ifadesi ile döngüden çıkış yapılmasını sağlıyoruz.

Döngü, koşul cümlesi sonucu False olduğu sürece çalıştırılır ve sonuç True olduğunda döngüden çıkılır

Kullanımı şu şekildedir;

DO UNTIL Sayaç değişkeni karşılaştırma operatörü Döngü bitim değeri

            Komutlar

            Sayaç değişkeni =Sayaç değişkeni + Artım Değeri

LOOP

Örnek olarak yine 0 ile 10 arasındaki sayıları ekranda listeleyen bir konsol uygulamasını Do Until Loop döngüsü ile yazalım.

Module Module1

    Sub Main()

        Dim i As Byte

        Do Until i > 10

            Console.WriteLine(i)

            i = i + 1

        Loop

        Console.ReadLine()

    End Sub

End Module

Döngü, koşul cümlesi sonucu True olduğu sürece çalıştırılır ve sonuç False olduğunda döngünün bitmesi sağlanır. Döngü içindeki komutlar mutlaka bir defa icra edilir.

Kullanımı şu şekildedir;

DO WHILE Sayaç değişkeni karşılaştırma operatörü Döngü bitim değeri

            Komutlar

            Sayaç değişkeni =Sayaç değişkeni + Artım Değeri

LOOP

Örneğin daha önce for döngüsü ile yaptığımız 0 ile 10 arasındaki sayıları ekranda listeleyen bir konsol uygulamasını Do While Loop döngüsü ile yazalım.

Module Module1

    Sub Main()

        Dim i As Byte

        Do While i <= 10

            Console.WriteLine(i)

            i = i + 1

        Loop

        Console.ReadLine()

    End Sub

End Module

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;