用VB语言编写“画出函数y=ax2+bx+c的曲线图”

来源：百度知道 编辑：UC知道 时间：2024/05/28 09:24:01
麻烦高手们帮帮忙

Private Sub Command3_Click()
Me.DrawWidth = 5
a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)
For X = -50 To 50
Y = a * X ^ 2 + b * X + c
PSet (X + 50, Y / 10 + 50), vbRed
Next X
End Sub

form1.scalewidth=20
form1.scaleheight=20
for x = -10 to 10 step 0.01
y=x^2+x+1
pset (x+10,y+10),&h0 '画x,y
next x

Private Sub Command3_Click()
Me.DrawWidth = 5
a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)
For X = -50 To 50
Y = a * X ^ 2 + b * X + c
PSet (X + 50, Y / 10 + 50), vbRed
Next X
End Sub

还能在复杂点吗？