Imports System

​

Public Module Module1

​

    Public Sub Main()

        dim grade as string

        dim result as integer

        dim response as string

        dim total as integer

        dim total2 as integer

        dim total3 as double

        dim myerror as integer

        do

            total2 = total2 + 1

            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)

            total = total + result

            console.WriteLine(total)

            console.WriteLine("Do you want to enter another mark Y/N")

            response = console.ReadLine()

            response= "Y"

        Do 

                console.writeline("Do you want to enter another mark? Y/N")     

                response = console.readline

                if  response = "Y" or response = "N" or response = "y" or response = "n" then       

                    myerror = 0                         

                else

                    console.writeline("You have entered an incorrect value")

                    myerror = 1                         

                end if

            loop until myerror = 0                  

        loop until response = "N"

​

        total3 = total/total2

        console.writeline("your average is"  &  total3)

    End Sub

End Module

​