Imports System

Public Module Module1

    Dim number As Integer

    Dim input As Integer

    Dim result As Integer

    Dim i As Integer

    Dim counter As Integer

    Sub Main()

        Console.WriteLine("                  Prime Number Calculator")

        Console.WriteLine("       ----------------------------------------------")

        Do

            Console.WriteLine("")

            Console.WriteLine("Please enter a Number between 1 and 50:")

            input = Console.ReadLine()

            i = 0

            counter = 0

​

            Do While input > 50 Or input < 1

                Console.WriteLine(input & " is not between 1 and 50. Try again:")

                input = Console.ReadLine()

            Loop

​

            While i < 50

                i = i + 1

                result = input Mod i

                If result = 0 Then

                    counter = counter + 1

                End If

            End While

            If counter > 2 Then

                Console.WriteLine("This number is Not a Prime Number.")

            ElseIf counter = 2 Then

                Console.WriteLine("This number is a Prime Number!")

            Else

                Console.WriteLine("This number is a Prime Number!")

            End If

​

​

​

            Console.WriteLine("")

            Console.WriteLine("Go down to try another number...")

            Console.WriteLine("------------------------------------------------")

        Loop

    End Sub

​

End Module