一个求和问题？

[okcat]

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

[tztz520]

x=x+值

[lsj1982]

dim i,x,t as long
x=0
for i=1 to 10
t=i*i+5*i
x=x+t
next

[recollectpainer]

dim i,x,t as long
' 上面这个语句在VB6中不标准，但不是指他错误
在 .net 中可以这样定义，但在 vb6 中正确的写法应为
dim i as long , x as long , t as long

象上面那句等同于
dim i, x
dim t as long

[qidaozhilong]

虽然，来晚了，也来写写吧。
dim i as single,x as long
x=0
for i=1 to 10
x=x+i*i+5*i
next
关于效率，1、x估算大于2^8,or x就定义为integer了。
2、可考虑移位操作，在C里可以实现，VB不知道行不行。
3、还想提高，你去写汇编算了。

[xiaoyen]

dim i as integer,x as long
x=0
for i=1 to 10
x=x+i*i+5*i
next
非常正确
楼上真聪明（只求x的值累加起来求总和）

[Mars.CN]

楼上的支持你的观点！
dim i,x,t as long
这样i,x为变体型变量
dim i as integer , x as long , t as long
i没必要占多余的空间了
实验证明，next 比 next i 要快！
完整的式子：

dim i as integer , x as long , t as long
for i=1 to 10
t=i*i+5*i
x=x+t
next

[cindytsai]

TO：1楼
你的回答也太那个了，他要懂就不问这问题了！

[huangjianyou]

程序写好了就要求效率，这才是好程序。

^_^

[viena]

//你的回答也太那个了，他要懂就不问这问题了！
晕~