asp利用数组实现阶乘计算（大数相乘）

计算一个数的阶乘时，绝对会遇到溢出的问题，往往就要用到大数计算，基本原理大抵是利用一个数组来存储数的每一位，例如123456转换为数组存储就是a(5)=6、 a(4)=5、a(3)=4、a(2)=3、a(1)=2、a(0)=1

首先我们需要的是一个大数相乘的函数，代码如下：

function BigChen(val1,val)
    dim i,leng1
    leng1=ubound(val1)
    for i=0 to leng1
        val1(i)=val1(i)*val
    next
    call formatBig(val1)   '在这里对大数数组进行格式化
    BigChen=val1
end function

在这里，调用到了一个名为formatBig的函数，原因是相乘时，往往会遇到有进位的情况，一贯的做法是统一对数组进行格式化，代码如下：

function FormatBig(result)
    dim leng,i
    leng=ubound(result)
    for i=0 to leng-1 '从右至左操作第一位至倒数第二位数
        if result(i)>=10 then   '如果要进位
            result(i+1)=result(i+1)+int(result(i)/10)
            result(i)=result(i) mod 10
        end if
    next
    do while result(leng)>=10    '如果最左一位要进位，对最左一位进行格式化
        redim preserve result(leng+1)   '增加数组长度
        result(leng+1)=int(result(leng)/10) '进位
        result(leng)=result(leng) mod 10  
        leng=leng+1  '操作位向左移一位
    loop
    Formatbig=result
end function

如此就完成了大数相乘的操作，下面是显示大数的函数：

sub OutPutBig(vals)
    dim i
    response.write "<div style='width:800px;' align=left>"
    for i=ubound(vals) to 0 step -1
        response.write  vals(i) 
    next
    response.write "</div>"
end sub

计算阶乘：

function fac(n)
    dim temp
    redim temp(0)
    dim t
    dim i
    temp(0)=1
    for i=1 to n
        t=bigchen(temp,i)
    next
    fac=t
end function

奇怪的是，如果利用递归计算阶乘，当N>=222时，就会造成溢出，不知道为什么，希望高手告知

function fac2(n)
    dim temp(0)
    temp(0)=1
    if n=1 then
        fac2=temp
    else
        fac2=bigchen(aa(n-1),n)
    end if
end function

在本机(C2.4 512M XP pro, IIS5.1)下计算1500!，耗时19671.9毫秒

tim1=timer
call outputbig(fac(1500))
tim2=timer
response.write cstr(int(( (tim2-tim1)*10000 )+0.5)/10)