VB画曲线的问题

来源：百度知道 编辑：UC知道 时间：2024/07/04 13:27:54
v1 v2 v3 v4 v5 r1 r2 r3 r4 r5分别是我的textbox里要输入的数值，现在需要画一条以v1 v2 v3 v4 v5 为横坐标， r1 r2 r3 r4 r5为纵坐标的曲线。希望高手来帮忙！！
在坐标系中描出点（v1,r1)(v2,r2)(v3,r3)(v4,r4)(v5,r5),然后把这5个点连接出来，最后让曲线在picturebox中显示。急需高手帮忙！

Private Sub Command1_Click()
v1 = 20: v2 = 40: v3 = 50: v4 = 70: v5 = 60: r1 = 10: r2 = 30: r3 = 70: r4 = 90: r5 = 30
Form1.DrawWidth = 1
Form1.DrawMode = 9
Form1.DrawStyle = 1
Form1.ForeColor = RGB(255, 0, 0)
Form1.Scale (-100, 100)-(100, -100)
Form1.Line (-100, 0)-(100, 0)
Form1.Line -(95, 5)
Form1.Line (100, 0)-(95, -5)
Form1.Line (0, -100)-(0, 100)
Form1.Line -(5, 95)
Form1.Line (0, 100)-(-5, 95)
Form1.DrawWidth = 2
Form1.ForeColor = RGB(0, 255, 255)
Form1.Line (v1, r1)-(v2, r2)
Form1.Line -(v3, r3)
Form1.Line -(v4, r4)
Form1.Line -(v5, r5)
End Sub

line1.x1=v1:line1.y1=r1:line1.x2=v2:line1.y2=r2
line2.x1=v2:line2.y1=r2:line2.x2=v3:line2.y2=r3
其余模仿着写，如果嫌麻烦，还可以用控件数组，用循环写。

曲线公式呢？