1樓：然後去遠足
private sub command1_click()
if text1.text = 0 or text2.text = 0 then
text3.text = "該座標在座標軸上，不在象限內！"
exit sub
end if
if text1.text > 0 and text2.text > 0 then
text3.text = "第一象限"
elseif text1.text < 0 and text2.text > 0 then
text3.text = "第二象限"
elseif text1.text < 0 and text2.text < 0 then
text3.text = "第三象限"
else
text3.text = "第四象限"
end if
end sub
2樓：難得糊塗
private sub command1_click()
if val(text1) = 0 and val(text2) = 0 then text3 = "中心點": exit sub 'x,y同時為0時，為中心點
if val(text1) > 0 and val(text2) > 0 then text3 = "第一象限": exit sub 'x為正時，y為正時為第一象限
if val(text1) < 0 and val(text2) > 0 then text3 = "第二象限": exit sub 'x為負時，y為正時為第二象限
if val(text1) < 0 and val(text2) < 0 then text3 = "第三象限": exit sub 'x為負時，y為負時為第三象限
if val(text1) > 0 and val(text2) < 0 then text3 = "第四象限" 'x為正時，y為負時為第四象限
end sub
'象限圖如下：
' |
' |
' 第一象限 | 第二象限
' |
' |
'------------------------------- x座標
' |
' |
' 第三象限 | 第四象限
' |
' y座標
請參考附件。
3樓：信任從現在開始
這個不就是獲取兩個控制元件的值，判斷正負數，然後把值賦給文字框嗎？
vb獲取滑鼠的螢幕座標，vb 獲取滑鼠在視窗內的螢幕座標
講一下很久以前的設計思路 1 首先取得全屏的大小。2 不可能獲取任意視窗，因為不同的系統和軟體的限制。3 找出看得見的視窗的控制代碼，求出視窗大小。4 綜上所述建立一個限制演算法。5 其它的由你了。不太清楚哦，希望有人幫解答，祝 早日找到答案！vb怎麼獲取滑鼠的螢幕座標 vb獲取滑鼠在當前窗體的座標...
求VB基礎操作已知平面座標系內兩點的座標，求兩點間的距離
新建一個form1 在form1中加入5個textbox 分別是 text1 text2 text3 text4 text5 在form1下寫入如下 private sub command1 click text5.text val text1.text val text3.text 2 val t...
用VB,,用VB，用VB將123456789這數字分成三位數，各個數字之間比例是
private sub command1 click dim tmpstr as string,tmpstr1 as string dim mpstr2 as string,tmpstr3 as string dim a as integer,b as integer,c as integer di...