?

Private Sub Command1_Click()

?Dim s

?s = Val(Trim(InputBox("個(gè)人收入：", "個(gè)人所得稅計(jì)算", 2000)))

?Print "個(gè)人收入為"; s; "元時(shí)，應(yīng)繳納的個(gè)人所得稅為";

If s <= 1600

Then Print 0

Else s = s - 1600 '如果個(gè)人收入高于起征點(diǎn)，則計(jì)算個(gè)人應(yīng)得額

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") '如果個(gè)人收入是帶小數(shù)的，則用Format控制格式

?End If

?End Sub

總結(jié)

以上是生活随笔為你收集整理的个人纳税计算程序的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。