Vb matriz unidimensional, asignación, suma, promedio, ¿cómo programar?

El siguiente es un ejemplo de datos simple, que incluye asignación, suma y promedio:

Dim?a(4)?As?Long?'define array a(4)

¿Privado? Sub?Command1_Click()

Dim?i?As?Long,?x?As?Long?Asignar un valor a una matriz

Imprimir?"a("? amp ;? i?amp;?") ="? amp;?a(i)

x?=?x? ?a(i) 'Calcular la suma de la matriz

Siguiente paso

Imprimir?"La suma de la matriz es: "? amp;?x

y?=?x?/? (UBound(a)? ?1)' promedio

p>

¿Imprimir? "El promedio de la matriz es: "? amp;?y

Fin?