vb/一道简单的编程题求解！

qq2541213430 发布于 2017-11-30 18:55， 2438 次点击

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

7 回复

wds12017-11-30 19:29

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

xiangyue05102017-12-01 08:52

典型的不动脑子……

qq25412134302017-12-04 21:21

回复 3楼 xiangyue0510

没有脑子 - -

风吹过b2017-12-06 11:08

以下是引用qq2541213430在2017-12-4 21:21:13的发言：

没有脑子 - -

好吧

csl5912017-12-06 14:39

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

肇励影2017-12-07 12:16

我觉得还有另一套算法：

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

程序代码：

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

yulianran2017-12-19 10:39

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