欢迎使用金字塔普通技术服务论坛,您可以在相关区域发表技术支持贴。
我司技术服务人员将优先处理 VIP客服论坛 服务贴,普通区问题处理速度慢,请耐心等待。谢谢您对我们的支持与理解。


金字塔客服中心 - 专业程序化交易软件提供商金字塔软件高级功能研发区 → [求助]for循环报错

   

欢迎使用金字塔普通技术服务论坛,您可以在相关区域发表技术支持贴。
我司技术服务人员将优先处理 VIP客服论坛 服务贴,普通区问题处理速度慢,请耐心等待。谢谢您对我们的支持与理解。    


  共有3805人关注过本帖树形打印复制链接

主题:[求助]for循环报错

帅哥哟,离线,有人找我吗?
RES00
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:新手上路 帖子:35 积分:225 威望:0 精华:0 注册:2011/12/24 20:01:07
[求助]for循环报错  发帖心情 Post By:2012/1/4 15:19:35 [只看该作者]

先看代码:

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
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:黑侠 帖子:676 积分:2548 威望:0 精华:3 注册:2011/4/13 16:18:50
  发帖心情 Post By:2012/1/4 15:25:38 [只看该作者]

不知道你有没有声明定义数组,代码不全不能调试。


 回到顶部
帅哥哟,离线,有人找我吗?
RES00
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:新手上路 帖子:35 积分:225 威望:0 精华:0 注册:2011/12/24 20:01:07
回复:(26327756l)不知道你有没有声明定义数组,代码...  发帖心情 Post By:2012/1/4 15:34:37 [只看该作者]

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

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

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

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


 回到顶部