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

来源：学生作业帮助网 编辑：作业帮 时间：2024/07/11 22:30:58
VB程序,求高手.输入坐标（X,Y）,根据X和Y的值确定坐标所在的象限或坐标轴或原点
x) sz~g^[žO[>;ق{:"t"y`uO'D>a랮Q@9Y4[@ϛv$c,NK;m lg|Ɏ';l';@Z/{$SPYX\_ PU+(-qʯPz~;kt ++P虦P``P`dd|Ӂ^d*V׬yeEQeIyi@&dLkv)NE3܆Hwtm.@DdnK$L,.~dIAO/'[)B;e"b 43 fg

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

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 Sub