1樓：匿名使用者
'定義的是自定義函式，所以要這樣寫
public function gys(m, n)dor = m mod n
m = n
n = r
loop until r = 0
gys = m
end function
'command1_click()裡的變數都沒有定義所以要定義好，如下
private sub command1_click()dim x as integer, y as integer, z as integer
dim t1 as integer, t2 as integer, t as integer
x = val(text1.text)
y = val(text2.text)
z = val(text3.text)
t1 = gys(x, z)
t2 = gys(x, y)
t = gys(t1, t2)
print t;
end sub
這樣就可以顯示了，我除錯過了
2樓：匿名使用者
我幫你重寫乙個程式得了,你的程式麻煩,效率低啊!
既然用了函式,為何不做輸入三個數直接得到結果呢?
private sub command1_click()a = s(q, w, e)
end sub
'下面為三個裡求最大公約數的函式,使用時呼叫s()即可function s(y as integer, u as integer, i as integer) as integer
dim m as integer, n as integerif y > u then m = u else m = yif m > i then m = i
for n = m to 1 step -1if y mod n = 0 and u mod n = 0 and i mod n = 0 then
s = n
exit for
end if
next
end function
3樓：匿名使用者
你把變數名寫錯了，把你的這一句**t = gys(a1, a2)改為t = gys(t1, t2)
4樓：匿名使用者
補充一下：定義函式最好在函式後邊也加上返回型別。
public function gys( x1 as integer,x2 as integer) as integer
end function
5樓：匿名使用者
private function gys(m, n)dor = m mod n
m = n
n = r
loop until r = 0
gys = m
endend function
vb中求最大公約數的方法
6樓：gis炮
這個公約和公倍數好像是上學時候，老師必教的...
7樓：匿名使用者
'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程式 求三個數的最大公約數與最小公倍數
8樓：匿名使用者
'text1,text2,text3輸入
'text4,text5輸出公約數，公倍數private sub command1_click()dim a as integer, b as integer, c as integer
dim gys as integer, gbs as integerdim i as integer
dim min as integer
a = int(text1)
b = int(text2)
c = int(text3)
min = iif(a > b, b, a)min = iif(min > c, c, min)for i = 1 to min
if a mod i = 0 and b mod i = 0 and c mod i = 0 then
gys = i
end if
next i
gbs = a * b * c / gys / gystext4 = gys
text5 = gbs
end sub
vb程式設計 要求輸入兩個數，並求出它們的最大公約數和最小公倍數。
9樓：匿名使用者
這個例子教材上有，譚浩強編寫的vb6.0版本上有，估計其他版本也有，很常見的題目
10樓：匿名使用者
這個程式很簡單，但是**並不短，你需要多給別人點分，別人才會寫**。
最大公約數用迴圈求出，最小公倍數是兩數積除以最大公約數。
我要睡覺了。
11樓：匿名使用者
這個簡單的吧，好寫的,只要知道什麼是最大公約數，什麼是最小公倍數！
如何用vb求任意兩個數的最大公約數 20
12樓：
請參看右方相關問題。
pascal語言 求n個自然數的最大公約數和最小公倍數 急
lz，怪不得沒人答題啦 用pascal實現 求n個自然數的最大公約數和最小公倍數 是很難的用for語句也可以，但要想很久 我也想了很久 勸你別用這個題目了 可以用求2個自然數的最大公約數和最小公倍數要明確一些嘛 program sd const m 3 var a array 1.m of inte...
怎麼分辨最大公約數和最大公倍數的應用題 ？
1.如果兩個數是互質數，他們的最大公約數是1,最小公倍數是它們的乘積。2.如果乙個數是另乙個數的倍數，則小的數是他們的最大公約數，大的數是最小公倍數。怎麼判斷應用題用最小公倍數還是最大公因數 能否準確判斷應用題是求最大公因數還是最小公倍數，主要還是依賴於學生的解題經驗和生活與知識的結合程度，具體的判...
七十五和五十四的最大公約數是多少
75 3x5x5 54 2x3x3x3 最大公約數 3 375 25 3 54 18 3 五十四七十二和九十的最大公約數 54 72 90的最大公約數是18.回答完畢 有疑問請追問，我一定盡快回覆你 無疑問請點選 採納 同時預祝學習進步 o 我不是學霸，叫我賭神 o o o o 18先用2去除54 ...