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

Question

dim m,n,temp as long m=val(inputbox("请输入m的值:")) n=val(inputbox("请输入n的值:")) if m<n then temp=m:m=n:n=temp end if dim r as long r=m mod n if r=0 then exit sub m=n n=r end if print n 这是我求最大公约数的过程,可运行不了,还有帮帮忙怎样把最小公倍数求出来?谢谢咯!

Answer 1

修改如下： 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再除以最大公约数

Answer 2

修改如下： 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再除以最大公约数本回答被网友采纳