VB最小二乘法拟合直线

来源：百度知道 编辑：UC知道 时间：2024/05/09 15:09:04
输入几个点的横坐标和纵坐标，用最小二乘法拟合出直线（类似y=ax+b）.并把这个方程计算并显示出来。希望把流程也介绍一下（一开始建立什么控件，如何使用控件）。本人比较菜，望高手不吝赐教！

稍等好吗？
好了，但愿没有耽误你！代码如下（注意不用任何控件即可）：

Private Sub Form_click()
Dim N As Integer, U() As Double, I As Integer
Dim A As Single, B As Single
Form1.Cls
Print "数据：";
N = Val(InputBox("原始数据个数", "输入", 7))
If N <= 1 Then Exit Sub
ReDim U(4, N)
Print "共"; N; "组："
For I = 1 To N
U(1, I) = Val(InputBox("自变量 X 的值：", "第一组", I))
U(2, I) = Val(InputBox("因变量 Y 的值：", "第一组", I * 5))
U(3, I) = U(1, I) * U(2, I)
U(4, I) = U(1, I) ^ 2
Print "x("; I; ") = "; U(1, I); " y("; I; ") = "; U(2, I)
U(1, 0) = U(1, 0) + U(1, I)
U(2, 0) = U(2, 0) + U(2, I)
U(3, 0) = U(3, 0) + U(3, I)
U(4, 0) = U(4, 0) + U(4, I)
Next I
U(1, 0) = U(1, 0) / N
U(2, 0)