vba 初试_最小公倍数

 选择-插入- 模块

然后加入如下代码： 保存

Function hcf(m, n)
 If m < n Then
 t = m: m = n: n = t
 End If
 r = m Mod n
 Do While r > 0
 m = n
 n = r
 r = m Mod nLoop
 hcf = n
 End Function

 

在C1栏中定位光标 然后输入公式
=hcf（A1，B1）

计算出结果（求最小公倍数）：

 

 demo download