【正文】 Dim sum As Long, i As Integer 39。 第 8章 過程 圖 利用 Function函數(shù)求矩形面積 第 8章 過程 【 例 86】 求 1～ 6的階乘之和 。 通過實(shí)參 ， 調(diào)用 area函數(shù) ， 輸出 End Sub 如圖 。 調(diào)用無參函數(shù)得到一個(gè)固定的值 ， 如下述無參函數(shù)： Function F2 F2 = Follow me. End Function 可如下調(diào)用： F2 第 8章 過程 【 例 85】 利用 Function函數(shù)求矩形面積 。 下面的代碼調(diào)用了同一個(gè) Function過程： Call area (2, 4) area 2, 4 當(dāng)用這種方法調(diào)用函數(shù)時(shí) ， VB放棄返回值 。 返回函數(shù)值 End Function 第 8章 過程 Function過程的調(diào)用 1. 直接調(diào)用 Function過程的調(diào)用比較簡單 ， 可以像使用 VB內(nèi)部函數(shù)一樣來調(diào)用 Function過程 ， 即在表達(dá)式中寫上它的名字 。 計(jì)算并返回函數(shù)值 End Function 第 8章 過程 【 例 84】 計(jì)算任意整數(shù) n的階乘的 Function過程 fact： Function fact(x As Integer) As Long Dim p As Long, i As Integer p = 1 For i = 1 To x p = p * i 39。Function過程的語法是： 第 8章 過程 [ Private | Public ][ Static ] Function〈 函數(shù)名 〉 ( [〈 形參表 〉 ] ) [ As〈 類型 〉 ] [〈 語句列 〉 ] [〈 函數(shù)名 〉 =〈 表達(dá)式 〉 ] [ Exit Function ] [〈 語句列 〉 ] [〈 函數(shù)名 〉 =〈 表達(dá)式 〉 ] End Function 第 8章 過程 圖 定義函數(shù)過程 第 8章 過程 【 例 83】 編寫求矩形面積的自定義函數(shù) 。 第 8章 過程 圖 時(shí)間延遲示例 第 8章 過程 Function 過 程 Function過程的定義 與 Sub過程一樣 ， Function過程也是一個(gè)獨(dú)立的過程 ， 可讀取參數(shù) 、 執(zhí)行一系列語句并改變其參數(shù)的值 。 End Sub 運(yùn)行程序 。 Call delayloop(6) 39。 調(diào)用通用過程 ， 延遲 3秒 Print Print 輸出第二行內(nèi)容 。 Print Print 請等 3秒 。 第 8章 過程 用上面的 delayloop過程可以延遲指定的時(shí)間 ， 調(diào)用時(shí)用需要延遲的時(shí)間 (秒 )作為實(shí)參 。 利用空循環(huán)實(shí)現(xiàn)延遲 Loop End Sub 第 8章 過程 一般情況下 ， Timer比 loopfinish要小 ， 因此可以用 Do While Timer loopfinish Loop 來控制時(shí)間延遲 。 如果延遲時(shí)間從午夜前開 第 8章 過程 loopfinish = loopfinish secinday Do While Timer loopfinish 39。 一整天的秒數(shù) loopfinish = Timer + delaytime 39。 * 60amp。 (2) 編寫通用事件過程代碼： Static Sub delayloop(delaytime) Const secinday = 24amp。 通過調(diào)用該過程 ， 按指定的時(shí)間間隔顯示若干行信息 。 單擊標(biāo)準(zhǔn)工具欄中的“啟動”按鈕，運(yùn)行工程，單擊窗體，依次輸入矩形的長、寬，如圖 ，求得矩形面積如圖 。 調(diào)用 recarea過程 ， 也可以改為 Call recarea(a, b) End Sub 如圖 ， 編寫子過程與窗體的事件過程代碼 。 用輸入框輸入矩形的長 b = InputBox(“請輸入矩形面積的寬度： ” ) 39。 用消息框輸出矩形面積 End Sub 第 8章 過程 (3) 編寫窗體 Form的單擊 Click事件代碼 。 計(jì)算矩形面積 MsgBox 矩形的面積是： amp。 第 8章 過程 圖 建立計(jì)算矩形面積的用戶界面 第 8章 過程 (2) 在代碼窗口中直接輸入通用事件代碼 。 第 8章 過程 調(diào)用 Sub過程有兩種方法： (1) 使用 Call語句： Call〈 過程名 〉 ( [〈 實(shí)參表 〉 ] ) (2) 直接使用過程名： 〈 過程名 〉 [〈 實(shí)參表 〉 ] 第 8章 過程 【 例 81】 編寫一個(gè)計(jì)算矩形面積的 Sub過程 ， 然后調(diào)用該過程計(jì)算矩形面積 。 當(dāng)程序遇到 End Sub時(shí) ， 退出過程 ， 立即返回到調(diào)用語句的后續(xù)語句 。 第 8章 過程 圖 “添加過程”對話框 第 8章 過程 圖 代碼編輯窗口 第 8章 過程 通用過程的調(diào)用 每次調(diào)用過程都會執(zhí)行 Sub和 End Sub之間的 〈 語句列 〉 。 從 “ 范圍 ” 組中選擇范圍 ， 相當(dāng)于使用 Public或 Private關(guān)鍵字 。 (3) 在 “ 名稱 ” 文本框中輸入過程名 。 然后按如下格式輸入通用過程： [ Private | Public ][ Static ] Sub〈 過程名 〉 ( [〈 形參表 〉 ] ) [〈 語句列 〉 ] [ Exit Sub ] [〈 語句列 〉 ] End Sub 第 8章 過程 2. 使用 “ 添加過程 ” 對話框 使用 “ 添加過程 ” 對話框建立過程的方法為 (1) 打開要添加過程的代碼編輯窗口 。 第 8章 過程 控件事件過程的語法為 Private Sub〈 控件名 〉 _〈 事件名 〉 ([〈 形參表 〉 ]) [〈 語句組 〉 ] End Sub 窗體事件過程的語法為： Private Sub Form_〈 事件名 〉 ([〈 形參表 〉 ]) [〈 語句組 〉 ] End Sub 第 8章 過程 圖 “代碼編輯器 ” 窗口 第 8章 過程 圖 設(shè)置對象的 Name屬性 第 8章 過程 2. 通用過程 通用過程不與任何特定的事件相聯(lián)系 ， 只能由別的過程來調(diào)用 ， 它可以存儲在窗體或標(biāo)準(zhǔn)模塊中 。第 8章 過程 第 8章 過程 Sub過程 Function過程 參數(shù)傳遞 鍵盤與鼠標(biāo)事件過程 習(xí)題八 第 8章 過程 Sub 過 程 事件過程與通用過程 1. 事件過程 事件過程由 VB自行聲明 ， 用戶不能增加或刪除 。 當(dāng)用戶對某個(gè)對象發(fā)出一個(gè)動作時(shí)， Windows會通知 VB產(chǎn)生了一個(gè)事件， VB會自動地調(diào)用與該事件相關(guān)的事件過程。 第 8章 過程 通用過程的創(chuàng)建 1. 在 “ 代碼 ” 編輯窗口中輸入 在 “ 代碼 ” 編輯窗口中 ， 把光標(biāo)定位在已有過程的外面 。 (2) 執(zhí)行 “ 工具 ” 菜單中的 “ 添加過程 ” 命令 ， 打開 “ 添加過程 ” 對話框 ， 如圖 。 從 “ 類型 ”組中選擇過程類型 。 (4) 單擊 “ 確定 ” 按鈕 ， 在代碼窗口中顯示情況如圖 。 Sub過程以 Sub開始 ， 以 End Sub結(jié)束 。 調(diào)用過程有諸多技巧 ， 它們與過程的類型 、 位置以及在應(yīng)用程序中的使用方式有關(guān) 。 設(shè)計(jì)步驟如下： (1) 建立應(yīng)用程序用戶界面并設(shè)置對象屬性 ， 如圖 。 Sub recarea(rlen, rwid) Dim area area = rlen * rwid 39。 are