如何用VBA求一个数学的经典问题—

如何用VBA求一个数学的经典问题——孙子问题？

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

楼主
wise

Q：如何用VBA求一个数学的经典问题——孙子问题？
孙子问题：“今有物不知其数，三三数之剩二；五五数之剩三；七七数之剩二。问物几何？答曰：二十三。”
A：ALT+F11→插入模块→输入以下代码：

Sub test1()
Dim m As Integer
m = 2
While m Mod 3 <> 2 Or m Mod 5 <> 3 Or m Mod 7 <> 2
m = m + 1
Wend
MsgBox "答案的一个解为：" & m
End Sub

Sub test2()
Dim m As Integer
m = 1
Do
m = m + 1
Loop Until m Mod 3 = 2 And m Mod 5 = 3 And m Mod 7 = 2
MsgBox "答案的一个解为：" & m
End Sub

此问题相当于解不定方程式组
m=3*x+2
m=5*y+3
m=7*z+2

2楼
庭院幽幽

哎，好好学习吧，我很想学VBA，

免责声明

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

评论列表