Ⅰ VB编程,输入平面上任一点的坐标(x,y),判断并显示该点位于哪个象限的信息
Dim InX as long ,InY as long
InX = val(inputbox("请输入X轴数值"))
InY = val(inputbox("请输入Y轴数值"))
if InX>0 then
if InY>0 then 'X,Y >0 第一象限
msgbox "坐标(" & inx & "," & Iny & ") 在第一象限"
elseif InY<0 then ' X> 0 >Y第四象限
msgbox "坐标(" & inx & "," & Iny & ") 在第四象限"
end if
elseif InX<0 then
if InY>0 then 'Y>0>X 第二象限
msgbox "坐标(" & inx & "," & Iny & ") 在第二象限"
elseif InY<0 then ' X<Y<0 第三象限
msgbox "坐标(" & inx & "," & Iny & ") 在第三象限"
end if
elseif InX=0 then
if InY=0 then
msgbox "坐标在原点"
elseif InY <>0 then
msgbox "坐标在X轴上"
end if
end if
if InY=0 then
if InX<>0 then
msgbox "坐标在Y轴上"
end if
end if
'懒得开VB了