谁知道，用VB 编写的最小二乘法的源代码吗。

Dim j As Integer, t As Integer, m As Integer, n As Integer
Dim s As Integer, i As Integer, k As Integer
s = 1
m = InputBox("请输入m：")
n = InputBox("请输入n：")
Print "m="; m; "n="; n
If m > n Then
i = m: m = n: n = i
End If
If n Mod m = 0 Then
Print "最大公约数是"; m
Exit Sub
End If
k = m
t = n
Do While k <> 0
t = t Mod k
j = t: t = k: k = j
Loop
Print "最大公约数是"; t;

下面是用最小二乘法计算相关系数的。如果你要算系数的话，可以稍加修改。

Const 标题 = "相关系数的计算"
Private Function 计算相关系数(自变量数组() As Variant, 因变量数组() As Variant, 相关系数 As Variant) As Long
Dim 数组维数 As Integer, 数据数 As Long, 自变量下标下限 As Long, 自变量下标上限 As Long, 因变量下标下限 As Long
Dim i As Long, 变量类型 As Integer
计算相关系数 = 0

数组维数 = 数组维数(自变量数组)
If 数组维数 <> 1 Then
MsgBox "自变量数组不是一维的，不能求相关系数！", vbO