【正文】 Str(Sort(10))End Sub2 查找例：54 順序查找程序 （界面見P105） 先介紹For Each –next 結(jié)構(gòu)的語句：Option Explicit Option Base 1 Dim Search As Variant Private Sub Cmd生成數(shù)組_Click() Dim I As Integer, Element As Variant Search = Array(34, 12, 56, 81, 59, 83, 91, 26, 47) For Each Element In Search ‘for eachnext 結(jié)構(gòu)語句見P90 Text1 = Text1 amp。 Str(Sort(I)) Next I For I = 1 To 9 Pointer = I For J = I + 1 To 10 If Sort(Pointer) Sort(J) Then Pointer = J End If Next J If I Pointer Then Temp = Sort(I) Sort(I) = Sort(Pointer) Sort(Pointer) = Temp End If Text2 = Text2 amp。 Str(Sort(I)) Next I Text2 = Text2 amp。2創(chuàng)建同名控件 在控件面板中直接添加相同類型的控件到窗體上，將它們的名子都命名為同一個名子時，系統(tǒng)將會提示你創(chuàng)建一個控件數(shù)組三、應(yīng)用舉例使用控件數(shù)組實現(xiàn)字體格式的設(shè)置! 數(shù)組應(yīng)用例題(根據(jù)時間可以選擇一個講!)根據(jù)需要，選擇1－2道下面的題目，給學(xué)生講清楚算法的思想！1 排序例53 選擇排序法 直接排序法Option Explicit Option Base 1 Private Sub CmdSort_Click() Dim Sort(10) As Integer, Temp As Integer Dim I As Integer, J As Integer Randomize For I = 1 To 10 Sort(I) = Int(Rnd * (100 1)) + 1 Text1 = Text1 amp。（同一類型的控件）確定第一個元素→選定要包含在控件數(shù)組中的其它對象→將它的名稱屬性設(shè)置成和第一個元素相同。二、建立控件數(shù)組方法：1復(fù)制現(xiàn)存控件： 在窗體上繪制控件數(shù)組中第一個元素的控件→設(shè)置它的名稱屬性→右鍵單擊此對象→復(fù)制→右擊窗體→粘貼。Next i 后插入法給學(xué)生講清算法的原理，要求學(xué)生自己課后寫出程代碼！9．2 控件數(shù)組一、控件數(shù)組： 　　動態(tài)數(shù)組指在聲明數(shù)組時未給出數(shù)組的大?。ㄊ÷岳ㄌ栔械南聵?biāo)），當(dāng)要使用該數(shù)組時，隨時可用ReDim語句重新定義數(shù)組的大小。 Next j Print Next iEnd Sub例3 從鍵盤輸入任意個數(shù)，求出這些數(shù)的總和和平均值!Dim a() as integerDim I as integer, sum as integer, avg as single, t as integerDo I=inputbox(“請輸入一數(shù)!”) If i=1 then Exit doElse T=t+1 Redim preserve a(t)A(t)=iSum=sum+iendifLoop Avg=sum/ubound(a)Print “sum=”。 Next j Print Next iEnd SubPrivate Sub Form_click() Dim i As Integer, j As Integer For i = 1 To 4 Print Tab(9 i)。 Next j Print Next iEnd SubPrivate Sub Form_click() Dim i As Integer, j As Integer For i = 1 To 5 Print Tab(5)。 n3End Sub例2：打印下面的圖形： 選講內(nèi)容****************************** ***** ******* ** *********** ***** * ******** *******Private Sub Form_click() Dim i As Integer, j As Integer For i = 1 To 9 Print Tab(5)。 n1 Print 等于0的數(shù)據(jù)個數(shù)為：。（999不作為數(shù)據(jù)處理）注：例1和例3兩個中選擇一個講！ Private Sub Form_click() Dim x() As Integer, n As Integer Dim n1 As Integer, n2 As Integer, n3 As Integer n = 1 Do ReDim Preserve x(n) x(i) = InputBox(請輸入一個數(shù)) Print x(i)。 Chr(10) End If Next I End Sub第九講 數(shù)組 動態(tài)數(shù)組與控件數(shù)組重點： 掌握動態(tài)數(shù)組的定義與使用 熟悉控件數(shù)組的建立及使用數(shù)組常用算法程序設(shè)計1 動態(tài)數(shù)組的概念：程序在運行過程中，其元素個數(shù)(大小)可以改變的數(shù)組2 動態(tài)數(shù)組說明的一般格式：（說明數(shù)組時不指明維數(shù)及下標(biāo)范圍）dim 數(shù)組名（） [as 數(shù)據(jù)類型]當(dāng)可以確定數(shù)組元素大小時對動態(tài)數(shù)組再次說明，用如下重定義數(shù)組語句： ReDim [Preserve] 數(shù)組名（維界定義） [As 數(shù)據(jù)類型 ] 說明：當(dāng)重新定義數(shù)組后，要保留原來數(shù)組中的數(shù)據(jù)，則選擇preserve選項。 If js Mod 5 = 0 Then Text2 = Text2 amp。 : amp。 Next I End Sub例58 ：　　Option Explicit Private Sub Command1_ClicK() Dim St As String, Idx As Integer Dim A(0 To 25) As Integer Dim I As Integer, js As Integer Dim CH As String * 1, L As Integer St = L = Len(St) For I = 1 To L CH = Mid(St, I, 1) If CH = A And CH = Z Then Idx = Asc(CH) Asc(A) A(Idx) = A(Idx) + 1 ElseIf CH = a And CH = z Then Idx = Asc(CH) Asc(a) A(Idx) = A(Idx) + 1 End If Print A(Idx) Next I For I = 0 To 25 If A(I) 0 Then js = js + 1 Text2 = Text2 amp。 Option Base 1 Option Explicit Private Sub Form_Click() Dim Fb(18) As Integer, I As Integer Fb(1) = 1: Fb(2) = 1 For I = 3 To 18 Fb(I) = Fb(I 2) + Fb(I 1) Next I For I = 1 To 18 Text1 = Text1 amp。 Max Print 最小數(shù)是：。 Chr(10) Next i = S End IfEnd Sub 7．2．3 數(shù)組元素的引用 例51 P95 Option Explicit Option Base 1 Private Sub Form_Click() Dim Compare(12) As Integer, i As Integer Dim Max As Integer, Min As Integer Randomize For i = 1 To 12 Compare(i) = Int(90 * Rnd) + 10 Print Compare(i)。 Str(A(i, J)) Next J S = S amp。 Next J Next i Else For i = 1 To 4 39。數(shù)組輸出 If 1 Then For i = 1 To 4 39。處理奇數(shù)行 For J = 1 To 5 k = k + 1 A(i, J) = k Next J Else For J = 5 To 1 Step 1 39。 B = Array(1, 2, 3, 4, 5, 6) ‘注意A與B的區(qū)別 End Sub 5．2．2 數(shù)組元素的輸出 例：一維數(shù)組的輸出 二維數(shù)組的輸出 P94 Option Explicit Option Base 1 Private Sub Form_click() Dim k As Integer, i As Integer Dim A(4, 5) As Integer, J As Integer, S As String 39。 A(3)。 A(5) A = Array(, , , ) Print A(1)。 A(3)。 例 P93 Option Base 1 Private Sub Form_Click() Dim A As Variant, I As Integer Dim B(4) As Variant A = Array(5, 4, 3, 2, 1) Print A(1)。 Next j Print Next i End Sub3 用InputBox函數(shù)給數(shù)組元素賦值 Private Sub Form_Click() Dim A(6) As Integer, V As Variant For i = 0 To 6