用VB编程个人税税率计算器拜托各位大神级数----------全月应纳税所得额----------税率（％） 1--------------不超过500元的-----------------5 2----------超过500元至2000元的部分----------10 3----------超过2000
来源：学生作业帮助网 编辑：六六作业网 时间：2024/12/19 15:16:04
用VB编程个人税税率计算器拜托各位大神级数----------全月应纳税所得额----------税率（％） 1--------------不超过500元的-----------------5 2----------超过500元至2000元的部分----------10 3----------超过2000
用VB编程个人税税率计算器拜托各位大神
级数----------全月应纳税所得额----------税率（％） 1--------------不超过500元的-----------------5 2----------超过500元至2000元的部分----------10 3----------超过2000元至5000元的部分---------15 4----------超过5000元至20000元的部分--------20 5----------超过20000元至40000元的部分-------25 6----------超过40000元至60000元的部分-------30 7----------超过60000元至80000元的部分-------35 8----------超过80000元至100000元的部分------40 9----------超过100000元的部分---------------45
用VB编程个人税税率计算器拜托各位大神级数----------全月应纳税所得额----------税率（％） 1--------------不超过500元的-----------------5 2----------超过500元至2000元的部分----------10 3----------超过2000
Dim b As Long b = Val(Text1.Text) Select Case b Case Is > 100000 Text1.Text = (b - 100000) * 0.45 + 29250 Case 80000 To 100000 Text1.Text = (b - 80000) * 0.4 + 21250 Case 60000 To 80000 Text1.Text = (b - 60000) * 0.35 + 14250 Case 40000 To 60000 Text1.Text = (b - 40000) * 0.3 + 8625 Case 20000 To 40000 Text1.Text = (b - 20000) * 0.25 + 3625 Case 5000 To 20000 Text1.Text = (b - 5000) * 0.2 + 625 Case 2000 To 5000 Text1.Text = (b - 2000) * 0.15 + 175 Case 500 To 2000 Text1.Text = (b - 500) * 0.1 + 25 Case 0 To 500 Text1.Text = b * 0.05 Case Else MsgBox "输入错误!" End Select