主题：关于 array 的用法问题

 纠正了 function 的错误。

在 macro 里面 call 这个test function 的时候出现

编译器错误 '429'
ActiveX component can't create object :'Stock.Array'

我的 sub 是

Sub testF()
    
     a = test( 10 )
    
     msgbox( a )
    
End Sub

****************************
sub test( period )
   
    'set d = CreateObject("Stock.Array")
    set MinuteData = marketdata.GetMinuteData( "CF01", "ZQ" )
    dim d
    Set d = CreateObject("Stock.Array")
   
    dim i
    dim x
   
    set History = marketdata.GetHistoryData( ticker, market,cycle )
   
    if MinuteData.count > period then
        for i = 0 to period - 1 step 1
            x = minutedata.newprice(i)
            d.addback( x )
        next
    end if
   
    test = d.forecast

end sub


谢谢了。