Imports System

Public Module Module1

    Public Sub Main()

        Console.WriteLine("Hello World")

        Dim Mark As Integer

        Mark= 0

        Console.WriteLine("Enter Mark")

        Select Case Mark

        Case 80 to 100

            console.WriteLine("Grade is Distinction")

        Case 70 to 79

            console.WriteLine("Grade is Merit")

        Case 60 to 69

            console.WriteLine("Grade is Credit")

        Case 50 to 59

            console.WriteLine("Grade is Pass")

        Case 40 to 49

            console.WriteLine("Grade is Resit")

        Case 0 to 39

            console.WriteLine("Grade is Repeat Level")

        END SELECT

    End Sub

End Module