Imports System

Public Module Module1

    Public Sub Main()

        dim total as string

        dim response as string

        dim grade as string

        do

dim result as integer

Console.WriteLine("Enter a mark")

result = console.readline()

If result >= 90 then

        Grade = “a”

Elseif result >= 80 then

        Grade = “b” 

Elseif result >= 70 then

        Grade = “c”

Else

        Grade = “fail”

end if

console.writeline("The grade is: " & grade)

            console.writeline(“Do you want to enter another grade? Y/N”)

    Response = console.readline()

​

Loop until response = “N”

            total = total + grade

    End Sub

End Module