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 p>
Si a(I)<a(min) entonces min = i
s = s + a(i)
Imprime a( 1); p>
Siguiente I
Imprimir
Imprimir "salario promedio="; número de serie
Imprimir "salario máximo=" ;Máximo
Imprimir "salario mínimo=";a(minutos)
Finalizar conector