自编函数的问题

问题描述：

function countN(n)
dim i,c
c=0
for i=1 to n
c=c+i
next
countN=c
end function
s=100
response.Write "从 1 加到 " & s & " 的结果是：" & countN(s)

这段函数是什么意思,谁能帮具体解释一下
我指的是过程,不是结果

谢谢三位回答

问题解答：

计算 1+2+3...+100=?

这个函数是用来计算 1+2+3+......+(n-1)+n 的值的,就是从 1 一直加到n 。

函数部分是
function countN(n)
dim i,c
c=0
for i=1 to n
c=c+i
next
countN=c '将计算结果赋值给函数过程名，则在用countN(s)计算结果之后可以经传址返回终值
end function

这一句 response.Write "从 1 加到 " & s & " 的结果是：" & countN(s)
后面那个countN(s)就是调用函数过程来计算1+2+......+n的值。
因为s=100,所以调用函数之后，函数过程里的n=s=100。再看函数里的那个for循环，i从1到n,就是从1到s。

第一轮循环c=0,那么c=c+i实质就是c=0+1 , 即c=1
第二轮c=1，c=c+2（此时i=2），即c=1+2=3
第三轮依此类推。

更简单一点说，第一次循环c是1 (0省略)
第二次c是1+2
第三次1+2+3
第四次1+2+3+4
......
第N次（或者说第S次）c就是1+2+3+.....+n

明白了？

function countN(n) //函数名和参数
dim i,c //定义两个变量
c=0 //变量初始化
for i=1 to n //循环，当值大于N结束
c=c+i //使C的值加1
next
countN=c //返回C
end function //函数结束
s=100
response.Write "从 1 加到 " & s & " 的结果是：" & countN(s) //调用函数