Un instituto ofrece cursos de programación, el costo de los cursos es de la siguiente manera:

nombre   Básico    Intermedio    Avanzado
Profesor    50    70    100
Alumno    40    50    80
Externo    70    100    120


Se pide elaborar un programa para emitir el recibo por dicho curso, los datos que se mostraran en el recibo son: nombre del participante, costo del curso y nivel del curso.


no se como hacerlo pero pa q no digan q no lo eh intentado ak les va la tonteria k ise y aver si me corrije ps

Imports System.Console
Imports System.Math

Module Module5
    Sub main()
        Dim nom, nivel As String

        WriteLine("ingrese nombre: profesor, alumno, externo")
        nom = ReadLine()
        WriteLine("ingrese nivel del curso: basico, intermedio, avanzado")
        nivel = ReadLine()

        Select Case nivel
            Case Is = "basico" And nom = "profesor" : WriteLine("costo del curso $50")
            Case Is = "basico" And nom = "alumno" : WriteLine("costo del curso $40")
            Case Is = "basico" And nom = "externo" : WriteLine("costo del curso $70")

            Case Is = "intermedio" And nom = "profesor" : WriteLine("costo del curso $70")
            Case Is = "intermedio" And nom = "alumno" : WriteLine("costo del curso $50")
            Case Is = "intermedio" And nom = "externo" : WriteLine("costo del curso $100")

            Case Is = "avanzado" And nom = "profesor" : WriteLine("costo del curso $100")
            Case Is = "avanzado" And nom = "alumno" : WriteLine("costo del curso $80")
            Case Is = "avanzado" And nom = "externo" : WriteLine("costo del curso $120")


        End Select

        ReadLine()

    End Sub

End Module