VB常见算法

VB常见算法1.元素的调整：a(1)=12,a(2)=2,a(3)=5,a(4)=18t=a（4）Fori=4to2step-1a(i)=a（i-1）a(1)=t2.求a,b两个数的最大公倍数Mn=aDowhilenModb0n=n+aLoopM=n3.求a,b两个数的最大公约数NDor=aModba=bb=rLoopUntilr=0N=a4.从右向左取一个整数n的各个位数DoK=nMod10n=n\10S=s&kLoopUntiln=05.求素数ForI=2ToNForJ=2ToSqr(I)IfIModJ=0ThenExitFora(Idx)=INextINextJ6.递归法Ifi=1ThenFact=1ElseIfi=2ThenFact=2ElseFact=Fact（i-1）+Fact(i-2)7.求一个整数的反序数VB常见算法m=“”D0X=nMod10m=m&Xn=n\10Loopwhilen0M=Val(m)8.判断一个整数n是否为回文数（如404是回文数）Privatefunctionjudge()asBlooeanCh=Cstr(n)S=Len(Ch)Fori=1ToS/2IfMid(Ch,i,1)Mid(Ch,S-i+1,1)ThenExitFunctionNextiHuiwen=TrueEndfunction9.求一个不是素数的整数N的因子（除了1和自身）ForI=1ToN-1IfNModI=0ThenS=S&Str(I)______I为N的一个因子NextI10.求一个整数p的反序数S=Cstr(p)Fori=1ToLen(s)m=Mid(s,i,1)&mNexti11取一个范围（m1~m2）内的不重复数i=1DoN=Int(Rnd(m2-m1+1))+m1Fork=1Toi.............................................判断有无重复Ifrb(k)=NThenExitforNextkIfkii=i+1rb(2)=NEndifLoopwhilee12.比较一个整数n中是否有相同的数字PrivateFunctioncompare(nAsLong)AsBooleanDimiAsInteger,a()AsInteger,jAsIntegerReDima(Len(CStr(n)))VB常见算法Fori=1ToLen(CStr(n))a(i)=Mid(n,i,1)NextiFori=1ToUBound(a)-1Forj=2ToUBound(a)Ifa(i)=a(j)ThenExitFunctionNextjNexticompare=TrueEndFunction注意：1.回车换行符：S=S&VbCrLf2.InStrr(X,“N”)：从X的第一个位置起查找N在X中第一次出现的位置，返回数字。３．CInt(X):四舍五入取整如CInt（3.51）=4CInt（3.49）=3CInt（3.5）=44.Fix(X):将数值型数据X的小数部分舍去5.Int（X）：取小于等于X的最大整数6.1Mod5=1,1\5=0