vb 个税计算器

功能要求：

1、  税率表

应纳个人所得税税额=（应纳税所得额－扣除标准）*适用税率-速算扣除数

纳税基数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

超过80000元至100000元的部分，税率40%，速算扣除数为10375

超过100000元的部分，税率45%，速算扣除数为15375

例如：个人收入1800，不纳税

    个人收入2250元，纳税额（（2250-2000）-0）*5% +0 

    个人收入3500元，纳税额（（3500-2000）-500）*10%+25

    个人收入9000元，纳税额（（9000-2000）-5000）*20%+125

2、  要求输入任意工资（可不足一元），计算应缴纳所得税。

追问：写一下  做这题的感受 遇到什么问题 什么的  谢谢  老师留得作业545480776@qq.com   我不懂 你什么意思

答案：'添加控件Command1，
'控件Text1输入工资，控件Text2输出应缴纳所得税
Private Sub Command1_Click()
Dim t As Currency
t = Text1 - 2000
Select Case t
Case Is <= 0
Text2 = 0
Case Is <= 500
Text2 = t * 0.05 - 0
Case Is <= 2000
Text2 = t * 0.1 - 25
Case Is <= 5000
Text2 = t * 0.15 - 125
Case Is <= 20000
Text2 = t * 0.2 - 375
Case Is <= 60000
Text2 = t * 0.25 - 1375
Case Is <= 80000
Text2 = t * 0.3 - 3375
Case Is <= 100000
Text2 = t * 0.35 - 6375
Case Is > 100000
Text2 = t * 0.45 - 15375
End Select
End Sub

Private Sub Form_Load()
Me.Caption = "个税计算器"
Command1.Caption = "个税计算"
End Sub

其他：其他多余的网页内容我已经搞掉了，我只想要他那个计算器的内容，我不知道不会写js事件吗，我给你写了个简单例子，做加法的，和你那个意思差不多， 

上一个：简单VB 程序 请高手帮下忙看看是那错了，而且 Command1的哪一步看着不是很明白请帮忙解释下
下一个：做完以下题目得再加50！（关于vb)要快