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.
Private Sub Command1_Click()
Dim n, sum, s, arr(), i
Do
s = InputBox("Input Wage") p>
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);