最大公约数和最小公倍数.doc

《最大公约数和最小公倍数.doc》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、最大公约数和最小公倍数"求27090，21672，11352，8127的最大公约数。OptionBase1PrivateFunctionDivisor(ByValmAsLong,ByValnAsLong)AsLongDimtAsLongDimrAsLongIfm

2、d(a)gcd=________________NextPrintgcdEndSub""12919"求175，240，360的最小公倍数。OptionBase1""PrivateFunctionDivisor(ByValmAsLong,ByValnAsLong)AsLongDimtAsLongDimrAsLongIfm

3、le=________________________________EndFunctionPrivateSubForm_Click()DimaDimlcm&DimiAsBytea=Array(175,240,360)lcm=a(1)Fori=1ToUBound(a)lcm=Multiple(lcm,a(i))NextPrintlcmEndSub""25200"20"金星和地球在某一时刻相对于太阳处于某一确定位置，已知金星绕太阳一周为225日，地球绕太阳一周为365日，问两个行星至少经过多少日仍同时回到原来的位置上？PrivateSubForm_Click()Dim

4、m0&,n0&DimmAsLongDimnAsLongDimrAsLongm0=365n0=225m=m0n=n0r=mModnWhile________________m=nn=rr=mModnWendPrintm0*n0/nEndSub""16425"、222"程序功能：计算两个数的最小公倍数。程序中有两行有错误，改正错误，使程序能输出正确结果。PrivateSubCommand1_Click()Printfun(248,848)EndSubPrivateFunctionfun(u,v)t=uDoWhiletModu<>0andtModv<>0t=t+uLoop

5、fun=uEndFunction"26288223"程序功能：计算两个数的最小公倍数。程序中有两行有错误，改正错误，使程序能输出正确结果。PrivateSubCommand1_Click()Printfun(482,248)EndSubPrivateFunctionfun(u,v)t=uDoWhiletModu<>0andtModv<>0t=t+1Loopfun=uEndFunction240"程序功能：计算两个数的最大公约数。程序中有一行有错误，改正错误，使程序能输出正确结果。PrivateSubCommand1_Click()Printfun(14339,507

6、)EndSubPrivateFunctionfun(u,v)m=uFori=mTo1Step-1IfvModi=0AnduModi=0Thenfun=iExitsubEndIfNextifun=1EndFunction"137"求24738和24894的最小公倍数。PrivateSubForm_click()DimaAsIntegerDimbAsIntegerDimiAsLonga=24738b=24894i=aDoWhile________________________________i=i+aLoopPrintiEndSub""102637962"19"求17

7、5，240，360的最小公倍数。OptionBase1PrivateFunctionDivisor(ByValmAsLong,ByValnAsLong)AsLongDimtAsLongDimrAsLongIfm