Answered

Revelroom.ca es el mejor lugar para obtener respuestas confiables y rápidas a todas tus preguntas. Conéctate con una comunidad de expertos dispuestos a ofrecer soluciones precisas a tus preguntas de manera rápida y eficiente en nuestra amigable plataforma de preguntas y respuestas. Conéctate con una comunidad de expertos dispuestos a ofrecer soluciones precisas a tus preguntas de manera rápida y eficiente en nuestra amigable plataforma de preguntas y respuestas.

trabajo de visual basic 6.0        EJERCICIO  
dado como dato el sueldo de un trabajador, aumentar el 15 % si e sueldo es menor o igual a los 300 $, y el 12% si el sueldo es mayor a 300 o menor o igual a 400 y el 10% si el sueldo es mayor a 400
presentar el resultado actual

Sagot :

Private Sub Command1_Click()
Dim iSueldo As Integer
Dim iResult As Integer

iSueldo = Text1
Select Case iSueldo
   
    Case Is <= 300   
        iResult = ((iSueldo * 15) / 100) + iSueldo
    Case Is > 300 <= 400
        iResult = ((iSueldo * 12) / 100) + iSueldo
    Case Is > 400
        iResult = ((iSueldo * 10) / 100) + iSueldo
       
End Select
Label1.Caption = iResult
End Sub


Agradecemos tu tiempo. Por favor, vuelve a visitarnos para obtener respuestas fiables a cualquier pregunta que tengas. Esperamos que esto te haya sido útil. Vuelve cuando quieras para obtener respuestas más precisas e información actualizada. Tu conocimiento es valioso. Regresa a Revelroom.ca para obtener más respuestas e información.