Imports System

Public Module Module1

    Public Sub Main()

        dim grade1,grade2,grade3 as string

        dim total  as decimal

        Console.WriteLine("please enter your first grade ")

        grade1=console.ReadLine()

        Console.WriteLine("please enter your second grade ")

        grade2=console.ReadLine()

        Console.WriteLine("please enter your third grade ")

        grade3=console.ReadLine()

        total = grade1 /3 + grade2 /3 + grade3 / 3

        console.WriteLine("your grade is " & total)

        if total < 30 then 

            console.WriteLine("test fail")

            console.ReadLine()

        elseif total < 55 then 

            console.WriteLine("low score retake needed ")

            console.ReadLine()

        elseif total > 70 then 

            console.writeline (" excellent score ")

            console.ReadLine()

        end if

        select case total

        case 55 to 69 

            console.WriteLine("good score ")

            console.ReadLine()

        end select 

    End Sub

End Module