ficha de trabalho numero 16 exercicio 1

Private Sub Command1_Click()
Dim x As Integer

x = Val(InputBox("Introduza o salário do funcionário", "Salário"))
y = Val(InputBox("Introduza o código do cargo do funcionário", "Cargo"))

If y = 101 Then
aumento = x * 0.1
salario = x + aumento

ElseIf y = 102 Then
aumento = x * 0.12
salario = x + aumento

ElseIf y = 103 Then
aumento = x * 0.08
salario = x + aumento

Else

aumento = x * 0.05
salario = x + aumento

End If

Label1.Caption = x
Label2.Caption = salario
Label3.Caption = aumento
End Sub

Private Sub Command2_Click()
If MsgBox("Quer mesmo sair?", vbQuestion + vbOKCancel, "Sair") = vbOK Then
End
End If
End Sub