VB常用算法總結(jié)大全

常用算法總結(jié)—算法是對(duì)某個(gè)問題求解過程的描述

一、基本算法1.累加、連乘

1～100的5或7的倍數(shù)的和

Sum=0Fori=1To100IfiMod5=0OriMod7=0Then

Sum=Sum+iEndIfNextiPrintSum3～10的乘積

t=1Fori=3To10

t=t*iNextiPrintt思考：若把循環(huán)體前面置各變量初值的語句放在循環(huán)體內(nèi)，程序運(yùn)行時(shí)會(huì)產(chǎn)生什么情況？例求自然對(duì)數(shù)e的近似值,要求其誤差小于0.00001，近似公式為:

該例題涉及兩個(gè)問題：

（1）用循環(huán)結(jié)構(gòu)求級(jí)數(shù)和的問題。本例根據(jù)某項(xiàng)值的精度來控制循環(huán)的結(jié)束與否。（2）累加：e=e+t循環(huán)體外對(duì)累加和的變量清零e=0

連乘：n=n*i循環(huán)體外對(duì)連乘積變量置1n=1

PrivateSubForm_Click()Dimi%,n&,t!,e!e=0:n=1

‘e存放累加和、n存放階乘

i=0:t=1

‘i計(jì)數(shù)器、t第i項(xiàng)的值

DoWhilet>0.00001e=e+t:i=i+1

‘累加、連乘n=n*i:t=1/n

LoopPrint"計(jì)算了";i;"項(xiàng)的和是";eEndSub2.求素?cái)?shù)

判別某數(shù)m是否為素?cái)?shù)最簡(jiǎn)單的方法是:對(duì)于m從i=2，3，…，m-1判別m能否被i整除，只要有一個(gè)能整除，m不是素?cái)?shù)，否則m是素?cái)?shù)。Form=2To100Fori=2Tom-1

If(mModi)=0ThenexitforNextiifI>m-1then msgboxstr(m)+”是素?cái)?shù)”Else msgboxstr(m)+”不是素?cái)?shù)”EndIfNextmm是否為素?cái)?shù)求100以內(nèi)的素?cái)?shù)3.窮舉法

“窮舉法”也稱為“枚舉法”或“試湊法”，即將可能出現(xiàn)的各種情況一一測(cè)試，判斷是否滿足條件，一般采用循環(huán)來實(shí)現(xiàn)。例百元買百雞問題。假定小雞每只5角,公雞每只2元，母雞每只3元。現(xiàn)在有100元錢要求買100只雞，編程列出所有可能的購(gòu)雞方案。

設(shè)母雞、公雞、小雞各為x、y、z只，根據(jù)題目要求，列出方程為：x+y+y=100 3x+2y+0.5z=100三個(gè)未知數(shù)，兩個(gè)方程，此題有若干個(gè)解。解決此類問題采用“試湊法”，把每一種情況都考慮到。方法一：最簡(jiǎn)單三個(gè)未知數(shù)利用三重循環(huán)來實(shí)現(xiàn)。方法二：從三個(gè)未知數(shù)的關(guān)系，利用兩重循環(huán)來實(shí)現(xiàn)。方法一：PrivateSubForm_click()DimX%,y%,z%ForX=0To100ForY=0To100ForZ=0To100 IfX+y+z=100And3*x+2*y+.5*z=100Then PrintX,y,z EndIfNextZNextYNextXEndsub方法二：ForX=0To33ForY=0To50 Z=100-x-y

If3*x+2*y+.5*z=100Then PrintX,Y,ZEndIfNextYNextX4.遞推法

“遞推法”又稱為“迭代法”，其基本思想是把一個(gè)復(fù)雜的計(jì)算過程轉(zhuǎn)化為簡(jiǎn)單過程的多次重復(fù)。每次重復(fù)都從舊值的基礎(chǔ)上遞推出新值，并由新值代替舊值。

例猴子吃桃子。小猴在一天摘了若干個(gè)桃子，當(dāng)天吃掉一半多一個(gè)；第二天接著吃了剩下的桃子的一半多一個(gè)；以后每天都吃尚存桃子的一半零一個(gè)，到第7天早上要吃時(shí)只剩下一個(gè)了，問小猴那天共摘下了多少個(gè)桃子？分析：這是一個(gè)“遞推”問題，先從最后一天推出倒數(shù)第二天的桃子，再?gòu)牡箶?shù)第二天的桃子推出倒數(shù)第三天的桃子……。設(shè)第n天的桃子為xn，那么它前一天的桃子數(shù)是xn

-1。已知：當(dāng)N=7第7天的桃子數(shù)為1，則第6天的桃子數(shù)由公式得4個(gè)，依次類推，可求得第1天的桃子數(shù)。程序如下：Privatesubform_click() DimIasinteger x=1 print“第7天的桃子數(shù)為：1只” forI=6to1step–1 x=(x+1)*2 print“第”;I;”天的桃子數(shù)為：”;x;”只” nextIEndsub5.最小、最大值在若干個(gè)數(shù)中求最大值，一般先假設(shè)一個(gè)較小的數(shù)為最大值的初值，若無法估計(jì)較小的值，則取第一個(gè)數(shù)為最大值的初值；然后將每一個(gè)數(shù)與最大值比較，若該數(shù)大于最大值，將該數(shù)替換為最大值；依次逐一比較。例隨機(jī)產(chǎn)生10個(gè)100～200之間的數(shù)，求最大值。PrivateSubCommand1_Click()

Max=100Fori=1To10x=Int(Rnd*101)+100Printx;

Ifx>MaxThenMax=xNextiPrintPrint"最大值=";MaxEndSub6、求最大公約數(shù)PrivateSubCommand1_Click()Dimm,n,rAsLongm=Val(Text1.Text)‘取數(shù)據(jù)Mn=Val(Text2.Text)‘取數(shù)據(jù)N

Ifm<>Int(m)orm<1orn<>Int(n)orn<1Then

Text3.Text="數(shù)據(jù)錯(cuò)誤！"

ElseDo

‘求最大公約數(shù)

r=mModnm=nn=r

LoopUntilr=0Text3.Text=CStr(m)‘輸出最大公約數(shù)

EndIfEndSub判斷數(shù)據(jù)是否合法PrivateSubForm_Click()Fori=1To9Forj=1To9 Printi;"*";j;"=";i*j;NextjPrintNextiEndSub執(zhí)行本程序，窗體上將顯示九九乘法表。Forj=1Toi7、關(guān)于循環(huán)嵌套(一個(gè)循環(huán)體內(nèi)又包含了一個(gè)完整的循環(huán)結(jié)構(gòu)稱為循環(huán)的嵌套.)換行！作用?例：xh2.vbpSsfrm.frm思考：打印上三角或下三角程序如何改動(dòng)？要打印下三角?8.打印圖形見下頁編寫程序打印如右邊圖形：PrivateSubForm_Click()

Fori=1To4PrintSpace(5-i);

Forj=1To2*i-1Print"*";Nextj

PrintNextiPrintEndSub******************************* *外循環(huán)用來控制輸出的行數(shù)及每行第一個(gè)字符的輸出位置內(nèi)循環(huán)用來控制每行輸出的字符個(gè)數(shù)。例：xh2.vbpshjs.frm9.判斷同構(gòu)數(shù)(復(fù)習(xí)材料P39第7題)

10.找親密對(duì)數(shù)P111例5-1011.判斷完數(shù)實(shí)驗(yàn)P55實(shí)驗(yàn)7-212.計(jì)算多項(xiàng)式的和實(shí)驗(yàn)P51實(shí)驗(yàn)6-313.求一個(gè)正整數(shù)K的各位數(shù)字之和 復(fù)習(xí)材料P334.4練習(xí)題第1題14.報(bào)數(shù)問題P114例5-1215.判斷回文數(shù)復(fù)習(xí)材料P41第10題 或P81習(xí)題416.求自然數(shù)的因子

P81習(xí)題5PrivateSubCommand1_Click()DimaAsInteger,I%a=InputBox("輸入一個(gè)自然數(shù)")Label1.Caption=Str(a)+"的所有因子："ForI=1Toa-1IfaModI=0ThenList1.AddItem(Str(I))EndIfNextEndSub二、數(shù)組的算法1.數(shù)組元素的賦初值(1)用循環(huán)Fori=1To10 A(i)=0Nexti

forI=1to10 forJ=1to10 B(I,J)=0 nextJnexti(2)Array函數(shù)

DimibAsVariantib=Array("abc","def","67")Fori=0ToUBound(ib)Picture1.Printib(i);"";Nexti注意：(1)利用Array對(duì)數(shù)組各元素賦值，聲明的數(shù)組是可調(diào)數(shù)組或連圓括號(hào)都可省，并且其類型只能是Variant。(2)數(shù)組的下階為零，上界由Array函數(shù)括號(hào)內(nèi)的參數(shù)個(gè)數(shù)可決定，也可通過函數(shù)Ubound獲得。2．?dāng)?shù)組的賦值在VB6.0中，提供了數(shù)組直接對(duì)數(shù)組的賦值。例如：Dima()AsVariant,b()AsVariant,i%a=Array(1,2,3,4,5)ReDimb(UBound(a))

b=a

Fori=0ToUBound(a)b(i)=a(i)Nexti相當(dāng)于注意：賦值號(hào)左邊的數(shù)組只能聲明為Variant的可調(diào)數(shù)組或簡(jiǎn)單變量。3.數(shù)組的輸出輸出方陣SC中的下三角元素Fori=0To4Forj=0ToI’j=0to4則輸出整個(gè)數(shù)組sc(i,j)=i*5+jPrintsc(i,j);"";NextjPrint'換行NextI4.將數(shù)組中各元素交換(P115習(xí)題1)Fori=1To15\2

t=A(i)A(i)=A(10-i+1)A(10-i+1)=tNexti5、對(duì)數(shù)組的行/列操作（行、列的和)P115習(xí)題3：求二維數(shù)組每行的和數(shù)與每列的和數(shù)，數(shù)組元素為1—9之間的隨機(jī)數(shù)。OptionexplicitOptionbase1’生成數(shù)組PrivateSubCommand1_Click()ForI=1To4ForJ=1To5A(I,J)=Int(9*Rnd)+1Picture1.PrintA(I,J);NextJPicture1.PrintNextIEndSub'求列和PrivateSubCommand2_Click()ForJ=1To5L(J)=0ForI=1To4L(J)=L(J)+A(I,J)NextIText2=Text2&Str(L(J))NextJEndSubPrivateSubCommand3_Click()ForI=1To4H(I)=0ForJ=1To5H(I)=H(I)+A(I,J)NextJText1=Text1&Str(H(I))&vbCrLfNextIEndSub’清除圖片框和文本框PrivateSubCommand4_Click()Picture1.ClsText1=""Text2=""EndSub'求行和6、同維數(shù)組對(duì)應(yīng)元素的算術(shù)運(yùn)算（+、-、*、/）OptionexplicitOptionbase1Privatesubform_click()Dim

X%(5,5),Y%(5,5),Z%(5,5)

ForI=1to5 forj=1to5 x(I,j)=int(100*rnd)+1 y(I,j)=int(100*rnd)+1 nextjNextiForI=1to5forJ=1to5Z(I,J)=X(I,J)＋

Y(I,J) nextjNexti可改為減法、乘法

存放結(jié)果數(shù)組也必須定義 ForI=1to5 forJ=1to5 printZ(I,J); nextj print NextIEndsub除法：除法操作必須先判別分母不為零，然后再進(jìn)行對(duì)應(yīng)元素的除法操作。7、求數(shù)組靠邊元素之和,不靠邊元素之和P115習(xí)題6Optionbase1Privatesubform_click()Dim

X%(4,5),s%(4),sum%ForI=1to4 s(I)=0 forj=1to5 x(I,j)=i nextjNextiForJ=1to5S(1)=S(1)+X(1,J)S(4)=S(4)+X(4,J)Nextj

11111222223333344444ForI=2to3S(2)=S(2)+X(I,1)S(3)=S(3)+X(I,5)NextiforI=1to4SUM=SUM+S(I)NextiprintSUMEndsub8,求數(shù)組對(duì)角線元素之積或

和Optionbase1Privatesubform_click()Dim

X%(4,4),S1&,S2&S=1:S2=1ForI=1to4 forj=1to4 x(I,j)=i nextjNextiFori=1to4S1=s1*X(i,i)NextIprintSEndsub

1111

22

2233

33

4444

若為“+”,則為對(duì)角線的和,但S1,S2初值為0ForI=1To4ForJ=1To4IfI+J=5ThenS2=S2+A(I,I)EndIfNextJNextIText3=“兩條對(duì)角線的積_分別是："&S1&""&S2EndSubP115習(xí)題69.求二維數(shù)組中每行/列元素的最大/最小OptionExplicitOptionBase1PrivateSubForm_Click()DimA%(5,8),I%,J%DimMAXI%(5),MAXJ%(8)ForI=1To5ForJ=1To8A(I,J)=Int(90*Rnd)+10PrintA(I,J);NextJPrintNextIForI=1To5MAXI(I)=A(I,1)ForJ=1To8IfMAXI(I)<A(I,J)ThenMAXI(I)=A(I,J)NextJPrint"第";I;"行的最大值是:";MAXI(I), NextIPrint

生成數(shù)組并輸出求每行最大并輸出9.求二維數(shù)組中每行/列元素的最大/最小 ForJ=1To8 MAXJ(J)=A(1,J) ForI=1To5 IfMAXJ(J)<A(I,J)ThenMAXJ(J)=A(I,J) NextI Print"第";J;"列的最大值是:";MAXJ(J), IfJMod5=0ThenPrintNextJEndSub求每列最大并輸出10求鞍點(diǎn)元素,該元素所在行為最大,所在列為最小P115習(xí)題7’生成數(shù)組PrivateSubCommand1_Click()DimI%,J%M=InputBox("請(qǐng)輸入數(shù)組的行數(shù)")N=InputBox("請(qǐng)輸入數(shù)組的列數(shù)")ReDimA(M,N)ForI=1ToMForJ=1ToNA(I,J)=Int(90*Rnd)+10Picture1.PrintA(I,J);NextJPicture1.PrintNextIEndSub10求鞍點(diǎn)元素,該元素所在行為最大,所在列為最小P115習(xí)題7’找鞍點(diǎn)數(shù)PrivateSubCommand2_Click()DimI%,J%,Max%,Col%,Flg%ForI=1ToMMax=A(I,1)Col=1ForJ=2ToNIfMax<A(I,J)ThenMax=A(I,J):Col=JNextJForJ=1ToMIfMax>A(J,Col)ThenExitForNextJIfJ>NThenText1.Text="鞍點(diǎn)元素是"&"A("&I&","&Col&")="&A(I,Col)Flg=1EndIfIfFlg=0ThenText1="鞍點(diǎn)元素不存在"NextIEndSub找每行最大值,并記下最在值所在的列將該行最大值,與所在列的各元素比較,是否為該列最小11、矩陣乘法P107例5-6╳***********************************=&&&&&&&&&&&&XYZOptionbase1Privatesubform_click()Dim

X%(4,5),Y%(5,3),Z%(4,3)ForI=1to4 forj=1to5 x(I,j)=int(100*rnd)+1 printx(I,j); nextj printNextiForI=1to5 forj=1to3 y(I,j)=int(100*rnd)+1 printy(I,j) nextj printNexti11、矩陣乘法╳***********************************=&&&&&&&&&&&&XYZForL=1to4forJ=1to3 Z(L,J)=0.0forI=1to5 Z(L,J)=Z(L,J)+X(L,I)*Y(I,J) nextinextjNextLForI=1to4 forj=1to3 printz(I,j); nextj printNextiEndsub12、矩陣轉(zhuǎn)置P116習(xí)題10/復(fù)習(xí)資料P60第5題OptionExplicitOptionBase1DimA()AsInteger,B()AsInteger,N%PrivateSubCommand1_Click()’生成數(shù)組DimI%,J%N=InputBox("")ReDimA(N,N)ForI=1ToNForJ=1ToNA(I,J)=Int(Rnd*100)+1Text1=Text1&Str(A(I,J))NextJText1=Text1&vbCrLfNextIEndSub12、矩陣轉(zhuǎn)置P116習(xí)題10/復(fù)習(xí)資料P60第5題PrivateSubCommand2_Click()成’矩陣轉(zhuǎn)置DimI%,J%ReDimB(N,N)ForI=1ToNForJ=1ToNB(J,I)=A(I,J)NextJNextIForI=1ToNForJ=1ToNText2=Text2&Str(B(I,J))NextJText2=Text2&vbCrLfNextIEndSub13.數(shù)組排序P103例5-3對(duì)已知存放在數(shù)組中的n個(gè)數(shù)，用選擇法按遞增順序排序。(1)從n個(gè)數(shù)的序列中選出最小的數(shù)(遞增),與第1個(gè)數(shù)交換位置;(2)除第1個(gè)數(shù)外，其余n-1個(gè)數(shù)再按(1)的方法選出次小的數(shù)，與第2個(gè)數(shù)交換位置;(3)重復(fù)(1)n-1遍，最后構(gòu)成遞增序列。PrivateSubCommand1_Click()DimSort(10)AsInteger,temp%DimiAsInteger,j%RandomizeFori=1To10Sort(i)=Int(Rnd*99)+1Text1=Text1&Str(Sort(i))NextiFori=1To9Forj=i+1To10IfSort(i)>Sort(j)Thentemp=Sort(i)Sort(i)=Sort(j)Sort(j)=tempEndIfNextjText2=Text2&Str(Sort(i))NextiText2=Text2&Str(Sort(i))'書上少此語句EndSub14.冒泡法排序?qū)嶒?yàn)P62,實(shí)驗(yàn)7-4與選擇排序的區(qū)別在于：只對(duì)相鄰兩數(shù)進(jìn)行比較，使之大數(shù)沉底，小數(shù)象氣泡一樣“冒”上來，所以稱為“冒泡法”。例如對(duì)8,3,5,2,1,9排序：第一輪的排序是第1次比較：8,3,5,2,1,9第2次比較：3,8,5,2,1,9第3次比較：3,5,8,2,1,9第4次比較：3,5,2,8,1,9第5次比較：3,5,2,1,8,9第6次比較：3,5,2,1,8,9第一輪的排序結(jié)果；3,5,2,1,8,9第一輪需排序5次，第二輪需排序4次，第三輪需排序3次，第四輪需排序2次，第五輪需排序1次。PrivateSubCommand1_Click()冒泡法排序過程Dimi%,j%,temp%ForI=1ToUBound(a)-1ForJ=1ToUBound(a)-IIfa(J)>a(J+1)Thentemp=a(J):a(J)=a(J+1):a(J+1)=tempEndIfNextNextFori=1ToUBound(a)Printa(i);NextiEndSub例：排序運(yùn)動(dòng)員的成績(jī)已知8名運(yùn)動(dòng)員100米成績(jī)，請(qǐng)排出他們的名次（成績(jī)相同名次相同，成績(jī)由鍵盤輸入）本題的難點(diǎn)并不在排序，可以很輕松地用冒泡法或選擇法排序進(jìn)行成績(jī)從?。欤┑酱螅┑呐帕小栴}是排序后的成績(jī)對(duì)應(yīng)于哪一個(gè)運(yùn)動(dòng)員，一維數(shù)組是無法記錄的。因此就要定義一個(gè)二維數(shù)組，其中第一列放運(yùn)動(dòng)員的成績(jī)，第二列存放成績(jī)對(duì)應(yīng)的運(yùn)動(dòng)員號(hào)。按二維數(shù)組的第一列排序后，產(chǎn)生交換不僅要交換第一列的數(shù)組元素，還要交換第二列的數(shù)組元素，這樣運(yùn)動(dòng)員的編號(hào)就能跟著成績(jī)“跑了”。在輸出名次時(shí)，也要注意成績(jī)相同、名次相同的問題。排序過程（選擇法排序）PrivateSubsort(cj()AsSingle)DimtempAsSingleFori=1To7Forj=i+1To8Ifcj(i,1)>cj(j,1)Thentemp=cj(i,1):cj(i,1)=cj(j,1):cj(j,1)=temptemp=cj(i,2):cj(i,2)=cj(j,2):cj(j,2)=tempEndIfNextNextEndSub輸出名次過程PrivateSuboutput(cj()AsSingle)DimjAsInteger,pAsIntegerp=1Print"第";1;"名是";cj(1,2);"號(hào)運(yùn)動(dòng)員，成績(jī)是:";cj(1,1)Forj=2To8Ifcj(j,1)=cj(j-1,1)ThenPrint"第";p;"名是";cj(j,2);"號(hào)運(yùn)動(dòng)員，成績(jī)是:";cj(j,1)ElsePrint"第";j;"名是";cj(j,2);"號(hào)運(yùn)動(dòng)員，成績(jī)是:";cj(j,1)p=jEndIfNextPrintEndSub窗體事件過程’輸入運(yùn)動(dòng)員成績(jī)PrivateSubForm_Click()DimiAsIntegerDimproAsString,cj(8,2)AsSingleRandomizeFori=1To8pro="請(qǐng)輸入第"+Str(i)+"位運(yùn)動(dòng)員的成績(jī)："cj(i,1)=InputBox(pro)cj(i,2)=iPrintcj(i,1);NextPrintPrintCallsort(cj)Calloutput(cj)EndSub15.數(shù)組元素的插入與刪除(1)插入排序復(fù)習(xí)材料P50第23在有序數(shù)組a(1ton)(原有n-1個(gè)元素)插入一個(gè)值Key元素,算法:查找要插入的位置k（1<=k<=n-1）,騰出位置,把最后一個(gè)元素開始到第K個(gè)元素往后移動(dòng)一個(gè)位置,第k個(gè)元素的位置騰出，就可將數(shù)據(jù)Key插入Privatesubcommand1__clickDima%(11),I%,J%,X%ForI=1to10

a(I)=I*5+1

’通過程序自動(dòng)生成有規(guī)律的數(shù)組NextIX=Inputbox(“輸入任意數(shù)X:”)ForI=1to

10

‘查找欲插入數(shù)X在數(shù)組中的位置

ifX<a(I)thenexitfor

’找到插入的位置下標(biāo)為INextIForJ=11toI+1step–1

’從最后元素開始往后移，騰出位置 a(J)=a(J-1)NextJA(I)=XEndsub

(2)刪除重復(fù)元素見P113例5-11首先也是要找到欲刪除的元素的位置k；然后從k+1到n個(gè)位置開始向前移動(dòng)；最后將數(shù)組元素減1。例如，要將值為13的元素刪除的過程為：Dima()asinteger’聲明為動(dòng)態(tài)數(shù)組…..Redima(1ton)’聲明為有N個(gè)元素的數(shù)組… ’查找到要?jiǎng)h除的元素下標(biāo)為K…ForI=k+1toN’從K+1個(gè)元素開始往前移 A(I-1)=a(I)NextI ’最后一個(gè)元素的位置空出，利用數(shù)組重新聲明減少一個(gè)元素，但要保留原來值Redimpreservea(1ton-1)排序法有：選擇、冒泡、插入法排序及合并排序等。

前兩種排序欲排序的數(shù)據(jù)全部輸入后，再進(jìn)行排序；

插入法排序每輸入一項(xiàng)，馬上插入到數(shù)組應(yīng)在的位置，數(shù)組始終有序。用插入排序法輸入不多于20個(gè)數(shù)，使數(shù)組保持遞增的序列。對(duì)數(shù)組中已有N-1個(gè)有序數(shù)，當(dāng)輸入某數(shù)X時(shí)，插入排序法實(shí)現(xiàn)的步驟：(1)輸入欲排序的數(shù)據(jù)項(xiàng)x；在數(shù)組a中找x應(yīng)所處的位置j;(2)從數(shù)組的最后一個(gè)元素開始到下標(biāo)j依次往后移，使j位置空出；(3)將x放入位置j處，一個(gè)數(shù)據(jù)插入完成；(4)有若干個(gè)數(shù)重復(fù)(1)～(3)。對(duì)于若干個(gè)數(shù)輸入，只要調(diào)用插入排序過程即可。DimnAsIntegerSubinsert(a()AsSingle,ByValx!)Dimi%,j%j=1DoWhilej<nAndx>a(j)j=j+1LoopFori=n-1TojStep-1a(i+1)=a(i)Nextia(j)=xEndSubPrivateSubText1_KeyPress(KeyAsciiAsInteger)Staticbb!(1To20)Dimi%Ifn=20ThenMsgBox"數(shù)據(jù)太多!",1,"警告"EndEndIfIfKeyAscii=13Thenn=n+1Callinsert(bb(),Val(Text1))Picture1.PrintText1Fori=1TonPicture2.Printbb(i);NextiPicture2.PrintText1=""EndIfEndSub數(shù)組的合并排序從鍵盤讀取數(shù)組a和b(各5個(gè)元素），a,b都是嚴(yán)格遞增的（即元素從小到大排列，且無重復(fù)元素），將a,b合并成c數(shù)組，使C也嚴(yán)格遞增。若a,b中有相同的元素只保留一個(gè)，最后輸出數(shù)組C。編寫通用過程OutPut,在窗體上打印數(shù)組。OptionExplicitDima(5)AsInteger,b(5)AsInteger,c()AsIntegerPrivateSuboutput(d()AsInteger)’輸出數(shù)組的通用過程DimiAsIntegerFori=1ToUBound(d)Printd(i);NextiPrintEndSubPrivateSubCommand1_Click()'數(shù)組輸入DimiAsIntegerFori=1To5 a(i)=InputBox(“輸入數(shù)組a(“+str(I)+”)”)NextiPrint"數(shù)組A："Calloutput(a)Fori=1To5b(i)=InputBox(“輸入數(shù)組b(“+str(I)+”)”)NextiPrint"數(shù)組B："Calloutput(b)EndSubPrivateSubCommand2_Click()'數(shù)組合并輸出DimpAsInteger,qAsInteger,rAsIntegerDimiAsIntegerp=1:q=1:r=1DoWhilep<5Andq<5ReDimPreservec(r)Ifa(p)>b(q)Thenc(r)=b(q)r=r+1q=q+1ElseIfa(p)<b(q)Thenc(r)=a(p)r=r+1:p=p+1Elsec(r)=a(p)r=r+1:p=p+1:q=q+1EndIfLoop

Ifp=5ThenReDimPreservec(r)Fori=q+1To5c(r)=b(i):r=r+1NextiEndIfIfq=5ThenReDimPreservec(r)Fori=p+1To5c(r)=a(i):r=r+1NextiEndIfCalloutput(c)EndSub

16、查找:

（1）.順序查找[P104例5-4]順序撿索

撿索(search)：又稱為查找，就是從一組數(shù)據(jù)中找出所需的具有某種特征的數(shù)據(jù)項(xiàng)。

它是數(shù)據(jù)處理中應(yīng)用很廣泛的一種操作，最簡(jiǎn)單的檢索方法是順序撿索。其方法是從一組數(shù)據(jù)的第一項(xiàng)開始逐個(gè)比較，直到找到該數(shù)據(jù)項(xiàng)，或全部數(shù)據(jù)都比較完也沒找到該數(shù)據(jù)為止。OptionExplicit

PrivateSubForm_Click()

DimSearch(10)AsInteger,IAsInteger

DimSAsInteger

ForI=1To10

Search(I)=Int(Rnd*100)+1

PrintSearch(I)

NextI

S=Val(InputBox("輸入要查找的數(shù)"))

ForI=1To10

IfSearch(I)=SThenExitFor

NextI

IfI<=10Then

Print"要找的數(shù)是Search(";I;")"

Else

Print"沒找到!"

EndIf

EndSub（2）二分查找P106例5-5其方法是：

1)、找出中間位置Mid，判斷查找數(shù)椐K與A(Mid)

是否相等，若相等則已找到。

(2)、如果K＞A(Mid)則表明K可能在A(Mid)與A(Bot)區(qū)間內(nèi)，因此重新設(shè)置：Top＝Mid＋1

(3)、如果K＜A(Mid)則表明K可能在A(Top)與A(Mid)區(qū)間內(nèi)，因此重新設(shè)置：Bot＝Mid－1

重復(fù)以上步驟，每次查找區(qū)間減少一半，如此反復(fù)，其結(jié)果是查到此數(shù)，或查不到此數(shù)。

PrivateSubCmd生成數(shù)組_Click()DimVAsVariantSearch=Array(12,17,23,28,30,39,_41,46,57,61,78,83,85,89,93)ForEachVInSearchText1=Text1&Str(V)NextVEndSubPrivateSubCmd二分法查找_Click()DimLeftAsInteger,RightAsIntegerDimMidAsInteger,FlgAsBooleanDimFindAsIntegerFind=InputBox("輸入要查找的數(shù)")Left=1:Right=UBound(Search)Flg=FalseDoWhileLeft<=RightMid=(Right+Left)/2IfSearch(Mid)=FindThenFlg=TrueExitDoElseIfFind>Search(Mid)ThenLeft=Mid+1ElseRight=Mid-1EndIfLoopIfFlgThenText2="要查找的數(shù)"&Str(Find)&"在Search（"&Str(Mid)&"）中"ElseText2=Str(Find)&"不在數(shù)組中"EndIfEndSub

(1).數(shù)制轉(zhuǎn)換

例將一個(gè)十進(jìn)制整數(shù)m轉(zhuǎn)換成r(2－16)進(jìn)制字符串。方法：將m不斷除r取余數(shù)，直到商為零，以反序得到結(jié)果。三、字符算法把一個(gè)任意十進(jìn)制正整數(shù)轉(zhuǎn)換成N進(jìn)制數(shù)(N＜=16)

1．使用的對(duì)象:2151111NNumChDimNAsInteger,NumAsLong

PrivateSubCmd1_Click()

DimChAsString,IAsInteger

DimChar(15)AsString

DimBin()AsString

ForI=0To9

Char(I)=Str$(I)

NextI

ForI=0To5

Char(10+I)=Chr$(Asc("A")+I)

NextI

Print

ReDimBin(1)

CallTrans(Bin,Char)

ForI=UBound(Bin)To1Step-1

Ch=Ch+Bin(I)

NextI

Text3.Text=Ch

EndSubPrivateSubCmd2_Click()

End

EndSub

PrivateSubText1_Change()

N=Val(Text1.Text)

Lab4.Caption=Str$(N)+"進(jìn)制數(shù)"

EndSub

PrivateSubText2_Change()

Num=Val(Text2.Text)

EndSubPrivateSubTrans

(Vary()AsString,St()AsString)

DimRAsInteger

DimKAsInteger

K=0

DoUntilNum=0

R=NumModN

K=K+1

ReDimPreserveVary(K)

Vary(K)=St(R)

Num=Num\N

Loop

EndSub(2).加密和解密簡(jiǎn)單加密的思想是：將每個(gè)字母C加一序數(shù)K，式子c=chr(Asc(c)+k),例如序數(shù)k為5，這時(shí)“A”“F”，“a”“f”，“B”“G”…當(dāng)加序數(shù)后的字母超過“Z”或“z”則c=hr(Asc(c)+k-26)。解密為加密的逆過程。PrivateSubCommand1_Click()’加密Dimstrinput$,code$,record$,cAsString*1Dimi%,length%,iasc%strinput=Text1length=Len(RTrim(strinput))‘去掉字符串右邊空格，求真正的長(zhǎng)度code=""Fori=1Tolengthc=Mid$(strinput,i,1)’取第I個(gè)字符SelectCasecCase“A”To“Z“‘大寫字母加序數(shù)5加密iasc=Asc(c)+5Ifiasc>Asc(“Z”)Theniasc=iasc–26’加密后字母超過Zcode=code+Chr$(iasc)

Case“a”To“z“‘小寫字母加序數(shù)5加密iasc=Asc(c)+5Ifiasc>Asc("z")Theniasc=iasc-26code=code+Chr$(iasc)CaseElse ’當(dāng)?shù)贗個(gè)字符為其他字符時(shí)不加密code=code+cEndSelectNextiText2=code‘顯示加密后的字符串EndSubPrivateSubCommand3_Click()’清屏Text1=""Text2=""Text3=""Text1.SetFocusEndSub（3）.字符統(tǒng)計(jì)輸入一串字符，統(tǒng)計(jì)各字母出現(xiàn)的次數(shù),大小寫字母不區(qū)分。分析：1.統(tǒng)計(jì)26個(gè)字母出現(xiàn)的個(gè)數(shù)，先聲明一個(gè)具有26個(gè)元素的數(shù)組，每個(gè)元素的下標(biāo)表示對(duì)應(yīng)的字母，元素的值表示對(duì)應(yīng)字母出現(xiàn)的次數(shù)。2.從輸入的字符串中逐一取出字符，轉(zhuǎn)換成大寫字符（使得大小寫不區(qū)分）,進(jìn)行判斷。3.運(yùn)行界面：Privatesubcommand1_ClickDima(1to26)asInteger,casString*1Le=len(text1)ForI=1Tolec=UCase(Mid(Text1,I,1))Ifc>="A"Andc<="Z"Thenj=Asc(c)-65+1a(j)=a(j)+1EndIfNextIForj=1to26 ifa(j)>0thenPicture1.print“”;chr(j+64);“=”;a(j);NextjEndsub（4）.字符串處理編寫一個(gè)英文打字訓(xùn)練的程序.要求如下：(1)在標(biāo)簽框內(nèi)隨機(jī)產(chǎn)生30個(gè)字母的范文；(2)當(dāng)焦點(diǎn)進(jìn)入文本框時(shí)開始計(jì)時(shí)，并顯示當(dāng)時(shí)時(shí)間；(3)在鍵入文本框按產(chǎn)生的范文輸入相應(yīng)的字母；(4)當(dāng)鍵入滿了30個(gè)字母結(jié)束計(jì)時(shí)，禁止向文本框輸入內(nèi)容，鍵入的字符逐一范文比較，顯示打字的速度和正確率。PrivateSubCommand1_Click()‘產(chǎn)生30個(gè)字母的范文RandomizeText1=""Fori=1To30a=Chr$(Int(Rnd*25)+65)’隨機(jī)產(chǎn)生大寫字母Text1=Text1+a‘產(chǎn)生的大寫字母送入范文框NextiEndSubPrivateSubCommand2_Click()EndEndSubPrivateSubText2_GotFocus()‘輸入文本框獲取焦點(diǎn)，開始計(jì)時(shí)t=TimeEndSubPrivateSubText2_KeyPress(KeyAsciiAsInteger)IfLen(Text2)=30Then ’輸入滿30