作业帮怎么样用vb绘制二次函数图象,我只会画一次的代码类似于Private Sub Cmd1_Click()k = Val(InputBox("k"))b = Val(InputBox("b"))Picture1.ClsPicture1.ScaleMode = 3Picture1.Scale (-150,150)-(150,-150)Picture1.DrawWidth = 1Picture1.Line (
来源：学生作业帮助网 编辑：作业帮 时间：2024/05/15 11:47:45
怎么样用vb绘制二次函数图象,我只会画一次的
代码类似于
Private Sub Cmd1_Click()
k = Val(InputBox("k"))
b = Val(InputBox("b"))
Picture1.Cls
Picture1.ScaleMode = 3
Picture1.Scale (-150,150)-(150,-150)
Picture1.DrawWidth = 1
Picture1.Line (-150,0)-(150,0),RGB(0,0,255)
Picture1.Line (0,150)-(0,-150),RGB(0,0,255)
Picture1.CurrentX = 1
Picture1.CurrentY = -1
Picture1.DrawWidth = 2
For x = -140 To 140
Picture1.PSet (x,k * x + b),RGB(255,0,0)
Next x
End Sub
写的简单点,最好加个注释
Dim j As Single
Dim record(1000) As Single
Dim p As Single
Private Sub Command1_Click()
p = 4
Picture1.Cls
Picture1.Scale (-200,2000)-(2000,-2000) '定义坐标
For j = 0 To 250
record(j) = 20 * Sqr(2 * p * j) '抛物线公式Y^=2 * p * X
Picture1.Line (j * 20,record(j) + 2)-(j * 20,record(j) - 2),vbRed,BF 'Y为正的
Picture1.Line (j * 20,-record(j) + 2)-(j * 20,-record(j) - 2),vbRed,BF 'Y为负的
Next
Picture1.Line (-2000,0)-(2000,0) 'X轴
Picture1.Line (0,2000)-(0,-2000) 'Y轴
End Sub