1、VB程序設(shè)計復習要程序設(shè)計復習要點點VBVB應(yīng)用程序應(yīng)用程序窗體文件窗體文件標準模塊文件標準模塊文件聲明部分聲明部分事件過程事件過程通用過程通用過程全局聲明部分全局聲明部分模塊聲明部分模塊聲明部分通用過程通用過程類模塊文件類模塊文件整型數(shù)整型數(shù)浮點型數(shù)浮點型數(shù)整型整型長整型長整型單精度數(shù)單精度數(shù)雙精度數(shù)雙精度數(shù)語句語句1語句語句2條件滿足條件滿足?語句塊語句塊1語句塊語句塊2TrueFalse語句塊語句塊TrueFalse條件條件注意：注意：1. 語句體和語句體和Then或或Else不能夠?qū)懺谕恍胁荒軌驅(qū)懺谕恍?. 當分支結(jié)構(gòu)中當分支結(jié)構(gòu)中A組或者組或者B組語句僅有一條時，可省略組語句僅有

2、一條時，可省略“End If”，但必須將所有語句寫在同一行：，但必須將所有語句寫在同一行： If 條件成立條件成立 Then Else If 條件條件1 Then 語句塊語句塊1 ElseIf 條件條件2 Then 語句塊語句塊2 ElseIf 條件條件n Then 語句塊語句塊n Else 語句塊語句塊n+1 End IfSelect Case 測試表達式測試表達式 Case 測試項測試項1 語句塊語句塊1 Case 測試項測試項2 語句塊語句塊2 Case Else 語句塊語句塊n1End Select條件？條件？循環(huán)體循環(huán)體TrueFalse條件？條件？循環(huán)體循環(huán)體FalseTrue D

3、o While LoopDo Loop While “當當(while)型型”循環(huán)循環(huán)條件成立時，執(zhí)行循環(huán)體條件成立時，執(zhí)行循環(huán)體 條件？條件？循環(huán)體循環(huán)體FalseTrue條件？條件？循環(huán)體循環(huán)體TrueFalse“直到直到(Until)型型”循環(huán)循環(huán)條件成立時，結(jié)束循環(huán)條件成立時，結(jié)束循環(huán) Do Until LoopDo Loop Until 將待排序的將待排序的N N個數(shù)據(jù)存放在數(shù)組個數(shù)據(jù)存放在數(shù)組SORTSORT中，首先將中，首先將SORTSORT（1 1）認）認為已排序子序列，然后依次將為已排序子序列，然后依次將SORTSORT（2 2）、）、 SORTSORT（3 3）、）、 SO

4、RT SORT（N N）插入到已排好序的子數(shù)列中。每插入一個元素都依次進行）插入到已排好序的子數(shù)列中。每插入一個元素都依次進行以下三個操作。以下三個操作。 1.1.先將待插元素先將待插元素SORTSORT（I I）放入變量）放入變量TempTemp中；中； 2.2.尋找插入位置：將尋找插入位置：將temptemp依次與依次與SORTSORT（I-1I-1）、）、 SORTSORT（I-I-2 2）、）、 進行比較，一旦進行比較，一旦SORTSORT（k k） temp temp，則停止比較，插入，則停止比較，插入位置即是位置即是SORTSORT（K K）之后；）之后； 3.3.空出位置，將元素

5、插入：將空出位置，將元素插入：將SORTSORT（k+1k+1） 至至SORTSORT（I-1I-1）的元素依次后移一位，再將變量的元素依次后移一位，再將變量temptemp的值放入的值放入SORTSORT（K+1K+1）中；）中；注意：為避免元素值丟失，必須先將注意：為避免元素值丟失，必須先將SORTSORT（I-1I-1）賦給）賦給SORTSORT（I I），）， SORTSORT（I-2I-2）賦給）賦給 SORTSORT（I-1I-1），），直至，直至 SORTSORT（K+1K+1）賦給）賦給 SORTSORT（K +2 K +2 ）. . 重復上述操作，將每個元素都插入到指定位置中

6、。重復上述操作，將每個元素都插入到指定位置中。 例例8-118-11：直接插入排序法：直接插入排序法從小到大的順序。從小到大的順序。361543615461656546 3Temp2265432排序前排序前排序后排序后直接排序示例直接排序示例Private Sub insertion(sort( ) As Integer) Dim k As Integer, i As Integer, temp As Integer,Ub As Integer Ub = UBound(sort) For i = 2 To Ub temp = sort (i) k = i - 1 Do While temp s

7、ort(k) sort(k + 1) = sort(k) k = k - 1 If k = 0 Then Exit Do Loop sort (k + 1) = temp Next iEnd Sub取待排序的元素取待排序的元素一邊比較一邊比較一邊后移一邊后移temp比已排序的所比已排序的所有元素都小則結(jié)束有元素都小則結(jié)束尋找第一個比尋找第一個比temp小的元素的位置小的元素的位置 為為temp的插入位置的插入位置K指向前一個元素指向前一個元素分析分析：二分查找是一種快捷有效的查找方法，使用二分查找：二分查找是一種快捷有效的查找方法，使用二分查找的前提是數(shù)據(jù)序列已排好序的前提是數(shù)據(jù)序列已排好序。

8、 假設(shè)有假設(shè)有n個數(shù)已經(jīng)按照從小到大的順序排列，并存放在數(shù)個數(shù)已經(jīng)按照從小到大的順序排列，并存放在數(shù)組組A中，設(shè)中，設(shè)Left為查找區(qū)間的下界為查找區(qū)間的下界下標，初值為下標，初值為1；Right為查找區(qū)間的上界，初值為為查找區(qū)間的上界，初值為n；設(shè)需要查找的數(shù)為；設(shè)需要查找的數(shù)為x；二分查找；二分查找的算法如下：的算法如下：（1）求出查找區(qū)間的中間位置）求出查找區(qū)間的中間位置Mid=Int(Left+Right)/2)（2）若）若A（Mid）=x，則找到，結(jié)束比較，則找到，結(jié)束比較（3）若）若A（Mid）x，則表明，則表明x在在A（Left）到到A（Mid-1）區(qū)）區(qū)間內(nèi)，查找區(qū)間縮小一半，

9、設(shè)置間內(nèi)，查找區(qū)間縮小一半，設(shè)置Right=Mid-1（5）重復執(zhí)行以上操作）重復執(zhí)行以上操作（6）結(jié)束循環(huán)的條件有兩個：已經(jīng)找到；）結(jié)束循環(huán)的條件有兩個：已經(jīng)找到；找不到找不到-LeftRight 二分查找二分查找341111059678x=8LeftRightMidLeftRightMidRightLeftMid231111049678x=5LeftRightMidMidRightLeftMidLeftLeftMidLeftMid Left = LBound(a) Right = UBound(a) x = InputBox(請輸入要查找的數(shù)據(jù)請輸入要查找的數(shù)據(jù)) Do While Lef

10、t = Right Mid = Int(Left + Right) / 2) If a(Mid) = x Then Exit Do ElseIf a(Mid) x Then Left = Mid + 1 ElseRight = Mid - 1 End If Loop If Left = Right ThenPrint 要查找的要查找的; x; 是是A（; Mid; ) ElsePrint 沒找到！沒找到！; x End If二分查找二分查找過程過程Sub過程過程Function過程過程Property過程過程事件過程事件過程通用過程通用過程窗體事件過程窗體事件過程控件事件過程控件事件過程公有過程公有過程私有過程私有過程窗體的事件過程名窗體的事件過程名中不使用其具體名中不使用其具體