【正文】 n Print a(i, j)。 Option Explicit Private Sub Command1_Click( ) = True Const n = 4 Dim a(1 To n, 1 To n) As Integer Dim i As Integer, j As Integer, temp As Integer For i = 1 To n For j = 1 To n a(i, j) = InputBox(輸入 A ( amp。 )) Next j, k For i = 1 To m For j = 1 To n sum = 0 For k = 1 To p sum = sum + a(i, k) * b(k, j) Next k c(i, j) = sum Next j, i Print 輸出矩陣： For i = 1 To m Print [。 )) Next k, i For k = 1 To p For j = 1 To n b(k, j) = InputBox(輸入矩陣元素 B( amp。 程序為： Option explicit Private Sub Command1_Click() Const m = 4, p = 3, n = 2 Dim a(1 To m, 1 To p) As Integer Dim b(1 To p, 1 To n) As Integer Dim c(1 To m, 1 To n) As Integer Dim i As Integer, j As Integer, k As Integer, sum As Integer For i = 1 To m For k = 1 To p a(i, k) = InputBox(輸入矩陣元素 A ( amp。 在循環(huán)體內(nèi) ， 用循環(huán)控制變量 i 作數(shù)組元素的第一維下標 ， 用循環(huán)控制變量 j作數(shù)組元素的第二維下標 ， i， j值的不同表示數(shù)組元素的不同 。 j。 , amp。 Str(i) + Chr(44) + Str(j) amp。 如下標個數(shù)有多個 ， 則此數(shù)組為多維數(shù)組 。 例如： Dim a(8,8) As Integer 在這里 ， Integer是類型名 ， a（ 8， 8 )就是數(shù)組說明符 。 ?“ 變量名 ” 是數(shù)組名 ， 是用戶自定義的標識符 。 類似這種數(shù)據(jù)結構 ， 可用二維數(shù)組形式描述 。 。 如原來順序為 10,3,4,5,6,2， 按要求應改為 2,6,5,4,3,10。 個學生的成績 ) If (Score(i) Max) Then Max = Score(i) code = i End If Next i Print Print 最高分是 :。 例如： n(+)的值是 15； n()的值是 5。 在循環(huán)體內(nèi) ， 數(shù)組元素用循環(huán)控制變量 i 作下標 ， i值的不同表示數(shù)組元素不同 。 語句形式如下： If 表達式 1 Then …… If 表達式 2 Then …… End If …… Else …… End If 使用條件語句嵌套時 ， 一定要注意 If與 Else， If與 End If的配對關系 。 )=。 Option Explicit Private Sub Command1_Click( ) Dim n(1 To 3) As Integer Dim i As Integer For i = 1 To 3 n(i) = InputBox(請輸入第 amp。 Dim a（ 3） As Integer For i=0 To 3 a(i) =InputBox(輸入 a( amp。 注意 ， 下標表達式的值不得越界 。一個數(shù)組占有一串連續(xù)的存儲單元 。 在引用數(shù)組時 ， 數(shù)組名 、 類型 、 維數(shù)以及下標的范圍 ， 應與定義時一致 。 此時應滿足下界 ≤上界 。 第三個語句建立了一個數(shù)組 name， 有 16個元素 ， 其下標從0到 15， 元素類型為 String。 與說明簡單變量一樣 ， 它用于說明局部數(shù)組 ， 也就是說 ， 它可以出現(xiàn)在窗體層 、 模塊和過程中 ，是最常用的說明形式 。 ?類型名 Integer規(guī)定了 a數(shù)組中每個元素都是整型 ， 在每個元素中只能存放整型數(shù) 。 ?“ 類型 ” 是指數(shù)組的類型 。 ?“ 變量名 ” 是數(shù)組名 ， 是用戶自定義的標識符 。 定義數(shù)組的目的是通知計算機為其留出所需的存儲空間 。 一維數(shù)組 當數(shù)組中每個元素只帶有一個下標時 ， 稱這樣的數(shù)組為一維數(shù)組 。 例如 ， 為了處理某系幾百個學生某門課的考試成績 ， 若在程序中定義幾百個簡單變量記錄這些數(shù)值 ， 顯然是十分笨拙的 。 程序設計語言提供了一種解決此類問題的更為有效的數(shù)據(jù)類型 ——數(shù)組 。 在計算機內(nèi)存中 ， 數(shù)組占據(jù)了一塊連續(xù)的存儲區(qū)域 ， 數(shù)組名就是這塊空間的名稱 。 數(shù)組與普通變量一樣 ， 用來存放數(shù)據(jù) ， 且同一數(shù)組中的數(shù)據(jù)必須是同一類型的 。 ?“ 下標 ” 用于定義數(shù)組元素的個數(shù) 。 例如： Dim a(8) As Integer 在這里 ， Integer是類型名 ， a(8)就是一維數(shù)組說明符 。 ?每個元素只有一個下標 ， Visual Basic語言默認此數(shù)組第一個元素的下標值為 0(稱為數(shù)組下標的下界 )， 因此 ， 以上 a數(shù)組中的最后一個元素的下標應該是 8(稱為數(shù)組下標的上界 )。 第一個語句建立了一個有 11個元素的數(shù)組 Counter， 其下標從 0到 10， 元素類型為 Integer。 如果不想讓數(shù)組的下標 值從 0開始算起 ， 可以用 Option Base語句來改變它的起始值 ， 例如： Option Base 1 Public Students(10) As Integer 將使數(shù)組項目變成 10個 （ 也就是由 1到 10） 。 例如在程序中有說明： Dim Counter(1 to 10) As Integer Dim Sum(10 to 20) As Double Dim name(20 to 20 ) As String Counter的下標值范圍從 1到 10， Sum的下標范圍從 10到 20， 數(shù)組 name的下標等于上標 ， 即 name退化成一個簡單變量了 。 同一模塊中 ， 數(shù)組和變量不可同名 。 ?在引用數(shù)組元素之前 ， 必須先對數(shù)組進行定義 。 ?在 Viaual Basic語言中 ， 一個數(shù)組不能整體引用 。 i amp。 Str(i) amp。 n(i) Next i End Sub 程 序 運 行 后 ， 單 擊 命 令 按 鈕 ， 執(zhí) 行 事 件 過 程Command1_Click。 【 例 】 根據(jù)不同的時間段發(fā)出問候語 。 在程序中 ， 數(shù)組元素的下標可以使用表達式 ， 但表達式的結果只要不超出數(shù)組定義的上界和下界范圍 ， 下標表達式就是合法的 。 【 例 51】 按學號以數(shù)組順序存儲 n個學生的成績 ， 要求輸出最高成績及相應的學號 。 Max Print Print 最高學分的學號為： 。 Option Explicit Private Sub Command1_Click() Const n = 5 Dim a(n) As Integer Dim i, temp As Integer Print Enter array a:\n For i = 0 To n a(i) = InputBox(請輸入第 amp。 Next Print For i = 0 To n \ 2 temp = a(i) a(i) = a(n i) a(n i) = temp Next i Print \n Now,array a:\n For i = 0 To n Print a(i)。 在 Viaual Basic中 ， 擁有兩個下標的數(shù)組就是二維數(shù)組 。 ?“ 下標 1”指此數(shù)組第一 ?“ 下標 2”指此數(shù)組第二維的大小 。 以上語句說明了下面幾點： ?定義了一個名為 a的二維數(shù)組 。 數(shù)組說明格式 2： 〈 說明符 〉 〈 變量名 〉 〔〈 下界 to 上界 , 下界 to 上界 〉〕 As〈 類型 〉 例如在程序中有說明： Dim Counter(1 to 2,2 to 4) As Integer 則此 Counter 數(shù) 組 有 6 個元素 ， 分別為 Counter(1,2 ) 、ounter(1,3 )、 Counter(1,4 )、 Counter(2,2 )、 Counter(2,3 )、Counter(2,4). 二維數(shù)組元素的引用方式如下： 數(shù)組名 (下標表達式 1,下標表達式 2) 1．給數(shù)組元素賦初值 利用循環(huán)結構可以對已定義的數(shù)組賦初值 。 )的值 ) ’運行時顯示：輸入 a(1,1)的值 ’ 其中隨著 i,j值的變化 ， 提醒用戶輸入相應元素 Next j Next i 3． 數(shù)組的輸出 利用循環(huán)結構可以對已定義的數(shù)組輸出每個數(shù)組元素的值 。 Str(j) amp。 )=。 二維數(shù)組的應用 【 例 53】 求矩陣相乘 C=A B。 Str(i) amp。 Str(k) amp。 For j = 1 To n Print c(i, j)。 Str(i) amp。 Next j Print Next i End Sub 由于轉置矩陣行列交換 ， 對角線元素不變 ， 為了防止已交換過的兩個元素被再次交換 ， 在實施交換的嵌套 For循環(huán)語句中 ， 內(nèi)循環(huán)的控制變量從i+1增加到 n。 當數(shù)據(jù)規(guī)模可以預知時 ， 使用定長數(shù)組能夠增加程序的可讀性和提高程序的執(zhí)行效率 。 定義動態(tài)數(shù)組 Dim Array( ) As Single Sub Form_Load( ) … ReDim Array(4,8) … End Sub 在窗體級聲明了數(shù) Array 為可變長數(shù)組 ， 在 Form_Load（ ） 事件函數(shù)中重新指明二維數(shù)組的大小為 5行 9列 。 與數(shù)組操作相關的幾個函數(shù) 1. Lbound函數(shù) 、 Ubound函數(shù) Lbound函數(shù)是用來返回數(shù)組下標的最小索引值的 ， Ubound函數(shù)是用來返回數(shù)組最大索引值的 。 2. IsArray函數(shù) IsArray函數(shù)用來判斷一個變量是否屬于數(shù)組 ， 例如： Private Sub Command1_Click() Dim a(2) As Integer Print IsArray(a) End Sub 運行結果是打印出 True。 例如：下面的程序使用 Array語句聲明一個數(shù)組后 ， 用 Erase函數(shù)釋放掉該數(shù)組所占的內(nèi)存空間 ， 輸出數(shù)組元素的值 ， 則系統(tǒng)會提示 “ 下標越界 “ 。 建立控件數(shù)組時 ， 系統(tǒng)會給每一個元素唯一的索引號 (Index)， 通過屬性窗口中的 Index屬性 ， 就可以知道該控件的下標是多少 。 選中該控件用鼠標進行復制 (Copy)和粘貼 (Paste)操作 ， 會出現(xiàn)詢問是否創(chuàng)建控件數(shù)組的對話框 ， 單擊 “ 是 ” 按鈕進行控件數(shù)組創(chuàng)建 。 【 例 55】 采用控件數(shù)組編寫一個計算器 。 當編程人員設計好應用程序的界面以后 ， 主要的任務便是構造過程 。 處理或響應事件的步驟就是事件過程 。 比如 ，當用戶單擊鼠標時便發(fā)生了 Click、 MouseDown和 MouseUp事件 。 事件過程 Sub過程 通用過程能用來完成特定的功能 。 在一個通用過程內(nèi)不能再定義另一個通用過程 ，即通用過程不能嵌套定義 。 ?過程名 的命名規(guī)則與變量名的命名規(guī)則相同 。 ?參數(shù)表列 類似于變量聲明 ， 在 參數(shù)表列 中出現(xiàn)的參數(shù)稱為形式參數(shù) ， 簡稱為形參 ， 各參數(shù)之間用逗號隔開 。 如果是數(shù)組 ， 則要在數(shù)組名后加上一對括號 。 如果加上 ByVal， 則表明該參數(shù)是 “ 傳值 ” 參數(shù)；如果沒有加 ByVal的參數(shù)稱為 “ 引用 ” 參數(shù) 。 所有的可執(zhí)行語句都必須放置在某一過程內(nèi) ， 只有說明性語句才放在過程和函數(shù)之外 。 ?End Sub標志著通用過程的結束 。 （ 2）選擇“工具”菜單下的“添加模塊”命令，打開“添加模塊”對話框（如圖 61所示）。 （ 5） 在 “ 類型 ” 組中選取 “ 子過程 ” 定義通用子過程 。 如圖 63所示 。 調用引起子過程的執(zhí)行 。 用Call語句調用一個過程時 ， 如果過程本身沒有參數(shù) ， 則 “ 實際參數(shù) ”和括號可以省