【正文】 ition與下標(biāo) i的數(shù)據(jù)交換 TempName = Name1(i): Name1(i) = Name1(Position) Name1(Position) = TempName TempScore = Score(i): Score(i) = Score(Position) Score(Position) = TempScore End If Next i Visual Basic程序設(shè)計教程 32 使用 For Each/Next語句訪問數(shù)組 采用 For Each /Next語句可以遍歷數(shù)組中所有元素 格式： For Each 元素 In 數(shù)組名 循環(huán)體 Next 其中元素必須為一個 Variant類型的變量 只要數(shù)組有一個元素，就會進(jìn)入循環(huán)。 Visual Basic程序設(shè)計教程 35 列表框和組合框可解決單選框和復(fù)選框選項數(shù)量的限制。 Selected : 列表框某項的選中狀態(tài)，布爾型數(shù)組。 如： 2 39。字體名放入 List1 (i) Next i End Sub Private Sub List1_Click() = End Sub Visual Basic程序設(shè)計教程 44 【 例 76】 程序運行界面如圖。程序： Private Sub Command1_Click() If = 30 Then MsgBox 個數(shù)已到，不能再添加 , , 提示 Else = End If End Sub Private Sub Command2_Click() Dim i As Integer For i = 1 To 0 Step 1 If (i) Then i Next i End Sub Visual Basic程序設(shè)計教程 47 組合框（ ComboBox） 組合框兼有文本框和列表框兩者的功能 它既允許用戶輸入文本，也允許在列表中選擇項目 1．創(chuàng)建組合框控件 創(chuàng)建組合框在工具箱內(nèi)選取列表組合框工具。 主要屬性： 預(yù)覽 Name設(shè)為 lblExample， WordWrap為 True 字體、字型和字號組合框的 Style值分別設(shè)置成 2和 0 Visual Basic程序設(shè)計教程 52 Private Sub Combo1_KeyPress(KeyAscii As Integer) ?輸入字體名改字體 Dim i As Integer If KeyAscii = 13 Then For i = 0 To 1 If (i) = Then Exit For Next i If i = 1 Then = End If End Sub Private Sub Combo1_Click() 39。定義字形表項 斜體 : 粗體斜體 = 隸書 : = 斜體 39。 如果是一批很有規(guī)律的操作，一般可以通過循環(huán)進(jìn)行。 Visual Basic程序設(shè)計教程 63 Private Sub Command1_Click(Index As Integer) = Command1(Index).Caption 39。 Visual Basic程序設(shè)計教程 67 使用二維數(shù)組 1．引用數(shù)組元素 格式：數(shù)組名 (下標(biāo) ,下標(biāo) ) 如 Dim A( 9 , 9 ) As String, B(3 To 5 , 20) As Integer 可用 A(2,2)、 A(i,i)、 A(k*2,5)、 B(4,6)訪問元素 0≤i ≤9； 0≤ k*2 ≤9 但 A(7)、 B(1,3)都是錯誤 ??????????121110987654321Visual Basic程序設(shè)計教程 68 2．給數(shù)組元素賦值 ——同普通變量一樣賦值。換行 Next I 5．訪問數(shù)組 每個元素都可以象簡單變量一樣使用 成批操作時，可以通過循環(huán)來進(jìn)行。 j amp。 聲明并使用動態(tài)數(shù)組需要兩個步驟： 1．聲明動態(tài)數(shù)組 格式： Dim 數(shù)組名 ( ) [As 類型名 ] 它聲明了一個空維數(shù)組，表明該數(shù)組是動態(tài)數(shù)組 例如 Dim a() As Integer Visual Basic程序設(shè)計教程 76 2．用 Redim語句分配數(shù)組的實際元素個數(shù) ReDim語句是一個可執(zhí)行語句 作用是為數(shù)組分配實際空間。 如：輸入 8和 1 1 1 1 1 1 1 18，輸出為： 11 12 13 14 15 16 17 18和 18 17 16 15 14 13 12 11。 Next i Print Visual Basic程序設(shè)計教程 82 For i = 1 To N \ 2 T = A(i): A(i) = A(N i + 1): A(N i + 1) = T 39。 簡單的方法是采用順序檢索（線性查找法），即： 將鍵盤輸入的數(shù)據(jù) X與 a(1)～ a(N)逐一比較 若與某個 a(i)相符，則找到，否則找不到。 個數(shù) , , 提示 End If Else 39。 5．若： Key 中間元素，可更改上界為 High=Mid 1。若存在，則顯示數(shù)據(jù)下標(biāo)。確定中間元素 If Key = A(Mid) Then Exit Do 39。兩個列表框中都可用 Delete鍵刪除選中的項目 。當(dāng)列表框單擊時，決定復(fù)制按鈕是否可用 Select Case Case 0 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。代碼類同于 List1_KeyDown 39。將文本框中的姓名添加到左列表框中 If Then = End Sub Private Sub Form_Load() 39。 個數(shù)據(jù) 39。若沒有，則顯示： 找不到 。 共比較 3 3 3 3次。 1．把待查數(shù)據(jù)范圍分成二半，取出作為分界線的中間元素，其下標(biāo)為 Mid=(Low+High)\2 ； 2．將中間元素 A(Mid)與 Key比較； 3．若： Key = 中間元素 A(Mid)， 找到 。 是第 amp。 這是一個檢索（查找）問題。 i amp。 即第 1個元素與第 n個元素互換，第 2個元素與第 n1個元素互換， … 。 Round(Average / Count, 2) End Sub Visual Basic程序設(shè)計教程 75 如何聲明動態(tài)數(shù)組 如果在運行時才能確定數(shù)組大小，可用動態(tài)數(shù)組。 i amp。每行顯示 4個，共 3行。―退出”按鈕 End End Sub Visual Basic程序設(shè)計教程 65 二維數(shù)組有兩個下標(biāo) 二維數(shù)組可表示一個矩陣 可以把第一個下標(biāo)看作行，第二個下標(biāo)看作列。 Visual Basic程序設(shè)計教程 62 【 例 79】 編寫一個運行界面如圖的程序，其中“ +‖、“ ‖、“ ‖、“ 247。 元素的方法、事件和屬性與它的非數(shù)組同類控件一樣 但有一個重要的屬性是 Index屬性，相當(dāng)于數(shù)組下標(biāo)，編程用 對于整個數(shù)組，屬性 LBound、 UBound和 Count，分別表示著整個控件數(shù)組下標(biāo)的下界、上界和元素個數(shù)。定義字號表項 宋體 39。 控件： 6個標(biāo)簽，其中 1個用于顯示預(yù)覽效果 1個框架 3個組合框 Visual Basic程序設(shè)計教程 51 事件： Form_Load事件：添加組合框中初始項目等。 Listl的 MultiSelect：由于允許多選，設(shè)置為 2。如圖。將 List2中的第一條放入 List1 計算機 ,2 39。缺省值為 List1 List : 保存選項的字符串?dāng)?shù)組。 例如通過選擇字體來改變標(biāo)簽的文字字體。先假定 Score(i)就是最小值，故記錄下標(biāo) i For j = i + 1 To n If Score(Position) Score(j) Then Position=j 39。 /。 Named(i)。 移動位置時，可以采用這樣的算法： 把 ID(10)移到 ID(11)， ID(9)移到 ID(10)， … ，把ID(i)移到 ID(i+1)。 Score(i), Count = Count + 1 : If Count Mod 5 = 0 Then Print 39。 位編號 :, )) Score(i) = Val(InputBox(請輸入第 amp。 Dim C, B As Integer, i As Integer 39。 省略類型名，則表示為 Variant類型。 使用 n（ 1≤n≤16）個下標(biāo)的數(shù)組，稱為ｎ維數(shù)組。 Score(i), 0 Next i Visual Basic程序設(shè)計教程 10 For i = 1 To N 1 39?；Q Next j 然后再將 i從 1循環(huán)到 n1，就可構(gòu)成分類（排序）程序段。 若第 1個數(shù)大，則 a(1)與參與比較的元素中的值進(jìn)行互換 再將互換后的第 1個數(shù)與剩下的數(shù)據(jù)比較，直到最后。 數(shù)組中包含了一個或多個元素 下標(biāo)給出了數(shù)組中元素的順序 數(shù)組和循環(huán)結(jié)構(gòu)配合，使數(shù)據(jù)處理變得容易。 控件： 2個標(biāo)簽 2個列表框 1個命令按鈕 Visual Basic程序設(shè)計教程 5 ―輸入數(shù)據(jù)并排名”按鈕作用： 輸入運行員人數(shù) 輸入各運動員的姓名和成績 左列表框放排序前的數(shù)據(jù) 右列表框放排序后的名次數(shù)據(jù)。 若第 2個數(shù)大，則與數(shù)組元素中的值進(jìn)行互換， … ，直到最后。 i amp。將排序后數(shù)據(jù)及名次放入右列表框 i amp。 下標(biāo)說明又稱維定義符，定義了這個維的大小。 1．引用數(shù)組元素 引用格式為： 數(shù)組名 (下標(biāo) ) 數(shù)組名應(yīng)與聲明時的數(shù)組名相同 下標(biāo)必須用括號括起來，不能把 Sc