Imports System

Public Module Module1

    Public Sub Main()

        Dim num1 As Integer

        Dim num2 As Integer

        Dim num3 As Integer

        Console.WriteLine("Please input a value for num1")

        num1=console.ReadLine()

        If num1>=75

            Console.WriteLine("PASSED!")

        Else

            Console.WriteLine("FAILED!")

        End if

​

    Console.WriteLine("Please input a value for num2")

        num1=console.ReadLine()

        If num2>=74

            Console.WriteLine("INCOMPLETE!")

        Else

            Console.WriteLine("FAILED!")

        End if      

        Console.WriteLine("Please input a value for num1")

        num1=console.ReadLine()

        If num3>=73

            Console.WriteLine("FAILED!")

        Else

            Console.WriteLine("PASSED!")

        End if

    End Sub

End Module