1樓：
先用輾轉相除法求出兩個數的最大公約數，再用兩數之積除以最大公約數即是最小公倍數
function lcm(a as long, b as long) as long '求m和n的最小公倍數
dim tmp as long, m as long, n as long
m = a
n = b
do while n <> 0
tmp = n
n = m mod n
m = tmp
loop
'm為a、b的最大公約數
lcm = a * b / m
end function
2樓：紗傘
求兩個數的最小公倍數，
設有兩個數 a，b (a>b)
那麼 最小公倍數就在a 到 a*b之間
可以採用 for 語句使 變數i 從 a變化到 a*b
一旦出現結果（符合條件 i 能被 a 整除 且 i能被b整除 ）就停止迴圈（exit for）
下面是**
dim a&, b&, i&, result&
a = val(inputbox("輸入第乙個數"))
b = val(inputbox("輸入第二個數"))
if a < b then
t = a
a = b
b = t
end if
for i = a to a * b
if i mod a = 0 and i mod b = 0 then
result = i
exit for
end if
next i
msgbox "結果為" & result
function 可以是
function zxgbs(byval a&, byval b&) as long
if a < b then
t = a
a = b
b = t
end if
for i = a to a * b
if i mod a = 0 and i mod b = 0 then
zxgbs = i
exit for
end if
next i
end function
用vb程式設計：求兩個整數的最小公倍數。
3樓：匿名使用者
沒太多的時間修改,給你個例子:
方法簡述：最小公倍數等於兩個正整數相乘再除以兩個正整數的最大公約數（即a*b/g）。說明求兩個正整數最大公約數，自己查詢。
vb程式**如下：
private sub command1_click()dim m as integer, n as integerdim g as integer
dim t1 as integer,t2 as integerm = inputbox("第乙個數")
n = inputbox("第二個數")
t1=m 't1,t2是臨時變數t2=n
g = iif(m < n, m, n)
do while g > 1
if m mod g = 0 and n mod g = 0 then exit do
g = g - 1
loop
print m & "與" & n & "的最小公倍數為：" & (t1*t2)/g
end sub
4樓：匿名使用者
求出兩個數的最小公倍數函式：
function min公倍數(a as long, b as long)
dim x as long, y as long, k as long, 最大公約數 as long
x = iif(a >= b, a, b) 'x存入最大值y = iif(a <= b, a, b) 'y 存入最小值do '輾轉相除法
k = x mod y: if k = 0 then exit dox = y: y = k
loop
最大公約數 = y
min公倍數 = a * b / 最大公約數end function
vb程式設計求兩個正整數的最小公倍數
5樓：匿名使用者
方法簡述：最小公倍數等於兩個正整數相乘再除以兩個正整數的最大公約數（即a*b/g）。說明求兩個正整數最大公約數
private sub main()
m = val(inputbox("m"))n = val(inputbox("n"))a = m: b = n
do r = m mod n
if r = 0 then exit dom = n
n = r
loop
c = a / n
d = b / n
msgbox c * d * n
end sub
怎樣求兩個數的最大公因數和最小公倍數
答 已知兩個數，求這兩個數的最大公因數和最小公倍數的方法如下 一 用列舉法找兩個數的最小公倍數和最大公因數。列舉法就是讓學生分別將兩個數的倍數和因數分別寫出，再將最小公倍數和最大公因數找出來。注 這種方法雖然易學，但只適用於較小的數，如果碰到較大的數，學生做起來就有些繁瑣 麻煩了。二 利用倍因關係找...
兩個數的公倍數和它們的最小公倍數之間有什麼關係
兩個數的公倍數有無數個,而兩個數的最小公倍數只有乙個,公倍數中最小的乙個叫做最小公倍數.公倍數是最小公倍數的倍數.請採納,謝謝.兩個數的公倍數包括它們的最小公倍數，它們的最小公倍數屬於這兩個數的公倍數。一句話 兩個數的最小公倍數是這兩個數的公倍數中最小的那個。兩個數的公倍數和它們的最小公倍數之間存在...
兩個數的最大公約數是6，最小公倍數是420 如果這兩個數相差
那麼這兩個數是60和42.較小的數是42 由已知得，這兩個數的乘積為420 6 2520 設較小的數為x，則x x 18 2520 解得x 42 兩個數的最大公約數是6，最小公倍數是420，這兩個數相差8，那較小的數是多少 那麼這兩個數是60和42.較小的數是42 兩個數的最大公約數是6，最小公倍數...