请实现一个函数Fact用于求N的介乘，N为函数的行参，通过函数返回值返回n的介乘。其中n为正整数，朋友答题

显示全部楼层 · 2011-6-16 16:07:11

帮帮忙吧！谢谢

千问 · 2011-6-16 16:07:11

由于阶乘出来的数比较大、所以返回值是字符串、如果不满意再说、再给你改、还有、我用的n为小写、并且需要头文件#include char*Fact(int n){int i,j,k,l=1,s[100]={1};char m[100];for(i=2;i9){s[j+1]+=s[j]/10;s[j]%=10;}j=l-1;l+=(int)log10((float)s[l-1]);while(s[j]>9){s[...

千问 · 2011-6-16 16:07:11

Dim n As IntegerPrivate Sub Command1_Click()n = InputBox("input n=")Print n & "的阶乘=" & fact(n)End SubPublic Function fact(n As Integer) As Longfact = 1For i = 1 To ...