[已解决]VB用函数实现两数最小公倍数

vbyou127

VB用函数实现两数最小公倍数

最佳答案

月排行榜 / 总排行榜

香川群子

2016-3-2 16:11

求得最大公约数GCD以后，最小公倍数LCM=t1*t2/GCD

1. Function GCD&(t1&, t2&) '最大公約数 G.C.D=Greatest Common Divisor
   
2.     If t1 Mod t2 Then GCD = GCD(t2, t1 Mod t2) Else GCD = t2
   
3. End Function
   
4. Function LCM&(t1&, t2&) '最小公倍数 L.C.M=Least Common Multiple
   
5.     LCM = t1 * t2 / GCD(t1, t2)
   
6. End Function

复制代码

这是用了2个函数。

跳转到最佳答案楼层

香川群子

求得最大公约数GCD以后，最小公倍数LCM=t1*t2/GCD

1. Function GCD&(t1&, t2&) '最大公約数 G.C.D=Greatest Common Divisor
   
2.     If t1 Mod t2 Then GCD = GCD(t2, t1 Mod t2) Else GCD = t2
   
3. End Function
   
4. Function LCM&(t1&, t2&) '最小公倍数 L.C.M=Least Common Multiple
   
5.     LCM = t1 * t2 / GCD(t1, t2)
   
6. End Function

复制代码

这是用了2个函数。

香川群子

或者直接迭代计算：
'最小公倍数 L.C.M=Least Common Multiple

1. Function LCM2&(t1&, t2&)
   
2.     t3 = t1 * t2
   
3.     Do
   
4.         t = t1 Mod t2: t1 = t2: t2 = t
   
5.     Loop While t
   
6.     LCM2 = t3 / t1
   
7. End Function

复制代码