【正文】 用黑色顯示 Text1(i).Text = Int(90 * Rnd + 10) Next i End Sub Private Sub Command1_Click() For j = 1 To n 1 39。小于中間數(shù)據(jù) bott = m 1 39。成績存放在數(shù)組 d(,)中 d(1, 1) = 92: d(1, 2) = 86 d(2, 1) = 78: d(2, 2) = 71 d(3, 1) = 83: d(3, 2) = 74 d(4, 1) = 67: d(4, 2) = 75 d(5, 1) = 71: d(5, 2) = 55 d(6, 1) = 62: d(6, 2) = 80 d(7, 1) = 98: d(7, 2) = 83 d(8, 1) = 99: d(8, 2) = 80 d(9, 1) = 57: d(9, 2) = 67 d(10, 1) = 80: d(10, 2) = 78 End Sub Private Sub Command1_Click() Dim no As Integer, flag As Integer Dim m As Integer, top As Integer, bott As Integer flag = 1 39。查找標記， 0表示未找到 no = Val() For i = 1 To 6 If no = rm(i, 1) And no = rm(i, 2) Then = rm(i, 3) 39。產(chǎn)生 10個隨機數(shù) a(i) = Int(91 * Rnd + 10) Print a(i)。程序中設置兩重循環(huán)，用以 實現(xiàn)每行和每列上的累加 。 _ 個學生的成績 , 輸入成績 )) Next i total = 0 For i = 1 To 5 39。 ③ 單擊工具欄上的“粘貼”按鈕 (或按 Ctrl+V)，此時系統(tǒng)彈出一個如圖 單擊“是”，就建立一個控件數(shù)組元素，其 Index屬性為 1，而已畫出的第一個控件的 Index屬性值為 0。 Str(i) amp。處理成批的數(shù)據(jù)時，必須使用數(shù)組來處理表示 100個學生的成績，采用簡單變量來表示： s1， s2， s3， … s99 ， s100 采用數(shù)組來表示： t(0), t(1), t(2),… t(98), t(99) t(k) (k=0,1,2,…99) 為數(shù)組元素 (或稱 下標變量 )，它表示第 k個學生的成績 , k稱為下標變量的 下標 數(shù)組的一個主要特點是通過下標 (相當于索引 )來引用數(shù)組元素 數(shù)組的概念 例如計算這 100個學生成績的平均分，可用： S＝ 0 For k=0 To 99 S = S + t(k) ‘ 累加分數(shù) Next k Aver=S/100 ‘ 求平均分 數(shù)組是一組按一定順序排列的數(shù)據(jù)的集合 例如，學生成績Ｔ＝ [t(0), t(1), … t(99) ] 是一個數(shù)組 a11 a12 a13 A＝ a21 a22 a23 a31 a31 a33 也是一個數(shù)組 數(shù)組名 (不能與簡單變量同名 )；數(shù)組類型 又稱有序的變量 ——下標變量 默認情況下，下標從 0開始 , option base n 必須在定義數(shù)組前使用。 ? 變體數(shù)組，每個元素重新置為空。 sum End Sub 1! + 2! + 3! + … + 10! ＝ 4037913 例 求 1! + 2! + … + 10! 的值 兩種形式的數(shù)組： 靜態(tài)數(shù)組 和 動態(tài)數(shù)組 靜態(tài)數(shù)組是指數(shù)組元素的個數(shù)固定不變；動態(tài)數(shù)組的元素個數(shù)，在程序運行時可以改變 動態(tài)數(shù)組可以在運行過程中改變數(shù)組的大小，提高存儲區(qū)的使用效率 建立動態(tài)數(shù)組 建立動態(tài)數(shù)組的步驟： 第一步：聲明一個沒有下標 (或稱空維數(shù) )的數(shù)組為動態(tài)數(shù)組 第二步：在過程中用 ReDim語句重新定義帶下標的動態(tài)數(shù)組 ReDim語句 格式 ： ReDim [Preserve] 數(shù)組名 ([下界 1 T0] 上界 1[， [下界２ T0] 上界 2…]) [As 數(shù)據(jù)類型 ] 功能： 重新定義動態(tài)數(shù)組，按定義的上下界重新分配存儲單元 動態(tài)數(shù)組 聲明 F為動態(tài)數(shù)組的示例： Private Sub Command1_Click() Dim F() As Integer ?聲明一個整型動態(tài)數(shù)組 …… Size=20 ReDim F(Size) …… End Sub 每次執(zhí)行 ReDim時，系統(tǒng)會清除指定數(shù)組的內容 若采用： ReDim Preserve F(Size) 則能保留數(shù)組中原有的數(shù)據(jù) Private Sub Form_Load() Dim a() As Integer Show ReDim a(800) k = 0 For x = 200 To 600 Step 3 If x Mod 8 = 0 Then k = k + 1 a(k) = x End If Next x ReDim Preserve a(k) For i = 1 To k Print a(i) Next i End Sub 例 ReDim語句應用示例 兩類數(shù)組： 一般數(shù)組 和 控件數(shù)組 控件數(shù)組的概念 控件數(shù)組是一組具有相同名稱、類型和事件過程的控件 例如， Label1(0)， Label1(1)， Label1(2)， …… 但 Label1, Label2, Label3, …… 不是控件數(shù)組 (1)相同的控件名稱 (即 Name屬性 ) (2)控件數(shù)組中的控件具有相同的一般屬性； (3)所有控件共用相同的事件過程。系統(tǒng)自動返回 Index值 Case 0 = 10 Case 1 = 14 Case 2 = 18 Case 3 = 24 Case 4