Aşağıdaki kod, kullanıcının girdiği sayının çift mi yoksa tek mi olduğunu belirler. Öncelikle kullanıcıya bir sayı girmesi istenir, ardından bu sayının 2'ye bölümünden kalan hesaplanır ve bu kalan değerine göre, sayının çift mi yoksa tek mi olduğuna karar verilir. Program, Console ekranına yazdırarak sonucu kullanıcıya bildirir.

Imports System

Public Class Main
    Public Shared Sub Main(args As String())

        Console.WriteLine("Bir sayı giriniz: ")
        Dim number As Integer = Convert.ToInt32(Console.ReadLine())
        Dim x As Integer = number Mod 2

        If x = 0 Then
            Console.WriteLine("Sayı Çifttir")
        Else
            Console.WriteLine("Sayı Tektir")
        End If

    End Sub
End Class