[已解决]VB用函数实现两数最大公约数

vbyou127

VB用函数实现两数最大公约数

最佳答案

月排行榜 / 总排行榜

香川群子

2016-3-2 16:05

也可以迭代循环计算：

'最大公約数 G.C.D=Greatest Common Divisor

1. Function GCD2&(t1&, t2&)
   
2.     Do
   
3.         If t1 < t2 Then t = t1: t1 = t2: t2 = t
   
4.         t1 = t1 Mod t2
   
5.     Loop While t1
   
6.     GCD2 = t2
   
7. End Function

复制代码

跳转到最佳答案楼层

香川群子

史上最简VBA自定义公式：

最大公約数 G.C.D=Greatest Common Divisor

1. Function GCD&(t1&, t2&)
   
2.     If t1 Mod t2 Then GCD = GCD(t2, t1 Mod t2) Else GCD = t2
   
3. End Function

复制代码

是自身递归计算。

香川群子

也可以迭代循环计算：

'最大公約数 G.C.D=Greatest Common Divisor

1. Function GCD2&(t1&, t2&)
   
2.     Do
   
3.         If t1 < t2 Then t = t1: t1 = t2: t2 = t
   
4.         t1 = t1 Mod t2
   
5.     Loop While t1
   
6.     GCD2 = t2
   
7. End Function

复制代码

香川群子

这个算法很有名，叫做辗转相除法 或 短除法。

香川群子

迭代计算过程可以改进一下，效率更高：

'最大公約数 G.C.D=Greatest Common Divisor

1. Function GCD1&(t1&, t2&)
   
2.     Do
   
3.         t = t1 Mod t2: t1 = t2: t2 = t
   
4.     Loop While t
   
5.     GCD1 = t1
   
6. End Function

复制代码