在窗体上有一个命令按钮(Command1)和两个文本框(Text1和Text2),然后编写了如下事件过程,要求:在文本框Text1中输入一个数值x,根据下面的分段函数计算y的结果,并将y值显示在文本框Text2中。

请将实现以上功能的程序补充完整:
Private Sub Command1_Click( )
x= Val (Text1.text)
If x>0 Then
____
ElseIf ____ Then
y = 0
ElseIf x < 0 Then
y = Abs(x)
End If
____
End Sub