Imports System

​

Public Module Module1

​

    Public Sub Main()

        Dim Test1, Test2, Test3, addition, average as Integer

        'This allows you to input a value for the scores of test 1, test 2 and test 3

        Console.WriteLine("Test1")

        Test1 = console.readline()

        Console.WriteLine("Test2")

        Test2 = console.readline()

        Console.WriteLine("Test3")

        Test3 = console.readline()

        'This calculates the average percent of the three scores

        addition = Test1 + Test2 + Test3

        average = addition / 3

        'This case statement of the average figures wether the average score is a fail, low score in need of retake, good score or an excellent score

        Select Case average

            Case 0 to 30

                Console.writeline(average & "%" & " Test Fail")

            case 30 to 55

                Console.WriteLine(average & "%" & " Low score - retake needed")

            case 55 to 70

                console.WriteLine(average & "%" & " Good score")

            case 70 to 100

                console.WriteLine(average & "%" & " Excellent score")

        end select

​

        'This case statement figures out if any of the three test scores were excellent

        If Test1 >= 70

            Console.WriteLine(" - Excellent score in test 1")

        end if

​

        If Test2 >= 70

            Console.WriteLine(" - Excellent score in test 2")

        end if

​

        If Test3 >= 70

            Console.WriteLine(" - Excellent score in test 3")

        end if

​

        Console.ReadLine()

    End Sub

End Module

​