如何用VBA计算10^40量级大数对100以内数的取模运算？

你原来用CDec转换的方法失效，是因为VBA里的Decimal类型最多支持28位有效数字，10^40量级的数远超这个上限，必然会溢出。这里给你一个基于字符串逐位处理的方案，完全避开超大数存储问题：

核心实现函数 #

Function LargeNumberMod(largeNumStr As String, divisor As Long) As Integer
    Dim currentMod As Long
    Dim digit As Integer
    Dim i As Integer
    
    currentMod = 0
    ' 逐位遍历大数的字符串形式
    For i = 1 To Len(largeNumStr)
        digit = CInt(Mid(largeNumStr, i, 1))
        ' 应用模运算性质：(当前模值*10 + 下一位数字) 对除数取模
        currentMod = (currentMod * 10 + digit) Mod divisor
    Next i
    
    LargeNumberMod = currentMod
End Function

测试示例 #

Sub TestLargeMod()
    ' 验证你给出的超大数取模案例
    Debug.Print LargeNumberMod("3545123008254150481059068660418190917230", 97) ' 输出37，符合预期
    ' 验证之前的小数字案例
    Debug.Print LargeNumberMod("300400000717120000131495", 97) ' 输出1，和原方法结果一致
End Sub

原理说明 #

这个方法利用了模运算的分配律：对于任意整数a、b和正整数m，(a * 10 + b) mod m = [(a mod m) * 10 + b] mod m。我们把超大数以字符串形式逐位处理，每一步只保留当前的模值（最大不会超过除数-1，也就是99），全程不需要存储或处理完整的超大数，彻底解决溢出问题。

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