如何利用VB根据一个公式生成一条曲线啊?

来源：学生作业帮编辑：百度作业网作业帮分类：综合作业时间：2024/08/13 09:18:28

Private Sub Command1_Click()
Dim i As Long
Form1.Cls
Form1.CurrentX = 500
Form1.CurrentY = Form1.Height - 1500
Form1.Line -(Form1.Width - 500,Form1.Height - 1500)
'生成横坐标
Form1.CurrentX = 500 + (Form1.Width - 1000) / 2
Form1.CurrentY = Form1.Height - 6000
Form1.Line -(500 + (Form1.Width - 1000) / 2,Form1.Height - 1500)
'生成纵坐标
Form1.CurrentX = (Form1.Width - 1000) / 2 + 500 + (-6) * 100
Form1.CurrentY = Form1.Height - 1500 - (-6) ^ 2 * 100
For i = -5 To 6
Form1.Line -((Form1.Width - 1000) / 2 + 500 + i * 100,Form1.Height - 1500 - i ^ 2 * 100)
Next i
End Sub
这段代码是Y=X^2的曲线,曲线光滑度设定的不是很高,为了便于理解.
例子很简单：希望对你能有启发：）

如何根据数据曲线得到公式? 如何利用AS3实时控制补间动画的运动曲线,比如我想手绘一条曲线,敲击空格后一个球体按照刚刚绘制的这条曲如何利用MATLAB模拟曲线工具箱和插值公式近似出曲线方程? 在execl中测试的数据,获得了一条曲线,如何找出该曲线的公式你好,如何根据曲线要素画曲线啊 c语言中如何由一个二维数组生成一条曲线呢?例如a[5][2]={{0,1},{1,2},{2,3},{3,4},{5,6 如何利用Excel ,产生一条平滑的随机数据,做成随机曲线? 如何利用艾宾浩斯遗忘曲线如何利用matlab画曲线 vb中如何生成不同的随机数 CAD,一条自由曲线,如何将一个图形等距离分布在自由曲线上不知如何利用公式