楼上的权威人士,如果个人收入少于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”)"如果个人收入为小数,请使用格式来控制格式
万一
结束子
尺寸为a,x为单
a = Val(Text1.Text)
如果<= 2000则
x = 0
a = a-2000
如果<= 500那么
x = a * 0.05
x = 500 * 0.05
a = a-500
如果<= 1500,则
x = x + a * 0.1
x = x + 1500 * 0.1
a = a-1500
如果<= 3000那么
x = x + a * 0.15
a = a-3000
x = x + a * 0.2 + 3000 * 0.2
Text2.Text = Str(x)