请将实现以上功能的程序补充完整:
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