Imports System

Public Module Module1

    Public Sub Main()

        dim score1 as integer

        dim score2 as integer

        dim score3 as integer

        dim average as integer

        Console.WriteLine("Please input 3 test results")

        score1=console.ReadLine()

        score2=console.ReadLine()

        score3=console.ReadLine()

        average = (score1 + score2 + score3)/3

        select case(average)

        case (70) to (100)

            console.WriteLine("Exelent score")

        case (55) to (69) 

            console.Writeline("Good score")

        case (31) to (54) 

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

        case (0) to (30)

            console.WriteLine("Test fail")

        end select  

        End Sub

End Module