vb求數的最大公約數問題,vb 求3個數的最大公約數問題

2022-06-19 09:30:02 字數 2897 閱讀 2504

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 ...