1、常用算法總結(jié)算法是對某個問題求解過程的描述,一、基本算法 1.累加、連乘,1100的5或7的倍數(shù)的和 Sum = 0 For i = 1 To 100 If i Mod 5 = 0 Or i Mod 7 = 0 Then Sum = Sum + i End If Next i Print Sum,310的乘積 t = 1 For i =3 To 10 t = t * i Next i Print t,思考：若把循環(huán)體前面置各變量初值的語句放在循環(huán)體內(nèi)，程序運行時會產(chǎn)生什么情況？,1,例求自然對數(shù)e的近似值,要求其誤差小于0.00001，近似公式為: 該例題涉及兩個問題： （1）用循環(huán)結(jié)構(gòu)求級數(shù)

2、和的問題。本例根據(jù)某項值的精度來控制循環(huán)的結(jié)束與否。 （2）累加：e=e+t 循環(huán)體外對累加和的變量清零 e=0 連乘：n=n*i 循環(huán)體外對連乘積變量置1 n=1 Private Sub Form_Click() Dim i%,n e End Sub,2,2.求素數(shù) 判別某數(shù)m是否為素數(shù)最簡單的方法是: 對于m 從i=2，3，m-1判別m能否被i整除，只要有一個能整除，m不是素數(shù)，否則m是素數(shù)。 For m = 2 To 100 For i = 2 To m - 1 If (m Mod i) = 0 Then exit for Next i if Im-1 then msgbox str(m

3、)+”是素數(shù)” Else msgbox str(m)+”不是素數(shù)” End If Next m,m是否為素數(shù),求100以內(nèi)的素數(shù),3,3.窮舉法 “窮舉法”也稱為“枚舉法”或“試湊法”， 即將可能出現(xiàn)的各種情況一一測試，判斷是否滿足條件，一般采用循環(huán)來實現(xiàn)。 例百元買百雞問題。假定小雞每只5角,公雞每只2元，母雞每只3元?，F(xiàn)在有100元錢要求買100只雞，編程列出所有可能的購雞方案。 設(shè)母雞、公雞、小雞各為x、y、z只，根據(jù)題目要求，列出方程為： x+y+y=100 3x+2y+0.5z=100 三個未知數(shù)，兩個方程，此題有若干個解。 解決此類問題采用“試湊法”，把每一種情況都考慮到。 方法一

4、：最簡單三個未知數(shù)利用三重循環(huán)來實現(xiàn)。 方法二：從三個未知數(shù)的關(guān)系，利用兩重循環(huán)來實現(xiàn)。,4,方法一： Private Sub Form_click() Dim X%,y%,z% For X=0 To 100 For Y=0 To 100 For Z= 0 To 100 If X+y+z=100 And 3*x+2*y+.5*z=100 Then Print X,y,z End If Next Z Next Y Next X End sub,方法二： For X= 0 To 33 For Y= 0 To 50 Z=100-x-y If 3*x+2*y+.5*z=100 Then Print X

5、, Y, Z End If Next Y Next X,5,4.遞推法 “遞推法”又稱為“迭代法”，其基本思想是把一個復(fù)雜的計算過程轉(zhuǎn)化為簡單過程的多次重復(fù)。每次重復(fù)都從舊值的基礎(chǔ)上遞推出新值，并由新值代替舊值。 例 猴子吃桃子。小猴在一天摘了若干個桃子，當天吃掉一半多一個；第二天接著吃了剩下的桃子的一半多一個；以后每天都吃尚存桃子的一半零一個，到第7天早上要吃時只剩下一個了，問小猴那天共摘下了多少個桃子？ 分析：這是一個“遞推”問題，先從最后一天推出倒數(shù)第二天的桃子，再從倒數(shù)第二天的桃子推出倒數(shù)第三天的桃子。 設(shè)第n天的桃子為xn，那么它前一天的桃子數(shù)是xn -1。,6,已知：當N=7第7

6、天的桃子數(shù)為1，則第6天的桃子數(shù)由公式得4個，依次類推，可求得第1 天的桃子數(shù)。 程序如下： Private sub form_click() Dim I as integer x=1 print “第7 天的桃子數(shù)為：1只” for I=6 to 1 step 1 x=(x+1)*2 print “第”; I; ” 天的桃子數(shù)為：” ; x ; ”只” next I End sub,7,5.最小、最大值 在若干個數(shù)中求最大值，一般先假設(shè)一個較小的數(shù)為最大值的初值，若無法估計較小的值，則取第一個數(shù)為最大值的初值；然后將每一個數(shù)與最大值比較，若該數(shù)大于最大值，將該數(shù)替換為最大值；依次逐一比較。例

7、隨機產(chǎn)生10個100200之間的數(shù)，求最大值。,Private Sub Command1_Click() Max = 100 For i = 1 To 10 x = Int(Rnd * 101) + 100 Print x; If x Max Then Max = x Next i Print Print 最大值=; Max End Sub,8,6、求最大公約數(shù),9,Private Sub Command1_Click() Dim m, n, r As Long m = Val(Text1.Text) 取數(shù)據(jù)M n = Val(Text2.Text) 取數(shù)據(jù)N If m Int(m) or m

8、 Int(n) or n 1 Then Text3.Text = 數(shù)據(jù)錯誤！ Else Do 求最大公約數(shù) r = m Mod n m = n n = r Loop Until r = 0 Text3.Text = CStr(m) 輸出最大公約數(shù) End If End Sub,判斷數(shù)據(jù)是否合法,10,Private Sub Form_Click() For i = 1 To 9 For j = 1 To 9 Print i; *; j; =; i * j; Next j Print Next i End Sub 執(zhí)行本程序，窗體上將顯示九九乘法表。,For j = 1 To i,7、關(guān)于循環(huán)嵌

9、套(一個循環(huán)體內(nèi)又包含了一個完整的循環(huán)結(jié)構(gòu)稱為循環(huán)的嵌套.),換行！,作用?,例：xh2.vbp Ssfrm.frm,11,思考：打印上三角或下三角程序如何改動？要打印下三角? 8. 打印圖形 見下頁,12,編寫程序打印如右邊圖形： Private Sub Form_Click() For i = 1 To 4 Print Space(5 - i); For j = 1 To 2 * i - 1 Print *; Next j Print Next i Print End Sub,* * * *,* * * *,外循環(huán)用來控制輸出的行數(shù)及每行第一個字符的輸出位置,內(nèi)循環(huán)用來控制每行輸出的字符個

10、數(shù)。,例：xh2.vbp shjs.frm,13,9.判斷同構(gòu)數(shù)(復(fù)習材料 P39 第7題),10.找親密對數(shù) P111 例5-10 11.判斷完數(shù) 實驗P55 實驗7-2 12.計算多項式 的和 實驗P51 實驗6-3 13.求一個正整數(shù)K的各位數(shù)字之和 復(fù)習材料P33 4.4練習題 第1題 14.報數(shù)問題 P114 例5-12 15.判斷回文數(shù) 復(fù)習材料 P41 第10題 或P81 習題4,14,16.求自然數(shù)的因子 P81 習題5,Private Sub Command1_Click() Dim a As Integer, I% a = InputBox(輸入一個自然數(shù)) Label1.

11、Caption = Str(a) + 的所有因子： For I = 1 To a-1 If a Mod I = 0 Then List1.AddItem (Str(I) End If Next End Sub,15,二、數(shù)組的算法,1. 數(shù)組元素的賦初值 (1)用循環(huán) For i = 1 To 10 A(i)=0 Next i for I=1 to 10 for J=1 to 10 B(I,J)=0 next J next i,16,(2) Array函數(shù) Dim ib As Variant ib = Array(abc, def, 67) For i = 0 To UBound(ib) Pi

12、cture1.Print ib(i); ; Next i,注意： (1)利用Array對數(shù)組各元素賦值，聲明的數(shù)組是可調(diào)數(shù)組或連圓括號都可省，并且其類型只能是Variant。 (2)數(shù)組的下階為零，上界由Array函數(shù)括號內(nèi)的參數(shù)個數(shù)可決定，也可通過函數(shù)Ubound獲得。,17,2數(shù)組的賦值 在VB6.0中，提供了數(shù)組直接對數(shù)組的賦值。 例如： Dim a( ) As Variant, b( ) As Variant, i% a = Array(1, 2, 3, 4, 5) ReDim b(UBound(a) b = a,For i = 0 To UBound(a) b(i) = a(i) N

13、ext i,相當于,注意：賦值號左邊的數(shù)組只能聲明為 Variant的可調(diào)數(shù)組或簡單變量。,18,3. 數(shù)組的輸出 輸出方陣SC中的下三角元素 For i = 0 To 4 For j = 0 To I j=0 to 4 則輸出整個數(shù)組 sc(i, j) = i * 5 + j Print sc(i, j); ; Next j Print 換行 Next I,19,4. 將數(shù)組中各元素交換(P115習題1) For i =1 To 152 t=A(i) A(i)=A(10-i+1) A(10-i+1)=t Next i,20,5、對數(shù)組的行/列操作（行、列的和),P115習題3：求二維數(shù)組每行

14、的和數(shù)與每列的和數(shù)，數(shù)組元素為19之間的隨機數(shù)。,Option explicit Option base 1 生成數(shù)組 Private Sub Command1_Click() For I = 1 To 4 For J = 1 To 5 A(I, J) = Int(9 * Rnd) + 1 Picture1.Print A(I, J); Next J Picture1.Print Next I End Sub,求列和 Private Sub Command2_Click() For J = 1 To 5 L(J) = 0 For I = 1 To 4 L(J) = L(J) + A(I, J)

15、 Next I Text2 = Text2 next j print Next I End sub 除法：除法操作必須先判別分母不為零，然后再進行對應(yīng)元素的除法操作。,24,7、求數(shù)組靠邊元素之和, 不靠邊元素之和 P115習題6,Option base 1 Private sub form_click() Dim X%(4,5), s%(4), sum% For I=1 to 4 s(I)=0 for j=1 to 5 x(I,j)=i next j Next i For J=1 to 5 S(1)=S(1)+X(1,J) S(4)=S(4)+X(4,J) Next j,1 1 1 1 1

16、2 2 2 2 2 3 3 3 3 3 4 4 4 4 4,For I=2 to 3 S(2)=S(2)+X(I,1) S(3)=S(3)+X(I,5) Next i for I=1 to 4 SUM=SUM+S(I) Next i print SUM End sub,25,8,求數(shù)組對角線元素之積或和,Option base 1 Private sub form_click() Dim X%(4,4), S1 Next J Print Next I For I = 1 To 5 MAXI(I) = A(I, 1) For J = 1 To 8 If MAXI(I) A(I, J) Then

17、MAXI(I) = A(I, J) Next J Print 第; I; 行的最大值是:; MAXI(I), Next I Print,生成數(shù)組并輸出,求每行最大 并輸出,27,9.求二維數(shù)組中每行/列元素的最大/最小,For J = 1 To 8 MAXJ(J) = A(1, J) For I = 1 To 5 If MAXJ(J) A(I, J) Then MAXJ(J) = A(I, J) Next I Print 第; J; 列的最大值是:; MAXJ(J), If J Mod 5 = 0 Then Print Next J End Sub,求每列最大 并輸出,28,10求鞍點元素,該

18、元素所在行為最大,所在列為最小,P115 習題7 生成數(shù)組 Private Sub Command1_Click() Dim I%, J% M = InputBox(請輸入數(shù)組的行數(shù)) N = InputBox(請輸入數(shù)組的列數(shù)) ReDim A(M, N) For I = 1 To M For J = 1 To N A(I, J) = Int(90 * Rnd) + 10 Picture1.Print A(I, J); Next J Picture1.Print Next I End Sub,29,10求鞍點元素,該元素所在行為最大,所在列為最小,P115 習題7 找鞍點數(shù) Private

19、Sub Command2_Click() Dim I%, J%, Max%, Col%, Flg% For I = 1 To M Max = A(I, 1) Col = 1 For J = 2 To N If Max A(J, Col) Then Exit For Next J If J N Then Text1.Text = 鞍點元素是 next j print Next i For I=1 to 5 for j=1 to 3 y(I,j)=int(100*rnd)+1 print y(I,j) next j print Next i,31,11、矩陣乘法,For L=1 to 4 for

20、J=1 to 3 Z(L,J)=0.0 for I=1 to 5 Z(L,J)=Z(L,J)+X(L,I)*Y(I,J) next i next j Next L For I= 1 to 4 for j=1 to 3 print z(I,j); next j print Next i End sub,32,12、矩陣轉(zhuǎn)置 P116 習題10/復(fù)習資料P60 第5題,Option Explicit Option Base 1 Dim A() As Integer, B() As Integer, N% Private Sub Command1_Click() 生成數(shù)組 Dim I%, J% N

21、= InputBox() ReDim A(N, N) For I = 1 To N For J = 1 To N A(I, J) = Int(Rnd * 100) + 1 Text1 = Text1 (2)除第1個數(shù)外，其余n-1個數(shù)再按(1)的方法選出次小的數(shù)，與第2個數(shù)交換位置; (3)重復(fù)(1)n-1遍，最后構(gòu)成遞增序列。,35,Private Sub Command1_Click() Dim Sort(10) As Integer, temp% Dim i As Integer, j% Randomize For i = 1 To 10 Sort(i) = Int(Rnd * 99)

22、+ 1 Text1 = Text1 Next i End Sub,38,例： 排序運動員的成績,已知8名運動員100米成績，請排出他們的名次（成績相同名次相同，成績由鍵盤輸入）,39,本題的難點并不在排序，可以很輕松地用冒泡法或選擇法排序進行成績從小（快）到大（慢）的排列。問題是排序后的成績對應(yīng)于哪一個運動員，一維數(shù)組是無法記錄的。因此就要定義一個二維數(shù)組，其中第一列放運動員的成績，第二列存放成績對應(yīng)的運動員號。按二維數(shù)組的第一列排序后，產(chǎn)生交換不僅要交換第一列的數(shù)組元素，還要交換第二列的數(shù)組元素，這樣運動員的編號就能跟著成績“跑了”。在輸出名次時，也要注意成績相同、名次相同的問題。,40,排

23、序過程（選擇法排序） Private Sub sort(cj() As Single) Dim temp As Single For i = 1 To 7 For j = i + 1 To 8 If cj(i, 1) cj(j, 1) Then temp = cj(i, 1): cj(i, 1) = cj(j, 1): cj(j, 1) = temp temp = cj(i, 2): cj(i, 2) = cj(j, 2): cj(j, 2) = temp End If Next Next End Sub,41,輸出名次過程 Private Sub output(cj() As Single)

24、 Dim j As Integer, p As Integer p = 1 Print 第; 1; 名是; cj(1, 2); 號運動員，成績是:; cj(1, 1) For j = 2 To 8 If cj(j, 1) = cj(j - 1, 1) Then Print 第; p; 名是; cj(j, 2); 號運動員，成績是:; cj(j, 1) Else Print 第; j; 名是; cj(j, 2); 號運動員，成績是:; cj(j, 1) p = j End If Next Print End Sub,42,窗體事件過程 輸入運動員成績 Private Sub Form_Click

25、() Dim i As Integer Dim pro As String, cj(8, 2) As Single Randomize For i = 1 To 8 pro = 請輸入第 + Str(i) + 位運動員的成績： cj(i, 1) = InputBox(pro) cj(i, 2) = i Print cj(i, 1); Next Print Print Call sort(cj) Call output(cj) End Sub,43,15.數(shù)組元素的插入與刪除 (1) 插入 排序 復(fù)習材料 P50 第23 在有序數(shù)組a(1 to n)(原有n-1個元素)插入一個值Key元素, 算

26、法: 查找要插入的位置k（1=k=n-1）,騰出位置,把最后一個元素開始到第K個元素往后移動一個位置, 第k個元素的位置騰出，就可將數(shù)據(jù)Key插入,44,Private sub command1_click Dim a%( 11), I%,J% ,X% For I= 1 to 10 a(I)=I*5+1 通過程序自動生成有規(guī)律的數(shù)組 Next I X=Inputbox(“輸入任意數(shù)X:”) For I= 1 to 10 查找欲插入數(shù)X在數(shù)組中的位置 if Xa(I) then exit for 找到插入的位置下標為I Next I For J=11 to I+1 step 1 從最后元素開始往

27、后移，騰出位置 a(J)=a(J-1) Next J A(I)=X End sub,45,(2) 刪除重復(fù)元素見 P113 例5-11 首先也是要找到欲刪除的元素的位置k；然后從k+1到n個位置開始向前移動；最后將數(shù)組元素減1。例如，要將值為13的元素刪除的過程為：,46,Dim a() as integer 聲明為動態(tài)數(shù)組 . Redim a( 1 to n) 聲明為有N個元素的數(shù)組 查找到要刪除的元素下標為K For I=k+1 to N 從K+1個元素開始往前移 A(I-1)=a(I) Next I 最后一個元素的位置空出，利用數(shù)組重新聲明減少一個元素，但要保留原來值 Redim pre

28、serve a( 1 to n-1),47,排序法有：選擇、冒泡、插入法排序及合并排序等。 前兩種排序欲排序的數(shù)據(jù)全部輸入后，再進行排序； 插入法排序每輸入一項，馬上插入到數(shù)組應(yīng)在的位置，數(shù)組始終有序。用插入排序法輸入不多于20個數(shù)，使數(shù)組保持遞增的序列。對數(shù)組中已有N-1個有序數(shù)，當輸入某數(shù)X時，插入排序法實現(xiàn)的步驟： (1)輸入欲排序的數(shù)據(jù)項x；在數(shù)組a中找x應(yīng)所處的位置j; (2)從數(shù)組的最后一個元素開始到下標j依次往后移，使j位置空出； (3)將x放入位置j處，一個數(shù)據(jù)插入完成； (4)有若干個數(shù)重復(fù)(1)(3)。 對于若干個數(shù)輸入，只要調(diào)用插入排序過程即可。,48,Dim n As

29、Integer Sub insert(a() As Single, ByVal x!) Dim i%, j% j = 1 Do While j a(j) j = j + 1 Loop For i = n - 1 To j Step -1 a(i + 1) = a(i) Next i a(j) = x End Sub,49,Private Sub Text1_KeyPress(KeyAscii As Integer) Static bb!(1 To 20) Dim i% If n = 20 Then MsgBox 數(shù)據(jù)太多!, 1, 警告 End End If If KeyAscii = 13

30、Then n = n + 1 Call insert(bb(), Val(Text1) Picture1.Print Text1 For i = 1 To n Picture2.Print bb(i); Next i Picture2.Print Text1 = End If End Sub,50,數(shù)組的合并排序,從鍵盤讀取數(shù)組a和b(各5個元素），a,b都是嚴格遞增的（即元素從小到大排列，且無重復(fù)元素），將a,b合并成c數(shù)組，使C也嚴格遞增。 若a,b中有相同的元素只保留一個，最后輸出數(shù)組C。編寫通用過程OutPut,在窗體上打印數(shù)組。,51,Option Explicit Dim a(5)

31、 As Integer, b(5) As Integer, c() As Integer Private Sub output(d() As Integer) 輸出數(shù)組的通用過程 Dim i As Integer For i = 1 To UBound(d) Print d(i); Next i Print End Sub,52,Private Sub Command1_Click() 數(shù)組輸入 Dim i As Integer For i = 1 To 5 a(i)=InputBox(“輸入數(shù)組a(“+str(I)+”)”) Next i Print 數(shù)組A： Call output(a)

32、For i = 1 To 5 b(i)=InputBox(“輸入數(shù)組b(“+str(I)+”)”) Next i Print 數(shù)組B： Call output(b) End Sub,53,Private Sub Command2_Click() 數(shù)組合并輸出 Dim p As Integer, q As Integer, r As Integer Dim i As Integer p = 1: q = 1: r = 1 Do While p b(q) Then c(r) = b(q) r = r + 1 q = q + 1 ElseIf a(p) b(q) Then c(r) = a(p) r

33、 = r + 1: p = p + 1 Else c(r) = a(p) r = r + 1: p = p + 1: q = q + 1 End If Loop,54,If p = 5 Then ReDim Preserve c(r) For i = q + 1 To 5 c(r) = b(i): r = r + 1 Next i End If If q = 5 Then ReDim Preserve c(r) For i = p + 1 To 5 c(r) = a(i): r = r + 1 Next i End If Call output(c) End Sub,55,16、查找: （1）

34、.順序查找 P104例5-4 順序撿索撿索(search)：又稱為查找，就是從一組數(shù)據(jù)中找出所需的具有某種特征的數(shù)據(jù)項。 它是數(shù)據(jù)處理中應(yīng)用很廣泛的一種操作，最簡單的檢索方法是順序撿索。其方法是從一組數(shù)據(jù)的第一項開始逐個比較，直到找到該數(shù)據(jù)項，或全部數(shù)據(jù)都比較完也沒找到該數(shù)據(jù)為止。,56,Option ExplicitPrivate Sub Form_Click() Dim Search(10) As Integer, I As Integer Dim S As Integer For I = 1 To 10 Search(I) = Int(Rnd * 100) + 1 Print Searc

35、h(I) Next I S = Val(InputBox(輸入要查找的數(shù)) For I = 1 To 10 If Search(I) = S Then Exit For Next I If I = 10 Then Print 要找的數(shù)是 Search(; I; ) Else Print 沒找到 ! End IfEnd Sub,57,（2）二分查找 P106 例5-5 其方法是：1)、找出中間位置Mid，判斷查找數(shù)椐K與A(Mid) 是否相等，若相等則已找到。(2)、如果KA(Mid)則表明K可能在A(Mid)與A(Bot)區(qū)間內(nèi)，因此重新設(shè)置： TopMid1 (3)、如果KA(Mid)則表明

36、K可能在A(Top)與A(Mid)區(qū)間內(nèi)，因此重新設(shè)置： BotMid1 重復(fù)以上步驟，每次查找區(qū)間減少一半，如此反復(fù)，其結(jié)果是查到此數(shù)，或查不到此數(shù)。,58,Private Sub Cmd生成數(shù)組_Click() Dim V As Variant Search = Array(12, 17, 23, 28, 30, 39,_ 41, 46, 57, 61, 78, 83, 85, 89, 93) For Each V In Search Text1 = Text1 chr(j+64);“=”;a(j); Next j End sub,72,（4）.字符串處理 編寫一個英文打字訓練的程序.要求

37、如下： (1)在標簽框內(nèi)隨機產(chǎn)生30個字母的范文； (2)當焦點進入文本框時開始計時，并顯示當時時間； (3)在鍵入文本框按產(chǎn)生的范文輸入相應(yīng)的字母； (4)當鍵入滿了30個字母結(jié)束計時，禁止向文本框輸入內(nèi)容 ，鍵入的字符逐一范文比較，顯示打字的速度和正確率。,73,Private Sub Command1_Click() 產(chǎn)生30個字母的范文 Randomize Text1 = For i = 1 To 30 a = Chr$(Int(Rnd * 25) + 65) 隨機產(chǎn)生大寫字母 Text1 = Text1 + a 產(chǎn)生的大寫字母送入范文框 Next i End Sub,74,Priva

38、te Sub Command2_Click() End End Sub Private Sub Text2_GotFocus() 輸入文本框獲取焦點，開始計時 t = Time End Sub,75,Private Sub Text2_KeyPress(KeyAscii As Integer) If Len(Text2) = 30 Then 輸入滿30個字符 t2 = DateDiff(“s”, t, Time) 計算速度 Text3 = t2 & “秒” 顯示速度 Text2.Locked = True 不允許修改 y = 0: n = 0 For i = 1 To 30 比較正確率 If Mid(Text1, i, 1) = Mid(Text2, i, 1) Then y = y + 1 Else n = n + 1 End If Next i y = y / (y + n) * 100 Text4 = y & % End If End Sub,76,