用VB求解两个正整数M和N的最大公约数和最小公倍数

修改如下： Dim m As Long, n As Long, temp As Long, r As Long m = Val(InputBox("请输入m的值:")) n = Val(InputBox("请输入n的值:")) Do If m < n Then temp = m: m = n: n = temp r = m Mod n If r <> 0 Then m = n n = r End If Loop Until (r = 0) Print n 最小公倍数算法： m乘以n再除以最大公约数

修改如下： Dim m As Long, n As Long, temp As Long, r As Long m = Val(InputBox("请输入m的值:")) n = Val(InputBox("请输入n的值:")) Do If m < n Then temp = m: m = n: n = temp r = m Mod n If r <> 0 Then m = n n = r End If Loop Until (r = 0) Print n 最小公倍数算法： m乘以n再除以最大公约数