【正文】 第 8章 過 程 ? 子過程 ? 函數(shù)過程 ? 參數(shù)傳遞 ? 過程的應(yīng)用 ? 鍵盤和鼠標(biāo)事件過程 ? 本章小結(jié) ? 上機(jī)實(shí)訓(xùn) 結(jié)束 子過程 ? 通用過程的定義 ? 子過程的調(diào)用 返回首頁 通用過程的定義 （ 1） 1. 通用過程的語法格式 通用過程的語法格式如下： [Public | Private] [Static] Sub 過程名([形參表 ]) [局部變量或常數(shù)聲明 ] [語句塊 ] [Exit Sub] [語句塊 ] End Sub 通用過程的定義 （ 2） 說明： （ 1） [Public | Private]： 可選 。 指定過程的作用范圍 。若省略 ， 則默認(rèn)為 Public（ 全局 ） 。 （ 2） Static： 可選 。 指定本過程內(nèi)的所有局部變量均為靜態(tài)變量 。 （ 3） 過程名：命名規(guī)則與變量命名規(guī)則相同 。 無參數(shù)時(shí) ，過程名后的括號不能省略 。 （ 4） 形參表：形參表類似于變量聲明 ， 指明本過程被調(diào)用時(shí)傳送給本過程的變量個(gè)數(shù)和類型 。 若有多個(gè)變量 ， 各變量之間用逗號間隔 。 形參表中出現(xiàn)的參數(shù)稱為形式參數(shù) ， 簡稱形參 。 每個(gè)形參的格式為： [ByVal | ByRef] 形參名 [()][ As 類型 ] 通用過程的定義 （ 3） ByVal表示該參數(shù)按值傳遞 ， ByRef表示該參數(shù)按地址傳遞 （ 默認(rèn) ） 。 形參名必須是合法的變量名或數(shù)組名 （ 后面加括號 ） 。 類型代表該參數(shù)的數(shù)據(jù)類型 ， 默認(rèn)為 Variant。 不能用定長字符串變量或定長字符串?dāng)?shù)組作為形式參數(shù) ， 但是可以在調(diào)用過程時(shí)用簡單定長字符串變量作為 “ 實(shí)際參數(shù) ” ， VB將其轉(zhuǎn)換為變長字符串變量傳遞給過程 。 （ 5） Exit Sub語句表示立即退出子過程 ， 通常將其置于選擇結(jié)構(gòu)中 。 （ 6） 在過程內(nèi)不能再定義過程 ， 但可以調(diào)用其他過程 。 通用過程的定義 （ 4） 2. 通用過程的創(chuàng)建 創(chuàng)建通用過程有兩種方法：使用 “ 添加過程 ” 對話框；直接在代碼編輯器窗口中輸入過程代碼 。 （ 1） 使用 “ 添加過程 ” 對話框 步驟如下： ① 打開要添加過程的代碼編輯器窗口 。 ② 執(zhí)行 【 工具 】 菜單 【 添加過程 】 命令 ， 打開如 圖 【 添加過程 】 對話框 。 通用過程的定義 （ 5） ③ 在 【 名稱 】 文本框中輸入過程名 。 在 【 類型 】框架中選擇過程類型 ， 其中 【 子程序 】 表示建立 Sub過程 ， 【 函數(shù) 】 表示建立 Function過程 。 在 【 范圍 】框架中選擇范圍 ， 相當(dāng)于使用 Public或 Private關(guān)鍵字 。 ④ 單擊 【 確定 】 按鈕后 ， 在代碼編輯器窗口中將出現(xiàn)如 圖 。 （ 2） 直接在代碼編輯器窗口中輸入 在代碼編輯器窗口中 ， 將插入點(diǎn)放在已有過程的外面 ， 按照規(guī)定的語法格式輸入過程名和參數(shù) ，系統(tǒng)會自動產(chǎn)生最后一行語句 End Sub。 通用過程的定義 （ 6） 圖 【 添加過程 】 對話框 圖 過程模板 返回首頁 返回本節(jié) 返回 子過程的調(diào)用 （ 1） 子過程的 Sub與 End Sub之間的語句序列稱為過程體 ， 每次調(diào)用子過程都會執(zhí)行過程體中的語句 。在程序中 ， 既可以調(diào)用通用過程 ， 也可以調(diào)用事件過程 。 1. 調(diào)用通用過程 調(diào)用子過程有兩種方法：使用 Call語句；直接使用過程名 。 語法格式如下： Call 過程名 [(實(shí)參表 )] 或者： 過程名 [實(shí)參表 ] 子過程的調(diào)用 （ 2） 說明： （ 1） 實(shí)參表是實(shí)際參數(shù) （ 簡稱實(shí)參 ） 列表 ， 若有多個(gè)參數(shù) ， 參數(shù)之間要用逗號間隔 。 各實(shí)參與形參在參數(shù)列表中的位置相互對應(yīng) ， 實(shí)參與對應(yīng)位置的形參必須是同一類型 ， 可以是常數(shù) 、 變量 、 數(shù)組元素或表達(dá)式 。 （ 2） 當(dāng)用 Call語句調(diào)用子過程時(shí) ， 若有參數(shù) ， 則參數(shù)必須放在圓括號內(nèi)；若無參數(shù) ， 則省略過程名后的圓括號 。 （ 3） 若不使用 Call關(guān)鍵字 ， 則過程名后不能加括號 。 若有參數(shù) ， 則參數(shù)直接跟在過程名之后 ， 參數(shù)與過程名之間用空格間隔 ， 參數(shù)與參數(shù)之間用逗號間隔 。 子過程的調(diào)用 （ 3） 【 例 】 編寫一個(gè)計(jì)算圓面積和周長的通用過程 。 在窗體的單擊事件中通過 InputBox函數(shù)輸入圓的半徑 ， 然后調(diào)用該過程計(jì)算圓面積和周長 ， 計(jì)算結(jié)果通過消息對話框輸出 。 程序運(yùn)行結(jié)果如圖 所示 ， 代碼詳見教材 。 圖 計(jì)算圓面積和周長 子過程的調(diào)用 （ 4） 【 例 】 創(chuàng)建一個(gè)簡單的文本編輯程序 ， 利用通用過程控制用于編輯操作的命令按鈕的有效狀態(tài)（ Enabled屬性 ） 。 運(yùn)行界面如圖 。 左圖為選定文本后的狀態(tài) ， 右圖為單擊 “ 復(fù)制 ” 按鈕后的狀態(tài) 。 圖 子過程示例 子過程的調(diào)用 （ 5） 在窗體上放置一個(gè)文本框 ， 名稱為 txtEdit， 設(shè)其 Text屬性為空 ， MultiLine屬性為 True， ScrollBars屬性為 2。添加三個(gè)命令按鈕 ， 名稱分別為 cmdCut、 cmdCopy和cmdPaste， 設(shè)置 Caption屬性均為空 ， Enabled屬性均為False， Style屬性均為 1（ 圖形 ） ， 通過 Picture屬性為它們各設(shè)置一幅圖片 ， 設(shè) ToolTipText（ 工具提示文本 ） 屬性分別為 【 剪切 】 、 【 復(fù)制 】 和 【 粘貼 】 。 再添加一個(gè)命令按鈕 cmdExit， 設(shè)置其 Caption屬性為 【 退出 】 。 編程思路 ：編制一個(gè)通用過程 CtlEnabled(blnEn As Boolean)， 形參 blnEn為邏輯型 。 由于控件的 Enabled屬性也是邏輯型 ， 因此在程序運(yùn)行時(shí) ， 根據(jù)用戶的不同操作 ，將實(shí)參設(shè)為 True或 False， 傳遞給通用過程 ， 即可控制各編輯按鈕的 Enabled屬性 。 代碼詳見教材 。 子過程的調(diào)用 （ 6） 2. 調(diào)用事件過程 在程序中不僅可以調(diào)用通用過程 ， 也可以調(diào)用事件過程 ， 二者的語法格式相同 。 例如： 39。執(zhí)行窗體加載事件過程中的語句 Form_Load 39?；颍?Call