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

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 这是我求最大公约数的过程,可运行不了,还有帮帮忙怎样把最小公倍数求出来?谢谢咯!

修改如下: 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再除以最大公约数
温馨提示:内容为网友见解,仅供参考
第1个回答  2017-08-04
修改如下: 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再除以最大公约数本回答被网友采纳

用VB求解两个正整数M和N的最大公约数和最小公倍数
"请输入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再除以最大公约数 ...

求两个正整数m,n的最大公约数和最小公倍数
1)n 和 m (n>m)的最大公约数等于 m 和 n%m 的最大公约数。2)当 m为0 时,这时的 n 为 开始时的 n 和 m 的最大公约数

VBA编程:输入两个正整数m和n,求其最大公约数和最小公倍数
Sub 最小公倍数和最大公约数() Dim m As Integer, n As Integer Dim m1 As Integer, n1 As Integer Dim t As Integer m = InputBox("输入自然数m:") n = InputBox("输入自然数n:") m1 = m n1 = n If m1 < n1 Then m1 = n n1 = m '交换...

vb设计 输入两个正整数m和n,求他们的最大公约数和最小公倍数
m=text1.text n=text2.text do r=m mod n m=n n=r loop until r=0 text3.text=m min=val(text1.text)*val(text2.text)\/m text4.text=min end if (m是指第一个数,n是指第二个数,r是个参数,min是指最小公倍数,希望你能看懂)...

如何使用vb求两个数的最大公约数和最小公倍数
最大公约数 m = InputBox("输入第一个自然数")n = InputBox("输入第二个自然数")If m < n Then t = m: m = n: n = t r = m Mod n Do While (r <> 0)m = n n = r r = m Mod n Loop End if MsgBox ("最大公约数为" & n)最小公倍数 Dim a%, b%, m a ...

用VB编程:求两个整数的最小公倍数。
方法简述:最小公倍数等于两个正整数相乘再除以两个正整数的最大公约数(即a*b\/g)。说明求两个正整数最大公约数,自己查找。vb程序代码如下:Private Sub Command1_Click()Dim m As Integer, n As Integer Dim g As Integer dim t1 as integer,t2 as integer m = InputBox("第一个数")n...

vb 输入两个数m和n,且满足m>n,求m和n的最大公约数、最小公倍数以及组 ...
Private Sub Command1_Click() Dim m As Integer, n As Integer m = Text1 n = Text2 Print "最大公约数="; gcd(m, n) Print "最小公倍数="; lcm(m, n) Print "组合数C(" & m & "," & n & ")="; c(m, n)End SubFunction gcd(ByVal m, ByVal n) Do ...

从键盘上输入两个正整数M和N,求最大公因子. VB
18 和 48 的最大公因数 第一部 大数除以小数取余数 48÷18=2……12 第二部 余数是零,结束运算,小数即为最大公因子;余数不是零,继续利用辗转相除法,小数除以余数再取余数 18÷12=1……6 第三步 如果余数是零,则计算结束,上步运算的除数即为最大公因子;否则继续利用辗转相除法,将上步...

用辗转相除法求两个自然数m,n的最大公约数和最小公倍数的vb程序编写
n As Integer Dim a As Integer,b As Integer Dim r As Integer m = InputBox("输入m")n = InputBox("输入n")a = m b = n Do r = Abs(m - n)m = n n = r Loop While m <> n Print a;"和";b;"最大公约数是";r Print a;"和";b;"最小公倍数是";a b \/ r E...

输入两个正整数m和n,求它们的最大公约数和最小公倍数
最大公约数:(比如说6和8 6=2X3 8=2X4 2就是最大公约数)最小公倍数:mn

相似回答