主题：版主看过来

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）

 搞不清代码的意图。如果循环想反向的话，要加step -1

不需要搞清楚代码的用途

for z=x to 1
     n=n+z
     MsgBox x
   next
里的MsgBox x什么都没输出 我写的哪里有错？

是这样吗

for z=x to 1 step -1

     n=n+z
     MsgBox x
   next

嗯

谢谢