求助各位大虾，关于绘制vb二次函数图像超小白的问题~~

Answer 1

第一步:用标签工具做三个标签
A=
B=
C=
在这二个标签后面做三个文本框text1
text2
text3
第二步:请建立一个命令按钮,改这个按钮名称为:二次函数的图像生成
第三步:请将以下代码复制到按钮的代码框内;
Private
Sub
Command1_Click()
a
=
Val(Text1.Text)
b
=
Val(Text2.Text)
c
=
Val(Text3.Text)
Cls
Scale
(-10,
10)-(10,
-10)
Line
(-9,
0)-(9,
0)
Line
(0,
-8)-(0,
8)
CurrentX
=
0.5
CurrentY
=
9
Print
"y"
CurrentX
=
9
CurrentY
=
-0.5
Print
"x"
For
x
=
-8
To
8
Step
1
PSet
(x,
0.1)
Next
x
For
y
=
-6
To
6
Step
1
PSet
(0.1,
y)
Next
y
For
x
=
-8
To
8
Step
0.01
y
=
a
*
x
*
x
+
b
*
x
+
c
PSet
(x,
y)
Next
x
End
Sub
第四步:运行,输入A\B\C的值,就可以得到二次函数的图像了!