专注于互联网--专注于架构

大数阶乘:大数的阶乘-vb教程

Function Factorial(intC As Integer) As StringOn Error GoTo myErr: Dim intA() As Integer, intT() As Integer, i As Integer Dim j As Integer, intR As Integer ReDim intA(20), intT(20) If intC < 2 Then Exit Function intR = 20 intA(0) = 1 For i = 2 To intC For j = 0 To intR intT(j) [阅读全文] [PDF]