Ejercicio: Calcular seno, coseno, tangente, secante, cosecante y contangente- Visual Basic- Modo Consola

Hola a todos

He aqui uno de los ejercicios que acabo de hacer para una tarea de programacion, espero les sirva.

 Soy nuevo en esto de los blog asi que cualquier comentario y sugerencia es bienvenida.

Enunciado del ejercicio:

"Construya un programa capaz de solicitar los lados de un triángulo rectángulo y con estos datos le solicite al usuario a elección que desea calcular: el seno, coseno, tangente, cotangente, secante y cosecante."

Sub Main()

        Dim sen, cos, tan, cotan, sec, csc As Double

        Dim hipotenusa, opuesto, adyacente, opcion As Double

        Dim calculo As Double

        Console.WriteLine("Ingrese el valor del opuesto ", opuesto)

        opuesto = Console.ReadLine()

        Console.WriteLine("Ingrese el valor de la hipotenusa", hipotenusa)

        hipotenusa = Console.ReadLine()

        Console.WriteLine("Ingrese el valor del adyacente", adyacente)

        adyacente = Console.ReadLine()

        Console.WriteLine("¿Que operacion desea realizar?", opcion)

        Console.WriteLine("------------------------------")

        Console.WriteLine("1-Cacular Seno")

        Console.WriteLine("2-Cacular Coseno")

        Console.WriteLine("3-Cacular Tangente")

        Console.WriteLine("4-Cacular Secante")

        Console.WriteLine("5-Cacular Cosecante")

        Console.WriteLine("6-Cacular Cotangente")

        Console.WriteLine("----------------------------")

        opcion = Console.ReadLine()

        If opcion = 1 Then

            sen = (opuesto / hipotenusa)

            calculo = sen

        ElseIf opcion = 2 Then

            cos = (adyacente / hipotenusa)

            calculo = cos

        ElseIf opcion = 3 Then

            tan = (opuesto / adyacente)

            calculo = tan

        ElseIf opcion = 4 Then

            sec = (hipotenusa / adyacente)

            calculo = sec

        ElseIf opcion = 5 Then

            csc = (hipotenusa / opuesto)

            calculo = csc

        ElseIf opcion = 6 Then

            cotan = (adyacente / opuesto)

            calculo = cotan

        Else

            Console.WriteLine("Seleccione una de las opciones de la tabla")

        End If

        Console.WriteLine("----------------------------")

        Console.WriteLine("El resultado es: " & calculo)

        Console.WriteLine("----------------------------")

        Console.WriteLine("Presiones enter para salir")

        Console.ReadLine()

    End Sub

 El resultado les quedaria de la siguiente forma

 

Si tienen algun comentario pueden enviarmelo

Saludos