Acumulación de cálculos de programación Vb

Copie el siguiente código directamente en el formulario para realizar pruebas y obtendrá el sub-Form_Load() privado.

Representar n como un número entero

Marcar () como un solo

Marcar I como un número entero

Snack único

Dim o incluso simple

N = CInt(Val(InputBox("Ingrese el número de números almacenados en la matriz:"))))

Marque a(n ) para solteros

Suma = 0

Para i = 1 a n

A(i) = Val(InputBox("Ingrese el primero" & ; i & amp "Número(* * * " & n & amp "piezas"))

Suma = suma + a(i)

Entonces

par = suma/n

La suma de los números en la "matriz" de MsgBox es "&suma y.", el promedio es "&par

conector final