主题：[求助]Fun 对象中有无相关系数的函数

Sub Test()

Dim d1 '创建一个变量
'创建Array外部对象，将对象实例置变量d中
Set d1 = CreateObject("Stock.Array")

Set Data1 = MarketData.GetHistoryData("IF07","ZJ",5)
If Data1.Count < 10 Then
   Set d1 = nothing '释放对象
   Exit Sub
End if

'由于GetHistoryData只能返回一个HistoryData对象,因此需要这里读出一个保存一个到数组中

'取最近10个交易日的数据做相关系数判断
'将收盘价数据置数组中
For i =1 to 10
   d1.AddBack(Data1.Close(Data1.Count-i))
Next

Dim d2 '创建一个变量
'创建Array外部对象，将对象实例置变量d中
Set d2 = CreateObject("Stock.Array")

Set Data2 = MarketData.GetHistoryData("IF09","ZJ",5)
If Data2.Count < 10 Then
   Set d1 = nothing '释放对象
   Set d2 = nothing
   Exit Sub
End if

For i =1 to 10
   d2.AddBack(Data2.Close(Data2.Count-i))
Next

Application.MsgOut d1.count

MsgBox d1.Releate(d2)

Set d1 = nothing '释放对象
Set d2 = nothing

End Sub