Visual Basic Bir Sayının Tek Mi Çift Mi Olduğunu Göstermek
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