Microsoft PowerPoint - 第10章.ppt

Transcription

1 副程式 通常我們會將重複功能的程式碼, 獨立形成一個固定的程式片段, 讓主程式重複呼吸使用稱為副程式 主程式 開 始 副程式 1 副程式 2 敘述 1 敘述 2 Sub 功能 1( ) : : End Sub Sub 功能 2( ) : : End Sub 輸 出 結 束 主程式與副程式 10-1

2 副程式 副程式和函式最大的不同處在於 : (1) 副程式並不傳回值 (2) 函式會傳回一個值 假設要讓副程式回傳值, 可使用 : (1) 設定全域變數, 進行傳值呼叫 (Call by Value) (2) 傳址呼叫 (Call by Address) 10-2

3 副程式 副程式的語法 : [Private][Public] Sub 副程式名稱 ( 參數資料串列 ) 程式敘述 : 執行特定的功能 : End Sub [ 說明 ] 1. 如果使用 Private sub 副程式名稱..., 只能允許同一個模組來進行呼叫使用 2. 如果使用 Public sub 副程式名稱..., 它是可以讓目前應用程式的所有程序或是模組呼叫使用 3. 假設沒有特別指定時, 預設值是 Public 4. 副程式宣告的地方, 可在模組中宣告, 也可以寫在表單開始與結束的位置 5. 不可以在運算式中使用副程式 10-3

4 副程式 副程式依其特性可分成 : 1. 內建函式所謂內函式是 Visual Basic 本身提供的, 當我們在函式名稱後面加上參數, 就可以馬上使用 2. 程序程序又分成事件與一般, 事件程序通常配合物件來使用的, 而一般程序則是根據程式需求來撰寫的程式區段 10-4

5 [ 範例 ] 設計一個簡單的副程式應用, 計算結果可從 及時運算視窗 中顯示 Step 1: 建立 Form1 表單, 然後增加一個 Button1 物件, 請參考下圖所示 物件 Button1 屬性項目 Text 設定值 副程式的簡單範例 建置副程式的範例表單 10-5

6 Step 2: 撰寫圖示的程式, 其中我們的主程式段是在 Button1_Click 的程序內, 而被呼叫的副程式段, 我們撰寫在最上層的編輯區內, 也就在 Public Class Form1 這一行程式碼下面 副程式在程式編輯器內的畫面 [ 程式說明 ] 1. 主程式中, 呼叫兩次副程式, 每一呼叫副程式時, 都有給予傳遞的參數 2. 副程式的名稱為 proc1, 前面沒有 Public 或 Private 時, 都當作 Public 3. 副程式內的 ByVal 是表示, 採傳值方式傳遞參數 10-6

7 Step 3: 執行程式開始, 當我們按下副程式的簡單範例鈕後, 即時運算視窗分別出現 30 與 60 的計算結果, 如圖所示 副程式計算結果正確 10-7

8 [ 範例 ] 設計一個參數傳遞陣列元素的副程式應用, 並且計算出陣列元素個數與陣列元素總和 Step 1: 首先, 建立一個 Form1 表單, 在表單上放置一個 Label1 物件與一個 Button1 物件, 然後設計 Button1 的 Text 屬性為 參數傳遞陣列元素, 參考下圖所示 物件 Button1 Label1 屬性項目 Text ( 無更改 ) 設定值 參數傳遞陣列元素 建置參數傳遞陣列元素 Form1 表單 10-8

9 Step 2: 參考下列程式, 分別在主程式宣告陣列並給予初值, 以及在副程式計算出陣列元素個數有幾個, 和陣列元素的總和 Public Class Form1 Sub sum(byval A() As Integer) Dim total As Integer = 0 For Each value In A total = total + value Next Label1.Text = " 陣列元素個數 :" & A.Length & vbcrlf & _ " 陣列元素總和 :" & total End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim score(3) As Integer score(0) = "80" [ score(1) = "90" 程式說明 ] 1. 使用 sum(score) 來呼叫副程式, 並傳遞 score( ) 陣列元素內容 score(2) = "65" 2. 副程式複製的陣列名稱為 A( ) score(3) = "38" 3.A.Length 為計算陣列個數 sum(score) 4. End Sub For Each value In 陣列名稱 End Class total=total+value Next 為計算陣列所有元素總和 10-9

10 Step 3: 圖示中的程式碼, 為實際畫面的對照, 請參考 實際主程式與副程式的編輯情形 10-10

11 Step 4: 執行結果, 請檢視圖示的計算數據 順利計算陣列元素個數與元素總和 10-11

12 [ 範例 ] 使用副程式的方法, 設計一個可計算階乘 N! 的程式應用 Step 1: 依照圖示的畫面, 設計 Form1 表單的環境, 然後放入一個 Label1 物件與一個 Button1 的物件 物件 Button1 Label1 屬性項目 Text ( 無更改 ) 設定值 計算階乘 N! 的副程式練習 配置物件於 Form1 表單 10-12

13 Step 2: 參考下列程式, 主程式是放入 Button1_Click 程序內, 而副程式則緊接在 Public Class Form1 下一行撰寫 Public Class Form1 Sub factorial(byval f As Integer) Dim total As Double total = 1 For i As Integer = 2 To f total = total * i Next Label1.Text = f & "! 的計算值 =" & total End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim N As Integer N = InputBox(" 請決定計算階乘 N! 的 N 值 ") factorial(n) End Sub [ 程式說明 ] End Class 1. 副程式 factorial 是使用 ByVal 方式, 也就傳值呼叫方式 2. 在主程式內, 使用 InputBox 方式, 取得計算階乘的最大數 N 3. 主程式透過 factorial(n) 來呼叫副程式, 並傳遞參數 N 10-13

14 Step 3: 實際程式編輯畫面對照, 如圖所示 實際程式撰寫畫面參考 10-14

15 Step 4: 執行程式開始, 首先, 當我們按下計算階乘 N! 的副程練習鈕, 程式要我們決定計算階乘 N! 的 N 值, 如圖所示 要求輸入 N 值 10-15

16 Step 5: 假設, 我們輸入 "6", 也就是要計算 "6!", 如圖所示 Step 6: 計算結果顯示在 Form1 上的 Label1 物件內, 由圖中看出, 6! 的計算值 =720 是正確無誤的 10-16

17 [ 討論 ] 上個例子為 6!, 我們還可以驗算, 即 6!= , 萬一遇到數字大一點, 要如何驗算, 才能證明我們的程式是對的 首先, 我們可以開放電腦內建的小算盤, 開啟 工程用 模式, 即可進行階乘驗算, 如圖所示 驗算 6! 的結果 10-17

18 假設我們計算 120!, 也就 N=120, 則程式顯示出複雜的結果, 參考圖所示 回到小算盤去驗證 120!, 結果比我們的程式算的還精確, 如圖所示 10-18