怎么样用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/07/11 13:01:28
![怎么样用vb绘制二次函数图象,我只会画一次的代码类似于Private Sub Cmd1_Click()k = Val(InputBox(](/uploads/image/z/8895571-43-1.jpg?t=%E6%80%8E%E4%B9%88%E6%A0%B7%E7%94%A8vb%E7%BB%98%E5%88%B6%E4%BA%8C%E6%AC%A1%E5%87%BD%E6%95%B0%E5%9B%BE%E8%B1%A1%2C%E6%88%91%E5%8F%AA%E4%BC%9A%E7%94%BB%E4%B8%80%E6%AC%A1%E7%9A%84%E4%BB%A3%E7%A0%81%E7%B1%BB%E4%BC%BC%E4%BA%8EPrivate+Sub+Cmd1_Click%28%29k+%3D+Val%28InputBox%28%22k%22%29%29b+%3D+Val%28InputBox%28%22b%22%29%29Picture1.ClsPicture1.ScaleMode+%3D+3Picture1.Scale+%28-150%2C150%29-%28150%2C-150%29Picture1.DrawWidth+%3D+1Picture1.Line+%28)
怎么样用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 (
怎么样用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
写的简单点,最好加个注释
怎么样用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 (
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