现在的主要问题是，怎样才能把计算结果返回给调用这个函数的公式呢？
REM 求N日平均值
Function xMAN(Formula,N)
'创建窗格对象xGrid
Set xGrid=UserFrame1.GetGridByName("Window1")
'创建历史数据对象xHistoryData
Set xHistoryData=xGrid.GetHistoryData()
'如果历史数据存在问题
If xHistoryData.Count <N Then
MsgBox "参数超出可用数据范围！。。。"
Exit Function
End If
Dim i,j,xCount,xArray,y
xCount=0
Set xArray=CreateObject("Stock.Array")
'通过两个For...Next循环来求N日平均
'外循环
For i=0 To xHistoryData.Count-1
xCount=0
'内循环
For j=0 TO N
'----------------
If i>=N Then
y=i-j
xCount=xCount+xHistoryData.Close(y)
Else
Exit For
End If
'----------------
Next
xCount=xCount/N
xArray.AddBack(xCount)
'向调用该函数的公式返回结果
'MsgBox "数组值是："&xArray.GetAt(i)
'xMan=xArray.GetAt(i)
Next
'MsgBox xArray.Count
'xMAN=xArray.Count
'得到公式对象
Set xGrid_1=UserFrame1.GetGridByName("Window5")
Set xFormula=xGrid_1.GetFormulaByName("XMAN")
Set xGetFormulaData=CreateObject("Stock.Array")
xGetFormulaData = xFormula.VARDATA("ccc")
Call Stock.Array.Copy(xArray,xGetFormulaData,xArray.Count)
'把数组值返回给公式对象的公式线：VVV
xFormula.VarData("vvv") = xGetFormulaData '将处理完毕得数组序列返回公式中
End Function