Imports System

​

Public Module Module1

​

    Public Sub Main()

        dim inp as string

        Console.WriteLine("which mark range do they want to know for achieved, merit and excellent?")

        inp = console.readline()

        select case inp

            case "achieved"

                Console.WriteLine(">=50")

            case "merit"

                Console.WriteLine(">=70")

            case "excellent"

                Console.WriteLine(">=90")

        end select

    End Sub

End Module

​