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求和運算按要求與步驟怎麼程式設計？
4樓：滿以柳
滾動條程式:
private sub hscrooll1_scroll()label1.caption=hscroll1.valueend sub
"求和"按扭中的程式：
private sub command1_click()dim i as integer
dim a as integer
dim sum as long
a = val(label1)
sum=0
for i = 1 to a
sum = sum + sumlj(i) '迴圈計算next i
text1.text = str(sum)end sub
'下面的函式要寫在窗體通用裡面
private function sumlj(a as integer)
dim ss as long
dim i as integer
ss = 0
for i = 1 to a
ss = ss + i
next i
sumlj = ss
end function
這樣就ok！
如何用vb程式設計：用點的座標判斷它在第幾象限？ 5
vb程式設計,輸入平面上任一點的座標(x,y),判斷並顯示該點位於哪個象限的資訊。詳細~
5樓：
昏，這麼簡單
看我的function decide(byval txt as string)
dim x, y as integer
dim loc as variant
loc = split(txt, ",")x = val(loc(0))
y = val(loc(1))
if x > 0 and y > 0 thenmsgbox "第1象限"
elseif x < 0 and y > 0 thenmsgbox "第2象限"
elseif x < 0 and y < 0 thenmsgbox "第3象限"
elseif x > 0 and y < 0 thenmsgbox "第4象限"
end if
end function
6樓：匿名使用者
什麼叫「象限的資訊」？
7樓：
原點是0，0 嗎 ？
求平面座標正算反算vb程式設計，要完整的 5
8樓：陳曉武
座標反算一般主要應用於測繪工程、建設工程之中，具體在建築設計，工程測量，測繪製圖等領域。總的來說座標計算分為座標正算和座標反算兩種，這兩種在實際中是較常見的。
編輯本段定義
座標反算
根據直線的起點和終點的座標，計算直線的水平距離和座標方位角的過程叫座標反算。
座標正算
根據直線的起點座標、直線的水平距離以及座標方位角來計算終點的座標的過程叫座標正算。
編輯本段計算原理
如圖中所示，已知一條直線的起點和終點座標分別為a（x1，y1），b（x2，y2），通過座標反算來計算直線ab的水平距離s ab和座標方位角α ab。 由於反三角函式計算的結果有多值性
所以在計算座標方位角α ab之前，要先計算象限角r ab。
計算步驟
①tan r ab=|△y ab|╱|△x ab|=|y b-y a|╱|x b-x a|； ②r ab=arctan|y b-y a|╱|x b-x a|； ③s ab==|△y ab|╱sinα ab=|△x ab|╱cosα ab ④根據「②」中所求的r ab，求座標方位角α ab， ⑴若座標方位角為第一象限角，則：r ab=α ab； ⑵若座標方位角為第二象限角，則：α ab=180°-r ab； ⑶若座標方位角為第三象限角，則：
α ab=180°+r ab； ⑷若座標方位角為第四象限角，則：α ab=360°-r ab。
附註座標方位角：直線的方向是用方位角來表示的，其中以座標北方向為基準方向，順時針旋轉到直線的水平角度，稱為該直線的座標方位角。 象限角劃分：
第一象限角：0°~90° (0~π/2) 第二象限角：90°~180° (π/2~π) 第三象限角：
180°~270° (π~3π/2) 第四象限角：270°~360° (3π/2~2π) 另注意：此象限角的劃分與數學中的象限角不同，應注意！
現場確定座標系
如果找到兩個基準點a(n3000,e4500,z100), b(n2900,e5500,z120)，則可以根據基準點座標值反推座標系，找到n,e方向。
首先確定n,e方向： 從e座標可以發現，b點e座標大於a點，所以b點應在a點動東面。再看b的n座標小於a點，故b點應在a點南面。
即b點在a點東南面。 求出直線ab與e座標的夾角： a=atg(nb-na)/(eb-ea)) -90dgree<=a<=90degree 若a>0，則直線從a到b成右上方向走向。
若a<0，則直線從a向b成左下方向走向。若a=0，則ab平行於e軸線。若a=+90或-90度，則直線垂直與e軸線。
由此可以確定現場的ne座標系。
用vb編寫程式,單擊按鈕後,通過輸入對話方塊輸入點的兩個座標,判斷點在哪乙個象限,並在窗
vb中座標系是如何定義的？如何表示絕對座標和相對座標。
9樓：匿名使用者
窗體內的左上角的座標為（0，0），向右是.left+，向左是.left-，向下是.
top+，向上是.top-；如果要使用相對座標，比如向右移動100，就可以寫成object.left=object.
left+100即可。
10樓：匿名使用者
scale(x1,y1)-(x2,y2)定義窗體左上角和右下角的座標，如scale (-10,10)-(10,-10),說明左上角的座標為-10，10 右下角的座標為10，-10 第二象限，第四象限。定義後，其他控制項的座標參照該座標系。
11樓：匿名使用者
沒有絕對座標，只有相對座標，每個控制項都是相對它所在容器的座標
左上為0點
12樓：匿名使用者
使用scale可以定義座標系啊
vb如何畫只有第一象限的座標系
13樓：諾恆
可以用兩個line控制項做座標啊
line1.x1=0
line1.y1=0
line1.x2=picture1.heighline1.y2=0
'以上**定義縱座標軸
line2.x1=0
line2.y1=picture1.heighline2.x2=picture1.widthline2.y2=picture1.heigh』以上**定義橫座標軸
vb程式設計 知道座標怎麼繪圖
14樓：匿名使用者
關於座標界限問題，可以這樣解決：
1、取得繪圖界限(xmin,ymin) (xmax,ymax）。
2、取得所有繪圖座標中的最小值和最大值(xzmin,yzmin) (xzmax,yzmax)。
3、取得所有繪圖座標的比值：
[x1 /(xzmax-xzmin),y1 / (yzmax-yzmin)]；[x2 /(xzmax-xzmin),y2 / (yzmax-yzmin)]......
4、取得實際繪圖最小值與最大值的差。[（xmax-xmin),(ymax-ymin)]
5、最 終 繪 圖 坐 標 ：上述3的比值 * 上述4的差。
15樓：匿名使用者
直接用line
命令就可以了，你說的 座標界限什麼意思
VB題，程式設計題， 大學VB希望可以詳細解釋一下第4題，這道題到底如何做？方法是什麼？ 希望可以詳細
x chr 48 a x 與 x x chr 48 a 是不一樣的。x chr 48 a x 這個表示式最後出來的字元排在最前面。x x chr 48 a 這個表示式最後出來的字元排在最後面。vb題，程式設計題，大學vb希望可以詳細解釋一下第4題，這道題到底如何做？方法是什麼？考察什麼知識點 按流程...
施工座標如何轉大地座標，大地座標與施工座標怎麼轉換啊。
大地轉施工 qk z qx a qy b zx o zy q pol o a,q b j 0 j 360 j j 360 j 360 j j f jf f dms lb1 0 x y pol x a,y b i d j 0 j 360 j j 360 j 360 j j f t t g t 0 t ...
vb程式設計，vb程式設計
介面設計如下 試編寫 如下 private sub updatestat if list1.listcount 1 thencommand1.enabled falsecommand2.enabled falseelse command1.enabled truecommand2.enabled t...