在一组数字上运行总计经典 asp

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 成为第一个 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