Unidad 4. VBA. Más estructuras (VIII)

Ejemplo 20

Escriba un procedimiento que permita obtener la suma y el promedio de un conjunto de n datos, leídos desde el teclado.

Solución

Ante todo, se debe ingresar los datos a ser procesados.

Como en el ejemplo anterior, usaremos Datos como nombre del arreglo que recibirá los datos ingresados; usaremos también la variable Suma que contendrá la suma de todos los datos ingresados y Prom, la variable que contenga el promedio.

Luego de leer los datos, usaremos otro FOR … NEXT para calcular la suma de los elementos; aunque se podría realizar la suma a la vez que se van leyendo los datos.

Sub Arreglos02()

Dim Datos(10) As Double

Dim Suma, Prom As Double

Suma = 0

N = InputBox("Numero de datos a ser leídos")

For I = 1 To N

Datos(I) = InputBox("Ingrese el dato: ")

' Obtención de la suma

For I = 1 To N

Suma = Suma + Datos(I)

' Cálculo del promedio

Prom = Suma/N

' Impresión de resultados

MsgBox("La suma es: " & Suma & " , el promedio es: " & Prom)

End Sub

Noviembre-2010

Pág. 4.8