VBA编程复习.doc

例1:求1~100的各数和 rem方法1s=0forI=1to100s=s+=0I=1dowhileI<=100s=s+II=I+=0I=1dountilI>100s=s+II=I+:求1~100的奇数和 rem方法1s=0forI=1to100step2s=s+=0I=1dowhileI<=100s=s+II=I+ 例3:求1~100的偶数和rem方法1s=0rem方法2s=0 forI=2to100step2s=s+=2dowhileI<=100s=s+II=I+:求N!Subjc()DimnAsIntegern=InputBox("求N!请输入N值")t=1Fori=1Tont=t*iNextitEndSub 例5:求最大公约数Subzdgys()Dima,bAsIntegera=InputBox("请输入第一个数")b=InputBox("请输入第二个数")Doc=aModba=bb=cLoopWhilec<>0aEndSub求最小公倍数'求最小公倍数时,我们可以用两个数的积,除以它们的最大公约数,便得出了最小公倍数..Subzdgys()Dima,bAsIntegera=InputBox("请输入第一个数")b=InputBox("请输入第二个数")x=ay=bDoc=aModba=bb=cLoopWhilec<>0"最小公倍数"&x*y/aEndSub 例6:求圆面积PrivateSubbtn1_Click()r=Val()=Str(area(r))'调用函数area(r)EndSubFunctionarea(kAsInteger)AsSinglearea=*k*k'求半径为k的圆的面积areaEndFunction例7:求输入数的和Subsum()S=0:I=1DowhileI<=5k=input(“请输入一个数字:”,“输入数据”)S=s+kI=I+1loopMsgbox“s=“&sEndsub例8:求输入两个数中的最大值Subsub1()Diminta,intb,intmaxnumAsIntegerinta=InputBox("请输入第一个数:")intb=InputBox("请输入第二个数:")Ifinta>intbThenintmaxnum=intaElseintmaxnum=intbEndIfMsgBox"较大数为:"&intmaxnumendsub例9:求输入五个数中的最大值和平均值Subcalcu()Subcalcu()s=0i=1Max=0DoUntili>5k=InputBox("请输入一个数字:","输入数据")Ifk>MaxThenMax=k 'if结束s=s