private sub form_load()
form1.scale (-10,10)-(10,-10)
end sub
private sub command1_click()
dim X as single
form1.line (-10,0)-(10,0) ,vbred
form1.line (0,-10)-(0,10),vbred
for x=-10 to 10 step 0.01
form1.pset(x,x^2)
next x
end sub哥們這弄的有點(diǎn)不靠譜啊 你能弄的 清楚點(diǎn)不 還有y=-x*x圖像的代碼沒看清是負(fù)的，你只要把x^2改為-x^2就行了。