UC知道帮我写个求两数的最小公倍数，VB
来源：百度知道 编辑：UC知道 时间：2024/06/05 20:21:34
加上注释，还有基于什么方式写的，谢谢
比如，下面是求最大公约数的
Dim m,n As integer
Dim a,b,c
m = inputbox("输入第一个正整数")
n = inputbox("输入第二个正整数")
a = m : b = n
Do while a > 0 and b > 0
c = a Mod b
a = b
c = b
loop
Print a'最大公约数
比如，下面是求最大公约数的
Dim m,n As integer
Dim a,b,c
m = inputbox("输入第一个正整数")
n = inputbox("输入第二个正整数")
a = m : b = n
Do while a > 0 and b > 0
c = a Mod b
a = b
c = b
loop
Print a'最大公约数
private function f(byavl m as integer,byval n as integer) as integer
Dim a as integer,b as integer,c as integer
a = m : b = n
Do while a > 0 and b > 0
c = a Mod b
a = b
b = c
loop
end function
Private Sub Command1_Click()
Dim m As integer ,n As integer ,S as integer
m = inputbox("输入第一个正整数")
n = inputbox("输入第二个正整数")
S=m*n/f(m,n)
end sub