VB最大公約數和最小公倍數,利用vb教程來做一個求最小公倍數最大公約數

2022-02-26 11:43:38 字數 2288 閱讀 8811

1樓:吾霓武映寒

private

subcommand1_click()

dima

asinter,bas

integer,ras

integer,

maxv

asinteger,

minv

asinteger

me.cls

'最大公約數a=

val(text1.text)b=

val(text2.text)

maxv

=iif(a

>b,a,

b)minv

=iif(a

b)dor=

maxv

modminv:

maxv

=minv:

minv=r

loop

while

(r<>

0)'最小公倍數

minv=a

*b/maxv

print

"最大公約數="&

str(maxv)

&space(2)

&"最小公倍數="

&str(minv)

endsub

2樓:宣果彤春

ifn>

mthent=

mm=n

n=t這樣改!你兩個數顛倒位置的時候(即n》m的時候)n得不到值,為0,所以錯誤

改過之後是:

private

subcommand1_click()

dimi,

m,n,tas

longm=

val(text1.text)n=

val(text2.text)ifn

>mthent=

mm=n

n=tend

iffori=

1tonif

mmodi=

0and

nmodi=

0then

text3.text=i

endif

next

itext4.text=m

*n/v(text3.text)

'(這句錯了,但我不知錯在了哪,希望高手指點一下,謝了!)endsub

如何使用vb求兩個數的最大公約數和最小公倍數

利用vb教程來做一個求最小公倍數最大公約數

vb中求最大公約數和最小公倍數(塊if語句編寫)

3樓:匿名使用者

展轉相除求最大公約,兩數相乘除以最大公約就是最小公倍數.手機客戶端不好寫你可以去網上搜展轉相除求最大公約數~

用j**a求兩數的最大公約數和最小公倍數。

求vb程式設計 輸入兩個數,求最大公約數和最小公倍數 80

4樓:你板比

供參考

最大公約數和最小公倍數怎麼計算

5樓:北京燕園思達教育

舉個例吧,如4和6兩個數,求它們的最大公約數和最小公倍數。利用短除法:2∟ 4   6            得2    3,那麼最大公約數就是2,最小公倍數就是2×2×3=12。

          、

關鍵要弄清最大公約數和最小公倍數的概念。

公約數,就是能是所給出的數共同小化,就像是將分數簡化一樣。那麼使得他們簡化的數的乘積就是最大公倍數;若在乘上最終簡化的結果數就是最小公倍數。

如4和6可寫成4/6,同時約去的只有2,那麼2是最大公約數;約去後變為2/3,2×2×3=12,為最小公倍數。

vb程式設計 要求輸入兩個數,並求出它們的最大公約數和最小公倍數。

6樓:匿名使用者

這個例子教材上有,譚浩強編寫的vb6.0版本上有,估計其他版本也有,很常見的題目

7樓:匿名使用者

這個程式很簡單,但是**並不短,你需要多給別人點分,別人才會寫**。

最大公約數用迴圈求出,最小公倍數是兩數積除以最大公約數。

我要睡覺了。

8樓:匿名使用者

這個簡單的吧,好寫的,只要知道什麼是最大公約數,什麼是最小公倍數!

最大公約數和最小公倍數講解及難點分析

最大公約數,都有的且最大的約數 最小公倍數,能整除所有數的最小數。難點?理解好了就行了吧,要具體題目。最大公約數和最小公倍數有什麼區別 最大公約數和最bai小公倍數區別有 du 1 本質不同 最小zhi公約數是幾個數公dao有的內最大約數,最大公倍數容是幾個數公有的最小倍數。同一組數字中,最小公倍數...

請你談談最大公約數或最小公倍數在生活中的應用

例題 用長5cm,寬3cm的長方形硬紙 片擺成一個正方形 中間無空隙 內,至少要用幾個長方形硬紙片?容分析 多個長方形擺成正方形,所以正方形是總體,長方形是部分。題目告訴你了長方形的長與寬,即告訴了部分,求正方形,即求總體,所以用最小公倍數解題。具體分析 由於拼擺後正好一個正方形,所以正方形的邊長必...

x,30,45的最大公約數是5,最小公倍數是180,x可能為多少

30和45的最小公倍數是180,則x 45,又因為最大公約數是5,則x 5,x可為5,10,15,20,25,30,35,40,45。但25,35,不被180整除 x 25,35且40約數為5和8,8不被180整除 x 40且15,30,45的最大公約數是15 x 15,30,45且10和45最小公...