【導(dǎo)讀】數(shù)組是構(gòu)造的一種新的數(shù)據(jù)表達。數(shù)組元素）的連續(xù)存儲單元。數(shù)組和循環(huán)結(jié)構(gòu)配合，使數(shù)據(jù)處理變得容易。設(shè)計程序，如圖。對一批馬拉松運動員按。右列表框放排序后的名次數(shù)據(jù)。先在n個數(shù)中選最小數(shù)，放在第1個數(shù)組元素中。取第1個數(shù)，與后面n-1個數(shù)逐個比較。重復(fù)以上步驟，直至在最后兩個數(shù)中選取最小數(shù)，最后第n個元素已是最大數(shù)了。數(shù)組在使用前必須先聲明。下標說明又稱維定義符，定義了這個維的大小。省略類型名，則表示為Variant類型。放姓名，為字符串型，一個存放年齡，為整型，一般情況下，它們實際各包含元素51個。下標值應(yīng)在下界和上界之間，否則出錯。

　　

【正文】 LBound(A)，上界 High= UBound(A)。 1．把待查數(shù)據(jù)范圍分成二半，取出作為分界線的中間元素，其下標為 Mid=(Low+High)\2 ； 2．將中間元素 A(Mid)與 Key比較； 3．若： Key = 中間元素 A(Mid)， 找到 。跳出檢索循環(huán)； Visual Basic程序設(shè)計教程 88 4．若： Key 中間元素 A(Mid)，因數(shù)據(jù)排過序，則以中間元素的后半部分范圍作為新的待查數(shù)據(jù)范圍，即可更改下界為 Low=Mid+1。 5．若： Key 中間元素，可更改上界為 High=Mid 1。 6．重復(fù)以上步驟，待查范圍越來越小，或直至不存在。即： 隨著 High的不斷減少， Low的不斷增大，若不 存在 Key時，最終將導(dǎo)致 LowHigh。即不存在 待查數(shù)據(jù)范圍。 Visual Basic程序設(shè)計教程 89 例如：在以下數(shù)據(jù)中找 33。① low=1,high=8,mid=4 ② low=5,high=8,mid=6 ③ low=5,high=5,mid=5 。 共比較 3 3 3 3次。 5 5 5 9 9 9 20 20 20 33 33 33 44 44 44 56 56 56 90 90 90 【 例 713】 從鍵盤輸入一個整數(shù)，判斷該數(shù)是否在已排序的 20個數(shù)的數(shù)組之內(nèi)。若存在，則顯示數(shù)據(jù)下標。若沒有，則顯示： 找不到 。 Visual Basic程序設(shè)計教程 90 例如：在以下數(shù)據(jù)中找 40。① low=1,high=8,mid=4 ② low=5,high=8,mid=6 ③ low=5,high=5,mid=5 。key33, 3 3 3 3 low=5+1=6 5 5 5 5 出現(xiàn)lowhigh 9 9 9 9 20 20 20 20 33 33 33 33 44 44 44 44 56 56 56 56 90 90 90 90 h l h l 【 例 713】 從鍵盤輸入一個整數(shù)，判斷該數(shù)是否在已排序的 20個數(shù)的數(shù)組之內(nèi)。若存在，則顯示數(shù)據(jù)下標。若沒有，則顯示： 找不到 。 Visual Basic程序設(shè)計教程 91 Private Sub Command1_Click() Dim i As Integer, A, Key As Integer ?聲明 A為Variant類型 Dim Low As Integer, High As Integer, Mid As Integer A = Array(1, 4, 5, 7, 10, 12, 34, 45, 56, 74, 88, 90, 120, 233, 422, 456, 555, 557, 567, 600) Key = Val(InputBox(―輸入一個要檢索的整數(shù)” , ―輸入數(shù)據(jù)” , , 4000, 4500)) Low = LBound(A): High = UBound(A) ‘折半查找法開始 ,確定初始范圍 Visual Basic程序設(shè)計教程 92 Do While High = Low Mid = (Low + High) \ 2 39。確定中間元素 If Key = A(Mid) Then Exit Do 39。找到 If Key A(Mid) Then 39。后半部分為新范圍 Low = Mid + 1 Else 39。前半部分為新范圍 High = Mid 1 End If Loop If Low High Then Print 找不到數(shù)據(jù) 。 Key Else Print 已找到，是第 。 Mid + 1。 個數(shù)據(jù) 39。這里從 0開始 ,習慣從 1開始 End If End Sub Visual Basic程序設(shè)計教程 93 選擇聯(lián)系人 【 例 714】 編程：左列表框的項目可以單選或多選復(fù)制到右列表框中 ， 當左列表框下方的文本框中輸入內(nèi)容時 ， 自動用二分法在左列表框中找匹配項 ， 找到則選中 ， 并使添加按鈕不可用 ， 否則可以將文本框內(nèi)容添加到左列表框中 。兩個列表框中都可用 Delete鍵刪除選中的項目 。 控件： 3個標簽作為其它控件的提示 2個列表框 1個文本框 3個命令按鈕：復(fù)制一項 、 多項；添加項目 。 Visual Basic程序設(shè)計教程 94 事件： 文本框的 Change： 檢測輸入的字符串是否已在左列表框中 List1（ 左 ） 的 Click：檢測 左列表框中是否有項目被選中 ， 以決定復(fù)制按鈕是否可用 兩個列表框的 KeyDown或 KeyUp： 按 Delete鍵能刪除選中的項目 3個命令按鈕的 Click事件 。 Visual Basic程序設(shè)計教程 95 屬性設(shè)置 Visual Basic程序設(shè)計教程 96 Private Sub Command1_Click() 39。復(fù)制一個項目 ,使原項目不處于選中狀態(tài) () = False End Sub Private Sub Command2_Click() 39。復(fù)制多個項目 ,使原項目不處于選中狀態(tài) Dim i As Integer For i = 0 To 1 If (i) Then (i): (i)=False Next i End Sub Visual Basic程序設(shè)計教程 97 Private Sub Command3_Click() 39。將文本框中的姓名添加到左列表框中 If Then = End Sub Private Sub Form_Load() 39。啟動窗體時，使兩個復(fù)制按鈕不可用 = False: = False End Sub Visual Basic程序設(shè)計教程 98 Private Sub List1_Click() 39。當列表框單擊時，決定復(fù)制按鈕是否可用 Select Case Case 0 39。未選中 = False: = False Case 1 39。選中一個 = True: = False Case Is 1 39。選中多個 = False: = True End Select End Sub Visual Basic程序設(shè)計教程 99 Private Sub List1_DblClick() 39。雙擊左列表框 ,直接將項目放入右列表框 End Sub Private Sub List1_KeyDown(KeyCode As Integer, Shift As Integer) Dim i As Integer If KeyCode = vbKeyDelete Then 39。如果按下了 Delete鍵 ,刪除已選項目 For i = 1 To 0 Step 1 If (i) = True Then i Next End If End Sub Private Sub List2_KeyDown(KeyCode As Integer, Shift As Integer) 39。代碼類同于 List1_KeyDown 39。用 Delete鍵刪除已選項目 End Sub Visual Basic程序設(shè)計教程 100 Private Sub Text1_Change() 39。輸入文字時項目是否存在，按鈕是否可用 Dim S As String, Low As Integer, High As Integer, Mid As Integer, i As Integer For i = 0 To 1 (i) = False Next i S = Low = 0: High = 1 39。二分法查找開始 Do While Low = High Mid = (Low + High) \ 2 If S = (Mid) Then (Mid) = True: Exit Do ?找到則選中 If S (Mid) Then Low = Mid + 1 Else High = Mid 1 Loop Visual Basic程序設(shè)計教程 101 If Low = High Then = False 39。找到，使“添加”按鈕不可用 Else = True End If End Sub 其中常量 vbKeyDelete表示 Delete鍵對應(yīng) KeyCode碼。