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哥们这弄的有点不靠谱啊 你能弄的 清楚点不 还有y=-x*x图像的代码没看清是负的，你只要把x^2改为-x^2就行了。