展开全部
//求阶乘的值
Function getFactorial(num as Integer) as Integer
if num=0 or num =1 then getFactorial=1
elseif num>1 then
getFactorial=num*getFactorial(num-1)
end if
End Function
//num 为最大的那个数,如1!+2!+...+8!,则num为8
Function getSum(num as Integer)as Integer
Dim sum
sum=0
for i=1 to num
sum=sum+getFactorial(i)
next i
End function
我只写了函数,剩下的自己应该怎么做了。
Function getFactorial(num as Integer) as Integer
if num=0 or num =1 then getFactorial=1
elseif num>1 then
getFactorial=num*getFactorial(num-1)
end if
End Function
//num 为最大的那个数,如1!+2!+...+8!,则num为8
Function getSum(num as Integer)as Integer
Dim sum
sum=0
for i=1 to num
sum=sum+getFactorial(i)
next i
End function
我只写了函数,剩下的自己应该怎么做了。
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询