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
"最大公約數="&
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最小公...