vb用gdc求三个最大公约数

PrivateSubCommand1_Click()Dimn1&,m1&,m&,n&,r&n1=InputBox("输入n1")m1=InputBox("输入m1")Ifm1>n1Then'为了求最小

privatesubform_click()n=val(text1)m=val(text2)ifn

哈慢慢想吧再问：为什么用function过程尼？为什么不用sub过程尼？求解再答：function是有返回值的你也可以用SUB但是最后的结果你得用一个外部变量来保存

DimmAsIntegerDimnAsIntegerDimrAsIntegerDimaAsInteger,bAsIntegerm=InputBox("请输入其中的一个正整数")n=InputBox("

PrivateSubForm_Click()DimAAsLong,BAsLongA=Val(InputBox("请输入第一个数："))B=Val(InputBox("请输入第二个数："))Print"

PrivateSubcommand1_click()DimmAsInteger,nAsIntegerDimaAsInteger,bAsIntegerDimrAsIntegerm=InputBox("输

'Text1,Text2,Text3输入'Text4,Text5输出公约数,公倍数PrivateSubCommand1_Click()DimaAsInteger,bAsInteger,cAsInteg

PrivateSubcommand1_click()DimmAsInteger,nAsIntegerDimaAsInteger,bAsIntegerDimrAsIntegerm=InputBox("输

http://zhidao.baidu.com/link?url=wyic3NEB45i2K9YZE2SpNiAV4aD7rZHpluBlyF76zg0n_8wr1t6-KOYm6eYY23KqG5n

PrivateSubCommand1_Click()m=InputBox("输入第一个自然数")n=InputBox("输入第二个自然数")Ifmr=mModnDoWhile(r0)m=nn=rr=m

PrivateSubCommand1_Click()DimSAsLongS=YueOrBei(24,32)MsgBox"24和32的最大公约数是："&S,vbInformationS=YueOrBei

例如：求12与18的最大公因数.12的因数有：1、2、3、4、6、12.18的因数有：1、2、3、6、9、18.12与18的公因数有：1、2、3、6.12与18的最大公因数是6.这种方法对求两个以上数

DimxAsLongPrivateSubCommand1_Click()DimaAsLong,bAsLonga=Val(InputBox("A="))b=Val(InputBox("B="))Call

mModn=rr=mModn

枚举法r0temp(a,temp(b,c))

DimmAsInteger,nAsIntegerPrivateSubCommand1_Click()m=Val(InputBox("输入正整数"))n=Val(InputBox("输入正整数"))If

Private Sub Command1_Click()     Dim S As Long&nbs

vb用子函数求两书最大公约数一题：两个TextBox,一个Command.OptionExplicitPrivateFunctionMaxModNum_(ByValaAsLong,ByValbAsLo

PrivateSubCommand1_Click()Dima,ba=Val(InputBox("请输入第一个数"))b=Val(InputBox("请输入第二个数"))IfNota=0AndNotb=

PrivateSubCommand1_Click()DimmAsLong,nAsLong,rAsLong,xAsLong,yAsLongm=Val(InputBox("M=")):x=mn=Val(I