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

最新标签
网站地图
文章索引
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 Variant Dim xl As Long, yl As Long, temp As [阅读全文] [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 Double If n < 0 Then Exit Sub ReD [阅读全文] [PDF]
Function Factorial(C As Integer) As String On 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 C < 2 Then Exit Function R = 20 A(0) = 1 [阅读全文] [PDF]
1 共3条 分1页