编写一个计算个人所得税的程序(用VB编写)
来源:学生作业帮 编辑:搜搜做题作业网作业帮 分类:综合作业 时间:2024/06/28 05:43:34
编写一个计算个人所得税的程序(用VB编写)
应纳个人所得税税额=(应纳税所得额—2000)x通用税率.税率计算方法如下.
1、不超过500元的部分,税率5%
2、超过500元至2000元的部分,税率10%
3、超过2000元至5000元的部分,税率15%
4、超过5000的部分,税率20%
应纳个人所得税税额=(应纳税所得额—2000)x通用税率.税率计算方法如下.
1、不超过500元的部分,税率5%
2、超过500元至2000元的部分,税率10%
3、超过2000元至5000元的部分,税率15%
4、超过5000的部分,税率20%
![编写一个计算个人所得税的程序(用VB编写)](/uploads/image/z/1295779-67-9.jpg?t=%E7%BC%96%E5%86%99%E4%B8%80%E4%B8%AA%E8%AE%A1%E7%AE%97%E4%B8%AA%E4%BA%BA%E6%89%80%E5%BE%97%E7%A8%8E%E7%9A%84%E7%A8%8B%E5%BA%8F%EF%BC%88%E7%94%A8VB%E7%BC%96%E5%86%99%EF%BC%89)
Private Sub Command1_Click()
Dim a,x As Single
a = Val(Text1.Text)
If a
再问: x = x + a * 0.2 + 3000 * 0.2 怎么都乘0.2呀?
Dim a,x As Single
a = Val(Text1.Text)
If a
再问: x = x + a * 0.2 + 3000 * 0.2 怎么都乘0.2呀?