VB求最大公约数和最小公倍数

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为求两个数公约数