以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://weistock.com/bbs/index.asp)
--  高级功能研发区  (http://weistock.com/bbs/list.asp?boardid=5)
----  这样引用错在哪  (http://weistock.com/bbs/dispbbs.asp?boardid=5&id=5894)
--  作者：beensu
--  发布时间：2011/3/28 13:11:55
--  这样引用错在哪
Function kurt1(Formula,x,n)
      kurt1=Function.kurt(x,n)

End Function
--  作者：guotx2010
--  发布时间：2011/3/28 15:02:45
--  

kuit1=后面的那个function去掉就行了

 
--  作者：王锋
--  发布时间：2011/3/28 15:24:25
--  
Fun.kurt(x,n)
--  作者：beensu
--  发布时间：2011/3/29 0:24:58
--  

不行 提示 编译器错误13 类型不匹配 fun.kurt
--  作者：admin
--  发布时间：2011/3/29 8:41:01
--  

kurt的使用方法不对

 

Dim d \'创建一个变量
\'创建Array外部对象，将对象实例置变量d中
Set d = CreateObject("Stock.Array")
\'创建完Array对象后往其内部插入两个数据
d.AddBack(5)
d.AddBack(6)
d.AddBack(10)
d.AddBack(3)
msgbox Fun.kurt(d)
--  作者：beensu
--  发布时间：2011/3/29 22:53:47
--  
Fun.kurt(d) 难道不能控制计算周期吗
--  作者：王锋
--  发布时间：2011/3/30 7:37:51
--  
Stock.Array 对象会自动管理，上述的示例代码，周期是4，因为添加了4个数据
--  作者：beensu
--  发布时间：2011/3/30 17:53:17
--  
如果有1000个数据 每次取21个计算如何处理
--  作者：王锋
--  发布时间：2011/3/30 20:18:26
--  

可以使用d.RemoveAt(0)，和AddBack循环处理这21个数据来计算