Imports System

Public Module Module1

    Public Sub Main()

        dim mark as integer

        dim grade as string

        Dim name as string

        dim another as string = "y"

        Do while another = "y" OR another = "Y"

        console.WriteLine("What is your name")

        name = console.ReadLine()

            if name = "Julio" OR name = "julio" then

                console.writeline("You got a Fail")

​

            else 

        Console.WriteLine(name & " please enter your mark")

        mark = console.ReadLine()

        if mark >= 80 then

            grade = "A"

        elseif Mark >= 70 then 

            grade = "B"

        elseif Mark >= 60 then 

                grade = "C"

        elseif mark >= 50 then

                grade = "D"

        elseif mark >= 40 then

            grade = "E"

        elseif mark >= 30 then

            grade = "F"

            else grade = "U"

        end if  

            end if 

        Console.WriteLine(name & " your mark is " & Grade)

        Console.WriteLine("Would you like to enter another mark (y/n)")

            another = console.ReadLine()

    loop

    End Sub

End Module