Imports System

Public Module Module1

    Public Sub Main()

        Dim studentmark, maximummark as integer

        Dim percentage as decimal

        Dim Grade as char

        Console.WriteLine("Enter student mark")

        studentmark = Console.ReadLine()

        Console.WriteLine("Enter studentmaximum mark")

        maximummark = Console.ReadLine()

        percentage = studentmark/maximummark*100

        if percentage >= 80 then 

            grade = "A"

        elseif percentage >= 60 then

            grade = "B"

        elseif percentage >= 60 then

            grade = "C"

        else 

            grade = "U"     

        end if

        Console.WriteLine("percentage = " & percentage & "%  grade = " & grade)

    End Sub

End Module

​

'pseudocode

​

'integer:studentmark, maximummark

'real:percantage

'char:grade'

​

'output" enter studentmark"

'input studentmark

'output" enter maximummark"

'input maximummark

​

' if percentage >= 80 then

'    grade<--"A"

'elseif percentage >= 60 then

'     grade <-- "B"

'elseif percentage >= 40 then

'     grade <-- "C"

'else

'     grade <--"U"

'end

​

'output "percentage =",percentage,"%  grade =", grade