Private Function SUM(i as integer)as longif i=1 then sum=1elsesum=sum(i-1)+iend ifEnd Function然后直接sum(100)就好了
一楼 是 递归调用不错!