Imports System

​

Public Module Module1

​

    Public Sub Main()

        Dim mark as Integer

        Dim name as String

        Dim another as String = "Yes"

        Do while another = "Yes"

            Console.Writeline("Enter name , Then mark")

            name = Console.Readline()

            mark = console.Readline()

            Console.WriteLine()

            If mark > 80 then

                Console.WriteLine(name & " , Pass , A")

            Else if mark > 70 then

                Console.WriteLine(name & " , Pass , B")

            Else if mark > 60 then

                Console.WriteLine(name & " , Pass , C")

            Else if mark > 50 then

                Console.WriteLine(name & " , Fail , D")

            Else if mark > 40 then

                Console.WriteLine(name & " , Fail , E")

            Else

                Console.WriteLine(name & " , Fail , F")

            End if

​

            Console.WriteLine

            Console.WriteLine("Enter another mark? , Yes or No?")

            another = Console.Readline()

        Loop

​

        Console.WriteLine("Goodbye")

    End Sub

End Module

​