【正文】 啟動對象 】 組合框中選擇 【 Sub Main】 并單擊 【 確定 】 按鈕 。 這一過程稱為 Sub Main過程 ， 位于標(biāo)準(zhǔn)模塊中 。 標(biāo)準(zhǔn)模塊沒有窗體 ，只有代碼 ， 在標(biāo)準(zhǔn)模塊中輸入代碼的方法與窗體模塊相同 。 這樣 ， 當(dāng)程序中有多個窗體時 ， 各窗體模塊均可直接調(diào)用該過程 ，而不必重復(fù)編寫代碼 。 使用標(biāo)準(zhǔn)模塊能夠提高代碼的可復(fù)用程度 。 在標(biāo)準(zhǔn)模塊中用 Public關(guān)鍵字聲明的變量 、 常數(shù) 、 類型 、過程等可以供應(yīng)用程序中的其他模塊和本模塊訪問 。 （ 2） 在某窗體中添加 Public類型的通用過程 ， 當(dāng)其他窗體調(diào)用此過程時 ， 需要在過程名前添加窗體名 ， 即： Call 窗體名 .過程名 此外 ， 如果定義過程時在過程名前面使用了Static關(guān)鍵字 ， 則表示在本過程內(nèi)聲明的局部變量均為靜態(tài)變量 。 2. 全局過程 全局過程是在某個模塊內(nèi)用關(guān)鍵字 Public（ 或省略范圍 ） 定義的子過程或函數(shù)過程 ， 這種過程可被整個工程內(nèi)的所有過程調(diào)用 ， 即其作用域為整個工程 。 詳細(xì)代碼見教材 。通過該形參可引用文本框?qū)ο蟮乃袑傩院头椒?。 對象參數(shù) （ 4） （ 2） 編寫代碼 建立一個通用過程 TxtSetFocus， 形參類型為TextBox。 再添加一個標(biāo)簽 ，名稱為 lblAver， BorderStyle屬性為 1， Caption屬性為空 ， 背景色為白色 ， 用于顯示平均分 。 圖 輸入錯誤 圖 輸入正確 對象參數(shù) （ 3） （ 1） 設(shè)計界面和設(shè)置屬性 在窗體上添加三個文本框 ,名稱分別為 txtChn、txtMath 和 txtEng， Text 屬 性 均 為 空 ，HideSelection屬性均為 False。 對象參數(shù) （ 2） 【 例 】 編制一個計算平均成績的程序 ， 當(dāng)用戶輸入的分?jǐn)?shù)超出規(guī)定范圍 （ 0～ 100） 時 ， 焦點返回出錯的文本框并全選其內(nèi)容 ， 以便讓用戶修改或重新輸入 。 在圖 ， 鼠標(biāo)指針?biāo)柑幨敲Q為 txtChn的文本框?qū)ο笏鶎俚念怲extBox。 這里的 “ 對象類型 ” 是指對象所屬的類 。 返回首頁 返回本節(jié) 對象參數(shù) （ 1） 在 VB中 ， 可以將窗體 、 控件等對象傳遞給過程 。 運行結(jié)果如圖 。 傳值與傳址 （ 3） 【 例 】 分別使用傳址和傳值兩種方式編寫實現(xiàn)兩數(shù)交換的子過程 ， 要求分別顯示兩種方式下實參與形參的變化 。 在調(diào)用一個過程時 ， 如果用傳址方式進(jìn)行參數(shù)傳遞 ， 則會將實參的內(nèi)存地址傳遞給形參 ， 即讓形參和實參使用相同的內(nèi)存單元 。 傳值與傳址 （ 2） 2. 傳址 在 ， 傳址是默認(rèn)的參數(shù)傳遞方式 ， 即形參前不使用任何關(guān)鍵字 ， 相當(dāng)于用 ByRef聲明形參 。 當(dāng)被調(diào)過程結(jié)束并返回調(diào)用它的過程后 ， 實參的值還是調(diào)用前的值 。 調(diào)用過程時 ， 傳遞給形參的只是調(diào)用語句中實參的值 ， 即把調(diào)用語句中實參的值復(fù)制給子過程或函數(shù)過程中的形參 。 代碼詳見教材 。 計算多個數(shù)的最大公約數(shù)時仍然采用 For循環(huán) (循環(huán)次數(shù)＝數(shù)字個數(shù)－ 1)，在循環(huán)中依次取出動態(tài)數(shù)組中的數(shù)字 ， 調(diào)用 GCD函數(shù)過程計算 。 在函數(shù)過程中用輾轉(zhuǎn)相除法求出最大公約數(shù)作為返回值 。 添加三個命令按鈕 ， Caption屬性分別為 【 開始 】 、 【 清除 】 和 【 退出 】 。在計算過程中，只要出現(xiàn)最大公約數(shù)為 1，即不必再對后續(xù)的其他數(shù)求公約數(shù)。 思路 ：首先編寫一個用輾轉(zhuǎn)相除法求兩個數(shù)的最大公約數(shù)的函數(shù)過程 ， 通過多次調(diào)用該函數(shù)過程 ， 求出多個數(shù)的最大公約數(shù) 。顯示結(jié)果 End Sub 函數(shù)過程的調(diào)用 （ 6） 【 例 】 求多個數(shù)的最大公約數(shù) 。在循環(huán)中調(diào)用函數(shù)過程求 1～ 10的階乘并累加 For i = 1 To 10 Sum = Sum + Factorial(i) Next Print 1!+2!+...+10! =。對函數(shù)名賦值 ， 返回函數(shù)值 End Function 函數(shù)過程的調(diào)用 （ 5） Private Sub Form_Click() 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。 思路 ：首先編制一個求階乘 （ N!） 的函數(shù)過程 ， 在窗體的單擊事件中調(diào)用此過程 ， 依次求出 1!、 2!… 10!的值 ，并將其累加 。語句形式 Call Shell(C:\Windows\, 1) Shell C:\Windows\, 1 函數(shù)過程的調(diào)用 （ 4） 【 例 】 計算 1～ 10階乘之和 。 函數(shù)過程的調(diào)用 （ 3） 例如 ， 以下語句均可打開 Windows記事本程序（ Shell函數(shù)用于運行一個可執(zhí)行文件 ） ： 39。 實際上 ， 有些 VB內(nèi)部函數(shù)也可采用這種忽略返回值的調(diào)用方式 ， 此時常將某某函數(shù)稱為某某語句 。 RectArea(3, 4) 函數(shù)過程的調(diào)用 （ 2） 2. 以獨立語句形式調(diào)用 調(diào)用的格式與 Sub過程相同 。 例如 ， 以下語句均可調(diào)用前面 ： S = RectArea(3, 5) Print 矩形面積為： 。 例如 ， 以下函數(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)用 ， 也可以作為獨立的語句被調(diào)用 。 （ 5） 函數(shù)過程語法中其他部分的含義與子過程相同 。 因此 ， 為了能使一個函數(shù)過程完成所指定的操作并獲取返回值 ， 通常要在過程中為函數(shù)名賦值 。 若在函數(shù)過程中省略 “ 函數(shù)名 =表達(dá)式 ” ，則該過程返回一個默認(rèn)值 。 若省略 ， 則默認(rèn)的數(shù)據(jù)類型為 Variant。 語法格式為： [ Private|Public] [Static] Function 函數(shù)名([形參表 ]) [As 類型 ] [語句塊 ] [函數(shù)名 =表達(dá)式 ] [Exit Function] [語句塊 ]