Question

vb，输入平面上任一点的坐标，判断显示该点位于哪个象限 坐标形式输入（2,4）或2,4都要能执行

Answer 1

昏，这么简单
看我的
txt=Replace(txt,"(","")
txt=Replace(txt,")","")
Function decide(ByVal txt As String)
Dim x, y As Integer
Dim loc As Variant
loc = Split(txt, ",")
x = Val(loc(0))
y = Val(loc(1))
If x > 0 And y > 0 Then
MsgBox "第1象限"
ElseIf x < 0 And y > 0 Then
MsgBox "第2象限"
ElseIf x < 0 And y < 0 Then
MsgBox "第3象限"
ElseIf x > 0 And y < 0 Then
MsgBox "第4象限"
End If
End Function