Imports System

Public Module Module1

    Public Sub Main()

        Dim area,lado,base,altura,diametro as double

        Dim figura as string

        Console.WriteLine("Digite la figura a la que desea descubrir el area")

        Console.WriteLine("Cuadrado")

        Console.WriteLine("Rectangulo")

        Console.WriteLine("Circulo")

        Console.WriteLine("Triangulo")

        figura=Console.ReadLine()

        Select Case figura

        Case "Cuadrado":

            Console.WriteLine("Digite la medida del lado del cuadrado")

            lado=Console.ReadLine()

            area=lado^2

            Console.Write("El area del cuadrado es:" &area)

        Case "Rectangulo":

            Console.WriteLine("Digite la medida de la base del rectangulo")

            base=Console.ReadLine()

            Console.WriteLine("Digite la medida de la altura del rectangulo")

            altura=Console.ReadLine()

            area=base*altura

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

        Case "Circulo":

            Console.WriteLine("Digite la medida del diametro del circulo")

            diametro=Console.ReadLine()

            area=(diametro/2)^2*(math.PI)

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

        Case "Triangulo":

            Console.WriteLine("Digite la medida de la base del triangulo")

            base=Console.ReadLine()

            Console.WriteLine("Digite la medida de la altura del triangulo")

            altura=Console.ReadLine()

            area=base*altura/2

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

        Case else:

            Console.Write("Valor invalido")

        End select

    End Sub

End Module