REALICE EL ALGORITMO EN PAPEL (PSEUDOCÓDIGO) Y CODIFIQUE EN VBA

REALICE EL ALGORITMO EN PAPEL (PSEUDOCÓDIGO) Y CODIFIQUE EN VBA

Para instrucciones de asignación en VBA:

Variables de entrada (Asignación con Función InputBox y celdas de Excel)

Variables de salida (Asignación con Función MsgBox y celdas de Excel)

Variables Auxiliares (Celdas de Excel)

Ejemplo:

Hacer un algoritmo que dados los lados diferentes de un rectángulo, B y H, encuentre su perímetro y su área.

ALGORITMO (PSEUDOCODIGO)

Rectángulo_AyP

B, H: Reales

INICIO

        Lea B, H

        A = B * H

        P = 2 * B + 2 * H

        Escriba “El Área es: ”, A

         Escriba “El Perímetro es: ”, P

FIN

CODIFICACIÓN EN VBA

Utilizando las funciones InputBox y MsgBox

Sub Rectangulo_AyP()

Dim B, H As Double

    B = InputBox("Por Favor ingrese la longitud de la Base")

    H = InputBox("Por Favor ingrese la longitud de la Altura")

    A = B * H

    P = 2 * B + 2 * H

    MsgBox ("El Área del Rectángulo es: " & A)

    MsgBox ("El Perímetro del Rectángulo es: " & P)

End Sub

Utilizando las celdas de Excel

Sub Rectangulo_AyP()

Dim B, H As Double

    B = Hoja1.Cells(1, 1)

    H = Hoja1.Cells(1, 2)

    A = B * H

    P = 2 * B + 2 * H  

    Hoja1.Cells(1, 3) = “El Área del Rectángulo es: ” & A

    Hoja1.Cells(1, 4) = “El Perímetro del Rectángulo es: ” & P

End Sub

...