个人纳税计算程序

 

Private Sub Command1_Click()

 Dim s

 s = Val(Trim(InputBox("个人收入：", "个人所得税计算", 2000)))

 Print "个人收入为"; s; "元时，应缴纳的个人所得税为";

If s <= 1600

Then Print 0

Else s = s - 1600 '如果个人收入高于起征点，则计算个人应得额

Select Case s

 Case Is <= 500: s = s * 0.05

Case Is <= 2000: s = s * 0.1 - 25

Case Is <= 5000: s = s * 0.15 - 125

 Case Is <= 20000: s = s * 0.2 - 375

 Case Is <= 40000: s = s * 0.25 - 1375

 Case Is <= 60000: s = s * 0.3 - 3375

Case Is <= 80000: s = s * 0.35 - 6375

 Case Is <= 100000: s = s * 0.4 - 10375

 Case Is > 1000000: s = s * 0.45 - 15375

End Select

Print Format(s,"0.00") '如果个人收入是带小数的，则用Format控制格式

 End If

 End Sub