"Visual Basic" Programlama dilinde "Bir Sayının 5'in Katı Olup Olmadığını Gösteren Örnek" ile ilgili örnek kod aşağıda verilmiştir.

Imports System

Module MainModule
    Sub Main(args As String())
        Console.WriteLine("Bir Sayı Girin: ")
        Dim number As Integer = Convert.ToInt32(Console.ReadLine())

        If number Mod 5 = 0 Then
            Console.WriteLine(number & " sayısı 5 in katıdır.")
        Else
            Console.WriteLine(number & " sayısı 5 in katı değildir.")
        End If
    End Sub
End Module