以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://www.weistock.com/bbs/index.asp)
--  高级功能研发区  (http://www.weistock.com/bbs/list.asp?boardid=5)
----  版主看过来  (http://www.weistock.com/bbs/dispbbs.asp?boardid=5&id=3967)
--  作者：Morgan
--  发布时间：2010/11/19 14:46:23
--  版主看过来

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
  x=cyc
  msgbox x
  j=4
   for i=0 to cyc-1
     w=cyc-i
     v=w *s.GetAt(j)
     sum=sum+v
     msgbox sum
     j=j-1
   next  
    
 for z=x to 1
     n=n+z
     MsgBox x
   next
end function
xxx=f(d,5)
MsgBox xxx

 

 

为什么第一次X能输出为5的 第2次在for z=x to 1下面就不行了呢 它输出不了任何数了（包括0）
--  作者：wattwei
--  发布时间：2010/11/19 14:58:12
--  
 搞不清代码的意图。如果循环想反向的话，要加step -1
--  作者：Morgan
--  发布时间：2010/11/19 15:03:17
--  

不需要搞清楚代码的用途

for z=x to 1
     n=n+z
     MsgBox x
   next
里的MsgBox x什么都没输出 我写的哪里有错？
--  作者：Morgan
--  发布时间：2010/11/19 15:04:37
--  

是这样吗

for z=x to 1 step -1

     n=n+z
     MsgBox x
   next

--  作者：wattwei
--  发布时间：2010/11/19 15:05:34
--  
嗯
--  作者：Morgan
--  发布时间：2010/11/19 15:08:35
--  

谢谢