用VB编程个人税税率计算器拜托各位大神级数----------全月应纳税所得额----------税率(%) 1--------------不超过500元的-----------------5 2----------超过500元至2000元的部分----------10 3----------超过2000
来源:学生作业帮助网 编辑:作业帮 时间:2024/09/06 12:03:06
![用VB编程个人税税率计算器拜托各位大神级数----------全月应纳税所得额----------税率(%) 1--------------不超过500元的-----------------5 2----------超过500元至2000元的部分----------10 3----------超过2000](/uploads/image/z/9474208-16-8.jpg?t=%E7%94%A8VB%E7%BC%96%E7%A8%8B%E4%B8%AA%E4%BA%BA%E7%A8%8E%E7%A8%8E%E7%8E%87%E8%AE%A1%E7%AE%97%E5%99%A8%E6%8B%9C%E6%89%98%E5%90%84%E4%BD%8D%E5%A4%A7%E7%A5%9E%E7%BA%A7%E6%95%B0----------%E5%85%A8%E6%9C%88%E5%BA%94%E7%BA%B3%E7%A8%8E%E6%89%80%E5%BE%97%E9%A2%9D----------%E7%A8%8E%E7%8E%87%EF%BC%88%EF%BC%85%EF%BC%89++1--------------%E4%B8%8D%E8%B6%85%E8%BF%87500%E5%85%83%E7%9A%84-----------------5++2----------%E8%B6%85%E8%BF%87500%E5%85%83%E8%87%B32000%E5%85%83%E7%9A%84%E9%83%A8%E5%88%86----------10++3----------%E8%B6%85%E8%BF%872000)
用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