主题：版主看过来

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