在一组数字上运行总计经典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），这时还摆脱了数组中的第一个项目，因此当它再次开始时，第二个项目就变成了第一项。

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