【正文】 Form_Load 39。調(diào)用命令按鈕 cmdAdd的單擊事件過程 cmdAdd_Click 39?；颍?Call cmdAdd_Click 調(diào)用事件過程實(shí)際上就是執(zhí)行事件過程中的語句序列 ，如同通用過程一樣 ， 亦可起到復(fù)用和簡化代碼的作用 。 返回首頁 返回本節(jié) 函數(shù)過程 ? 函數(shù)過程的定義 ? 函數(shù)過程的調(diào)用 Function（ 函數(shù) ） 過程也是獨(dú)立的過程 ， 可讀取參數(shù) 、 執(zhí)行一系列語句并改變其參數(shù)的值 ，這一點(diǎn)與前面介紹的 Sub過程相同 。 Function過程與子過程不同的是：子過程沒有返回值 ， 只能作為獨(dú)立的基本語句被調(diào)用 ， 不能出現(xiàn)在表達(dá)式中；而 Function過程有返回值 ， 既可以出現(xiàn)在表達(dá)式中 ， 也可以作為獨(dú)立的語句被調(diào)用 。 返回首頁 函數(shù)過程的定義 （ 1） 函數(shù)過程的定義與子過程的定義相似 。 不同的是 ， 由于函數(shù)過程可以返回一個值 ， 因此要在定義中加入返回值類型說明 。 語法格式為： [ Private|Public] [Static] Function 函數(shù)名([形參表 ]) [As 類型 ] [語句塊 ] [函數(shù)名 =表達(dá)式 ] [Exit Function] [語句塊 ] [函數(shù)名 =表達(dá)式 ] End Function 函數(shù)過程的定義 （ 2） 說明： （ 1） “ 函數(shù)名 ” 即函數(shù)過程的名稱 ， 命名規(guī)則與變量相同 。 （ 2） [As 類型 ] 指定函數(shù)過程返回值的類型 ， 可以是Integer、 Long、 Single、 Double、 Currency、 String 或Boolean。 若省略 ， 則默認(rèn)的數(shù)據(jù)類型為 Variant。 （ 3） “表達(dá)式 ” 的值是函數(shù)返回的結(jié)果 ， 通過賦值語句將其賦給函數(shù)名 。 若在函數(shù)過程中省略 “ 函數(shù)名 =表達(dá)式 ” ，則該過程返回一個默認(rèn)值 。 數(shù)值函數(shù)過程返回 0， 字符串函數(shù)返回空字符串 。 因此 ， 為了能使一個函數(shù)過程完成所指定的操作并獲取返回值 ， 通常要在過程中為函數(shù)名賦值 。 （ 4） 在過程體中 ， 可以使用一個或多個 Exit Function語句退出函數(shù) 。 （ 5） 函數(shù)過程語法中其他部分的含義與子過程相同 。 函數(shù)過程的定義 （ 3） 與子過程一樣 ， 可以在 “ 代碼編輯器 ” 窗口中直接輸入代碼來創(chuàng)建函數(shù)過程 ， 也可以使用 “ 添加過程 ” 對話框來創(chuàng)建函數(shù)過程 ， 只是在選擇類型時要選擇 “ 函數(shù) ” 。 例如 ， 以下函數(shù) RectArea可計算并返回矩形的面積： Private Function RectArea(a As Single, _ b As Single) As Single RectArea = a * b End Function 返回首頁 返回本節(jié) 函數(shù)過程的調(diào)用 （ 1） 函數(shù)過程通常在表達(dá)式中調(diào)用 ， 也可以作為獨(dú)立的語句被調(diào)用 。 1. 在表達(dá)式 中調(diào)用 格式： 函數(shù)名 ([實(shí)參表 ]) 這種調(diào)用方式與大部分 VB內(nèi)部函數(shù)的調(diào)用相同 ， 即將函數(shù)名及其實(shí)參寫在表達(dá)式中 。 例如 ， 以下語句均可調(diào)用前面 ： S = RectArea(3, 5) Print 矩形面積為： 。 RectArea(6, 8) MsgBox 矩形面積為： amp。 RectArea(3, 4) 函數(shù)過程的調(diào)用 （ 2） 2. 以獨(dú)立語句形式調(diào)用 調(diào)用的格式與 Sub過程相同 。 例如： Call RectArea(2, 7) RectArea 2, 7 當(dāng)用這種方式調(diào)用函數(shù)過程時 ， VB放棄函數(shù)的返回值 。 實(shí)際上 ， 有些 VB內(nèi)部函數(shù)也可采用這種忽略返回值的調(diào)用方式 ， 此時常將某某函數(shù)稱為某某語句 。其中較典型的內(nèi)部函數(shù)有 MsgBox、 Shell等 。 函數(shù)過程的調(diào)用 （ 3） 例如 ， 以下語句均可打開 Windows記事本程序（ Shell函數(shù)用于運(yùn)行一個可執(zhí)行文件 ） ： 39。函數(shù)形式 x = Shell(C:\Windows\, 1) 39。語句形式 Call Shell(C:\Windows\, 1) Shell C:\Windows\, 1 函數(shù)過程的調(diào)用 （ 4） 【 例 】 計算 1～ 10階乘之和 。 運(yùn)行結(jié)果如圖 。 思路 ：首先編制一個求階乘 （ N!） 的函數(shù)過程 ， 在窗體的單擊事件中調(diào)用此過程 ， 依次求出 1!、 2!… 10!的值 ，并將其累加 。 代碼如下： 39。求階乘 （ N!） 的函數(shù)過程 Private Function Factorial(N As Integer) As Long Dim i As Integer, p As Long p = 1 For i = 1 To N p = p * i 39。累乘 Next Factorial = p 39。對函數(shù)名賦值 ， 返回函數(shù)值 End Function 函數(shù)過程的調(diào)用 （ 5） Private Sub Form_Click() 39。單擊窗體 Dim Sum As Long, i As Integer 39。在循環(huán)中調(diào)用函數(shù)過程求 1～ 10的階乘并累加 For i = 1 To 10 Sum = Sum + Factorial(i) Next Print 1!+2!+...+10! =。 Sum 39。顯示結(jié)果 End Sub 函數(shù)過程的調(diào)用 （ 6） 【 例 】 求多個數(shù)的最大公約數(shù) 。 程序運(yùn)行結(jié)果如圖 。 思路 ：首先編寫一個用輾轉(zhuǎn)相除法求兩個數(shù)的最大公約數(shù)的函數(shù)過程 ， 通過多次調(diào)用該函數(shù)過程 ， 求出多個數(shù)的最大公約數(shù) 。 具體做法是先求出前兩個數(shù)的最大公約數(shù)，將所得最大公約數(shù)與第三個數(shù)求最大公約數(shù)，以此類推，直至求出所有數(shù)的最大公約數(shù)。在計算過程中，只要出現(xiàn)最大公約數(shù)為 1，即不必再對后續(xù)的其他數(shù)求公約數(shù)。 函數(shù)過程的調(diào)用 （ 7） （ 1） 設(shè)計界面及設(shè)置屬性 在窗體上添加一個圖片框 Picture1， 設(shè)背景色為白色 ， AutoRedraw屬性為 True。 添加三個命令按鈕 ， Caption屬性分別為 【 開始 】 、 【 清除 】 和 【 退出 】 。 （ 2） 編寫代碼 創(chuàng)建一個函數(shù)過程 GCD， 該函數(shù)過程含有兩個形參 m和 n， 均為 Long型 ， 用于