UC知道用VB编写一个个人所得税计算程序
来源：百度知道 编辑：UC知道 时间：2024/06/14 07:39:20
根据收入计算应缴个人所得税（个人所得税=个人应得额（个人收入—起征点）*税率—速算扣除数，假设起征点为1600元，其他如表）
级数 应纳税所得额 税率 (%) 速算扣除数
1 x<=500 5 0
2 500<x<=2000 10 25
3 2000<x<=5000 15 125
4 5000<x<=20000 20 375
5 20000<x<=40000 25 1375
6 40000<x<=60000 30 3375
7 60000<x<=80000 35 6375
8 80000<x<=100000 40 10375
9 X>1000000 45 15375
级数 应纳税所得额 税率 (%) 速算扣除数
1 x<=500 5 0
2 500<x<=2000 10 25
3 2000<x<=5000 15 125
4 5000<x<=20000 20 375
5 20000<x<=40000 25 1375
6 40000<x<=60000 30 3375
7 60000<x<=80000 35 6375
8 80000<x<=100000 40 10375
9 X>1000000 45 15375
x=val(inputbox("输入金额"))
select case x
case is <=500
print x*0.05
case is <=2000
print x*0.1-25
..
.类推
case is >1000000
print x*0.45-15375
end select
我这有两个用 vb 写的小函数，一个可按应税收入求个税，另一个是根据税额倒求应税收入。你的 QQ 或邮箱？