Imports System

​

Public Module Module1

​

    Public Sub Main()

        dim T1 as integer

        dim T2 as integer

        dim T3 as integer

        dim total as integer

        Console.WriteLine("Please enter the first test score")

        T1 = console.ReadLine()

        console.WriteLine("please enter the second test score")

        T2 = console.ReadLine()

        console.WriteLine("please enter the third test score")

        T3 = console.ReadLine()

        (T1+T2+T3) = total

         if total > 30 then

            console.WriteLine("Test fail")

        else if total > 55 then

            console.WriteLine("Low score - retake needed")

        else if total > 69 then

            console.WriteLine("Good score")

        else if total < 70 then

            console.WriteLine("Excellent score")

        end if

    End Sub

End Module

​