Imports System
Public Module Module1
Public Sub Main()
console.writeline("please enter student's marks")
dim value as integer = console.ReadLine()
select case value
case >80
console.writeline("A")
case >70
console.WriteLine("B")
case >60
console.WriteLine("C")
case >50
console.WriteLine("D")
case Else
end select
End Sub
End Module