Translate

miércoles, 5 de junio de 2013

Parcial de Visual Basic

Elabore un programa que solicite N cantidad de empleados, a cada empleado debe calcular el sueldo (sueldo = número de horas trabajadas por valor de la hora). Calcular la usma total de todos los sueldos, si dicha suma es mayor a 50.000 muestre un mensaje que diga " Nomina Excedida", de lo contrario muestre un mensaje que diga "Nomina dentro del rango".

Private Sub CommandButton1_Click()
Dim H, PH, S, N, ST, E As Long
acum = 0
N = Val(InputBox("Digite la cantidad de empleados"))
For i = 1 To N
H = Val(InputBox("Digite el numero de horas trabajadas"))
PH = Val(InputBox("Digite el valor de lo que gana por hora"))
S = H * PH
acum = acum + S
Next i
E = MsgBox(" El sueldo total es: " & acum)
If acum > 50000 Then
MsgBox ("Nomina excedida ")
Else
MsgBox ("Nomina dentro del rango ")
End If
End Sub
Elabore un algoritmo que calcule el promedio de X cantidad de estudiantes, si dicho promedio es mayor a 8 imprima "El curso tiene buen promedio" de lo contrario imprima "El grupo debe mejorar"

Private Sub CommandButton1_Click()
Dim P, X, N As Long
acum = 0
X = Val(InputBox("Digite el numero de estudiantes"))
For i = 1 To X
N = Val(InputBox("Digite una nota"))
acum = acum + N
Next i
acum = acum / X
MsgBox (" El promedio es: " & acum)
If acum > 8 Then
MsgBox ("El curso tiene buen promedio")
Else
MsgBox ("El curso debe mejorar")
End If
End Sub