Imports System

Public Module Module1

    Public Sub Main()

        Console.WriteLine("Hello World")

        dim Mark As Integer

        console.WriteLine("Enter Mark")

        Mark = console.ReadLine()

        select case mark

        case 80 to 100

            console.WriteLine("Mark is Distinction")

        case 70 to 79

            console.WriteLine("Mark is Merit")

        case 60 to 69

            console.WriteLine(" Mark is Credit")

        case 50 to 59

            console.WriteLine("Mark is Pass")

        case 40 to 49

            console.WriteLine("Resit")

        case 0 to 39

            console.WriteLine("Repeat Level")

        end select

    End Sub

End Module