【正文】 移動(dòng) ID(i)~ID(10)及 Named(i)~Named(10)的位置，空出 i所在位置，插入 ID1和 Name1。輸出人數(shù) End Sub Visual Basic程序設(shè)計(jì)教程 25 使用一維數(shù)組 【 例 73】 編程：按編號(hào)順序輸入 10位同學(xué)的編號(hào)和姓名，現(xiàn)班上又增一位同學(xué)，要求他的編號(hào) ID1和姓名 Name1仍按編號(hào)順序插入到數(shù)組 ID和 Named中。開始計(jì)數(shù)，并輸出高于平均分的數(shù)據(jù) For i = 1 To 30 If Score(i) Average Then Print ID(i)。開始計(jì)算平均分 For i = 1 To 30 Average = Average + Score(i) Next i 輸入數(shù)據(jù)和計(jì)算平均分可同時(shí)進(jìn)行。 i amp。 Visual Basic程序設(shè)計(jì)教程 21 【 例 72】 輸入 30位同學(xué)的編號(hào)和成績，求他們的平均成績，并輸出高于平均分的同學(xué)編號(hào)和成績，以及這些同學(xué)的人數(shù)。 使用 Array函數(shù)前，必須先將數(shù)組名定義為 Variant類型。 1．引用數(shù)組元素 引用格式為： 數(shù)組名 (下標(biāo) ) 數(shù)組名應(yīng)與聲明時(shí)的數(shù)組名相同 下標(biāo)必須用括號(hào)括起來，不能把 Score(1)寫成Score1。 Visual Basic程序設(shè)計(jì)教程 14 類型名與變量聲明時(shí)使用的一樣，表示被聲明的這個(gè)數(shù)組的每一個(gè)元素都具有這種類型。 下標(biāo)說明又稱維定義符，定義了這個(gè)維的大小。 Score(i) Next i End Sub Visual Basic程序設(shè)計(jì)教程 11 如何聲明一維數(shù)組 只有一個(gè)下標(biāo)的數(shù)組，稱為一維數(shù)組。將排序后數(shù)據(jù)及名次放入右列表框 i amp。 amp。 i amp。將 a(i)與 a(i+1)～ a(n)逐一比較 If a(i) a(j) Then Temp = a(i) : a(i) = a(j) : a(j) = Temp 39。 若第 2個(gè)數(shù)大，則與數(shù)組元素中的值進(jìn)行互換， … ，直到最后。 取第 1個(gè)數(shù)，與后面 n1（即 2到 n）個(gè)數(shù)逐個(gè)比較。 控件： 2個(gè)標(biāo)簽 2個(gè)列表框 1個(gè)命令按鈕 Visual Basic程序設(shè)計(jì)教程 5 ―輸入數(shù)據(jù)并排名”按鈕作用： 輸入運(yùn)行員人數(shù) 輸入各運(yùn)動(dòng)員的姓名和成績 左列表框放排序前的數(shù)據(jù) 右列表框放排序后的名次數(shù)據(jù)。 數(shù)組是一組具有 相同變量名和類型 的數(shù)據(jù)（叫做數(shù)組元素）的連續(xù)存儲(chǔ)單元。 數(shù)組中包含了一個(gè)或多個(gè)元素 下標(biāo)給出了數(shù)組中元素的順序 數(shù)組和循環(huán)結(jié)構(gòu)配合，使數(shù)據(jù)處理變得容易。 事件： 主要是 Command1的 Click事件 Visual Basic程序設(shè)計(jì)教程 6 排序又稱分類。 若第 1個(gè)數(shù)大，則 a(1)與參與比較的元素中的值進(jìn)行互換 再將互換后的第 1個(gè)數(shù)與剩下的數(shù)據(jù)比較，直到最后。 重復(fù)以上步驟，直至在最后兩個(gè)數(shù)中選取最小數(shù)，放在第 n1個(gè)數(shù)組元素中?；Q Next j 然后再將 i從 1循環(huán)到 n1，就可構(gòu)成分類（排序）程序段。 位運(yùn)動(dòng)員姓名 , 姓名 ) Score(i) = Val(InputBox(請輸入第 amp。 Score(i), 0 Next i Visual Basic程序設(shè)計(jì)教程 10 For i = 1 To N 1 39。 amp。 使用 n（ 1≤n≤16）個(gè)下標(biāo)的數(shù)組，稱為ｎ維數(shù)組。 它有兩種表示形式： 上界 下界 To 上界 下界和上界必須使用數(shù)值型常量表達(dá)式 下界和上界表示數(shù)組元素的下標(biāo)的范圍 Visual Basic程序設(shè)計(jì)教程 13 在缺省狀態(tài)下，起始下標(biāo)（下界值）為 0 Dim A(50)，表示數(shù)組 A有 51個(gè)元素，即 A(0)、A(1)、 … 、 A(50)。 省略類型名，則表示為 Variant類型。 下標(biāo)應(yīng)為數(shù)值型的表達(dá)式，允許出現(xiàn)變量 下標(biāo)值應(yīng)在下界和上界之間，否則出錯(cuò)。 Dim C, B As Integer, i As Integer 39。 程序思路： 第一步，聲明兩個(gè)大小至少為 30的一維數(shù)組 ID和Score，使 ID(i)和 Score(i)表示第 i位同學(xué)的編號(hào)和成績； Visual Basic程序設(shè)計(jì)教程 22 第二步，輸入 30位同學(xué)的編號(hào)和成績； 第三步，計(jì)算平均成績； 第四步，將每位同學(xué)的成績與平均成績比較，發(fā)現(xiàn)大于或等于平均成績的輸出編號(hào)和成績，并計(jì)數(shù)； 第五步，輸出統(tǒng)計(jì)人數(shù)。 位編號(hào) :, )) Score(i) = Val(InputBox(請輸入第 amp。 這樣可以去掉一次并列的循環(huán)。 Score(i), Count = Count + 1 : If Count Mod 5 = 0 Then Print 39。 該題主要解決兩個(gè)問題： 一個(gè)是如何找到合適的位置 可以利用循環(huán)，與數(shù)組元素逐個(gè)比較 若發(fā)現(xiàn)一個(gè)比 ID1大的編號(hào) ID(i)就停止比較，則插入位置就在 ID(i)之前。 移動(dòng)位置時(shí)，可以采用這樣的算法： 把 ID(10)移到 ID(11)， ID(9)移到 ID(10)， … ，把ID(i)移到 ID(i+1)。 i amp。 Named(i)。確定要插入的位置 i If ID(i) ID1 Then Exit For Next i For j = N To i Step 1 39。 /。 改進(jìn)的選擇分類法采用： 在第 i至 n個(gè)元素中，確定最小數(shù)所在的位置 Position，即下標(biāo)， 再將 a(i)與 a(Position)交換數(shù)據(jù)。先假定 Score(i)就是最小值，故記錄下標(biāo) i For j = i + 1 To n If Score(Position) Score(j) Then Position=j 39。 例如要輸出數(shù)組 A中各元素及它們的和，可用： S = 0 For Each X In A 39。 例如通過選擇字體來改變標(biāo)簽的文字字體。 例如通過選擇字體來改變標(biāo)簽的文字字體。缺省值為 List1 List : 保存選項(xiàng)的字符串?dāng)?shù)組。 True為升序排列 Text : 最后一次選中的選項(xiàng)的文本，該屬性不能直接修改 MultiSelect : 確定列表框是否允許多選。將 List2中的第一條放入 List1 計(jì)算機(jī) ,2 39。 格式： 列表框?qū)ο竺Q .Clear 4．列表框控件的常用事件 Click事件 DblClick事件 Visual Basic程序設(shè)計(jì)教程 42 【 例 75】 通過選擇字體改變標(biāo)簽文字字體。如圖。如果列表框中的項(xiàng)目數(shù)超過了 30，則顯示“個(gè)數(shù)已到，不能再添加”的信息。 Listl的 MultiSelect：由于允許多選，設(shè)置為 2。缺省值為 Combo1 Text：用戶輸入的文本內(nèi)容或選中的文字 Style：確定組合框性能和樣式。 控件： 6個(gè)標(biāo)簽，其中 1個(gè)用于顯示預(yù)覽效果 1個(gè)框架 3個(gè)組合框 Visual Basic程序設(shè)計(jì)教程 51 事件： Form_Load事件：添加組合框中初始項(xiàng)目等。通過輸入字號(hào)改字號(hào) Dim N As Integer N = Val() If N = 6 And N = 150 Then = N End Sub Private Sub Combo3_Click() 39。定義字號(hào)表項(xiàng) 宋體 39。初始化演示標(biāo)簽框 = True : = 26 =RGB(255, 0, 0) =中文字型示例“ End Sub Visual Basic程序設(shè)計(jì)教程 56 對一批同類且功能類似的控件，可以建成控件數(shù)組 控件數(shù)組可以簡化編程 控件數(shù)組中的每一個(gè)元素是同類控件，并且具有相同的名稱。 元素的方法、事件和屬性與它的非數(shù)組同類控件一樣 但有一個(gè)重要的屬性是 Index屬性，相當(dāng)于數(shù)組下標(biāo)，編程用 對于整個(gè)數(shù)組，屬性 LBound、 UBound和 Count，分別表示著整個(gè)控件數(shù)組下標(biāo)的下界、上界和元素個(gè)數(shù)。 解決的方法是重新修改其他元素的 Index值 Visual Basic程序設(shè)計(jì)教程 60 【 例 78】 修改例 44，要求用控件數(shù)組。 Visual Basic程序設(shè)計(jì)教程 62 【 例 79】 編寫一個(gè)運(yùn)行界面如圖的程序，其中“ +‖、“ ‖、“ ‖、“ 247。加法 Case 1 : = Val() Val() 39。―退出”按鈕 End End Sub Visual Basic程序設(shè)計(jì)教程 65 二維數(shù)組有兩個(gè)下標(biāo) 二維數(shù)組可表示一個(gè)矩陣 可以把第一個(gè)下標(biāo)看作行，第二個(gè)下標(biāo)看作列。 計(jì)算機(jī)學(xué)院 N = 1 For i = 1 To 3 39。每行顯示 4個(gè)，共 3行。并要求： （ 1）輸出該矩陣； （ 2）輸出矩陣最大元素值（最大年齡）； （ 3）輸出平均值（平均年齡）。 i amp。在二重循環(huán)中實(shí)現(xiàn)矩陣輸出、求最大值、求和、統(tǒng)計(jì)個(gè)數(shù) For j = 1 To N Print Tab((j 1) * 5 + 1)。 Round(Average / Count, 2) End Sub Visual Basic程序設(shè)計(jì)教程 75 如何聲明動(dòng)態(tài)數(shù)組 如果在運(yùn)行時(shí)才能確定數(shù)組大小，可用動(dòng)態(tài)數(shù)組。 在 ReDim中使用 Preserve關(guān)鍵字可保留原數(shù)據(jù)。 即第 1個(gè)元素與第 n個(gè)元素互換，第 2個(gè)元素與第 n1個(gè)元素互換， … 。 另外一個(gè)問題是如何進(jìn)行數(shù)據(jù)對換，對換幾次？ 對換只要進(jìn)行 Int(n/2)次就可以了。 i amp。 Next i Print End Sub Visual Basic程序設(shè)計(jì)教程 83 檢索問題 【 例 712】 用隨機(jī)函數(shù)產(chǎn)生 30個(gè)兩位整數(shù)。 這是一個(gè)檢索（查找）問題。產(chǎn)生數(shù)據(jù)并輸出 A(i) = Int(Rnd * 90 + 10) : Print A(i)。 是第 amp。若是，則輸出這個(gè)數(shù)的下標(biāo)。 1．把待查數(shù)據(jù)范圍分成二半，取出作為分界線的中間元素，其下標(biāo)為 Mid=(Low+High)\2 ； 2．將中間元素 A(Mid)與 Key比較； 3．若： Key = 中間元素 A(Mid)， 找到 。即： 隨著 High的不斷減少， Low的不斷增大，若不 存在 Key時(shí)，最終將導(dǎo)致 LowHigh。 共比較 3 3 3 3次。 Visual Basic程序設(shè)計(jì)教程 90 例如：在以下數(shù)據(jù)中找 40。若沒有，則顯示： 找不到 。后半部分為新范圍 Low = M