Imports System

​

Public Module Module1

​

    Public Sub Main()

        dim mark as decimal = 0

Do until mark >0 and mark <=100                             'the marks entered should be between 0 and 100

        console.writeline("Enter your mark in Computing ")

        mark = console.ReadLine()

loop        

        select case mark

            case is >95

                console.writeline("Grade A*")

            case is >= 90

                console.writeline("Grade A")

            case is >= 80

                console.WriteLine("Grade B")

            case is >= 70

                console.writeline("Grade C")

            case is >=50

                console.writeline("Grade D")

            case is < 50

                console.writeline("Ungraded")

        end select

    End Sub

End Module

​

​

​