以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://weistock.com/bbs/index.asp)
--  高级功能研发区  (http://weistock.com/bbs/list.asp?boardid=5)
----  请问版主一个过程或函数能传进去一个数组吗  (http://weistock.com/bbs/dispbbs.asp?boardid=5&id=3953)
--  作者：夏小飞
--  发布时间：2010/11/19 10:53:57
--  请问版主一个过程或函数能传进去一个数组吗

Dim d
Set d = CreateObject("Stock.Array")
d.AddBack(5)
d.AddBack(6)
d.AddBack(10)
d.AddBack(3)
d.AddBack(8)

MsgBox d.Search(10)

function f(s,cyc)
  sum=0
  for i=0 to cyc-1
    sum=sum+s(i)
  next
  f=sum/cyc
end function

xxx=f(d,5)

MsgBox xxx

 

 

我把d传进F函数里 有错 指向sum=sum+s(i) 这一行 请问这个是为什么？

函数是不是不能传进去一个数组？
--  作者：wattwei
--  发布时间：2010/11/19 11:37:56
--  
 可以。你用错了
sum=sum+s(i) 改为sum=sum+s.GetAt(i)
--  作者：夏小飞
--  发布时间：2010/11/19 11:40:08
--  
谢谢