Imports System

Public Module Module1

    Public Sub Main()

        Dim Number, CountFactors , LoopCounter As Integer

        Console.WriteLine("Please enter a number.")

        Number = Console.ReadLine()

        LoopCounter = 1

        Do While LoopCounter <= Number

            If Number MOD LoopCounter = 0 THEN      

                CountFactors = CountFactors + 1 

           End If

            LoopCounter =   LoopCounter + 1

        Loop

        If CountFactors = 2 Then

            Console.WriteLine("Prime")

        Else

            Console.WriteLine("NOT Prime")

        End If

    End Sub

End Module

​

' PSEUDOCODE

​

' ==========

'

' INTEGER: Number, CountFactors, LoopCounter

'

' OUTPUT "Please enter a number."

' INPUT Number

'

' LoopCounter <-- 1

'   WHILE LoopCounter <= Number 

'   IF Number MOD LoopCounter = 0 THEN

'       CountFactors <-- CountFactors + 1

'   ENDIF

'    LoopCounter <-- LoopCounter + 1

'ENDWHILE

' IF CountFactors = 2 THEN

'   OUTPUT "Prime"

' ELSE

'   OUTPUT "NOT Prime"

' END IF