点坐标判断它在第几象限 用VB程序怎么写？

Private Sub CommandButton1_Click()

If TextBox1 > 0 And TextBox2 > 0 Then

TextBox3 = "该点在第一象限"

End If

If TextBox1 > 0 And TextBox2 < 0 Then

TextBox3 = "该点在第二象限"

End If If TextBox1 <0 And TextBox2 >0 Then

TextBox3 = "该点在第三象限"

End If If TextBox1 <0 And TextBox2 < 0 Then

TextBox3 = "该点在第四象限"

End If If TextBox1 = 0 Then

TextBox3 = "该点y轴上"

End If If TextBox2 = 0 Then

TextBox3 = "该点x轴上"

End IfEnd Sub

扩展资料：

求点的坐标的方法：

1、求线段长法

根据点到x轴的距离等于该点纵坐标的绝对值，到y轴距离等于该点横坐标的绝对值，只要能够确定该点到x、y轴的距离，再结合点所在的象限写出点的坐标； 

2、代入法

若已知该点的横坐标或纵坐标，可将已知的坐标代入点所在函数的解析式来求另一坐标；

3、交点法

把点看作两条函数图象的交点，求出两函数的解析式，并将它们联立成方程组，解这个方程组得到的x、y就是交点的横、纵坐标；

4、列方程（组）法

设出点的坐标（x ，y），列出关于x或y的方程（组），解出x、y可得结果。

参考资料来源：百度百科-点坐标