- เข้าสู่ระบบล่าสุด
- 2011-10-20
- เวลาออนไลน์
- 37 ชั่วโมง
- จิตพิศัย
- 64
- Money
- 51
- สมัครสมาชิกเมื่อ
- 2009-12-20
- สิทธิ์ในการอ่าน
- 200
- โพสต์
- 136
- กระทู้
- 45
- สำคัญ
- 0
- เครดิต
- 64
- UID
- 2
 
- Money
- 51
- จิตพิศัย
- 64
- สมัครสมาชิกเมื่อ
- 2009-12-20
- เครดิต
- 64
- โพสต์
- 136
|
การคำนวณหาค่าภาษีจากเิงินเดือน ถ้าเงินเดือนมากกว่า 10,000 จะเสียภาษี 6% ของเงินเดือน และแสดงเงินเดือนที่เหลือ
- Module Tax
- Dim salary As Integer
- Dim total, tax As Decimal
- Sub Main()
- tax = 0
- total = 0
- Console.Write("Salary : ")
- salary = Console.ReadLine()
- If salary > 10000 Then
- tax = (salary * 6) / 100
- total = salary - tax
- Console.WriteLine("Tax 6% : " & tax & " Bath")
- Console.WriteLine("Total : " & total & " Bath")
- Else
- total = salary
- Console.WriteLine("Tax 6% : " & tax & " Bath")
- Console.WriteLine("Total : " & total & " Bath")
- End If
- End Sub
- End Module
ผลรัน
ผลรันถ้าเงินเดือนมากกว่า 10,000
|
|
