先看代碼：

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

這段代碼有什么地方不對嗎？系統(tǒng)總是報錯next，不知道為什么，請教版主和高手，謝謝！

不知道你有沒有聲明定義數(shù)組，代碼不全不能調(diào)試。

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

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

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

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