vb编程求数组的最大公约数

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

窗体中做三个文本框,分别放A,B,及A、B的最大分约数.PrivateSubCommand1_Click()a=Val(Text1.Text)b=Val(Text2.Text)Dor=aModba=b

第一题：两个TextBox,一个Command.OptionExplicitPrivateFunctionMaxModNum_(ByValaAsLong,ByValbAsLong)_AsLongDim

PrivateSubForm_Load()Dima(10),i,x,jAsIntegerDimyAsStringFori=0To9Randomizea(i)=Int(Rnd(1)*101)x=x+a(

PrivateSubForm_Click()DimnAsIntegern=Val(InputBox("请输入N:"))Dima,bAsLonga=1:b=1Fori=1TonPrinta&""&b&"

PrivateSubCommand1_Click()RandomizeDima(10)AsInteger,imasasinteger,iminasinteger,Averageasintegerima

PrivateSubForm_Load()Fori=1To50n=1Forj=2Toin=n*jNexts=s+1/nNextMsgBoxsEndSu

PrivateSubForm_Click()Dimm%,n%,t%,i%,r%m=InputBox("请输入一个数字m")n=InputBox("请输入一个数字n")Ifmr=nDoWhilen>0A

PrivateSubCommand1_Click()DimaAsLongDimiAsLongDimsAsBooleans=Truea=InputBox("请输入一个自然数","输入")'-------

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

假设级数表达式为f(i),随i值的变化而减小,则可在循环时利用级数f(i)和f(i-1)的差值来与10^-6比较,当两次计算的结果满足dpp=Abs(dc)b=b*-1n=n+1mv=rad^(2*(

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

mModn=rr=mModn

void main(){int m=0,n=0,i,imax=0,imin=0,gongyue=0;printf("请输入m和n");scanf(&quo

main(){intp,r,n,m,temp;printf("Pleaseenter2numbersn,m:");scanf("%d,%d",&n,&m);//输入两个正整数.if(n

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

Private Sub Command1_Click()     Dim S As Long&nbs

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