如何利用VB根据一个公式生成一条曲线啊?
1个回答
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的曲线,曲线光滑度设定的不是很高,为了便于理解.
例子很简单：希望对你能有启发：）
