求最大公约数

如果知道两个正整数M和N ，求最大公因子，希望知道的帮帮忙 谢谢啊

网上都有代码.比较出名的有递归法和展转相除法.

个人推荐后者，BS穷举！

Public Function GCD(ByVal x As Integer, ByVal y As Integer) '//求最大公约数
Dim reminder As Integer
Do While y <> 0
reminder = x Mod y
x = y
y = reminder
Loop
Return (x)
End Function



Dear purana大姐 什么时候我能达到你的那种高度, 只给方法和思想, 让他自己思考自己受益,

[此贴子已经被作者于2007-8-24 22:47:47编辑过]

能给个地址或给弄个程序来吗？