VB程序,求高手.输入坐标（X,Y）,根据X和Y的值确定坐标所在的象限或坐标轴或原点

我写了一下比楼上的详细一点
Private Sub Form_Load()
x = InputBox("请输入X坐标", "")
y = InputBox("请输入Y坐标", "")
If x < 0 And y > 0 Then
MsgBox "这个坐标在第二象限!", vbInformation, ""
ElseIf x < 0 And y < 0 Then
MsgBox "这个坐标在第三象限!", vbInformation, ""
ElseIf x > 0 And y > 0 Then
MsgBox "这个坐标在第一象限!", vbInformation, ""
ElseIf x > 0 And y < 0 Then
MsgBox "这个坐标在第四象限!", vbInformation, ""
ElseIf x > 0 And y = 0 Then
MsgBox "这个坐标在X轴的正半轴上!", vbInformation, ""
ElseIf x < 0 And y = 0 Then
MsgBox "这个坐标在X轴的负半轴上!", vbInformation, ""
ElseIf x = 0 And y < 0 Then
MsgBox "这个坐标在Y轴的负半轴上!", vbInformation, ""
ElseIf x = 0 And y > 0 Then
MsgBox "这个坐标在Y轴的负正轴上!", vbInformation, ""
ElseIf x = 0 And y = 0 Then
MsgBox "这个坐标在原点上!", vbInformation, ""
End If
End Su