VB最小二乘法拟合直线.doc

文档介绍：VB最小二乘法拟合直线
Private Sub Form_click()
Dim N As Integer, U() As Double, I As Integer
Dim A As Single, B As Single

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) = U(2, 0) / N
B = (U(3, 0) - N * U(1, 0) * U(2, 0)) / (U(4, 0) - N * U(1, 0) ^ 2)
A = U(2, 0) - B * U(1, 0)
Print "拟合公式为:"
Pr