Imports System

Public Module Module1

    Public Sub Main()

        Dim Number, Modulus, LoopCounter As Integer

        Dim numfactors As Integer

​

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

        Number = Console.ReadLine()

        Console.WriteLine("The factors of " & number & " are:")

        For LoopCounter = 1 to Number

            Modulus = Number MOD LoopCounter

            If Modulus = 0 Then

            numfactors = numfactors + 1

            Console.WriteLine(LoopCounter)

            End If

        Next

    If numfactors = 2 Then

        Console.WriteLine(Number & " is a prime.")

    Else

        Console.WriteLine(Number & " is not a prime.")

    End If

​

    End Sub

End Module