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

请将实线以上功能的程序补充完整(（每空2分）：
Private Sub Command1_Click( )
x=" Val" (Text1.text)
If  x>0  Then
1    
ElseIf 2 Then
y = 0
ElseIf   x < 0   Then[]
y = Abs(x)    
End  If
3  
End Sub