Console.WriteLine("1. Rectangulo, 2. Triangulo, 3. Circculo, 4. Trapecio")
Console.WriteLine("Ingrese la base")
Console.WriteLine("Ibgresa la altura")
Console.WriteLine("El area del rectangulo es: " &a)
Console.WriteLine("Proceso del triangulo")
Dim bt, ht, atr as double
Console.Writeline("circulo")
Console.Writeline("Trapecio")
Dim b1, b2, ht, atr as double