如何对整数N分解质因数？

作者：绿色风分类：时间：2022-08-17 浏览：124

楼主
northwolves

Q：如何对整数N分解质因数？

A：一般是循环2-SQRT(N)间的素数去试除N.这里提供一个利用网络资源分解质因数的方法；

Function Numbectorizer(ByVal number As String) As String
If number Like "*[!0-9]*" Then Exit Function '非数字
If Len(number) > 49 Then Exit Function '大于10^50
With CreateObject("Microsoft.XmlHttp")
.Open "get", " http://www.numberempire.com/numbe**ctorizer.php?number=" & number, False
.send
Numbectorizer = number & "=" & Split(Split(.responsetext, "Factorization: ")(1), "</div>")(0)
End With
End Function
Sub Test()
Debug.Print Numbectorizer("5496798436872018423594784658472398479365743653457")
End Sub

代码返回：5496798436872018423594784658472398479365743653457=631*2203*363855034465310413*10867698146089328508354473

2楼
kevinchengcw

学习一下

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表