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