vb算工资个人所得税怎么编扣税方法：1 不超过500元 5% 0 2 超过500元至2000元 10% 25 3 超过2000元至5000元 15% 125 4 超过5000元至20000元 20% 375 5 超过20000元至40000元 25% 1375 6 超过40000元至60000元 30% 3375 7

vb算工资个人所得税怎么编
扣税方法：
1 不超过500元 5% 0
2 超过500元至2000元 10% 25
3 超过2000元至5000元 15% 125
4 超过5000元至20000元 20% 375
5 超过20000元至40000元 25% 1375
6 超过40000元至60000元 30% 3375
7 超过60000元至80000元 35% 6375
8 超过80000元至100000元 40% 10375
9 超过100000元 45% 15375
不要点击按钮算 是直接在一个文本框输入工资 后 在另外一个文本框或是标签里自动显示出来的

Option Explicit
Private Sub Text1_Change()
Dim a As Currency
a = Val(Text1.Text)
Select Case a
Case Is