Red de conocimiento informático - Conocimiento informático - Planificación en temas salariales

Planificación en temas salariales

Subcomando privado 1_Click()

Dim max es un número entero, min es un número entero

Dim a() a un doble

N = CInt(InputBox( " Cuántas personas:"))

Redim

Valor máximo = 1: Valor mínimo = 1

Para i = 1 a n

A(i) = Val(InputBox("Ingrese el primero" &;i&"Salario personal:"))

Si a(i)>a(max) entonces max = i

Si a(I)<a(min) entonces min = i

s = s + a(i)

Imprime a( 1);

Siguiente I

Imprimir

Imprimir "salario promedio="; número de serie

Imprimir "salario máximo=" ;Máximo

Imprimir "salario mínimo=";a(minutos)

Finalizar conector