在窗体上有一个命令按钮（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
