|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
本帖最后由 86774110 于 2024-9-20 14:48 编辑
各位站友好,(可以使用了)
我想在excel中实现模幂运算,让AI生成了代码测试,能正常运行,并且运算正确。
但是在excel表格中却无法正常使用这个函数,希望各位站友,看到出手相助~~~~~
代码如下:
Function QPow2(base, pow, modVal)
Dim res As Double
res = 1 Mod modVal
base = base Mod modVal
While pow > 0
If pow Mod 2 = 1 Then
res = (res * base) Mod modVal
End If
base = (base * base) Mod modVal
pow = pow \ 2
Wend
QPow2 = res
End Function
Sub test()
Dim base As Double
Dim pow As Double
Dim modVal As Double
base = 2
pow = 10
modVal = 999
MsgBox "The result is: " & QPow2(base, pow, modVal)
End Sub
系统win10,office 2019
附件如下
带模幂函数.rar
(12.24 KB, 下载次数: 4)
|
|