vb相關(guān)算法大全(p7)

1、計(jì)數(shù)與求和計(jì)數(shù)與求和求數(shù)組最大值求數(shù)組最大值fmax=x(1):Fi=2Ton:Ifx(i)fmaxThenfmax=x(i):Nexti輸入數(shù)組輸入數(shù)組Fi=1Tom:a(i)=InputBox(“a(“Str(i)“)=“):Nexti輸出數(shù)組輸出數(shù)組(每行每行n個(gè))Fi=1TomPrinta(i)ifimodn=0thenprintNexti隨機(jī)數(shù)產(chǎn)生隨機(jī)數(shù)產(chǎn)生[NM]范圍內(nèi)數(shù)組范圍內(nèi)數(shù)組Fi=1Toma(i)=int(rnd(M

2、N1))NNexti數(shù)組元素倒置數(shù)組元素倒置Fi=1Ton2t=A(i):A(i)=A(ni1):A(ni1)=tNextI在數(shù)組中查找數(shù)在數(shù)組中查找數(shù)1.原始算法Fi=1Ton:Ifx=a(i)Thenj=I:Nexti2.變種1Fi=1To8:Ifx=a(i)ThenExitF:Nexti在數(shù)組中刪除特定的數(shù)在數(shù)組中刪除特定的數(shù)Fi=1To8:Ifx=a(i)Thenj=I:NextiFi=jTo7:a(i)=a(i1):Nexti

3、求兩個(gè)整數(shù)的最大公約數(shù)、最小公倍數(shù)求兩個(gè)整數(shù)的最大公約數(shù)、最小公倍數(shù)1原始程序Dimn%m%nm%r%m=Val(InputBox(“m=“)):n=Val(InputBox(“n=“)):nm=nmIfm0)m=n:n=r:r=mmodnLoopPrint“最大公約數(shù)=“n:Print“最小公倍數(shù)=“nmn2變種1Dimn%m%nm%r%:m=Val(InputBox(“m=“))n=Val(InputBox(“n=“)):nm=nm

4、:r=mmodnDoWhile(rK1Then如果N1為素?cái)?shù)，將N分解為N1N2N2=NN1K2=Int(Sqr(N2))FI=2ToK2判斷N2是否是素?cái)?shù)IfN2ModI=0ThenExitFNextIIfIK2Then如果N2也為素?cái)?shù)，則打印輸出PrintN&“=“&N1&““&N2EndIfEndIfNextN1冒泡法排序冒泡法排序(n個(gè)數(shù)排序個(gè)數(shù)排序)Fj=1Ton1Fi=1TonjIfa(i)a(i1)Thentemp=a(i

5、):a(i)=a(i1):a(i1)=tempNextiNextj選擇法排序選擇法排序(n個(gè)數(shù)排序個(gè)數(shù)排序)1.原始代碼Fj=1Ton1p=jFi=j1TonIfa(p)a(i)Thenp=iNextiIf(pa(j)Thentemp=a(j):a(j)=a(i):a(i)=tempEndIfNextjFm1.Printa(i)NextiFm1.printa(n)數(shù)進(jìn)制的轉(zhuǎn)換數(shù)進(jìn)制的轉(zhuǎn)換(公用進(jìn)制轉(zhuǎn)換，將公用進(jìn)制轉(zhuǎn)換，將n轉(zhuǎn)換成轉(zhuǎn)換成k