Estadísticas de programación Vb

Subcomando privado 1_Click()

Dim n, sum, s, arr(), I

Hago

S = cuadro de entrada ("Ingresar salario")

Si Val =-1, sale Do

n = n + 1

ReDim conserva la matriz (1 a n)

arr (n) = Val(s)

Suma = suma + matriz(n)

Anillo

n = 0

Suma = Límite total/inferior (arr)

Imprimir "Número de personas":&UBound(arr), "Salario promedio:"&Suma

Imprimir "Salario de empleados por encima del salario promedio":

Para i = 1 a UBound(arr)

Si arr(i)>suma entonces imprime arr(I

Entonces

< p); >Conector final