VB 个人说得税计算

显示全部楼层 · 2010-8-14 16:35:46

有两个文本框和一个按钮，在第一个文本框输入金额点击按钮算出来的结果在第二个文本框显示
征缴个人所得税的计算方法(起征点2000元)，使用超额累进税率的计算方法如下：
缴税=金额*税率－速算扣除数
扣税方法：
级数应纳税所得额（含税所得额）税率%速算扣除数（元）
一不超过500元
5
0
二超过500元至2000元
10
25
三超过2000元至5000元
15
125
四超过5000元至20000元
20
375
五超过20000元至40000元
25
1375
六超过40000元至60000元
30
3375
七超过60000元至80000元
35
6375
八超过80 000元至100000元
40
10375
九超过100000元
45
15375
大概计算方法金额*税率%-速算扣除数

千问 · 2010-8-14 16:35:46

Private Sub Command1_Click()If Text1.Text = "" ThenMsgBox "请输入数字"Exit SubEnd Ifa = Val(Text1.Text) - 2000If a500 And a2000 And a