Question

从键盘输入正整数n，计算1！+2！+3！+···+n！。要求n！的计算采用自定义函数形式来实现，函数名为FACTO

Answer 1

在VB编辑器中插入函数。粘贴以下代码。
在excel表格中任一单元格输入一正整数，在另一单元格输入=FACTO(那个单元格号)即可。
输入的正整数太大，只能用科学计数法显示结果。
Function FACTO(x As Long)
Dim k, j, m, i, n
For i = 1 To x
m = 1
For j = 1 To i
m = j * m
Next
k = k + m
Next
FACTO = k
End Function

Answer 2

/*n!*/
int fn(int n)
{
int f
if(n=1||n=0)
{
f=1;
}
else
{
f=n*fn(n-1)
}
return f;
}
int FACTO(int n)
{
int count=0;
for(i=1;i<=n;i++)
{
count+=fn(i);
}
return count;
}

Answer 3

function p(n){
var rst=1;
for(iii=2;iii<=n;iii++)rst*=iii;
return rst;
}
function facto(n){
var rst=0;
for(var iii=1;iii<=n;iii++)rst+=p(iii);
return rst;
}