一道计算机高一会考题劳务报酬所得税规定：劳务报酬收入不足800元的,不用纳税；劳务报酬收入不足4000元的,税收为报酬收入减去800元后的20%；劳务报酬收入超过4000元的,税收为报酬收入的16

Question

一道计算机高一会考题
劳务报酬所得税规定：劳务报酬收入不足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
（1）中 开始我也填 y = 0 但是 不对啊

Answer 1

(1) y=0
(2) x>=800 and x=800 and x