该代码已经编写,但是有错误,请尝试一下,可能是我的VB6.0有问题,已发送给您
楼上的权威人士,如果个人收入低于1600元的门槛,我该如何缴纳个人所得税?真是笑话!
复制此代码,您只需要构建表单中的Command1控件。
私人子Command1_Click()
昏暗
s = Val(修剪(InputBox(“个人收入:”,“个人所得税计算”,2000年)))
打印“个人收入是”; s; “元,应交个人所得税”;
如果s <= 1600,则
打印0
其他
s = s-1600"如果个人收入高于阈值,请计算个人应付款
选择大小写
大小为<= 500:s = s * 0.05
情况为<= 2000:s = s * 0.1-25
大小为<= 5000:s = s * 0.15-125
结束选择
打印格式(s,“ 0.00”)"如果个人收入为小数,请使用格式来控制格式
万一
结束子