vb编程中用selectcase计算个人所得税

界面如下图所示。输入某员工的工资总额后，计算其应交税款（假定如下：当月收入不足800元时，不纳税；800～1000元时，纳税率为5％；1300～2800元时，纳税率为10％；2800～5800元时，纳税率为15％；5800元以上时为20％）

跪求高手解答！

Private Sub Command1_Click()
Select Case Val(Text2.Text)
Case Is < 800
Text3.Text = 0
Combo1.Text = "小于800"
Text1.Text = "不用纳税"

Case 800 To 1300
Text3.Text = Val(Text2.Text) * 0.05
Combo1.Text = "800~1300"
Text1.Text = "应纳税5%"

Case 1300 To 2800
Text3.Text = Val(Text2.Text) * 0.1
Combo1.Text = "1300~2800"
Text1.Text = "应纳税10%"

Case 2800 To 5800
Text3.Text = Val(Text2.Text) * 0.15
Combo1.Text = "2800~5800"
Text1.Text = "应纳税15%"

Case Is > 5800
Text3.Text = Val(Text2.Text) * 0.2
Combo1.Text = "大于5800"
Text1.Text = "应纳税20%"

End Select

End Sub

这个代码我有...原理一样的,只要稍加修改就可以了!需要请留下E-MAIL或者M我

Private Sub Command1_Click() Select Case Val(Text1.Text) Case Is < 800 Text2.Text = 0

Case 800 To 1000 Text2.Text = Val(Text1.Text) * 0.05

Case 1300 To 2800 Text2.Text = Val(Text1.Text) * 0.1

Case 2800 To 5800 Text2.Text = Val(Text1.Text) * 0.15

Case Is > 5800 Text2.Text = Val(Text1.Text) * 0.2

End Select

End Sub

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息