【正文】 10位同學(xué)的編號和姓名，現(xiàn)班上又增一位同學(xué)，要求他的編號 ID1和姓名 Name1仍按編號順序插入到數(shù)組 ID和 Named中。若沒有一個編號比 ID1大的，則插到數(shù)組最后。 移動 ID(i)~ID(10)及 Named(i)~Named(10)的位置，空出 i所在位置，插入 ID1和 Name1。 因為這樣移動時，不會丟失原來的數(shù)據(jù)。輸入 ID(i) = Val(InputBox(請輸入第 amp。 個編號 , )) Named(i) = InputBox(請輸入第 amp。 個姓名 , ) Next i Print: For i = 1 To N: Print ID(i)。 /。輸出起始數(shù)據(jù) Visual Basic程序設(shè)計教程 28 ID1 = Val(InputBox(請輸入要插入的編號 , )) Name1 = InputBox(請輸入要插入的姓名 , ) For i = 1 To N 39。將 i ～ N的數(shù)據(jù)后移 ID(j + 1) = ID(j): Named(j + 1) = Named(j) Next j ID(i) = ID1: Named(i) = Name1 39。 Named(i)。:Next i 39。 例 71中，每發(fā)現(xiàn)一個 a(i) a(j)時 ， 就要交換數(shù)據(jù) ， 事實上對第 i趟，只要把 a(i)～ a(n)中最小數(shù)與 a(i)交換就可以了。 Visual Basic程序設(shè)計教程 30 改進的選擇分類法采用： 在第 i至 n個元素中，確定最小數(shù)所在的位置 Position，即下標(biāo)， 再將 a(i)與 a(Position)交換數(shù)據(jù)。按成績從小到大排序 Position = i 39。記錄更小的 Next j Visual Basic程序設(shè)計教程 31 If i Position Then 39。 Visual Basic程序設(shè)計教程 33 循環(huán)的執(zhí)行過程是： 分別對數(shù)組中的第一個元素、第二個元素、 …… 、最后一個元素，按序執(zhí)行一次循環(huán)體。X為 Variant類型的變量，不必賦值； A為數(shù)組名 Print X。 列表框控件可顯示多個項目列表 列表框往往可讓用戶選擇一個或多個項目。 系統(tǒng)提供的字體有 100多種，使用 ListBox，可以它們都放入列表框，利用滾動條，方便選擇。 列表框控件可顯示多個項目列表 列表框往往可讓用戶選擇一個或多個項目。 系統(tǒng)提供的字體有 100多種，使用 ListBox，可以它們都放入列表框，利用滾動條，方便選擇。 Visual Basic程序設(shè)計教程 36 2．列表框控件的主要屬性 （名稱） Name，設(shè)置名稱，字符型。如第 i項為 List(i1) ListCount : 列表框項目總數(shù)，共有 0 ～（ ListCount１）個 ListIndex : 選中的項目在列表框中的位置 (索引值或下標(biāo)） 第一項的索引值為 0，第二項的索引值為1… 。 Visual Basic程序設(shè)計教程 37 Sorted : 設(shè)置列表框項目是否排序?？稍O(shè)置 0、 2 SelCount : 列表框中選中的項目數(shù) 屬性舉例，如： Str=(2) If (i) Then Msgbox (i) MultiSelect為 0： () Visual Basic程序設(shè)計教程 38 3．列表框控件的方法 （ 1） AddItem方法 AddItem方法用于建立列表框數(shù)據(jù)項 格式： 列表框?qū)ο竺Q . AddItem 項目字符串 [，索引值 ] 索引值表示添加的位置，如 3，表示添加的下標(biāo)為 3 Visual Basic程序設(shè)計教程 39 省略索引值，則將項目添加在列表框最后。將字符串添加到列表框最后 (0) 39。將字符串添加到List1第 2條后 Visual Basic程序設(shè)計教程 40 （ 2） RemoveItem方法 RemoveItem方法清除列表框一項數(shù)據(jù)項 格式： 列表框?qū)ο竺Q .RemoveItem 索引值 它通過索引值刪除列表框中指定項目。刪除 List1中下標(biāo)為2的項目 Visual Basic程序設(shè)計教程 41 （ 3） Clear方法 Clear方法用于清除列表框中所有項目。如圖。 Visual Basic程序設(shè)計教程 43 【 例 75】 通過選擇字體改變標(biāo)簽文字字體。 程序代碼如下： Private Sub Form_Load() Dim i As Integer = 18 = 浙江大學(xué) Computer For i = 0 To – 1 39。 控件： 1個標(biāo)簽框、 1個文本框 1個列表框 命令按鈕“添加” 將文本框中的內(nèi)容按升序添加到列表框中，然后刪除文本框內(nèi)容，并把焦點定位于文本框。 Visual Basic程序設(shè)計教程 45 命令按鈕“刪除” 刪除列表框中所選的項目（允許多選）。 主要屬性設(shè)置： Listl的 Sorted：由于要求升序，設(shè)置為 True。 Visual Basic程序設(shè)計教程 46 【 例 76】 程序運行界面如圖。 2．組合框控件的屬性 與列表框相同的 List、 ListCount、 ListIndex、Sorted屬性 與文本框相同的 Locked、 SelStart、 SelLength、SelText Visual Basic程序設(shè)計教程 48 其他主要屬性： （名稱） Name：組合框名稱。可設(shè) 0、 2三個值： 0：下拉組合框，包括 1個下拉式列表和 1個文本框（缺省值）； 1：簡單組合框，包括 1個文本框和 1個不能下拉的列表； 2：下拉式列表，只能選擇，不能輸入 Visual Basic程序設(shè)計教程 49 3．組合框控件的方法 AddItem：添加項目 RemoveItem：刪除項目 Clear：刪除所有項目 4．組合框控件的常用事件 Click事件： 選擇項目時發(fā)生 Change事件： Style為 0或 1時，用戶在組合框控件的文本框部分輸入文字時，驅(qū)動事件代碼執(zhí)行。如圖。 三個組合框的 Click事件：在選擇項目時驅(qū)動 Combo1_KeyPress事件：有輸完字體名回車后，改變字體 Combo3_Change事件：通過輸入改變預(yù)覽文字大小。通過選擇改字體 = End Sub Visual Basic程序設(shè)計教程 53 Private Sub Combo2_Click() ?通過選擇改變字型 Select Case Case 粗體 = True : = False Case 斜體“ = False : = True Case 粗體斜體“ =True : =True Case 標(biāo)準(zhǔn) = False : = False End Select End Sub Visual Basic程序設(shè)計教程 54 Private Sub Combo3_Change() 39。通過選擇改字號 = Val() End Sub Visual Basic程序設(shè)計教程 55 Private Sub Form_Load() 39。定義字號表項 For i = 28 To 72 Step 4 : i : Next i 39。定義字體表項 隸書 : 楷體 _GB2312 黑體 : 幼圓 標(biāo)準(zhǔn) : 粗體 39。初始化組合框 = 26 = 隸書 39。 控件數(shù)組用索引值 Index屬性區(qū)分元素。 控件數(shù)組及元素，也有屬性、方法和事件。 Visual Basic程序設(shè)計教程 59 訪問控件數(shù)組元素 訪問控件數(shù)組元素與訪問普通數(shù)組元素一樣 通過控件名稱 (索引值 )來確定每個控件 如 Command1(2). Caption=問候 。 注意： 若刪除了其中某數(shù)組元素（控件），則將導(dǎo)致索引Index不連續(xù)，此時再使用該索引值將出錯。 創(chuàng)建有 3個單選鈕的控件數(shù)組 程序代碼如下： Private Sub Form_Load() = 10 Option1(0).Value = True 39。設(shè)置字號 = Val(Option1(Index).Caption) End Sub 程序運行時單擊單選按鈕， Index就自動作為 Click事件的參數(shù)，傳給 Click事件。 ‖為命令按鈕控件數(shù)組， 2個文本框用于輸入數(shù)據(jù)，當(dāng)單擊四個運算符按鈕中的任一個，則開始計算，并在 Label Label2和 Label3上分別顯示運算符、等號和運算結(jié)果。將運算符顯示在Label1上 = = Select Case Index Case 0 : = Val() + Val() 39。減法 Case 2 : = Val() * Val() 39。除法 If Val() = 0 Then MsgBox 除法錯誤 !, vbCritical, 出錯 Else = Val() / Val() End If End Select End Sub Private Sub Command2_Click() ?―清除”按鈕 = : = = : = : = ― End Sub Private Sub Command3_Click() 39。 ??????????121110987654321矩 陣 Visual Basic程序設(shè)計教程 66 如何聲明二維數(shù)組 聲明格式： Dim 數(shù)組名 (下標(biāo)說明 ,下標(biāo)說明 ) [As 類型名 ] 數(shù)組名、下標(biāo)說明的要求和格式與一維數(shù)組一樣 如： Dim A( 9 , 9 ) As String, B(3 To 5 , 20) As Integer 二維數(shù)組可以和其它變量在同一個 Dim語句中聲明。如： Dim a(3, 4) As Integer, N As Integer, i As Integer, j As Integer,C(5,5) C(0,0)=浙江大學(xué) amp。二重循環(huán)對二維數(shù)組元素賦值。通過輸入對話框?qū)σ慌鷶?shù)組元素賦值 For j = 0 To 20 B(i, j) = Val(InputBox(請輸入數(shù)據(jù)“ )) Next j Next i Visual Basic程序設(shè)計教程 70 4．輸出二維數(shù)組，如顯示矩陣：