UC知道继续求解VB的
来源：百度知道 编辑：UC知道 时间：2024/06/18 23:48:15
题目是：
税务部门征收所得税，规定如下：收入在2000元以内（含2000元），免征；收入在2000~4000元内，超过2000元的部分纳税3%；收入在4000~5000以内，超过2000元的部分纳税3%，超过4000元的部分纳税4%；收入超过5000元时，5000元以内按上述办法纳税，超过5000元的部分纳税5%。现输入收入，输出应交所得税。
税务部门征收所得税，规定如下：收入在2000元以内（含2000元），免征；收入在2000~4000元内，超过2000元的部分纳税3%；收入在4000~5000以内，超过2000元的部分纳税3%，超过4000元的部分纳税4%；收入超过5000元时，5000元以内按上述办法纳税，超过5000元的部分纳税5%。现输入收入，输出应交所得税。
赶时间，现吧简单点的写上吧
你说题目的就是在这个的基础上多加几个IF的嵌套。
在窗体上画两个TEXT，双击TEXT1,加入下列代码
Private Sub Text1_Change()
On Error GoTo 1
Dim ShouRu As Double
ShouRu = Text1.Text
If ShouRu <= 2000 Then
Text2.Text = 0
ElseIf ShouRu > 2000 And ShouRu <= 4000 Then
Text2.Text = ShouRu * 0.03
ElseIf ShouRu > 4000 And ShouRu <= 5000 Then
Text2.Text = ShouRu * 0.04
ElseIf ShouRu > 5000 Then
Text2.Text = ShouRu * 0.05
End If
1
End Sub
http://zhidao.baidu.com/question/14668201.html
这是一本VB教程中的一道题吧,就是上楼说的那样,加几个IF语句和IF的嵌套就OK了.好好看看书就会了.