Imports System
Public Class Program
Public Shared Function isPrime(ByVal num As Integer) As Boolean
For i As Integer = 2 To num / 2
If num Mod i = 0 Then
Return False
End If
Next
Return True
End Function
Public Shared Sub Main(ByVal args As String())
Dim arr As Integer() = New Integer() {23, 87, 100, 47, 71, 897, 228, 3001, 4325, 8797, 5361}
Dim size As Integer = arr.Length
For i As Integer = 0 To size - 1
If isPrime(arr(i)) Then
Console.Write("{0,3:D} - Prime" & Environment.NewLine, arr(i))
Else
Console.Write("{0,3:D} - Not Prime" & Environment.NewLine, arr(i))
End If
Next
End Sub
End Class
' run:
'
' 23 - Prime
' 87 - Not Prime
' 100 - Not Prime
' 47 - Prime
' 71 - Prime
' 897 - Not Prime
' 228 - Not Prime
' 3001 - Prime
' 4325 - Not Prime
' 8797 - Not Prime
' 5361 - Not Prime
'
