Arrays 在一组数字上运行total经典asp

我有一个数组a=数组（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

尺寸p、m、a、t
a=数组（0,1,2,3,4,5,6,7,8,9,10,11,12,12,13,14）
t=0
p=0
m=0
对于x=m到14
p=p+1
如果p<4，则
t=t+a（x）
如果结束
如果p=3，则
m=0
p=0
重播保留arr（UBound（a）-1）
响应。写入t&“
”
如果结束
下一个

---

我的计划是添加4个项目，然后在它到达第4个项目（即m=0）时重置起始索引，此时还将从数组中删除第一个项目，这样当它再次开始时，第二个项目将成为第一个项目。

我认为您正在使事情变得比需要的更复杂。（要么如此，要么你为了消除识别细节而将问题过于简化。）

i=0到UBound（a）-2的

t=a（i）+a（i+1）+a（i+2）
回答。写一个（i）&“+”&a（i+1）&“+”&a（i+2）&“=”&t&“
”
下一个

这不是租一个编码器，我们不是来为您编写解决方案的。请提供一个展示你解决问题的尝试，我们将从那里开始。我已经添加了更多信息，我希望它能帮助你成为超级明星。你给了我想要的东西。正如你从我的代码中看到的，我不是一个好的程序员。但你让它变得如此简单。非常感谢

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