VB编程：编递归函数过程,计算1+2+3……..+n的值（n是自然数）

public f(byval n as integer) as long
if n=1 then
f=1
else
f=f(n-1)+n
end if
end function