用VB程序编写个人所得税-用vb计算个人所得税

编写一个计算个人所得税的程序（用VB编写）

私人子Command1_Click（）

尺寸为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）

结束子

用VB编写一个个人所得税计算程序

楼上的权威人士，如果个人收入低于1600元的门槛，我该如何缴纳个人所得税？真是笑话！

复制此代码，您只需要构建表单中的Command1控件。

私人子Command1_Click（）

昏暗

s = Val（修剪（InputBox（“个人收入：”，“个人所得税计算”，2000年）））

打印“个人收入是”； s; “元，应交个人所得税”；

如果s <= 1600，则

打印0

其他

s = s-1600&quot;如果个人收入高于阈值，请计算个人应付款

选择大小写

大小为<= 500：s = s * 0.05

情况为<= 2000：s = s * 0.1-25

大小为<= 5000：s = s * 0.15-125

结束选择

打印格式（s，“ 0.00”）&quot;如果个人收入为小数，请使用格式来控制格式

万一

结束子

用VB语言编写个人所得税计算程序

私人子command1_click（）

将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）

结束子