【文章內(nèi)容簡介】 傳送擬求最大公約數(shù)的兩個數(shù) 。 在函數(shù)過程中用輾轉(zhuǎn)相除法求出最大公約數(shù)作為返回值 。 函數(shù)過程的調(diào)用 （ 8） 在 【 開始 】 按鈕的單擊事件中 ， 定義一個動態(tài)數(shù)組 ， 用 InputBox函數(shù)獲取用戶欲求最大公約數(shù)的數(shù)字個數(shù) ， 以該數(shù)值定義動態(tài)數(shù)組的上界 ， 再通過 For循環(huán) ， 用 InputBox函數(shù)將每個數(shù)存入數(shù)組 ，并在圖片框中顯示各數(shù) 。 計算多個數(shù)的最大公約數(shù)時仍然采用 For循環(huán) (循環(huán)次數(shù)＝數(shù)字個數(shù)－ 1)，在循環(huán)中依次取出動態(tài)數(shù)組中的數(shù)字 ， 調(diào)用 GCD函數(shù)過程計算 。 計算結(jié)束后將計算結(jié)果顯示在圖片框中 。 代碼詳見教材 。 返回首頁 返回本節(jié) 參數(shù)傳遞 ? 傳值與傳址 ? 對象參數(shù) 返回首頁 傳值與傳址 （ 1） 1. 傳值 在定義過程時 ， 如果形參使用關(guān)鍵字 ByVal聲明 ，則規(guī)定了在調(diào)用此過程時 ， 該參數(shù)將按值傳遞 （ 傳值 ） 。 調(diào)用過程時 ， 傳遞給形參的只是調(diào)用語句中實參的值 ， 即把調(diào)用語句中實參的值復制給子過程或函數(shù)過程中的形參 。 若在被調(diào)過程中改變了形參的值 ， 不會影響到實參的值 。 當被調(diào)過程結(jié)束并返回調(diào)用它的過程后 ， 實參的值還是調(diào)用前的值 。 傳值方式可以用一個比喻來說明：假設(shè)我有一篇好文章 ， 朋友要看 ， 我把文章復印一份給他 ， 他可以任意在副本上畫重點 、 做標記甚至修改 ， 對我手頭的文章不會有任何影響 。 傳值與傳址 （ 2） 2. 傳址 在 ， 傳址是默認的參數(shù)傳遞方式 ， 即形參前不使用任何關(guān)鍵字 ， 相當于用 ByRef聲明形參 。傳址方式也可以用前面的比喻來說明：傳址就像直接把文章借給朋友 ， 如果他在上面畫重點 、 做標記甚至修改 ， 當他把文章還回來時 ， 已經(jīng)是面目全非了 。 在調(diào)用一個過程時 ， 如果用傳址方式進行參數(shù)傳遞 ， 則會將實參的內(nèi)存地址傳遞給形參 ， 即讓形參和實參使用相同的內(nèi)存單元 。 因此 ， 在被調(diào)過程中對形參的任何操作都變成了對相應(yīng)實參的操作 ，實參的值就會隨形參改變 。 傳值與傳址 （ 3） 【 例 】 分別使用傳址和傳值兩種方式編寫實現(xiàn)兩數(shù)交換的子過程 ， 要求分別顯示兩種方式下實參與形參的變化 。 在窗體上放置兩個單選按鈕 ， 設(shè)置 Caption屬性分別為【 傳址 】 和 【 傳值 】 。 運行結(jié)果如圖 。 比較兩圖可以看出 ， 采用傳址方式時 ， 主調(diào)過程 （ 窗體單擊事件過程 ） 中的變量 a和 b實現(xiàn)了數(shù)據(jù)交換 ， 而采用傳值方式時 ， a和 b無變化 。 返回首頁 返回本節(jié) 對象參數(shù) （ 1） 在 VB中 ， 可以將窗體 、 控件等對象傳遞給過程 。用對象作為參數(shù)與用其他數(shù)據(jù)類型作為參數(shù)的過程在語法格式上相同 ， 只需將參數(shù)聲明為特定對象類型即可 。 這里的 “ 對象類型 ” 是指對象所屬的類 。窗體和控件所屬的類可以在屬性窗口的對象下拉列表框中看到 。 在圖 ， 鼠標指針所指處是名稱為 txtChn的文本框?qū)ο笏鶎俚念怲extBox。 調(diào)用含有對象參數(shù)的過程時 ， 需要將實參設(shè)置為對象名稱 ， 該對象必須與形參的類型相同 ， 并且采用傳址方式 。 對象參數(shù) （ 2） 【 例 】 編制一個計算平均成績的程序 ， 當用戶輸入的分數(shù)超出規(guī)定范圍 （ 0～ 100） 時 ， 焦點返回出錯的文本框并全選其內(nèi)容 ， 以便讓用戶修改或重新輸入 。 運行結(jié)果如圖 。 圖 輸入錯誤 圖 輸入正確 對象參數(shù) （ 3） （ 1） 設(shè)計界面和設(shè)置屬性 在窗體上添加三個文本框 ,名稱分別為 txtChn、txtMath 和 txtEng， Text 屬 性 均 為 空 ，HideSelection屬性均為 False。 添加四個標簽 ， 均采用默認名稱 ， Caption屬性分別為 【 語文 】 、【 數(shù)學 】 、 【 英語 】 和 【 平均 】 。 再添加一個標簽 ，名稱為 lblAver， BorderStyle屬性為 1， Caption屬性為空 ， 背景色為白色 ， 用于顯示平均分 。 添加三個命令按鈕 ， 名稱分別為 cmdCalc、 cmdClear和cmdExit， Caption分別為 【 計算 】 、 【 清除 】 和【 退出 】 。 對象參數(shù) （ 4） （ 2） 編寫代碼 建立一個通用過程 TxtSetFocus， 形參類型為TextBox。 如： Private Sub TxtSetFocus(txtX As TextBox) 在過程中 ， 形參代表的是被傳入的文本框?qū)ο?。通過該形參可引用文本框?qū)ο蟮乃袑傩院头椒?。在 “ 計算 ” 按鈕的單擊事件中檢查用戶的輸入 ，若輸入有誤 ， 將出錯的文本框作為實參傳給通用過程 ， 使焦點返回該文本框并全選其內(nèi)容 。 詳細代碼見教材 。 返回首頁 返回本節(jié) 過程的應(yīng)用 ? 過程的作用范圍 ? 標準模塊與 Sub Main過程 返回首頁 過程的作用范圍 （ 1） 1. 模塊級過程 模塊級過程是在某個模塊內(nèi) ， 用關(guān)鍵字 Private定義的子過程或函數(shù)過程 ， 這種過程只能被本模塊內(nèi)的過程調(diào)用 ， 即其作用域為本模塊 。 2. 全局過程 全局過程是在某個模塊內(nèi)用關(guān)鍵字 Public（ 或省略范圍 ） 定義的子過程或函數(shù)過程 ， 這種過程可被整個工程內(nèi)的所有過程調(diào)用 ， 即其作用域為整個工程 。 過程的作用范圍 （ 2） 定義全局過程有如下兩種方法： （ 1） 在當前工程中添加標準模塊 （ .bas） ， 在標準模塊中用關(guān)鍵字 Public定義通用過程或函數(shù)過程 ，該過程可以被其他窗體中的過程直接調(diào)用 。 （ 2） 在某窗體中添加 Public類型的通用過程 ， 當其他窗體調(diào)用此過程時 ， 需要在過程名前添加窗體名 ， 即： Call 窗體名 .過程名 此外 ， 如果定義過程時在過程名前面使用了Static關(guān)鍵字 ， 則表示在本過程內(nèi)聲明的局部變量均為靜態(tài)變量 。 返回首頁 返回本節(jié) 標準模塊與 Sub Main過程（ 1） 1. 標準模塊 標準模塊保存在擴展名為 .bas的文件中 。 在標準模塊中用 Public關(guān)鍵字聲明的變量 、 常數(shù) 、 類型 、過程等可以供應(yīng)用程序中的其他模塊和本模塊訪問 。因此 ， 標準模塊常被稱為過程和聲明的容器 。 使用標準模塊能夠提高代碼的可復用程度 。 例如 ， 在前面的示例中 ， 通用過程 TxtSetFocus中未使用具體的對象名稱 ， 完全可以從窗體模塊中獨立出來 ， 放到標準模塊中 （