Imports System

Public Module Module1

    Public Sub Main()

        'Ejemplo IF

        dim respuesta as integer

        dim opcion as integer

        respuesta = 1 

        Console.WriteLine("1. opcion A, 2. opcion B, 3. opcion C, 4. opcion D  ")

        opcion = Console.Readline 

        while (respuesta = 1)

        if opcion = 1 then 

            dim a, b , h as double 

        Console.WriteLine("Ingrese la base")

        b=Console.Readline

        Console.WriteLine("Ingrese la altura")

        h=Console.Readline

        'Calculo del Area

        a=b*h 

        'Mostrar el Area

        Console.Writeline("El area del rectangulo es: " &a)

                select(opcion)

            Case 1

                Console.WriteLine("Desea Continuar 1. si   o   2. no")

                Respuesta = Console.ReadLine()

        End select 

        End if 

        End While 

            while (respuesta = 1)

        if opcion = 2 then

            Console.WriteLine("Proceso del triangulo")

            dim bt, ht, at as double

            Console.WriteLine("Ingrese la base")

            bt=Console.Readline

        Console.WriteLine("Ingrese la altura")

            ht=Console.Readline

        'Calculo del Area

            at = (bt * ht)/2  

        'Mostrar el Area

            Console.Writeline("El area del triangulo es: " &at)

                select(opcion)

            Case 1

                Console.WriteLine("Desea Continuar 1. si   o   2. no")

                Respuesta = Console.ReadLine()

        End select 

        End if

        End While

        While (respuesta = 1)

        if opcion = 3 then

            Console.WriteLine("circulo")

            'ac = 3.14 * radio * radio

            dim ac, rc as double 

            Console.WriteLine("Ingrese el radio")

            rc=Console.Readline

        'Calculo del Area

            ac = 3.14 * rc * rc   

        'Mostrar el Area

            Console.Writeline("El area del circulo es: " &ac)

                select(opcion)

            Case 1

                Console.WriteLine("Desea Continuar 1. si   o   2. no")

                Respuesta = Console.ReadLine()

        End select 

        End if

        End While

        While(respuesta = 1)

        if opcion = 4 then 

            Console.WriteLine("Trapecio")

            dim b1t, b2t, ht, atr as double 

            Console.WriteLine("Ingrese la base")

            b1t=Console.Readline

            Console.WriteLine("Ingrese la segunda base")

            b2t=Console.Readline

            Console.WriteLine("Ingrese la altura")

            ht=Console.Readline

        'Calculo del Area

            atr = ((b1t + b2t) * ht)/2 

        'Mostrar el Area

            Console.Writeline("El area del trapecio es: " &atr) 

        End if

            select(opcion)

            Case 1

                Console.WriteLine("Desea Continuar 1. si   o   2. no")

                Respuesta = Console.ReadLine()

        End select 

        End While

    End Sub

End Module