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

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

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

4、RT SORT（N N）插入到已排好序的子數(shù)列中。每插入一個(gè)元素都依次進(jìn)行）插入到已排好序的子數(shù)列中。每插入一個(gè)元素都依次進(jìn)行以下三個(gè)操作。以下三個(gè)操作。 1.1.先將待插元素先將待插元素SORTSORT（I I）放入變量）放入變量TempTemp中；中； 2.2.尋找插入位置：將尋找插入位置：將temptemp依次與依次與SORTSORT（I-1I-1）、）、 SORTSORT（I-I-2 2）、）、 進(jìn)行比較，一旦進(jìn)行比較，一旦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 ）. . 重復(fù)上述操作，將每個(gè)元素都插入到指定位置中

6、。重復(fù)上述操作，將每個(gè)元素都插入到指定位置中。 例例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é)束尋找第一個(gè)比尋找第一個(gè)比temp小的元素的位置小的元素的位置 為為temp的插入位置的插入位置K指向前一個(gè)元素指向前一個(gè)元素分析分析：二分查找是一種快捷有效的查找方法，使用二分查找：二分查找是一種快捷有效的查找方法，使用二分查找的前提是數(shù)據(jù)序列已排好序的前提是數(shù)據(jù)序列已排好序。

8、 假設(shè)有假設(shè)有n個(gè)數(shù)已經(jīng)按照從小到大的順序排列，并存放在數(shù)個(gè)數(shù)已經(jīng)按照從小到大的順序排列，并存放在數(shù)組組A中，設(shè)中，設(shè)Left為查找區(qū)間的下界為查找區(qū)間的下界下標(biāo)，初值為下標(biāo)，初值為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）重復(fù)執(zhí)行以上操作）重復(fù)執(zhí)行以上操作（6）結(jié)束循環(huán)的條件有兩個(gè)：已經(jīng)找到；）結(jié)束循環(huán)的條件有兩個(gè)：已經(jīng)找到；找不到找不到-LeftRight 二分查找二分查找341111059678x=8LeftRightMidLeftRightMidRightLeftMid231111049678x=5LeftRightMidMidRightLeftMidLeftLeftMidLeftMid Left = LBound(a) Right = UBound(a) x = InputBox(請(qǐng)輸入要查找的數(shù)據(jù)請(qǐng)輸入要查找的數(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 沒(méi)找到！沒(méi)找到！; x End If二分查找二分查找過(guò)程過(guò)程Sub過(guò)程過(guò)程Function過(guò)程過(guò)程Property過(guò)程過(guò)程事件過(guò)程事件過(guò)程通用過(guò)程通用過(guò)程窗體事件過(guò)程窗體事件過(guò)程控件事件過(guò)程控件事件過(guò)程公有過(guò)程公有過(guò)程私有過(guò)程私有過(guò)程窗體的事件過(guò)程名窗體的事件過(guò)程名中不使用其具體名中不使用其具體