以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://weistock.com/bbs/index.asp)
--  高级功能研发区  (http://weistock.com/bbs/list.asp?boardid=5)
----  [求助]for循环报错  (http://weistock.com/bbs/dispbbs.asp?boardid=5&id=9574)
--  作者：RES00
--  发布时间：2012/1/4 15:19:35
--  [求助]for循环报错

先看代码：

private Sub GetNewPrice()
  i=600
 
  for j=2 to i+1
     ss1(j)=tt(j-2)
     ss2(j)=tt(j-2)
     ss3(j)=ss2(j)-ss2(j-1)
     if ss1(j)>ss1(j-1) then
     ss4(j)=ss2(j)
     else if ss1(j)<ss1(j-1)  then
     ss4(j)=0
     else if ss1(j,3)=ss1(j-1,3) then
        
         for k=j to 2 step -1
         if ss1(k-1)>ss1(k-2) then
         ss4(j)=ss2(j)
         end if
         next
     end if
    
  next

End Sub

这段代码有什么地方不对吗？系统总是报错next，不知道为什么，请教版主和高手，谢谢！
--  作者：26327756l
--  发布时间：2012/1/4 15:25:38
--  

不知道你有没有声明定义数组，代码不全不能调试。
--  作者：RES00
--  发布时间：2012/1/4 15:34:37
--  回复：（26327756l）不知道你有没有声明定义数组，代码...

SS1,2,3,4和tt1,2都是数组，但是系统不是说过不用声明的吗？第一次用的时候系统就会自动声明

另外我的主要目的是要实现在SS1数组第N个数大于第N-1个数时，把SS3的第N个数赋值给SS4的第N个数，

                                                           小于时把SS3的第N个数的复数赋值给SS4的第N个数，

                                                           等于时，则看前面遇到的第一个不相等情况发生时是大于还是小于，然后决定SS3的第N个数的复数赋值给SS4的第N个数的正负