可以直接在线进行拟合，下面是地址（已验证）
站在用户的角度思考问题，与客户深入沟通，找到紫阳网站设计与紫阳网站推广的解决方案，凭借多年的经验，让设计与互联网技术结合，创造个性化、用户体验好的作品，建站类型包括：成都做网站、网站设计、企业官网、英文网站、手机端网站、网站推广、空间域名、网站空间、企业邮箱。业务覆盖紫阳地区。
建议你直接对数据用Matlab的cftool拟合(可以自由的自定义拟合函数形式)
Dim a() As String, b() As String
Private Sub Command1_Click()
Dim temp1 As String
Dim i As Integer, k As Integer
temp1 = Text1.Text
a = Split(temp1, ",")
lenolds = Len("-")
For i = 0 To UBound(a)
s = a(i)
j = InStr(s, "-")
Do While j 0
ReDim Preserve b(i, k)
b(i, k) = Val(Left(s, j + lenolds))
s = Left(s, j - 1) + "-" + Mid(s, j + lenolds + 1)
k = k + 1
j = InStr(s, "-")
Loop
ReDim Preserve b(i, k)
b(i, k) = s
Next i
For i = 0 To UBound(a)
For j = 0 To k
Text2.Text = Text2.Text + b(i, j)
Next j
Next i
End Sub
1、通过一些点拟合出一条直线。
2、参数：pt_input指向传入的点的指针。
3、ptNumbers传入的点数量。
4、k指向拟合直线参数k的指针。
5、b指向拟合直线参数b的指针。
