UC知道谁能帮我做一下VB题
来源：百度知道 编辑：UC知道 时间：2024/06/23 14:29:54
税务部门征收所得税，规定如下：1）收入在200元以内，免征;（2）收入在200～400元内，超过200元的部分纳税3%;（3）收入超过400元的部分，纳税4%;（4）当收入达到5000元或超过时，将4%税金改为5%，用VB编程序实现上述操作
Private Sub command1_Click()
Dim x, y As Single
x = InputBox("请输入", "收入 元")
If x < 200 Then
y = 0
ElseIf x >= 200 And x <= 400 Then
y = (x - 200) * 0.03
ElseIf 400 < x And x < 5000 Then
y = x * 0.04
ElseIf x >= 5000 Then
y = x * 0.05
End If
Print "收入" & x; "元" & "纳税" & y; "元"
End Sub
'x表示收入;y表示纳税
private sub command1_click()
n=inputbox("")
if n>=5000 then
m=(n-5000)*0.05+4600*0.04+200*0.03
print "征收";m;"元"
exit sub
end if
if n>400 then
m=(n-400)*0.04+200*0.03
print "征收";m;"元"
exit sub
end if
if n>200 then
m=（n-200)*0.03
print "征收";m;"元"
exit sub
end if
print "免征"
end sub