如何用VB编程：用点的坐标判断它在第几象限？

急求！请高手指点！...

2026年09月22日 05:07

有1个网友回答

网友（1）：

Private Sub Form_Load()
Dim x As Double, y As Double
x = CDbl(InputBox("输入x的坐标"))
y = CDbl(InputBox("输入x的坐标"))

If x > 0 And y > 0 Then
MsgBox "第一象限"
ElseIf x > 0 And y < 0 Then
MsgBox "第四象限"
ElseIf x < 0 And y > 0 Then
MsgBox "第二象限"
ElseIf x < 0 And y < 0 Then
MsgBox "第三象限"
ElseIf x = 0 And y = 0 Then
MsgBox "原点"
ElseIf x = 0 Then
MsgBox "y轴"
ElseIf y = 0 Then
MsgBox "x轴"
End If
End Sub