Imports System

Public Module Module1

    Public Sub Main()

        Dim maxmark As Integer

        Dim studentmark As Integer

        Dim percent As Decimal

        Console.WriteLine("Enter the maximum mark:")

        maxmark = Console.ReadLine()

        Console.WriteLine("Enter the student's mark:")

        studentmark = Console.ReadLine()

        percent = studentmark / maxmark

        Select Case percent

        Case Is >= 90

            Console.WriteLine("Student got an A*")

        Case Is >= 80

            Console.WriteLine("Student got an A")

        Case Is >= 70

            Console.WriteLine("Student got a B")

        Case Is >= 60

            Console.WriteLine("Student got a C")

        Case Else

            Console.WriteLine("Student got a U")

        End Select

        Console.WriteLine()

    End Sub

End Module