EXAMEN FINAL TERCER PERIODO (VISUAL BASIC)

  Enunciado I:
 
I )  Elabore un programa que solicite N cantidad de empleados, A cada empleado debe calcular el sueldo (sueldo = numero de horas trabajadas por el valor de la hora). Calcular la suma total de todos los suedos, si dicha suma es mayor a 50000 muestre un mmensaje que diga "Nomina exedida", de lo contrario muestre un mensaje que diga "Nomina dentro del rango". 
  
 Desarrollo:

Dim a, b, s, i, x As Long
x = Val(InputBox("Dijite el numero de trabajadores"))
For i = 1 To x
 a = Val(InputBox("Dijite su numero de horas trabajadas"))
 b = Val(InputBox("Dijite el sueldo por hora"))
Next i
s = a * b
h = h + s
If h > 50000 Then
MsgBox ("Nomina Excedida")
Else
MsgBox ("Nomina dentro del rango")
End If
End Sub


  Enunciado II:

II )Elabore un algoritmo que calcule el promedio de notas 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".

 Desarrollo:

Dim x, h, a, s, i As Integer
x = Val(InputBox("Dijite la cantidad de estudiantes"))
s = 0
For i = 1 To x
 a = Val(InputBox("dijite la nota"))
 s = s + a
Next i
h = s / x
If h > 8 Then
MsgBox ("El curso tiene buen promedio")
Else
MsgBox ("El curso debe mejorar")
End If
End Sub



jejeje
<div style="text-align:justify">
</div>