Imports System

Public Module Module1

    Public Sub Main()

        Dim n1 as string

        Console.WriteLine("Ingrese el valor de su nota")

        n1 = cint(Console.ReadLine())

        select case n1

        case 0 

            Console.WriteLine("Su nota es una: E")

        case 1, 2

            Console.WriteLine("Su nota es una: D")

        case 3, 4, 5

            Console.WriteLine("Su nota es una: C")

        case 6, 7, 8

            Console.WriteLine("Su nota es una: B")

        case 9, 10

            Console.WriteLine("Su nota es una: A")

        end select 

    End Sub

End Module