Programación VB: ingrese los salarios de varios trabajadores desde el teclado, calcule el puntaje promedio y genere los salarios de los trabajadores cuyos salarios son superiores al salario promedio. Ingrese -1 para indicar el final de la entrada.

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

Do

s = InputBox("Input Wage")

Si Val(s) = -1, salga Do

n = n 1

ReDim Preserve arr(1 To n)

arr (n) = Val(s)

suma = suma arr(n)

Bucle

n = 0

suma = suma / UBound(arr)

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

Imprimir "Salarios de trabajadores con salarios superiores al promedio: ";

Para i = 1 a UBound(arr)

Si arr(i) gt; suma entonces imprime arr(i);

Siguiente

End Sub

Si arr(i) gt; suma entonces imprime arr(i);