vb一元二次函数y=-x*x 的图像还有函数代码

题目

vb一元二次函数y=-x*x 的图像还有函数代码

答案

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