Visual Basic Bir Sayının Asal Sayı Olup Olmadığını Bulma Örneği
"Visual Basic" Programlama dilinde "Bir Sayının Asal Sayı Olup Olmadığını Bulma Örneği" ile ilgili kod örneği aşağıda verilmiştir.
Module MainModule
Sub Main()
Console.WriteLine("1 den büyük sayı girin: ")
Dim number As Integer = Integer.Parse(Console.ReadLine())
Dim isprime As Integer = 1
For i As Integer = 2 To (number / 2)
If number Mod i = 0 Then
isprime = 0
Exit For
End If
Next
If isprime = 1 Then
Console.WriteLine(number & " asal sayıdır.")
Else
Console.WriteLine(number & " asal sayı değildir.")
End If
End Sub
End Module