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

This page is for people who like music in English

Diamonds cancion escrita por la famosa cantante Rihanna

 

 

 

 

Rihanna

 

 

Avicii cuyo verdadero nombre es Tim Bergling autor de canciones como "i could be the one"

 

 

 

 

 

Este video se llama "scream and shout" hecho por Britney Spears y will.i.am

 

 

 

 

 

 

Britney Spears

 

 

Will.i.am