Visual Basic 'de 1 ile 100 arasında (100 dahil) çift sayıların toplamını veren örnek aşağıdadır.

Module ModuleTest
    Sub Main()
        Dim toplam As Integer = 0

        For i As Integer = 0 To 100
            If i Mod 2 = 0 Then
                toplam += i
            End If
        Next

        Console.WriteLine(toplam)
        Console.ReadLine()
    End Sub
End Module 

1 ile 100 arasında (100 dahil) "for döngüsü" çalıştırılır. Döngünün içinde her seferinde 1 arttırılan (i değişkeni) değerin "Mod 2" ile 2 'ye bölünüp bölünmediği ( i Mod 2 = 0.. Burada 2'ye bölümünden kalan sıfır mı ? anlamına gelmektedir) kontrol edilir. Eğer sonuç "true" ise "i" değişkenimiz döngünün dışında tanımlanan ve değerleri toplayan "toplam" değişkenimize kümülatif olarak (toplam += i) eklenir.

Sonuç 2550 çıkacaktır ve ekranda gösterilir..