Imports System

Public Module Module1

    Public Sub Main()

        Dim Number, Modulus As Integer

        Dim NumFactors As Integer = 0

        Console.WriteLine("Enter number to test")

        Number = Console.ReadLine()

        For LoopCounter = 1 To Number

            Modulus = Number Mod LoopCounter

            If Modulus = 0 Then

            NumFactors = NumFactors + 1

        End If

    Next

    If NumFactors = 2 Then

        Console.WriteLine("PRIME")

    Else

        Console.WriteLine("NOT PRIME")

    End If

    End Sub

End Module

​

'PSEUDOCODE

​

'INTEGER: Number, Modulus

'INTEGER: NumFactors  0

​

'OUTPUT “Enter number to test”

'INPUT Number

​

​

​

'FOR LoopCounter  1 TO Number

​

​

'Modulus  Number MOD LoopCounter

​

'IF Modulus = 0 THEN

'       NumFactors  NumFactors + 1

'END IF

​

​

'NEXT

​

​

'IF NumFactors = 2 THEN

'   OUTPUT “Prime”

'ELSE

'   OUTPUT “NOT Prime”

''END IF

​