Imports System

​

Public Module Module1

    Public Sub Main()

        'PROGRAMA CALCULO DE AREAS

        'NOVENO 2

        'REALIZADO POR PAULA

        DIM L,B,A,R AS INTEGER 

        DIM CUADRADO, RECTANGULO AS DOUBLE

        DIM TRIANGULO, CIRCULO AS DOUBLE 

        DIM RESPUESTA AS INTEGER

        CONSOLE.WriteLine("QUE CALCULO DESEA REALIZAR")

        CONSOLE.WriteLine("1.CIRCULO 2.RECTANGULO 3.TRIANGULO 4.CIRCULO")

        RESPUESTA = CONSOLE.ReadLine()

        IF RESPUESTA= 1 THEN 

            CONSOLE.WriteLine("INGRESE LADO: ")

            L = CONSOLE.ReadLine()

            CUADRADO = L^2

            CONSOLE.WriteLine("EL AREA DEL CUADRADO ES: "&CUADRADO)

        END IF 

        IF RESPUESTA= 1 THEN 

            CONSOLE.WriteLine("INGRESE LADO: ")

            'L = CONSOLE.ReadLine()

            'CUADRADO = L^2

            CONSOLE.WriteLine("EL AREA DEL CUADRADO ES: "&CUADRADO)

        END IF 

        IF RESPUESTA = 2 THEN

            B = CONSOLE.ReadLine()

            CONSOLE.WriteLine("INGRESE ALTURA")

            A = CONSOLE.ReadLine()

            RECTANGULO= B*A

            CONSOLE.WriteLine("EL AREA DEL RECTANGULO" &RECTANGULO)

        END IF

​

        IF RESPUESTA = 3 THEN

            CONSOLE.WriteLine("INGRESE BASE: ")

            B =  CONSOLE.ReadLine()

            CONSOLE.WriteLine("INGRESE ALTURA: ") 

            TRIANGULO = (B*A)/2

            CONSOLE.WriteLine("EL AREAS DEL RECTANGULO: " &TRIANGULO)

        END IF

        IF RESPUESTA = 4 THEN 

            CONSOLE.WriteLine("INGRESE RADIO:")

            R = CONSOLE.ReadLine()

            CIRCULO = 3.1416*R^2

            CONSOLE.WriteLine("EL AREA DEL CIRCULO" &CIRCULO)

        END IF  

    End Sub

End Module