一个求和问题？

[okcat]

算法为x = i * i + 5 * i
其中i的取值为1到10,setp 为1，
请问怎样把x的值累加起来求总和，谢谢各位了

[tztz520]

还没解决吗?

[njniu]

i是1 to 10 ，x是多少呢

[tztz520]

dim i as Integer
dim x as long

for i=1 to 10
x=x+i * i + 5 * i
next i
msgbox x

[okcat]

求的就是x的总数
把i等于1，2，3，4......10 代到算法里，会有10个x，就是求这10个x的和

[jin0706]

Dim x,i,s as integer

s = 0
For i = 1 to 10
x = i ^ 2 + 5 * i
s = s + x
next i

Print s

[wwqna]

上面的不是已帮你解决了嘛！

[wwqna]

to:jin0706(small(重新认识win9x))
加个S岂不是多此一举,同意 tztz520(午夜逛街)的

[okcat]

OK拉，谢谢大家了