EXCEL技巧——如何计算最小公倍数和最大公约数

新建一张EXCEL工作表，在表中输入一些数据，我们将通过函数计算和代码计算两种方式来实现最小公倍数和最大公约数的计算，如图所示。

选择F3单元格，输入=LCM(A3,B3,C3,D3,E3)，用填充手柄把下面的单元格填充满，现在就有了最小公倍数了。

选择G3单元格，输入=GCD(A3,B3,C3,D3,E3)，用填充手柄把下面的单元格填充满，现在就有了最大公约数了。

单击“开发工具”——VisualBasic，打开VBA编辑器，选择“插入”——模块，打开代码编辑窗口。

现在我们来输入代码：Sub 最小公倍数和最大公约数()    Dim m As Integer, n As Integer                      '定义m、n为整数    Dim m1 As Integer, n1 As Integer                    '定义m1、n1为整数    Dim t As Integer                                    '定义t为整数    m = InputBox('输入第1个自然数：')                   '设置输入框，提示输入第一个自然数    n = InputBox('输入第2个自然数')                     '设置输入框，提示输入第二个自然数    m1 = m    n1 = n    If m1 < n1 Then                                     '如果m1小于m2        m1 = n        n1 = m                                          '则交换m和n的值    End If    Do        r = m1 Mod n1                                   '取余运算        If r = 0 Then Exit Do                           '如果余数为0，则跳出循环        m1 = n1                                         '否则m1 = n1，n1 = r        n1 = r    Loop    str1 = m & ',' & n & '的最大公约数为' & n1 & vbCrLf    str1 = str1 & '最小公倍数为' & m * n / n1    MsgBox str1End Sub

现在单击编辑器中，运行——运行子过程/用户窗体，弹出第一个对话框“输入第一个自然数”，我们输入“24”，单击确定，弹出第二个对话框“输入第2个自然数”，单击确定，弹出第三个对话框“24,12的最大公约是为12，最小公倍数为24”.