VB求最大公约数和最小公倍数
来源:学生作业帮助网 编辑:作业帮 时间:2024/09/25 17:19:46
48和8的最大公约数:8,最小公倍数4860和36的最大公约数12,最小公倍数:1808和12的最大公约数4,最小公倍数:2484和56的最大公约数:28,最小公倍数:168这样可以么?
PrivateSubCommand1_Click()Dimn1&,m1&,m&,n&,r&n1=InputBox("输入n1")m1=InputBox("输入m1")Ifm1>n1Then'为了求最小
vara,b,i:integer;beginreadln(a,b);fori:=ato1doif(amodi=0)and(bmodi=0)thenwriteln(i);end.//公约数vara,b,
PrivateSubForm_Click()DimAAsLong,BAsLongA=Val(InputBox("请输入第一个数:"))B=Val(InputBox("请输入第二个数:"))Print"
'最大公约数FunctiongetGcd(num1AsLong,num2AsLong)AsLongDimiAsLongFori=IIf(num1Ifnum1Modi=0Andnum2Modi=0The
PrivateSubcommand1_click()DimmAsInteger,nAsIntegerDimaAsInteger,bAsIntegerDimrAsIntegerm=InputBox("输
9的公约【1,9,3,3.】36的公约【12,3,1,36,18,2,4,9,】公同的【3,9,1,】大的【9】9的公倍【9,18,27,36,】36的公倍【36,72,108,144,】共同的【36
1.1最大公约数与最小公倍数1.算法1:欧几里德算法求a,b的最大公约数functiongcd(a,b:longint):longint;beginifb=0thengcdd:=aelsegcd:=g
'Text1,Text2,Text3输入'Text4,Text5输出公约数,公倍数PrivateSubCommand1_Click()DimaAsInteger,bAsInteger,cAsInteg
PrivateSubcommand1_click()DimmAsInteger,nAsIntegerDimaAsInteger,bAsIntegerDimrAsIntegerm=InputBox("输
PrivateSubcommand1_click()DimmAsInteger,nAsIntegerDimaAsInteger,bAsIntegerDimrAsIntegerm=InputBox("输
设两数为a、b(b<a),用gcd(a,b)表示a,b的最大公约数,r=amodb为a除以b以后的余数,辗转相除法即是要证明gcd(a,b)=gcd(b,r).第一步:令c=gcd(a,b),则设a=
PrivateSubCommand1_Click()DimSAsLongS=YueOrBei(24,32)MsgBox"24和32的最大公约数是:"&S,vbInformationS=YueOrBei
PrivateSubCommand1_Click()Dimk%,a%,b%,c%a=Val(Text1)b=Val(Text2)If(aMod2=0)And(bMod2=0)Thena=a\2b=b\
最小公倍数为a*b,最大公约数为1
PrivateSubForm_Load()DimXAsLong,YAsLong,KAsLongDimAAsLong,BAsLongA=6B=8X=IIf(A>=B,A,B)'x存入最大值Y=IIf(A
DimmAsInteger,nAsIntegerPrivateSubCommand1_Click()m=Val(InputBox("输入正整数"))n=Val(InputBox("输入正整数"))If
Private Sub Command1_Click() Dim S As Long&nbs
最大公约数:78最小公倍数:13
到网上搜一个两个的,然后再调用!a,b,c,de=bei(bei(bei(a,b),c),d);f=yue(yue(yue(a,b),c),d);其中,bei为求两个数公倍数的,yue为求两个数公约数