教学材料《ＶＢ导论》_7.5.pptVIP

1.冒泡法排序PrivateSubBubble_Sort(AsInteger)Fori=1ToForj=1To IfSort(j)Sort(j+1)ThenTem=Sort(j)Sort(j)=Sort(j+1)Sort(j+1)=TemEndIfNextjNextIEndSubSort()UBound(Sort)-1UBound(Sort)-i

2.判断数是否为素数

PrivateFunctionprime(AsInteger)DimmAsIntegerForm=2ToSqr(n)IfnModm=0ThenNextmEndFunctionAsBooleanExitFunctionprime=Truen

3.求N以内的素数Privateprime(A()AsInteger,NAsInteger)DimiAsInteger,IdxAsIntegerDimJAsIntegerFori=2ToNForJ=2ToSqr(i)NextJIfThenIdx=Idx+1EndIfNextIEndSubSubIfiModJ=0ThenExitForJSqr(i)ReDimPreserveA(Idx)A(Idx)=i

4.求最大公约数PrivateFunctiongcd(mAsInteger,nAsInteger)AsIntegerIfr=0ThenElseEndIfEndFunctionr=mModngcd=nm=nn=rgcd=gcd(m,n)

5.求最小公倍数PrivateFunctionlcm(mAsInteger,nAsInteger)AsIntegerDimtempAsLong,flgAsBooleandowhileloopEndFunctiontemp=mtempmodn0temp=temp+mlcm=temp

6.求因子数之和

PrivateFunctionsum_factor(xAsInteger)AsLongDimiAsInteger,sAsIntegerFori=1ToIfThens=s+iEndIfNextIEndFunctionx-1xModi=0sum_factor=s

PrivateSubfactor(xAsInteger,fn()AsInteger)DimiAsInteger,nAsIntegerReDimfn(1)Fori=1Tox-1IfxModi=0Thenn=n+1EndIfNextiEndSub7.求因子数ReDimPreservefn(n)fn(n)=i

8.求阶乘

PrivateFunctionfact(nAsInteger)AsLongIfn=1ThenElseEndIfEndFunctionfact=1fact=n*fact(n-1)

9.选择法排序PrivateSubchoose(Sort()AsInteger)DimIAsInteger,TemAsInteger,jAsInteger,mAsIntegerForI=LBound(Sort)ToUBound(Sort)-1Forj=ToIfThen