如何在VBA中对10^25级大十进制数进行模100以内数运算

核心思路 #

不用折腾素因数分解（分解大素数反而麻烦），直接靠模运算的递推性质解决：把超大数当成纯数字字符串，从左到右逐位计算模值，每一步只处理小整数，完全避开超大数存储的溢出问题。递推公式是：
current_mod = (current_mod * 10 + 当前位数字) mod 模数

代码实现 #

Function BigNumberMod(bigNum As String, modNum As Integer) As Integer
    Dim currentMod As Long
    Dim i As Integer
    Dim digit As Integer
    
    currentMod = 0
    ' 遍历大数的每一位
    For i = 1 To Len(bigNum)
        digit = Val(Mid(bigNum, i, 1))
        ' 逐位递推计算模值
        currentMod = (currentMod * 10 + digit) Mod modNum
    Next i
    
    ' 把0结果转为模数本身（满足你要的1-100范围）
    If currentMod = 0 And modNum > 0 Then
        BigNumberMod = modNum
    Else
        BigNumberMod = currentMod
    End If
End Function

使用示例 #

拿你给的例子测试：300400000717120000131495 mod 97，调用代码如下：

Sub TestBigMod()
    Dim res As Integer
    res = BigNumberMod("300400000717120000131495", 97)
    MsgBox "计算结果：" & res ' 输出1，和预期一致
End Sub

注意事项 #

• 超大数必须以纯数字字符串传入，不能是科学计数法格式（比如1e25要转成10000000000000000000000000）
• 如果你的大数存在Variant里且是科学计数法，先转成完整数字字符串，比如用Format(bigVar, "0")，但要注意：Double类型存10^25级的数会丢精度，所以最好一开始就用字符串存大数
• 模数modNum限定为1-100的正整数，要是需要支持更大模数，调整变量类型即可

内容的提问来源于stack exchange，提问作者Fabian Stiewe