Ⅰ 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了