如何用VB写两组数据相关性的程序，请帮忙？

不难，就是我忘记了数学。

一个比较全面的例子如下：
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 "自变量数组不是一维的，不能求相关系数！", vbOKOnly + vbExclamation, 标题
计算相关系数 = 1
Exit Function
End If
数组维数 = 数组维数(因变量数组)
If 数组维数 <> 1 Then
MsgBox "因变量数组不是一维的，不能求相关系数！", vbOKOnly + vbExclamation, 标题
计算相关系数 = 2
Exit Function
End If

自变量下标下限 = LBound(自变量数组)
自变量下标上限 = UBound(自变量数组)
因变量下标下限 = LBound(因变量数组)
On Error GoTo 因变量用完
For i = 自变量下标下限 To 自变量下标上限
If Not IsNumeric(自变量数组(i)) Then
MsgBox &quo