"Parcial visual"

Ejercicios de visual basic

1. 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 sueldos, si dicha suma es mayor a 50000 muestre un mensage que dija " Nomina Excedida" , de lo contrario muestre un mensaje que dija "Nomina dentro del rango".

Dim N, sueldo, nh, ht As Long
sueldo = 0
N = Val(InputBox("Dijite la cantidad de empleados "))
For i = 1 To N
nh = Val(InputBox("Dijite la cantidad de horas trabajadas"))
ht = Val(InputBox("Dijite el numero de horas trabajadas"))
sueldo > 50000
N = (MsgBox("Nomina excedida"))
N = (MsgBox("Nomina dentro del rango"))
End If
End Sub

2. Elabore un algoritmo que calcule el promedio de X cantidad de estudiantes, si dicho promedio es mayor a 8 imprima "El curso tiene un buen promedio" de lo contrario imprima "el grupo debe mejorar"

Dim X, prom, n As Long
X = (InputBox("dijite la cantidad de estudiantes"))
prom > 8 Then
prom = (MsgBox("El curso tiene un buen promedio"))
prom = (MsgBox("el grupo debe mejorar"))
End If
End Sub