Question

我有一个数组a = Array（1,2,3,4,5,6,7,8,9,10）

我需要添加1 + 2 + 3然后2 + 3 + 4然后3 + 4 + 5等等，直到8 + 9 + 10

或换句话说第一项加第二项加第三项然后第二项加第三项加第四项等等

我怎么能在经典的asp中做到这一点，这是我的尝试。或其中一次尝试。

            Dim p, m, a, t
            a = array(0,1,2,3,4,5,6,7,8,9,10,11,12,12,13,14)
            t = 0
            p = 0    
            m = 0       
            For x = m To 14                                    
                p = p + 1                    
                if p < 4 then
                    t = t + a(x)
                end if
                if p = 3 then
                    m = 0
                    p = 0
                    ReDim Preserve arr(UBound(a) - 1)
                    response.Write t & "<br />"
                end if
            Next

我的计划是添加4个项目，然后在它到达第4个项目时重置起始索引（即m = 0），此时也从阵列中删除第一个项目，这样当它再次启动时item成为第一项。

Answer 1

我认为你的事情比他们需要的更复杂。（要么就是这样，要么为了删除识别细节而过度简化了问题。）

For i = 0 to UBound(a) - 2
    t = a(i) + a(i+1) + a(i+2)
    Response.Write a(i) & " + " & a(i+1) & " + " & a(i+2) & " = " & t & "<br>"
Next

在数组经典asp上运行总计

1 个答案: