Imports System

Public Module Module1

    Public Sub Main()

        dim opc as integer 

        Console.WriteLine("1. Rectangulo  A, 2. Triangulo B, 3. Circulo, 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("Ingrese altura")

            h=console.readline 

            a= b*h

            COnsole.Writeline(" EL area de un reactangulo es: " &a) 

        end if 

        IF opc = 2 Then 

            COnsole.Writeline("proceso del triangulo")

            Dim bt, ht, at as Double 

            COnsole.Writeline("coloque la base del triangulo")

            bt=Console.readline 

            COnsole.Writeline("Coloque la altura del triangulo")

            ht=Console.readline 

            at= (bt*ht)/2

            COnsole.Writeline("El area de un trinagulo es de: " &at) 

        End if 

        If opc = 3 then 

            COnsole.writeline("Circulo")

            dim ac, r as double

            COnsole.Writeline("escribe el radio del circulo") 

            r=Console.readline 

            ac = 3.14 * (r*r)  

            COnsole.Writeline("El area de un circulo es de: " &ac ) 

        end if 

        if opc = 4 then 

        Console.Writeline("Trapecio") 

            dim ata, b1, b2, hta as double 

            COnsole.Writeline("coloque la base 1#") 

            b1= console.readline

            COnsole.Writeline("coloque la base 2#")

            b2=console.readline 

            COnsole.Writeline("coloque la altura") 

            hta=console.readline 

            ata = (b1 +b2)/2*hta 

            COnsole.Writeline("El area de un trapecio es de: " &ata) 

    end if 

    End Sub

End Module