UC知道一道计算机高一会考题
来源：百度知道 编辑：UC知道 时间：2024/06/07 18:43:04
劳务报酬所得税规定：劳务报酬收入不足800元的，不用纳税；劳务报酬收入不足4000元的，税收为报酬收入减去800元后的20%；劳务报酬收入超过4000元的，税收为报酬收入的16%。设计一个程序，根据输入的劳务报酬收入计算劳务报酬所得税。
解决此问题的流程图如下所示。
根据流程图编写的Visual Basic程序如下，其中x表示劳务报酬，y表示劳务报酬所得税。在(1)和(2)划线处，填入合适的语句或表达式，把程序补充完整。
Private Sub Command1_Click()
Dim x As Single, y As Single
x = Val(Text1.Text)
If x <= 800 Then
____(1)_____
Else
If____ (2)_____Then
y = (x - 800)*0.2
Else
y = x * 0.16
End If
End If
Text2.Text = Str(y)
End Sub
程序中划线处(1)应填入______。
程序中划线处(2)应填入______。
（1）中 开始我也填 y = 0 但是 不对啊
解决此问题的流程图如下所示。
根据流程图编写的Visual Basic程序如下，其中x表示劳务报酬，y表示劳务报酬所得税。在(1)和(2)划线处，填入合适的语句或表达式，把程序补充完整。
Private Sub Command1_Click()
Dim x As Single, y As Single
x = Val(Text1.Text)
If x <= 800 Then
____(1)_____
Else
If____ (2)_____Then
y = (x - 800)*0.2
Else
y = x * 0.16
End If
End If
Text2.Text = Str(y)
End Sub
程序中划线处(1)应填入______。
程序中划线处(2)应填入______。
（1）中 开始我也填 y = 0 但是 不对啊
(1) y=0
(2) x>=800 and x<4000
调试了
程序运行正确啊 ！
如果错误的话！题目应该是
Private Sub Command1_Click()
Dim x As Single, y As Single
x = Val(Text1.Text)
If x < 800 Then (不足800元）
y=0
Else
If x>=800 and x<4000 Then (不足4000元）
y = (x - 800)*0.2
Else （高于等于4000）
y = x * 0.16
End If
End If
Text2.Text = Str(y)
End Sub