求高精度快速大数阶乘算法!1最好用vb.net,能在一分钟内计算出100000!

For numIndex As Integer = 2 To number
carry = 0
For arrayIndex = 0 To arrayTail
midProduct = product(arrayIndex) * numIndex + carry
carry = midProduct DIVISOR
product(arrayIndex) = midProduct - DIVISOR * carry
Next arrayIndex
Do While carry 0
product(arrayIndex) = carry Mod DIVISOR
carry = carry DIVISOR
arrayIndex += 1
Loop
arrayTail = arrayIndex - 1
Next numIndex