"Visual Basic" Programlama dilinde "1 İle 100 Arasında 3'e Bölünebilenleri Bulma Örneği" ile ilgili kod örneği aşağıdadır.

Module Main
    Sub Main()
        For i As Integer = 1 To 100
            If i Mod 3 = 0 Then
                Console.WriteLine(i)
            End If
        Next
    End Sub
End Module