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就行了。