计算 s= 1+（1+2）+（1+2+3）+....+（1+2+3+4+.....+100）的值   求解！！

sum2 = 0
For i = 1 To 100
  sum1 = 0
  For j = 1 To i
    sum1 = sum1 + j
  Next j
  sum2 = sum2 + sum1
Next i
MsgBox sum2

sum2=171700

典型的不动脑子……

没有脑子 - -

好吧

这里要考虑的就是算法问题。

我觉得还有另一套算法：

将这些数据拆开，得到的是100个1+99个2+……+1个100。
于是，就有如下代码：

dim i%,s%
for i=1 to 100
    s=s+i*(101-i)
next i

赞一下楼上，拨开现象看本质