1樓：匿名使用者
private sub command1_click()
picture1.cls
picture1.scalemode = 3
picture1.autoredraw = true
picture1.scale (-5, 5)-(5, -5)
picture1.line (-5, 0)-(5, 0), rgb(0, 0, 255)
picture1.line (0, 5)-(0, -5), rgb(0, 0, 255)
for a = 0.01 to 5 step 0.001
picture1.pset (a, log(a)), rgb(255, 0, 0)
next a
end sub
picture1.pset (a, log(a)), rgb(255, 0, 0) 把這行改成
picture1.pset (a, a ^ 2), rgb(255, 0, 0)就好了
2樓：匿名使用者
好像也要用數學轉換吧
說說具體要求
3樓：匿名使用者
是不是要用畫圖工具或者樓上的方法。
visual basic x,y座標系的問題
4樓：
'如果你不以桌面為參照，則不用api,下面的**就夠了
private sub form_mousedown(button as integer, shift as integer, x as single, y as single)
label2 = iif(button = 1, "你按了滑鼠左鍵", "") '按右鍵則還原
label2.autosize = true
end sub
private sub form_mousemove(button as integer, shift as integer, x as single, y as single)
label1 = "x軸座標" & x & " " & vbcrlf & "y軸座標" & y
label1.autosize = true
end sub
5樓：匿名使用者
你要出現字，我想不如簡單些用個label即可lable1
事件mousemove中的xy就是你要的，lable1.caption = x & "," & y
mousedown中的button是不是為1是左鍵,if button =1 then lable1="你按下左鍵了" else label1=""
6樓：匿名使用者
好像也要用數學轉換吧
說說具體要求
求一個用visual basic畫直角座標系的方法，座標系上有刻度顯示，並且刻度可以根據自己的需要改動；
7樓：棘棘芽
option explicit
'x,y 為圓點座標
'jg 為一個間隔多少象素
'td 多少次**一次長線
sub setpoint(x as integer, y as integer, optional jg as integer = 10, optional td as integer = 5)
if me.scalemode <> 3 then me.scalemode = 3
if me.autoredraw = false then me.autoredraw = true
me.circle (x, y), 2
'drawx
me.line (0, y)-(me.scalewidth, y)
dim i as integer, t as integer
for i = x to me.scalewidth step jg
t = t + 1
me.line (i, y)-(i, y - iif(t mod td = 0, 10, 5))
next
t = 0
for i = x to 0 step -jg
t = t + 1
me.line (i, y)-(i, y - iif(t mod td = 0, 10, 5))
next
'drawy
t = 0
me.line (x, 0)-(x, me.scaleheight)
for i = y to me.scaleheight step jg
t = t + 1
me.line (x, i)-(x + iif(t mod td = 0, 10, 5), i)
next
t = 0
for i = y to 0 step -jg
t = t + 1
me.line (x, i)-(x + iif(t mod td = 0, 10, 5), i)
next
end sub
private sub form_load()
me.show
setpoint 200, 100
end sub
關於visual basic的問題
8樓：涐吢銥舊囿儚
如果」前面的文字內容「是固定的，
比如你的這個，前面有7個文字字元，」數字內容「是從第8個字元開始的，這樣就可以分離出數字來（假設你的計算結果是在text1中）：
msgbox format$(mid$(text1.text, 8),"0.00")
9樓：匿名使用者
'設文字框名為text1
dim num as integer
num=val(text1.text)
10樓：帳號已登出
要是形式固定的話可以用mid,left,right 函式吧數字提取出來
空間座標系的直線表示方法,在空間直角座標系中如何表示一條直線
空間直角座標系中平面方程為ax by cz d 0空間直線的一般方程 兩個平面方程聯立,表示一條直線 交線 空間直角座標系中平面方程為ax by cz d 0直線方程就是 a1x b1y c1z d1 0,a2x b2y c2z d2 0,聯立 聯立的結果可以表示為行列式 空間直線的標準式 類似於平...
剛體座標系的定義是什麼,物理中座標系的概念是什麼？
為了說明質點的位置 運動的快慢 方向等，必須選取其座標系。在參照系中，為確定空間一點的位置，按規定方法選取的有次序的一組資料，這就叫做 座標 在某一問題中規定座標的方法，就是該問題所用的座標系。座標系的種類很多，常用的座標系有 笛卡爾直角座標系 平面極座標系 柱面座標系 或稱柱座標系 和球面座標系 ...
如圖，直角座標系中，點A的座標（2，0），以線段OA為邊在第一象限內作等邊三角形AOB,點P為線段OA上的一
boa是等邊三角形 oba boa bao 60 ob oa ba 同理 pbc bpc bcp 60 bp bc pc oba pbc oba pba pbc pba 即 obp abc 在 obp與 abc中 ob oa obp abc bp bc obp abc sas aob bpc等邊三角...