先看代碼：

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，不知道為什么，請教版主和高手，謝謝！

不知道你有沒有聲明定義數組，代碼不全不能調試。

SS1,2,3,4和tt1,2都是數組，但是系統不是說過不用聲明的嗎？第一次用的時候系統就會自動聲明

另外我的主要目的是要實現在SS1數組第N個數大于第N-1個數時，把SS3的第N個數賦值給SS4的第N個數，

                                                           小于時把SS3的第N個數的復數賦值給SS4的第N個數，

                                                           等于時，則看前面遇到的第一個不相等情況發生時是大于還是小于，然后決定SS3的第N個數的復數賦值給SS4的第N個數的正負