Here, Gross Salary is equal to basic salary plus commission.
If basic salary >=15000 then commission is 10% of basic salary. If basic
salary <15000 and >=8000 then commission is 5% of basic salary. If basic
salary <8000 then commission is 100/-
Option explicit
Dim gross, basic, comm
basic=inputbox("Enter Basic salary of an Employee
:")
If basic>=15000 Then
comm=basic*10/100
elseif
basic<15000 and basic>=8000 Then
comm=basic*5/100
else
comm=100
End If
gross=basic+comm
msgbox("Gross salary of Employee is :"&gross)
No comments:
Post a Comment