Imports System

Public Module Module1

    Public Sub Main()

        Console.WriteLine("Hello World")

        dim Mark as integer

        Mark = 0

        console.WriteLine("enter mark")

        Mark = console.ReadLine()

        select case Mark

        case 80 to 100

            console.WriteLine("Grade is A")

            case 60 to 79

            console.WriteLine("Grade is B")

            case 50 to 59

            console.WriteLine("Grade is C")

            case 40 to 49

            console.WriteLine("Grade is D")

            case 30 to 39

            console.WriteLine("Grade is E")

            case 20 to 29

            console.WriteLine("Grade is F")

            case 10 to 19

            console.WriteLine("Grade is U")

        end select

    End Sub

End Module