Question

VB 函数过程的建立

在通常的代码下Function sum(n As Integer, s As Long)
Dim i As Integer
s = 0

For i = 1 To n
s = n + s

Next i
sum = s
End Function

我明明做计算和，但结果是幂次计算，请大家帮助指出有问题的地方，拜托！

Answer 1

Function sum(n As Integer, s As Long)
Dim i As Integer
s = 0 '这里会把传来的参数s清零!!!

For i = 1 To n
s = n + s '如果要算1到n的和应该用s=i+s,这里是算了n个n的和
'即结果是s=n*n了.

Next i
sum = s '返回和
End Function

'如无意外,程序达不到求和目的,应该是s=0这里有问题了.仔细想想程序是做什么的,然后改改

Answer 2

这样定义：
Function sum(n As Integer) As Long
关键是 for 循环里 把 n换成 “i ”！！！！
你的意思是 n个n相加！！！

引用时就可以这样了
print sum(3)
显示为6

Answer 3

Function sum (n as integer) as integer
Dim i as integer
sum=0
for i=1 to n
sum=sum+i
next
End function