运行经典数字数组中的总计 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

运行经典数字数组中的总计 asp

Running total on an array of numbers classic asp

arrays

asp-classic

运行 经典数字数组中的总计 asp

Running total on an array of numbers classic asp

arrays

asp-classic

运行经典数字数组中的总计 asp