1、Visual Basic程序設計 第6章 過程子程序和函數 Visual BASIC 程序設計 子程序（子程序（Sub過程）過程） 函數（函數（Function過程）過程） 參數傳遞參數傳遞 標準模塊標準模塊 程序調試程序調試 過程的嵌套調用和遞歸調用過程的嵌套調用和遞歸調用 鼠標和鍵盤事件鼠標和鍵盤事件 Visual BASIC 程序設計 Visual BASIC 程序設計 VB應用程序 .vbp 窗體模塊 .frm 標準模塊 .bas類模塊 .cls 函數過程 (Function) 事件過程 子程序 (Sub) 函數過程 (Function) 子程序 (Sub) 程序： 模塊： 過程： V

2、isual BASIC 程序設計 Visual BASIC 程序設計 Sub過程不過程不 直接返回值直接返回值 Functio n過程要過程要 返回一個返回一個 值值 Visual BASIC 程序設計 Public Sub Swap (x,y)Public Sub Swap (x,y) Dim t Dim t t = x : x = y : y = tt = x : x = y : y = t End SubEnd Sub Visual BASIC 程序設計 Visual BASIC 程序設計 Visual BASIC 程序設計 Visual BASIC 程序設計 Visual BASIC

3、程序設計 Visual BASIC 程序設計 Visual BASIC 程序設計 Visual BASIC 程序設計 定義子程序 Swap： Sub Swap (x,y) Dim t t = x : x = y : y = x End Sub 調用子程序 Swap： . Swap a , b 交換 . Visual BASIC 程序設計 Visual BASIC 程序設計 傳址傳址 ： Sub Swap (ByRef x, ByRef y) Dim t t = x : x = y : y = x End Sub . Swap a , b 交換交換 形參 x （x與a指向同一位置） 形參 y （

4、y與b指向同一位置） 交換 傳值傳值 x: 543 y: 21 傳值傳值 ： Sub Swap (ByVal x, ByVal y) Dim t t = x : x = y : y = x End Sub . Swap a , b 交換交換? 543實參 a： 21 實參 b： 傳址傳址 543實參 a： 21 實參 b： 交換 543 21 543 21 實參內容不變實參內容不變! Visual BASIC 程序設計 c b a Visual BASIC 程序設計 Visual BASIC 程序設計 Visual BASIC 程序設計 Visual BASIC 程序設計 Visual BAS

5、IC 程序設計 計算 1！2！3！10！ 提示：先定義一個求階乘fac函數過程 VisualBasic程序設計 Visual BASIC 程序設計 Visual BASIC 程序設計 Visual BASIC 程序設計 Visual BASIC 程序設計 過程的遞歸調用和過程的嵌套 說明：說明：在一個過程中調用另外一個過程， 稱為過程的嵌套調用嵌套調用；而過程直接或間接 地調用其自身，則稱為過程的遞歸調用遞歸調用。 VisualBasic程序設計 Visual BASIC 程序設計 過程的嵌套 Sub主過程 Call子過程1 End Sub Sub子過程1 Call子過程2 End Sub S

6、ub子過程2 End Sub VisualBasic程序設計 Visual BASIC 程序設計 案例演示最大公約數最小公倍數的計案例演示最大公約數最小公倍數的計 算。算。 VisualBasic程序設計 Visual BASIC 程序設計 過程的遞歸調用 【例】利用遞歸求階乘。 No ImageNo Image VisualBasic程序設計 Visual BASIC 程序設計 編寫求階乘的函數過程Fact： Function Fact(ByVal a As Integer) As Integer If a 1 Then fact= a * Fact(a - 1) 遞歸調用 Else Fac

7、t= 1 End If End Function Private Sub Command1_Click() Dim m As Long, n As Long n = Val(Text1.Text) m = Fact(n) 調用函數過程調用函數過程Fact Text2.Text = str(m) End Sub VisualBasic程序設計 Visual BASIC 程序設計 【例】利用遞歸的方法來求斐波那契數列。【例】利用遞歸的方法來求斐波那契數列。 No Image No Image No Image VisualBasic程序設計 Visual BASIC 程序設計 編寫函數過程編寫函數

8、過程Fibo： Function Fibo(ByVal n As Integer) As Integer If n 2 Then Fibo = Fibo(n - 1) + Fibo(n - 2) 遞歸調用遞歸調用 Else Fibo = 1 End If End Function VisualBasic程序設計 Visual BASIC 程序設計 Visual BASIC 程序設計 Visual BASIC 程序設計 共生成20個數組Unit (0)Unit (9), Coef (0)Coef (9) Unit和Coef原是變體型數組，其中 每個元素都是一個變體型變量，經 Array函數賦值后都變成了數組。 3. Unit(0)Unit(9)中存放單位, Coef (0) Coef (9)中存放轉換系數 說 明 Visual BASIC 程序設計 Visual BASIC 程序設計 Visual BASIC 程序設計 Visual BASIC 程序設計 Visual BASIC 程序設計 Visual BAS