Imports System

Public Module Module1

    Public Sub Main()

        'declare variables

        dim percentage as integer

        dim grade as char

        'get exam percentage 0 to 100

        Console.WriteLine("Enter exam percentage")

        percentage = console.ReadLine()

        'decide grade

        if percentage >=70 then

            grade = "A"

        else if percentage <70 and percentage >=60 then

                grade = "B"

            end if

        'output grade

        console.writeline("Your grade is " & grade)

    End Sub

End Module