1樓：岔路程式緣
if語句缺少了end if！
另外程式結構上還有點問題，已經給你改好了：
private sub getmaxmin(byval m as integer, byval n as integer, byval max as integer, byval min as integer)
dim i as integer
k = m
if m > n then k = n
for i = k to 1 step -1if m mod i = 0 and n mod i = 0 then
max = i
min = m * n / max
exit for
end if
next i
print "最小公倍數是："; min
end sub
private sub command1_click()m = val(text1.text)
n = val(text2.text)
call getmaxmin(m, n, max, min)end sub
已經執行過。
2樓：匿名使用者
private sub getmaxmin(byval m as integer, byval n as integer, byval max as integer, byval min as integer)
dim i as integer
k = m
if m > n then k = n
for i = k to 1 step -1if m mod i = 0 and n mod i = 0 then
max = i
min = m * n / max
print max; min
exit for
end if
next i
end sub
private sub command1_click()m = val(text1.text)
n = val(text2.text)
call getmaxmin(m, n, max, min)end sub
vb程式設計 要求輸入兩個數，並求出它們的最大公約數和最小公倍數。
3樓：匿名使用者
這個例子教材上有，譚浩強編寫的vb6.0版本上有，估計其他版本也有，很常見的題目
4樓：匿名使用者
這個程式很簡單，但是**並不短，你需要多給別人點分，別人才會寫**。
最大公約數用迴圈求出，最小公倍數是兩數積除以最大公約數。
我要睡覺了。
5樓：匿名使用者
這個簡單的吧，好寫的,只要知道什麼是最大公約數，什麼是最小公倍數！
用vb程式設計：求兩個整數的最小公倍數。
6樓：匿名使用者
求出兩個數的最小公倍數函式：
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求兩個數的最大公約數和最小公倍數
vb中求最大公約數的方法
7樓：gis炮
這個公約和公倍數好像是上學時候，老師必教的...
8樓：匿名使用者
'x,y為輸入bai的數字（du
待求）zhi
'b為最大dao
公約數內
dim a, b as integer
a = 2
while a <= x or a <= yif int(x / a) = x / a and int(y / a) = y / a then
b = a
end if
a = a + 1
wend 'vb.net中要用
容end while！
'輸出b
求vb程式設計 輸入兩個數，求最大公約數和最小公倍數 80
9樓：你板比
供參考
vb中最小公倍數的求法是什麼
vb程式，編寫一個用輾轉相除法，求倆自然數m、n的最大公約數和最小公倍數。
vb語言求最大公約數，使用vb求最大公約數的兩種方法是什麼？
private sub gys m as integer,n as integer 求出兩個數的最大公約數 dim r as integer r m mod n do while r 0 m n n r r m mod n loop end sub private sub command1 clic...
求最大公因數的方法，怎麼求最大公因數
最大公因數的兩種方法 1 分別分解各個數的質因數,然後比較出公共的質因數相乘 2 用短除法,寫短除算式,道理與第一種方法相似,只是找公共因數的過程與除法過程合併了.最大公因數的兩種方法 1 分別分解各個數的質因數，然後比較出公共的質因數相乘 2 用短除法，寫短除算式，道理與第一種方法相似，只是找公共...
求36963與59570的最大公約數
通過觀察容易發現，36963有約數3 3。而59570沒有質數3。59570有質因數2和5，而36963沒有質因數2和5。所以可以從36963中分解出3 3，從59570中分解出2 5，再求其餘部分的最大公約數。36963 3 3 4107 59570 2 5 5957 輾轉相除法 用大數除以小數再...