導航:首頁 > 編程語言 > vb編程輸入平面上任一點

vb編程輸入平面上任一點

發布時間:2024-10-24 10:31:02

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

閱讀全文

與vb編程輸入平面上任一點相關的資料

熱點內容
用什麼APP查指數 瀏覽:919
什麼是作品源碼 瀏覽:669
我的理想程序員該怎麼寫 瀏覽:840
英譯中國現代散文選pdf 瀏覽:446
裝飾設計模式java 瀏覽:21
linuxshell清屏命令 瀏覽:134
惠利app是什麼 瀏覽:779
游戲埠讀取伺服器失敗怎麼弄 瀏覽:878
linux修復mbr 瀏覽:128
磁碟格式化基本命令 瀏覽:578
程序員掉入異世界 瀏覽:954
andlua畫質助手源碼 瀏覽:577
winrar解壓格式怎麼看 瀏覽:147
qt編程入門pdf 瀏覽:599
php中是根據指針查的數據嗎 瀏覽:276
安卓手機驅動為什麼不能提取通用 瀏覽:708
轉行程序員失敗的人 瀏覽:728
延遲命令方塊 瀏覽:499
某視頻網站為什麼安卓可以投屏 瀏覽:651
伺服器解釋器在哪個文件夾 瀏覽:95