ضروري حل هذا السؤال

[سيف سالم]

المشاركة الأصلية كتبت بواسطة rery fared

موظف يتقاضى مرتب شهرى (salary) ويعمل ساعات إضافية (overtime) فإذا كان المرتب وقيمة الساعات الإضافية ( Total)) أكبر من أو يساوى 2000 جنيها تكون الضرائب (Tax) بنسبة 15% ، وإلا تصبح الضرائب 10% .. المطلوب : أكتب كود البرنامج الذى يحقق أجمالى المرتب ونسبة الضرائب وصافى الدخل الشهرى (Netsalary).


ضروري حل هذا السؤال مع الشرح

Dim salary, overtime, Total, Tax, Netsalary As Decimal
salary = Val(TextBox1.Text)1
overtime = Val(TextBox2.Text)1
Total = salary + overtime
If Total >= 200 Then
Tax = Total * 15 / 100
Else
Tax = Total * 10 / 100
End If
Netsalary = Total - Tax
MsgBox(" salary=" & salary & " overtime=" & overtime & " Total=" & Total & " Tax=" & Tax & " Netsalary=" & Netsalary)1