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

最新标签
网站地图
文章索引
Rss订阅
阶乘指 1*2*3*...*(n-1)*n 值在n=171时计算机般会出错(“溢出”)本文采用串模拟数字乘法运算使计算10000!成为可能:Function multi(ByVal X As String, ByVal Y As String) As String ´multi of two huge hexnum(两个大数的积)Dim result As VariantDim xl As Long, yl As Long, temp As Long, [阅读全文] [PDF]
>和笔者另算法()相比采用下面思路方法阶乘计算速度快了好几倍!Sub calcfactorial(ByVal n As Integer)Dim XYS As Integer, x As Integer, y As Integer, result As String, i As Long, j As Long, k As Long, TEMP As Long, stimer As DoubleIf n < 0 Then Exit SubReDim x(1)Re [阅读全文] [PDF]
Function Factorial(C As Integer) As StringOn Error GoTo myErr:    Dim A As Integer, T As Integer, i As Integer    Dim j As Integer, R As Integer    ReDim A(20), T(20)    If [阅读全文] [PDF]
1 共3条 分1页