Imports System

Public Module Module1

    Public Sub Main()

        dim opc, ar as integer

        Console.WriteLine("1. Rectangulo, 2. Triangulo, 3. Circculo, 4. Trapecio")

        opc = Console.ReadLine()

        If opc = 1 then

        dim a, b, h as double

            Console.WriteLine("Ingrese la base")

            b=Console.Readline

            Console.WriteLine("Ibgresa la altura")

            'calculo del Area

            'a=b*h

            'Mostrar el area

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

        end if 

        If opc = 2 then 

            Console.WriteLine("Proceso del triangulo")

            Dim bt, ht, atr as double

        end if 

        If opc = 3 then 

            Dim r as double 

            Console.Writeline("circulo")

            'ac = 3.14 * r*r

        end if

        if opc = 4 then 

            Console.Writeline("Trapecio")

            Dim b1, b2, ht, atr as double

            ar= (b1+b2)*c

        end if  

    End Sub

End Module