模组化程式设计I.pptVIP

程式語言(I)- Visual Basic 6.0 第 8 章 模組化程式設計I－副程式與自定函數 一、模組化設計的概念 模組通常是指一段具有某種特定功能、大小適中、容易閱讀及維護的程式 將程式切割成許多個子功能後，便可分別撰寫成模組程式 二、模組設計的原則 設計功能單純的模組程式，以便提供給更多程式使用 儘量減少模組之間相互影響的程度，以使模組成為獨立的程式基本單元 將模組控制在適當的大小（例如不超過50行敘述），以方便閱讀與維護 三、使用模組的優點 模組可重覆使用 程式開發易於分工 四、模組設計的方法 在專案中加入空白模組檔，撰寫副程式或自定函數，以設計模組程式（如左下圖） 在專案中匯入某個專案中的模組檔（如右下圖） 五、副程式（1/6） 副程式是一段具有特定功能的程式區塊；它通常必須透過主程式的呼叫才能被啟動起來執行 五、副程式（2/6） 語法：《定義副程式的語法》 Sub 副程式名稱 ([形式參數1 [As 資料型別], 　 形式參數2 [As 資料型別], …])  程式敘述區塊 End Sub 《呼叫副程式的語法》 　Call 副程式名稱 ([實際參數1, 實際參數2, …]) 五、副程式（3/6） 範例：計算家庭用電費與營業用電費 五、副程式（4/6） 副程式F_Expense( ) 五、副程式（5/6） 副程式C_Expense( ) 五、副程式（6/6） 主程式 六、自定函數（1/3） 自定函數的功能與副程式類似；差別在於自定函數在執行結束後會產生一個傳回值給呼叫它的程式 六、自定函數（2/3） 語法：《定義自定函數的語法》Function 自定函數名稱([形式參數1[As 資料型別], 形式參數2_[As 資料型別], …]) As 資料型別 程式敘述區塊 自定函數名稱 = 傳回值End Function《呼叫自定函數的語法》 變數名稱 = 自定函數名稱([實際參數1, 實際參數2, …]) 六、自定函數（3/3） 範例：華氏溫度換算為攝氏溫度 隨機不重覆 副程式(版本一) Sub Generate_Random_Number() Dim rnd_n As Short Dim ck(4) As Short For i = 1 To 4 rnd_n = Int(Rnd() * 4) + 1 Do While ck(rnd_n) = 1 rnd_n = Int(Rnd() * 4) + 1 Loop N(i) = rnd_n ck(rnd_n) = 1 Next End sub 使用方法：Call Generate_Random_Number() 副程式(版本二-加入模組) Sub Generate_Random_Number() Dim rnd_n As Short Dim ck(4) As Short For i = 1 To 4 rnd_n = Int(Rnd() * 4) + 1 Do While ck(rnd_n) = 1 rnd_n = Int(Rnd() * 4) + 1 Loop Form1.N(i) = rnd_n ck(rnd_n) = 1 Next End sub 使用方法：1. 在專案中加入空白模組檔”Module1.vb” 2. Public N(4) as short 3. Call Generate_Random_Number() 副程式(版本三-加入參數) Sub Generate_Random_Number(ByVal num as short) Dim rnd_n As Short Dim ck(4) As Short For i = 1 To num rnd_n = Int(Rnd() * num) + 1 Do While ck(rnd_n) = 1 rnd_n = Int(Rnd() * num) + 1 Loop Form1.N(i) = rnd_n ck(rnd_n) = 1 Next End s