我只会用vb绘制一次函数图象怎么样画二次的

来源：学生作业帮编辑：搜狗做题网作业帮分类：综合作业时间：2024/06/16 05:06:31

我只会用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
写的简单点,最好加个注释

Const pi = 3.14159265359879
Dim x
Private Sub Command1_Click()
'首先清除picture1内的图形
Picture1.Cls
'Scale方法设定用户坐标系,坐标原点在Picture1中心
Picture1.ScaleMode = 0
Picture1.ScaleMode = 3
Picture1.Scale (-20,20)-(20,-20)
'设置绘线宽度
Picture1.DrawWidth = 1
'绘坐标系的X轴及箭头线
Picture1.Line (-20,0)-(20,0),vbBlue
Picture1.Line (18,1)-(20,0),vbBlue
Picture1.Line -(18,-1),vbBlue
Picture1.ForeColor = vbBlue
Picture1.Print "X"
'绘坐标系的Y轴及箭头线
Picture1.Line (0,20)-(0,-20),vbBlue
Picture1.Line (1,18)-(0,20),vbBlue
Picture1.Line -(-1,18),vbBlue
Picture1.Print "Y"
'指定位置显示原点O
Picture1.CurrentX = 1
Picture1.CurrentY = -1
Picture1.Print "O"
'重设绘线宽度
Picture1.DrawWidth = 2
'用For循环绘点,使其按抛物线规律变化.步长值很小,使之形成动画效果
a = Val(InputBox("a"))
b = Val(InputBox("b"))
c = Val(InputBox("c"))
For x = -20 To 10 Step pi / 6000
Picture1.PSet (x,a * x ^ 2 / 5 + b * x - c),vbRed
Next x
'指定位置显示描述文字
Picture1.CurrentX = pi / 2
Picture1.CurrentY = -7
Picture1.ForeColor = vbBlack
Picture1.Print "抛物线示意"
End Su

画一些一次函数二次函数反比例函数分段函数的图象二次函数的图象几何画板中,如何用点的轨迹的方法绘制一次函数图象常数的函数,正比例函数,反比例函数,一次函数,二次函数的图象和表达式, matlab绘制函数图象一次函数的图象求‘正比例函数,一次函数,反比例函数,二次函数’的定义,图象特征,及其性质! 绝对值二次函数的图象二次函数的图象特征怎么画二次函数图象? 已知二次函数图象的顶点在原点o对称轴为y轴,一次函数Y=KX+1的图象与二次函数的图 matlab绘制分段函数图象