Imports System

Public Module Module1

    Public Sub Main()

        Dim Stumark As integer = 0

        Dim Maxmark As integer = 0

        Dim Percent As integer = 0

        Console.WriteLine("Enter Student Mark")

        Stumark = Console.ReadLine

        Console.WriteLine("Enter Max mark")

        Maxmark = Console.ReadLine

        Percent = Stumark / Maxmark * 100

        If Percent >= 80 THEN

            Console.WriteLine("Grade A")

        Elseif Percent >= 70 THEN

            Console.WriteLine("Grade B")

        Elseif Percent >= 60 THEN

            Console.WriteLine("Grade C")

        Else 

            Console.WriteLine("Grade U")

        End if

    End Sub

End Module

​

'Integer: Stumark <-- 0

'Integer: MAxmark <-- 0

'Decimal: Percent <-- 0

​

'Output "Enter Student mark"

'Input Stumark

'Output "Enter Max mark"

'Input Maxmark

​

'Percent <-- Stumark / Maxmark * 100\

​

'IF Percent >= 80 THEN

'Output "Grade A"

'Elseif Percent >= 70 THEN

'Output "Grade B"

'Elseif Percen >= 60 THEN

'Output "Grade C"

'ELse Output "Grade U"

'End if