Console.WriteLine("1. Rectangulo A, 2. Triangulo B, 3. Circulo, 4. Trapecio ")
Console.Writeline("Ingrese la base")
Console.Writeline("Ingrese altura")
COnsole.Writeline(" EL area de un reactangulo es: " &a)
COnsole.Writeline("proceso del triangulo")
COnsole.Writeline("coloque la base del triangulo")
COnsole.Writeline("Coloque la altura del triangulo")
COnsole.Writeline("El area de un trinagulo es de: " &at)
COnsole.writeline("Circulo")
COnsole.Writeline("escribe el radio del circulo")
COnsole.Writeline("El area de un circulo es de: " &ac )
Console.Writeline("Trapecio")
dim ata, b1, b2, hta as double
COnsole.Writeline("coloque la base 1#")
COnsole.Writeline("coloque la base 2#")
COnsole.Writeline("coloque la altura")
COnsole.Writeline("El area de un trapecio es de: " &ata)