用VB如何绘制函数图像？大概的代码是什么？

一般的vb画函数图像，用的是pset()函数

如你要画y=3x

(x从1到3)

可以用

for

x=1

to

3

step=001

'步伐越小画得越精细

y=3x

form1pset(x,y)

next

x

就可以画出该图像来了，其他的函数的画法也一样的

1 首先确定二次函数的基本形式：y=a(x-h)^2+k2 找到顶点 (h,k)，h表示平移的横坐标，k表示平移的纵坐标。3 确定二次函数的开口方向，即a的正负。若a\u003e0，则开口向上；若a\u003c0，则开口向下。4 确定对称轴，对称轴为x=h。5 根据对称轴的位置和开口方向，确定二次函数的两个零点或交点。6 绘制对称轴和顶点。7 使用零点或交点确定二次函数的范围。8 画出二次函数的曲线。注意事项：- 对称轴和顶点的坐标可以通过水平移动和竖直移动的方法得到。- 为了绘制曲线更准确，可以通过计算得到一些点的坐标。例如，可以选取左右两个x值，并计算得出对应的y值，然后将这些点连成曲线。- 画线的时候应该尽量平滑，让曲线的弧度与二次函数特点相符。

以下是画一元二次方程的图的代码：（假设y=ax^2+bx+c，将窗口的大小调为4800×4800）

Private Sub Command1_Click()

Cls

Line (0, 2400)-(4800, 2400), RGB(255, 0, 0)

Line (2400, 0)-(2400, 4800), RGB(255, 0, 0)

Dim x

Dim xx

Dim y

Dim yy

Dim a

Dim b

Dim c

a = InputBox("请输入二次项系数(a)", "录入")

b = InputBox("请输入一次项系数(b)", "录入")

c = InputBox("请输入常数项(c)", "录入")

For x = -4800 To 4800 Step 05

y = a x ^ 2 + b x + c

xx = x + 2400

yy = -y + 2400

PSet (xx, yy), RGB(0, 0, 255)

Next x

End Sub

Private Sub Form_Activate()

Line (0, 2400)-(4800, 2400), RGB(255, 0, 0)

Line (2400, 0)-(2400, 4800), RGB(255, 0, 0)

End Sub

基于计算机的计算能力问题，画出来的图可能不准确，如果代入a=0的话就会画出直线，就可以说明我的代码是正确的了

向下的你做了就好,然后再把你做的那个图象向右平移二分之(怕)个单位后,接着把图象向上平移1个单位就行了。不过这只能得到半个周期的正弦图象, 注:括号里的怕是数学术语,怕约等于314

1 列出二次函数的标准式：y = ax^2 + bx + c，其中 a、b、c 为已知常数。2 选择一些合适的 x 值，并计算所对应的 y 值。建议选择 x 值可以是负数、0 和正数，且数量应该是奇数，这样可以更好地确定函数的对称轴。3 将计算出的 x 和 y 值配对，构成表格。4 将表格中的每个点绘制在平面直角坐标系中。5 根据图像的形态，推断出二次函数的对称轴、顶点、开口方向等重要性质。根据这些重要性质，进一步确定函数的图像。取 x 的值时，建议选择以下值：- 对称轴上的点：x = -b/(2a)。- 零点：通过解方程 ax^2 + bx + c = 0 求得。- 其他一些合适的点：可以选择负数、0 和正数，也可以选择一些特殊值，如 -1、1、2、-2、05、-05 等。