【正文】 pi * r ^ 2 = 半徑為 amp。 過程的調(diào)用 過程的調(diào)用 （ 1） 沒有參數(shù)的子過程 【 例 61】 簡單子過程調(diào)用 。 實際參數(shù)如果有多個 ， 之間用逗號分隔 。 用Call語句調(diào)用一個過程時 ， 如果過程本身沒有參數(shù) ， 則 “ 實際參數(shù) ”和括號可以省略 ， 否則應給出相應的實際參數(shù) ， 并把參數(shù)放在括號中 。 子過程的調(diào)用有兩種方式：一種是把過程的名字放在一個 Call語句中；另一種是把過程名作為一個語句來使用 。 調(diào)用引起子過程的執(zhí)行 。 圖 63 模塊代碼窗口 子過程的建立 操作步驟是：在代碼窗口的通用代碼段輸入過程的名字 。 如圖 63所示 。 如果選擇 “ 公有的 ” ， 則所建立的過程可用于本工程內(nèi)的所有窗體模塊；如果選擇 “ 私有的 ” ， 則所建立的過程只能用于本標準模塊 。 （ 5） 在 “ 類型 ” 組中選取 “ 子過程 ” 定義通用子過程 。 圖 61 “添加模塊”對 子過程的建立 （ 3） 執(zhí)行 “ 工具 ” 菜單中的 “ 添加過程 ” 命令 ， 打開 “ 添加過程 ”對話框 ， 如圖 62所示 。 （ 2）選擇“工具”菜單下的“添加模塊”命令，打開“添加模塊”對話框（如圖 61所示）。 子過程的建立 自定義子過程有兩種方法 。 ?End Sub標志著通用過程的結束 。 程序接著從調(diào)用該過程的語句之后的語句執(zhí)行 。 所有的可執(zhí)行語句都必須放置在某一過程內(nèi) ， 只有說明性語句才放在過程和函數(shù)之外 。 說明部分是對過程自身要用到的變量進行說明 ， 這些變量局限于該過程之內(nèi) ， 稱為局部變量 。 如果加上 ByVal， 則表明該參數(shù)是 “ 傳值 ” 參數(shù)；如果沒有加 ByVal的參數(shù)稱為 “ 引用 ” 參數(shù) 。 如果省略 “ As數(shù)據(jù)類型 ” ， 則默認為 Variant。 如果是數(shù)組 ， 則要在數(shù)組名后加上一對括號 。 形參的名字并不重要 ， 重要的是其所表示的關系和調(diào)用時所給定的實際參數(shù) 。 ?參數(shù)表列 類似于變量聲明 ， 在 參數(shù)表列 中出現(xiàn)的參數(shù)稱為形式參數(shù) ， 簡稱為形參 ， 各參數(shù)之間用逗號隔開 。 不能與 Visual Basic中的關鍵字同名 ， 也不要與 Windows API函數(shù)同名 ， 更不能與同一級別的變量同名 。 ?過程名 的命名規(guī)則與變量名的命名規(guī)則相同 。 ?關鍵字 Public（ 公有 ） ：表示函數(shù)過程是公有過程 ， 可以在程序的任何地方調(diào)用它 。 在一個通用過程內(nèi)不能再定義另一個通用過程 ，即通用過程不能嵌套定義 。 通用過程的結構與事件過程的結構類似 。 事件過程 Sub過程 通用過程能用來完成特定的功能 。 事件過程一般的格式如下： Private Sub對象名稱 _事件 (參數(shù)列表 ) … End Sub 對象的每個事件過程有固定的語法 ， 所包含的參數(shù)個數(shù)也是由系統(tǒng)預先定義好的 ， 不同事件過程有不同的參數(shù) 。 比如 ，當用戶單擊鼠標時便發(fā)生了 Click、 MouseDown和 MouseUp事件 。 當想讓對象響應某個事件時 ， 就編寫該事件過程的程序代碼 。 處理或響應事件的步驟就是事件過程 。 Visual Basic系統(tǒng)為每個對象預先定義好了一系列的事件 ， 用戶不能增加也不能刪除 。 當編程人員設計好應用程序的界面以后 ， 主要的任務便是構造過程 。 圖 53 簡單計算器 控件數(shù)組 程序代碼如下： Private Sub Command1_Click(Index As Integer) Dim x As Integer, y As Integer, s As Integer x = Val() y = Val() Select Case Index Case 0 s = x + y = s Case 1 s = x y = s Case 2 s = x * y = s Case 3 s = x / y = s End Select End Sub 思考 1. 什么是數(shù)組 ？ 2. 數(shù)組元素的值怎樣給定 ？ 3. 動態(tài)數(shù)組的優(yōu)點體現(xiàn)在哪里 ？ 4. 在由控件數(shù)組構成的應用程序中如何識別是哪一個控件引發(fā)的事件 ？ 第 6章 過程 過程概述 過程之間參數(shù)的傳遞 事件過程 過程的嵌套和遞歸調(diào)用 Sub過程 過程和變量的作用域 Function過程 數(shù)組作過程的參數(shù) 過程概述介 過程是現(xiàn)代程序設計中最重要的概念之一 。 【 例 55】 采用控件數(shù)組編寫一個計算器 。 然后對這些數(shù)字鍵可以采用同 控件數(shù)組 控件數(shù)組 一段代碼來實現(xiàn)數(shù)字的輸入 ， 這樣就可以減少程序員編寫代碼的任務 。 選中該控件用鼠標進行復制 (Copy)和粘貼 (Paste)操作 ， 會出現(xiàn)詢問是否創(chuàng)建控件數(shù)組的對話框 ， 單擊 “ 是 ” 按鈕進行控件數(shù)組創(chuàng)建 。 控件數(shù)組適用于若干個控件執(zhí)行的命令有相同代碼的場合 ， 這樣可以使這些控件共享這一段代碼(事件過程 )， 從而可以節(jié)約程序員編寫代碼的時間 ， 使程序更加精練 ，結構更加緊湊 。 建立控件數(shù)組時 ， 系統(tǒng)會給每一個元素唯一的索引號 (Index)， 通過屬性窗口中的 Index屬性 ， 就可以知道該控件的下標是多少 。 Private Sub Command1_Click() Data = Array(1, 2, 3) Print Data(1) Erase Data ’ Print Data(1) Data = Array(1, 2, 3) Print Data(1) End Sub Visual Basic中使用的數(shù)組和其他高級語言中的數(shù)組是沒有區(qū)別的 ，只是在 Visual Basic 中含有一種特殊的數(shù)組 ——控件數(shù)組 。 例如：下面的程序使用 Array語句聲明一個數(shù)組后 ， 用 Erase函數(shù)釋放掉該數(shù)組所占的內(nèi)存空間 ， 輸出數(shù)組元素的值 ， 則系統(tǒng)會提示 “ 下標越界 “ 。 Erase函數(shù)是將某個數(shù)組所占的內(nèi)存空間釋放掉 ， 歸還給系統(tǒng) 。 2. IsArray函數(shù) IsArray函數(shù)用來判斷一個變量是否屬于數(shù)組 ， 例如： Private Sub Command1_Click() Dim a(2) As Integer Print IsArray(a) End Sub 運行結果是打印出 True。 對于多維數(shù)組 ， 也可以使用 Lbound和 Ubound函數(shù) ， 但這個函數(shù)只能求出多維數(shù)組某一維的下標最值 。 與數(shù)組操作相關的幾個函數(shù) 1. Lbound函數(shù) 、 Ubound函數(shù) Lbound函數(shù)是用來返回數(shù)組下標的最小索引值的 ， Ubound函數(shù)是用來返回數(shù)組最大索引值的 。 ?在過程中可多次使用 ReDim 來改變數(shù)組的大小 ， 也可改變數(shù)組的維數(shù) 。 定義動態(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列 。 動態(tài)數(shù)組又叫可調(diào)數(shù)組 ， 它提供了一種靈活有效的管理內(nèi)存機制 ， 能夠在程序運行的任何時候改變數(shù)組的大小 。 當數(shù)據(jù)規(guī)?？梢灶A知時 ， 使用定長數(shù)組能夠增加程序的可讀性和提高程序的執(zhí)行效率 。 動態(tài)數(shù)組 定義動態(tài)數(shù)組 定義數(shù)組的目的是為數(shù)組開辟所需的內(nèi)存區(qū)域 。 Next j Print Next i End Sub 由于轉置矩陣行列交換 ， 對角線元素不變 ， 為了防止已交換過的兩個元素被再次交換 ， 在實施交換的嵌套 For循環(huán)語句中 ， 內(nèi)循環(huán)的控制變量從i+1增加到 n。 Str(j) amp。 Str(i) amp。 轉置是指把矩陣的元素 aij和 aji交換 。 For j = 1 To n Print c(i, j)。 Str(j)_ amp。 Str(k) amp。 Str(k)_ amp。 Str(i) amp。 若有一個 4 3的數(shù)組 A乘以一個 3 2的數(shù)組 B， 將得到一個 4 2的數(shù)組 C。 二維數(shù)組的應用 【 例 53】 求矩陣相乘 C=A B。若輸入 5， 10， 15， 5， 10， 15， 5， 10， 15九個值，則窗體上顯示的輸出結果是： A(0,0)=5 A(0,1)=10 A(0,2)=15 A(1,0)=5 A(1,1)=10 A(1,2)=15 A(1,0)=5 A(1,1)=10 A(1,2)=15 過程中說明了一個具有 9個元素的二維整型數(shù)組 ， 分別用循環(huán)語句輸入 、 輸出數(shù)組元素的值 。 )=。 i。 Str(j) amp。 Str(i) amp。 )的值 ) ’運行時顯示：輸入 a(1,1)的值 ’ 其中隨著 i,j值的變化 ， 提醒用戶輸入相應元素 Next j Next i 3． 數(shù)組的輸出 利用循環(huán)結構可以對已定義的數(shù)組輸出每個數(shù)組元素的值 。 例： Dim B（ 3,3） ,i,j As Integer For i=0 To 3 For j=0 to 3 B(i, j) = InputBox(輸入 a( amp。 數(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ù)組賦初值 。 類型名 Integer規(guī)定了 a數(shù)組中每個元素都是整型 ， 在每個元素中只能存放整型數(shù) 。 以上語句說明了下面幾點： ?定義了一個名為 a的二維數(shù)組 。 數(shù)組元素類型可以是任意Visual Basic數(shù)據(jù)類型 。 ?“ 下標 1”指此數(shù)組第一 ?“ 下標 2”指此數(shù)組第二維的大小 。 不同的說明符可以定義數(shù)組的不同性質(zhì)和作用范圍 。 在 Viaual Basic中 ， 擁有兩個下標的數(shù)組就是二維數(shù)組 。 Next i End Sub 程序運行結果如下： Enter array a: 4 5 6 7 2 3 9↙ array a: 4 5 6 7 2 3 9 Now,array a: 9 3 2 7 6 5 4 數(shù)學中矩陣的各個元素要用行 、 列位置標識 ，計算機上的每一個屏幕像素要用 X， Y坐標表示它的位置 。 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)。 個元素 ) Next Print array a:\n For i = 0 To n Print a(i)。 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。 交換的要求是將數(shù)組第一個元素與最后一個交換 ， 第二個與倒數(shù)第二個交換 ， 以次類推 。 Max Print Print 最高學分的學號為： 。 Str(i) amp。 【 例 51】 按學號以數(shù)組順序存儲 n個學生的成績 ， 要求輸出最高成績及相應的學號 。 下標表達式的值還可以是實數(shù) ， 此時 Visual Basic將自動對其進行四舍五入取整 。 在程序中 ， 數(shù)組元素的下標可以使用表達式 ， 但表達式的結果只要不超出數(shù)組定義的上界和下界范圍 ， 下標表達式就是合法的 。 過程中說明了一個具有 3個元素的一維整型數(shù)組 ， 分別用循環(huán)語句