Imports System

Public Module Module1

    Public Sub Main()

        dim Number, countfactors, loopcounter as integer

        console.WriteLine("Enter 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 DO

'   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

​