VB常用算法.doc

1、1.累加與連乘分析累加形式：V=V+e 連乘形式：V=V*e其中：V是變量，e是遞增表達(dá)式。累加和連乘一般通過循環(huán)結(jié)構(gòu)來實(shí)現(xiàn)。注意：需在執(zhí)行循環(huán)體前對(duì)變量V賦初值。一般累加時(shí)置初值0；連乘時(shí)置初值為1。舉例求N!的結(jié)果。Private Sub Command1_Click() Dim n%, i%, s& n = Val(InputBox(輸入n) s = 1 For i = 1 To n s = s * i Next i Print sEnd Sub錯(cuò)誤的寫法：Private Sub Command1_Click() Dim n%, i%, s& n = Val(InputBox(輸入n)

2、For i = 1 To n s = 1 賦初值語(yǔ)句位置不對(duì)！s = s * i Next i Print s 輸出s的值為n，而不是n!End Sub應(yīng)用舉例根據(jù)下列公式，求自然對(duì)數(shù)e的的近似值。要求：誤差小于0.00001Private Sub Command1_Click() Dim i%, n&, t!, e! e = 2 i = 1 t = 1 Do While t 0.00001 i = i + 1 t = t / i e = e + t Loop Print 計(jì)算了; i; 項(xiàng)目和是：; ePrint Exp(1) 與上句輸出值進(jìn)行對(duì)比以證明算法的正確性End Sub解題技巧1)

3、由于這類題目往往是根據(jù)精度要求來求值，因此我們不能預(yù)知具體循環(huán)次數(shù)，所以這類題目一般用Do循環(huán)，很少用For循環(huán)。設(shè)定循環(huán)變量和通項(xiàng)變量，注意各變量的初值；2)分解通項(xiàng)表達(dá)式中各因子，并分別將各因子用循環(huán)變量表示；3)如果步驟2中有的因子比較復(fù)雜，難以直接用變量表示，此時(shí)可以考慮使用Function過程；4)根據(jù)步驟1、2、3，寫出通項(xiàng)表達(dá)式；5)根據(jù)精度要求（往往是通項(xiàng)小于10負(fù)多少次方這樣一個(gè)關(guān)系表達(dá)式），寫出一條滿足精度要求后跳出循環(huán)的語(yǔ)句。通常是用：if 通項(xiàng)表達(dá)式10(-N) then exit do ，注意這句話一般需放在累加或者連乘式之前。實(shí)例說明以2002年春上機(jī)試卷06編程題

4、為例根據(jù)X值計(jì)算：n1，2，要求：n項(xiàng)絕對(duì)值小于等于10-6為止。1、由于循環(huán)次數(shù)不確定，因此確定用Do循環(huán)結(jié)構(gòu)并定義循環(huán)變量用n表示（初值1）；用戶輸入的值用x表示；通項(xiàng)用dblCos表示；累加值用sum表示，初值為0；2、分解通項(xiàng)式的組成可以分解為三部分： 可以表示為：（1）(n+1) 可以表示為：x(2*(n-1) 比較復(fù)雜，難以直接表示3、由于步驟2中 復(fù)雜， 此時(shí)考慮使用過程。于是定義過程，輸入值是n，返回值是 于是有：private Function comp（n as long）as longdim I as longdim result as longresult=1 此處注意

5、，由于是連乘，初值為1for I=1 to 2*(n-1)result=result*Inext Icomp=resultEnd Function注意：由于是參數(shù)按地址傳遞，因此對(duì)于本題，實(shí)參的值不能在過程中被改變?。ㄒ彩歉腻e(cuò)題常考的地方?。?、根據(jù)步驟1、2、3，寫出通項(xiàng)dblCos的表達(dá)式：dblCos=（1）(n+1)* x(2*(n-1)/comp(n)5、根據(jù)精度要求知：If abs（dblCos）=10(-6) then exit do最后程序?yàn)椋篜rivate Sub Command1_Click() Dim n As Long, dblCos As Double, x As D

6、ouble x = Val(Text1.Text) n = 1 Do dblCos = (-1) (n + 1) * x (2 * (n - 1) / comp(n) If Abs(dblCos) max Then max = s If s min Then min = s aver = aver + s Next i aver = aver / n Print max=; max; min=; min; aver=; averEnd Sub解題技巧最大值、最小值、平均值類型題目往往和數(shù)組放在一起考！有的不僅求這些值，還要對(duì)具有最大值或者最小值的行或列或者某個(gè)元素進(jìn)行處理，這時(shí)就要在記錄最大、

7、最小值時(shí)，同時(shí)記錄該值所在的行號(hào)和列號(hào)。2、實(shí)戰(zhàn)練習(xí) 1)補(bǔ)充代碼（2000春二（9）本程序的功能是在二維數(shù)組中查找鞍點(diǎn)元素，即該元素在所在行中為最大，且在所在列中為最小。在一個(gè)數(shù)組中可能存在，也可能不存在這樣的元素。數(shù)組各元素的值從文件data.txt中讀取。Private Sub Form_Click()Dim a(3,3) As Integer,i As Integer,j As IntegerDim maxvr As Integer,col As Integer, As IntegerOpen data.txt For Input As #1For i=1 To 3For j=1 To

8、 3Input #1,a(i,j)Print a(i,j);Next jPrintNext iFor i=1 To 3maxvr= （1） col=1For j=2 To 3If maxvra(j,col) Then （3） Next jIf j3 Then Print a(;i;,;col;)=;a(i,col)=1End If If （4） Then Print 鞍點(diǎn)元素不存在Next iEnd Sub2)編程題（2002秋上機(jī)試卷05）隨機(jī)生成所有數(shù)組元素都是兩位數(shù)的33的二維數(shù)組，找出其中不同行、不同列的三個(gè)數(shù)組元素的乘積最大的一組，并將這三個(gè)元素顯示在圖片框中。3.素?cái)?shù)問題1、算法說

9、明 素?cái)?shù)（質(zhì)數(shù)）：就是一個(gè)大于等于2的整數(shù)，并且只能被1和本身整除，而不能被其他整數(shù)整除的數(shù)。 判別某數(shù)m是否是素?cái)?shù)的經(jīng)典算法是： 對(duì)于m，從I2，3，4，m1依次判別能否被I整除，只要有一個(gè)能整除，m就不是素?cái)?shù)，否則m是素?cái)?shù)。 Private Function sushu(ByVal n As Long) As Boolean Dim i As Long For i = 2 To n - 1 If (n Mod i) = 0 Then Exit For Next I If I=n then sushu=True End Function 很顯然，實(shí)際上，我們可以改進(jìn)上面 For i = 2

10、To n 1 為： For i = 2 To int（sqr（m） 這樣可以很好的提高效率。 以上判斷是否為素?cái)?shù)的代碼務(wù)必識(shí)記！ 應(yīng)用舉例 求100200之內(nèi)素?cái)?shù)。 Private Sub Command1_Click() Dim j As Integer For j = 100 To 200 If sushu(j) = True Then Print j End If Next j End Sub 解題技巧 識(shí)記判斷素?cái)?shù)的算法過程，根據(jù)題意，靈活調(diào)用！ 實(shí)例說明 編程題（2002年春上機(jī)試卷04） 找出10000以內(nèi)所有可以表示為兩個(gè)平方數(shù)和的素?cái)?shù)。 思路： 首先找10000以內(nèi)的所有素?cái)?shù)，

11、對(duì)于每個(gè)素?cái)?shù)判斷其是否可以表示為兩個(gè)平方數(shù)之和（即對(duì)于任意小于該素?cái)?shù)shu的數(shù)I，如果I和shuI均為平方數(shù)，則說明其可以表示為兩個(gè)平方數(shù)之和。） 判斷數(shù)I是否為平方數(shù)的方法：sqr（i）=int(sqr(i) Private Sub Command1_Click() Dim j As Integer Dim m As Long, n As Long For j = 2 To 10000 If sushu(j) = True Then If pf(j, m, n) = True Then List1.AddItem j & = & m & + & n End If End If Next j

12、End Sub Private Function pf(ByVal shu As Long, m As Long, n As Long) As Boolean Dim i As Long For i = 1 To shu - 1 If (Sqr(i) = Int(Sqr(i) And (Sqr(shu - i) = Int(Sqr(shu - i) Then pf = True m = i n = shu - i Exit Function End If Next End Function 2、實(shí)戰(zhàn)練習(xí) 1) 補(bǔ)充代碼（2002春二（7） 下列程序的功能是：查找四位正整數(shù)中的超級(jí)素?cái)?shù)。超級(jí)素?cái)?shù)

13、的定義為：當(dāng)一個(gè)素?cái)?shù)從低位到高位依次去掉一位數(shù)后剩下的數(shù)仍然是素?cái)?shù)，則此數(shù)為超級(jí)素?cái)?shù)。如數(shù)2333、233、23、2均為素?cái)?shù)，所以2333為超級(jí)素?cái)?shù)。 Option Explicit Private Sub Command1_Click() Dim I As Integer, flg As Boolean For I = 1001 To 9999 Step 2 Call sup_prime(I, flg) If flg Then Debug.Print I End If Next I End Sub Private Sub sup_prime( （1） , F As Boolean) Dim

14、p As Integer F = True Do While N 0 If prime(N) Then （2） Else （3） Exit Sub End If Loop End Sub Public Function prime(p As Integer) As Boolean Dim k As Integer If p = 1 Then Exit Function Else For k = 2 To Sqr(p) If p Mod k = 0 Then Exit Function Next k （4） End If End Function 2) 編程題（2004春上機(jī)試卷03） 隨機(jī)生成

15、15個(gè)兩位正整數(shù)，從中找出所有的素?cái)?shù)，并記下它是第幾個(gè)數(shù)，再找出其中最大的素?cái)?shù)，并給出它的位置。4.進(jìn)制轉(zhuǎn)換1、算法說明 1) 十進(jìn)制正整數(shù)m轉(zhuǎn)換為R（216）進(jìn)制的字符串。 思路： 將m不斷除r取余數(shù)，直到商為0，將余數(shù)反序即得到結(jié)果。 算法實(shí)現(xiàn)： Private Function Tran(ByVal m As Integer, ByVal r As Integer) As String Dim StrDtoR As String, n As Integer Do While m o n = m Mod r m = m r If n 9 Then StrDtoR = Chr(65 + n

16、- 10) & StrDtoR Else StrDtoR = n & StrDtoR End If Loop Tran = StrDtoR End Function 2) R（216）進(jìn)制字符串轉(zhuǎn)換為十進(jìn)制正整數(shù)。 思路：R進(jìn)制數(shù)每位數(shù)字乘以權(quán)值之和即為十進(jìn)制數(shù)。 算法實(shí)現(xiàn)： Private Function Tran(ByVal s As String, ByVal r As Integer) As integer Dim n As Integer, dec As Integer s = UCase(Trim(s) For i% = 1 To Len(s) If Mid(s, i, 1) =

17、 A Then n = Asc(Mid(s, i, 1) - Asc(A) + 10 Else n = Val(Mid(s, i, 1) End If dec = dec + n * r (Len(s) - i) Next i Tran = dec End Function 解題技巧 進(jìn)制轉(zhuǎn)化的原理要清楚,同時(shí)編寫代碼時(shí)候要留意16進(jìn)制中的AF字符的處理。 2、實(shí)戰(zhàn)練習(xí) 1) 補(bǔ)充代碼（2002秋二（9） 本程序是把給定的二進(jìn)制整數(shù)轉(zhuǎn)換為八進(jìn)制整數(shù)。 Private Sub Command1_Click() Dim a As String, b As String, c As String D

18、im L As Integer, m As Integer, n As Integer a = InputBox(請(qǐng)輸入一個(gè)二進(jìn)制數(shù), 輸入框) （1） a = String(L, 0) & a （2） For m = 1 To n / 3 b = Mid(a, 3 * m - 2, 3) （3） Next m Text1.Text = c End Sub Private Function zh(s As String) As String Dim i As Integer, n As Integer, p As Integer p = 1 For i = 2 To 0 Step -1 （4）

19、 p = p + 1 Next i zh = Str(n) End Function 2) 補(bǔ)充代碼（2001春二（7） 下面程序是把給定的16進(jìn)制正整數(shù)轉(zhuǎn)換為10進(jìn)制數(shù)。 Option Explicit Private Sub Form_Click() Dim St As Integer， Dem As Long St=InputBox(輸入一個(gè)十六進(jìn)制數(shù)) Dem=Convert(St) Print St; =; Dem End Sub Private Function Convert(S As String)As Long Dim N As Integer， I As Integer，S

20、ubstring As String*1 Dim P As long， K As Long，Asc1 As Integer N= （1） P=16N For I=1 To N P=P/16 Substring= （2） Select Case Substring Case 0 To 9 K=K+P*Val(Substring) Case （3） Asc1=Asc(Substring)-Asc(A)+10 （4） End Select Next I （5） End Function VB常用算法（五）約數(shù)因子- -5.最大公約數(shù)、最小公倍數(shù)1、算法說明 1) 最大公約數(shù)：用輾轉(zhuǎn)相除法求兩自然數(shù)m

21、、n的最大公約數(shù)。（1） 首先，對(duì)于已知兩數(shù)m、n，比較并使得mn；（2） m除以n得余數(shù)r；（3） 若r0，則n為求得的最大公約數(shù)，算法結(jié)束；否則執(zhí)行步驟（4）（4） mn nr 再重復(fù)執(zhí)行（2）譬如：10與5分析步驟：m=10 n=5r=m mod n=0所以n(n=5)為最大公約數(shù)24與9分析步驟：m=24 n=9r=m mod n=6r0 m=9 n=6r=m mod n=3r0 m=6 n=3r=m mod n=0所以n(n=3)為最大公約數(shù)算法實(shí)現(xiàn)循環(huán)實(shí)現(xiàn)Private Function GCD(ByVal m As Long, ByVal n As Long) As Long D

22、im temp As Long If m n Then temp = m: m = n: n = temp Dim r As Long Do r = m Mod n If r = 0 Then Exit Do m = n n = r Loop GCD = nEnd Function遞歸實(shí)現(xiàn)Private Function GCD(ByVal m As Long, ByVal n As Long) As Long Dim temp As Long If m n Then temp = m: m = n: n = temp Dim r As Long r = m Mod n If r = 0 Th

23、en GCD = n Else m = n n = r GCD = GCD(m, n) End IfEnd Function2) 最小公倍數(shù)mn最大公約數(shù)3) 互質(zhì)數(shù)最大公約數(shù)為1的兩個(gè)正整數(shù)解題技巧該算法需要識(shí)記！這種類型題目的擴(kuò)展是約數(shù)和因子題型。2、實(shí)戰(zhàn)練習(xí) 1) 補(bǔ)充代碼（2003春二（9）給定一個(gè)十進(jìn)制正整數(shù)，找出小于它并與其互質(zhì)的所有正整數(shù)（所謂互質(zhì)數(shù)是指最大公約數(shù)為1的兩個(gè)正整數(shù)，下圖是程序執(zhí)行畫面）。Option ExplicitPrivate Function gcd（ （1） ） As Integer Dim r As Integer r = m Mod n If r =

24、0 Then gcd = n Else m = n: n = r （2） End IfEnd FunctionPrivate Sub Command1_Click() Dim n As Integer, p As Integer n = Val(Text1) For p = n - 1 To 2 Step -1 If （3） Then List1.AddItem p Next pEnd Sub2) 編程題（2002秋上機(jī)試卷01）生成一個(gè)三行八列的二維數(shù)組A(3,8)，其中前兩行元素產(chǎn)生的方法是：用初值X1=26及公式Xi+1=(25Xi+357) Mod 1024，產(chǎn)生一個(gè)數(shù)列：X1、X2、

25、.、X16 。其中X1X8作為A的第一行元素；X9X16作為A的第二行元素；A的第三行元素值取前兩行同列元素的最大公約數(shù)。最后按圖示格式顯示在圖片框中。VB常用算法（六）排序6.排序1、算法說明 1) 選擇法排序 (1) 從n個(gè)數(shù)中選出最小數(shù)的下標(biāo)，出了循環(huán)，將最小數(shù)與第一個(gè)數(shù)交換位置； (2) 除第一個(gè)數(shù)外，在剩下的n-1個(gè)數(shù)中再按方法（1）選出次小的數(shù)，與第二個(gè)數(shù)交換位置； (3) 以此類推，最后構(gòu)成遞增序列。 譬如： 869327 第一輪交換后269387 第二輪交換后239687 第三輪交換后236987 第四輪交換后236789 第五輪無交換236789 程序代碼如下： Privat

26、e Sub xzPaiXu(a() As Double, sheng As Boolean) a為需要排序的數(shù)組，sheng為True則為升序排列，為False，則為降序排列。 Dim i As Integer, j As Integer Dim temp As Double Dim m As Integer For i = LBound(a) To UBound(a) - 1 進(jìn)行數(shù)組大小-1輪比較 m = i 在第i輪比較時(shí)，假定第 i個(gè)元素為最值元素 For j = i + 1 To UBound(a) 在剩下的元素中找出最 值元素的下標(biāo)并記錄在m中 If sheng Then 若為升序

27、，則m記錄最小元素 下標(biāo),否則記錄最大元素下標(biāo) If a(j) a(m) Then m = j End If Next j 將最值元素與第i個(gè)元素交換 temp = a(i) a(i) = a(m) a(m) = temp Next i End Sub 調(diào)用該過程示例： Option Base 1 Private Sub Command1_Click() Dim b(6) As Double b(1) = 8 b(2) = 6 b(3) = 9 b(4) = 3 b(5) = 2 b(6) = 7 Call xzPaiXu(b, True) For i% = 1 To 6 Print b(i)

28、 Next End Sub 2) 冒泡法排序 選擇排序法在每一輪排序時(shí)找最值元素的下標(biāo)，出了內(nèi)循環(huán)（一輪排序結(jié)束），再交換最小數(shù)的位置；而冒泡法在每一輪排序時(shí)將相鄰的數(shù)比較，當(dāng)次序不對(duì)就交換位置，出了內(nèi)循環(huán)，最值數(shù)已經(jīng)冒出。 譬如： 869327 8 6 9 3 2 7 8 6 9 2 3 7 8 6 2 9 3 7 8 2 6 9 3 7 2 8 6 9 3 7 . 2 3 8 6 9 7 . 2 3 6 8 7 9 . 2 3 6 7 8 9 . 2 3 6 7 8 9 程序代碼如下： Private Sub mpPaiXu(a() As Double, sheng As Boolean)

29、 a為需要排序的數(shù)組，sheng為True則為升序排列，為False，則為降序排列。 Dim i As Integer, j As Integer Dim temp As Double Dim m As Integer For i = LBound(a) To UBound(a) - 1 進(jìn)行n-1輪比較 For j = UBound(a) To i + 1 Step -1 從n到i個(gè)元素兩兩進(jìn)行比較 If sheng Then 若次序不對(duì)，馬上進(jìn)行交換 If a(j) a(j - 1) Then temp = a(j) a(j) = a(j - 1) a(j - 1) = temp End

30、If End If Next j 出了內(nèi)循環(huán)，一輪排序結(jié)束 最值元素冒到最上邊 Next i End Sub 調(diào)用該過程代碼基本同上。 2、實(shí)戰(zhàn)練習(xí) 1) 補(bǔ)充代碼（2003秋二（10） 下面是一個(gè)采用拉鋸式排序法對(duì)數(shù)組元素按升序進(jìn)行排序的程序，所謂“拉鋸式排序法”是這一遍把最小的元素從下到上送到最上的位置，下一遍則是從上到下把最大的元素送到最下的位置。 Option Base 1 Private Sub Command1_Click() Dim a(10) As Integer,i As Integer For i = 1 To 10 a(i) = Int(Rnd * 10)+1 Text1

31、 = Text1 & Str(a(i) Next i Call shaker_sort(a) For i = 1 To 10 Text2 = Text2 & Str(a(i) Next i End Sub Private Sub Shaker_sort(k() As Integer) Dim i As Integer,c As Integer,d As Integer Dim t As Integer c = 1 d = （1） Do For （2） Step-1 If k(i=1)k(i) Then t = k(i-1):k(i-1) = k(i):k(i) = t End If Next

32、i （3） For i = c+1 To d If （4） Then t = k(i-1):k(i-1) = k(i):k(i) = t End If Next i d = d-1 Loop While （5） End Sub 2) 編程題（2002秋上機(jī)試卷04） 把文本框輸入的字符串按降序添加到列表框中。VB常用算法（七）數(shù)組元素插入刪除- -7.在數(shù)組中插入或刪除元素1、算法說明 數(shù)組中元素的插入和刪除一般是在已固定序列的數(shù)組中插入或刪除一個(gè)元素，使得插入或刪除操作后的數(shù)組還是有序的。 基本思路：首先要找到插入位置或要?jiǎng)h除的元素。 1) 插入 代碼如下： Private Sub Comm

33、and1_Click() Dim a(10) As Integer Dim i As Integer, k As Integer For i = 0 To 9 生成數(shù)組 a(i) = i * 3 + 1 Print a(i); Next i Print Print 插入14 For k = 0 To 9 查找插入14在數(shù)組中的位置 If 14 a(k) Then Exit For Next k For i = 9 To k Step -1 從最后元素開始逐個(gè)后移，騰出位置 a(i + 1) = a(i) Next i a(k) = 14 插入數(shù)14 For i = 0 To 10 Print

34、a(i); Next i Print End Sub 2) 1 4 7 10 13 16 19 22 25 28K刪除代碼如下： Dim a() as integer . ReDim a(1 to n) For i=k+1 to n a(i-1)=a(i) Next I Redim preserve a(1 to n-1) 2、實(shí)戰(zhàn)練習(xí) 1) 補(bǔ)充代碼（2001秋二（8） C盤根目錄下文件Data4.txt的內(nèi)容是：2，4，6，8，10，1，3，5，7，9。下面程序的功能是將文件后半部分的奇數(shù)分別按序插入到前半部分的適當(dāng)位置，得到的新數(shù)列是：1 2 3 4 5 6 7 8 9 10。（實(shí)現(xiàn)方法

35、：第一次調(diào)整后的數(shù)列是：1 2 4 6 8 10 3 5 7 9第二次調(diào)整后的數(shù)列是：1 2 3 4 6 8 10 5 7 9）。 Option Explict Private Sub Form_Click() Dim A(10) As Integer,i As Integer,J As Integer Open c:Data4.txt For Input As #12 Do （1） J=J+1 Input #12,A(J) Loop Call Insert(A) For i=1 To 10 Print A(i); Next i Print Close #12 End Sub Private

36、Sub Insert(A() As Integer) Dim i As Integer,Putp As Integer,J As Integer Dim Getp As Integer,N As Integer,Tem As Integer N=UBound(A)/2 Putp=1 Getp=N+1 For i=1 To N Tem=A(Getp) For J=Getp To Putp +1 Step -1 （2） Next J A(Putp)=Tem Getp=Getp+1 Putp= （3） Next i End Sub 2) 補(bǔ)充代碼（2001春二（8） 下面程序得功能是將無序數(shù)組中相同得數(shù)只保留一個(gè)，其余得刪除，并輸出經(jīng)過刪除后的數(shù)組元素，刪除相同數(shù)是通過將該數(shù)組元素后面的元素在數(shù)組內(nèi)依次前移替換前一個(gè)元素的值實(shí)現(xiàn)的。數(shù)組各元素的值從文件data.txt中讀取。 Option Explict Option Base 1 Private Sub Form_Click() Dim I As Integer,J As Integer,K As Integer