東北大學(xué),可視化程序設(shè)計(jì)(VB),課件04第4章.ppt

Visual Basic.NET 程序設(shè)計(jì),主講人：蔣忠中 東北大學(xué)工商管理學(xué)院,第 4 章 過(guò) 程,教學(xué)目的,教學(xué)要求,重點(diǎn)難點(diǎn),教學(xué)內(nèi)容,教學(xué)目的,學(xué)習(xí)本章的目的是了解模塊化程序設(shè)計(jì)的思想，通過(guò)學(xué)習(xí)和上機(jī)實(shí)踐，掌握Sub過(guò)程和Function過(guò)程的定義和調(diào)用方法。 參數(shù)傳遞是學(xué)習(xí)本章的重要內(nèi)容之一，通過(guò)本章的學(xué)習(xí)掌握形參與實(shí)參的作用，傳值調(diào)用和引用調(diào)用的特點(diǎn)和區(qū)別，數(shù)組作為參數(shù)在過(guò)程定義中的意義和作用。 學(xué)習(xí)本章還需了解變量的作用域和生存期、遞歸過(guò)程的特點(diǎn)以及其執(zhí)行過(guò)程。 學(xué)習(xí)本章的重要目標(biāo)是在程序設(shè)計(jì)中合理的定義Sub過(guò)程和Function過(guò)程。,BACK,教學(xué)要求,了解模塊化程序設(shè)計(jì)的概念、“自頂向下、逐步求精”的程序設(shè)計(jì)方法。 掌握Sub過(guò)程的定義和調(diào)用方法，會(huì)將某一功能用Sub過(guò)程來(lái)實(shí)現(xiàn)。 掌握Function過(guò)程的定義和調(diào)用方法，能正確區(qū)分Sub過(guò)程和Function過(guò)程之間的區(qū)別，會(huì)將某一功能利用Function過(guò)程來(lái)實(shí)現(xiàn)。 掌握形參和實(shí)參的意義和作用，形參與一般變量的區(qū)別。掌握形參與實(shí)參之間傳值調(diào)用和引用調(diào)用的特點(diǎn)，在程序設(shè)計(jì)中能合理的使用形參與實(shí)參之間的傳值調(diào)用和引用調(diào)用，能正確理解數(shù)組參數(shù)在過(guò)程定義中的作用。 正確理解變量的作用域以及變量的生存期。 了解遞歸的概念，會(huì)順利的閱讀遞歸程序，了解遞歸程序的特點(diǎn)。 會(huì)舉一反三，正確的定義和調(diào)用Sub過(guò)程和Function過(guò)程。,BACK,重點(diǎn)難點(diǎn),重點(diǎn)： Sub過(guò)程和Function過(guò)程的定義格式和調(diào)用方法，區(qū)分這兩種過(guò)程的異同點(diǎn)。 形參與實(shí)參的作用，傳值調(diào)用和引用調(diào)用的特點(diǎn)及其區(qū)別，數(shù)組作為參數(shù)在過(guò)程定義中的作用。 變量的作用域。 遞歸過(guò)程的特點(diǎn)及其執(zhí)行過(guò)程。 理解Sub過(guò)程和Function過(guò)程的執(zhí)行流程。 在程序設(shè)計(jì)中，正確使用Sub過(guò)程和Function過(guò)程。,重點(diǎn)難點(diǎn),難點(diǎn)： 模塊化分的原則，將一個(gè)復(fù)雜的問(wèn)題分解為多個(gè)程序模塊來(lái)實(shí)現(xiàn)。 形參的作用，形參與實(shí)參之間的關(guān)系。 Sub過(guò)程與Function過(guò)程之間的異同。 傳值調(diào)用和引用調(diào)用的特點(diǎn)，在過(guò)程設(shè)計(jì)中合理的選用形參與實(shí)參之間的傳值調(diào)用和引用調(diào)用。 靜態(tài)變量的特點(diǎn)。 遞歸過(guò)程的執(zhí)行流程，其中的遞歸執(zhí)行條件的正確選用。,BACK,教學(xué)內(nèi)容,4.1 模塊化程序設(shè)計(jì)概述,4.2 Sub過(guò)程,4.3 Function過(guò)程,4.4 參數(shù)傳遞,4.5 變量的作用域與生存期,4.6 遞歸,過(guò)程可分為事件過(guò)程和通用過(guò)程。 事件過(guò)程是當(dāng)某個(gè)事件發(fā)生時(shí)，對(duì)該事件做出響應(yīng)的程序段。 將這一段代碼抽象出來(lái)，建立一個(gè)獨(dú)立的、可供其它過(guò)程調(diào)用的過(guò)程，這樣的過(guò)程稱為通用過(guò)程。 通用過(guò)程主要包括Sub過(guò)程和Function過(guò)程兩類，前者也被稱作子過(guò)程，后者稱作函數(shù)過(guò)程。,4.1 模塊化程序設(shè)計(jì)概述,過(guò)程,事件過(guò)程,通用過(guò)程,Sub過(guò)程,Function過(guò)程,4.1 模塊化程序設(shè)計(jì)概述,4.1 模塊化程序設(shè)計(jì)概述,4.1.1 程序的模塊化,模塊化程序設(shè)計(jì)是分而治之策略在程序設(shè)計(jì)中的應(yīng)用。人們?cè)诮鉀Q復(fù)雜問(wèn)題時(shí)往往采用分而治之的策略。,4.1 模塊化程序設(shè)計(jì)概述,4.1.1 程序的模塊化,4.1 模塊化程序設(shè)計(jì)概述,4.1.2 模塊間的層次結(jié)構(gòu),具有嚴(yán)密的正確的層次結(jié)構(gòu)； 具有合理的隸屬關(guān)系； 上層模塊可以調(diào)用所有隸屬于它的下層模塊； 下屬模塊只能通過(guò)唯一的出口返回到調(diào)用它的上層模塊； 整個(gè)程序按隸屬關(guān)系分成若干層次，每一層次由若干個(gè)模塊組成。,4.1 模塊化程序設(shè)計(jì)概述,4.1.3“自頂向下、逐步求精”的程序設(shè)計(jì)方法,強(qiáng)調(diào)的是程序總體結(jié)構(gòu)，即要求程序設(shè)計(jì)人員首先確定主控模塊。 分層向下細(xì)化，即按照上一層模塊已確定的功能，把它再細(xì)化為一些子模塊。 如此繼續(xù)下去，直到所有模塊功能能夠很容易地用計(jì)算機(jī)語(yǔ)言實(shí)現(xiàn)。,4.1 模塊化程序設(shè)計(jì)概述,4.1.3“自頂向下、逐步求精”的程序設(shè)計(jì)方法,MENU,4.2 Sub過(guò)程,4.2.1 Sub過(guò)程的定義,Sub過(guò)程的定義形式： Public|Private Static Sub 過(guò)程名(形式參數(shù)列表) Exit Sub End Sub,4.2 Sub過(guò)程,4.2.1 Sub過(guò)程的定義,【例4.1】實(shí)現(xiàn)兩個(gè)浮點(diǎn)型變量值之間的交換。,Private Sub Swap（ByRef A As Single，ByRef B As Single）,Dim T As Single,T=A,End Sub,：,A=B,：,B=T,4.2 Sub過(guò)程,4.2.1 Sub過(guò)程的定義,Sub過(guò)程以Sub開(kāi)頭，以End Sub結(jié)束，兩者之間稱為“過(guò)程體”。 過(guò)程名的命名規(guī)則與變量名相同。 Sub過(guò)程通過(guò)形參與實(shí)參的傳遞得到結(jié)果，調(diào)用時(shí)可返回多個(gè)值。 Exit Sub的功能是退出Sub過(guò)程，其目的是用于提前結(jié)束本次過(guò)程調(diào)用。,4.2 Sub過(guò)程,4.2.1 Sub過(guò)程的定義,ByVal|ByRef 變量名( ) As 類型, 僅表示形式參數(shù)的類型、個(gè)數(shù)和次序； 在過(guò)程定義時(shí)并無(wú)具體值，也不分配存儲(chǔ)空間； 在過(guò)程被調(diào)用時(shí)，通過(guò)與實(shí)際參數(shù)結(jié)合獲得具體的值。 ByVal表示當(dāng)該過(guò)程被調(diào)用時(shí)，參數(shù)是按值傳遞的； ByRef表示當(dāng)該過(guò)程被調(diào)用時(shí)，參數(shù)是按地址傳遞的。 形式參數(shù)也可以是數(shù)組。 在例4.1中，也可以將形式參數(shù)寫(xiě)成如下形式： Private Sub Swap（ByRef A!，ByRef B!）,4.2 Sub過(guò)程,4.2.2 Sub過(guò)程的調(diào)用,Sub過(guò)程的調(diào)用格式如下： 過(guò)程名(實(shí)參列表) 為形參分配臨時(shí)的存儲(chǔ)單元； 將實(shí)參的值傳遞給形參對(duì)應(yīng)的臨時(shí)單元； 執(zhí)行過(guò)程體中的語(yǔ)句； 當(dāng)過(guò)程運(yùn)行結(jié)束后把臨時(shí)單元釋放掉； 執(zhí)行調(diào)用語(yǔ)句的下一條語(yǔ)句。,4.2 Sub過(guò)程,4.2.2 Sub過(guò)程的調(diào)用,Private Sub _ Button1_Click(ByVal sender _ As System.Object, ByVal e _ As System.EventArgs) _ Handles Button1.Click,Swap(X,Y),TxtOutput.Text = “X=” + _ X.ToString( ) + “ Y=” + _ Y.ToString( ),End Sub,Dim X，Y As Single X=3.95 ：Y=-12.2,Private Sub Swap（ByVal _ A As Single，ByVal B As _ Single）,Dim T As Single,End Sub,Swap(X,Y),3.95,-12.2,3.95,-12.2,T=A:,A=B:,B=T,3.95,3.95,-12.2,傳值過(guò)程,調(diào)用過(guò)程,實(shí)參： X Y,形參：A B,T,MENU,4.3 Function過(guò)程,4.3.1 Function過(guò)程的定義,Function過(guò)程的定義形式： Public|Private Static Function 過(guò)程名(形式參數(shù)列表)As 類型 Exit Function End Function,4.3 Function過(guò)程,4.3.1 Function過(guò)程的定義,Function過(guò)程以Function開(kāi)頭，以End Function結(jié)束，兩者之間稱為“過(guò)程體”。 過(guò)程體中至少有一條Return語(yǔ)句: Return 表達(dá)式。調(diào)用時(shí)，過(guò)程的返回值即該表達(dá)式的值。 “As 類型”指定Function過(guò)程返回值的數(shù)據(jù)類型。,4.3 Function過(guò)程,4.3.1 Function過(guò)程的定義,計(jì)算階乘的Function過(guò)程。 Function Fact(ByVal N As Integer) As Long Dim i As Integer Dim Result As Long Result=1 For i=1 to N Result = Result * i Next i Return Result End Function,4.3 Function過(guò)程,4.3.2 Function過(guò)程的調(diào)用,Function過(guò)程可以作為表達(dá)式的一個(gè)運(yùn)算分量來(lái)使用。它的調(diào)用形式為： 過(guò)程名 (實(shí)際參數(shù)表),4.3 Function過(guò)程,4.3.1 Function過(guò)程的定義,例如，調(diào)用計(jì)算階乘的Function過(guò)程的程序段代碼： Dim X As Integer,Y As Long X=Val(InputBox(“請(qǐng)輸入一個(gè)不大于10的自然數(shù)：”) Y=Fact(X),MENU,4.4 參數(shù)傳遞,設(shè)計(jì)過(guò)程時(shí)要指定形式參數(shù)，包括形式參數(shù)的個(gè)數(shù)及其類型； 在調(diào)用過(guò)程時(shí)，必須提供實(shí)際參數(shù)； 完成實(shí)際參數(shù)與形式參數(shù)的結(jié)合，稱為參數(shù)傳遞。 參數(shù)傳遞分傳值和引用兩種方式。,4.4 參數(shù)傳遞,4.4.1 形參與實(shí)參,形式參數(shù)是指在定義通用過(guò)程時(shí)，出現(xiàn)在過(guò)程名后一對(duì)圓括號(hào)的變量。 實(shí)際參數(shù)是指在調(diào)用通用過(guò)程時(shí)，出現(xiàn)在過(guò)程名后一對(duì)圓括號(hào)內(nèi)的變量、常量或表達(dá)式。 實(shí)參可以是常量、變量、表達(dá)式或數(shù)組名等形式。 形、實(shí)參表中的各個(gè)參數(shù)用逗號(hào)分隔。 在過(guò)程調(diào)用時(shí)，實(shí)際參數(shù)應(yīng)在個(gè)數(shù)、類型和次序上與形式參數(shù)保持一致。,4.4 參數(shù)傳遞,4.4.1 形參與實(shí)參,Function Fact(ByVal N As Integer) As Long Dim i As Integer Dim Result As Long Result=1 For i=1 to N Result = Result * i Next i Return Result End Function,Private Sub Button1_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button1.Click Dim X As Integer,Y As Long X=Val(InputBox(“請(qǐng)輸入一個(gè)不大于10的自然數(shù)：”) Y=Fact(X) End Sub,形參,實(shí)參,4.4 參數(shù)傳遞,4.4.2 傳值,ByVal表明調(diào)用過(guò)程時(shí)對(duì)應(yīng)的實(shí)參與形參之間按傳值方式傳遞數(shù)據(jù)。 系統(tǒng)為形參分配臨時(shí)存儲(chǔ)單元，并將實(shí)參的值傳送給形參； 在過(guò)程內(nèi)部改變形參的值時(shí)，并不會(huì)影響到實(shí)參的值。 實(shí)參可以是常量、變量或表達(dá)式，而變量必須有確定的值。,4.4 參數(shù)傳遞,4.4.2 傳值,【例4.2】 Private Function fun1(ByVal x%,ByVal y%) As Integer Dim sum As Integer x=x*x y=y*y sum=x+y Return sum End Function Private Sub Button1_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button1.Click Dim A ,B ,C As Integer A=5 B=8 C=fun1(A,B) TxtOutPut.Text = “A=“ + A.ToString() + “ “ + “B=“ + _ B.ToString() + “ 計(jì)算結(jié)果=“ + C.ToString() End Sub,Private Function fun1(ByVal x%,ByVal y%) As Integer Dim sum As Integer x=x*x y=y*y sum=x+y Return sum End Function,Private Sub Button1_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button1.Click Dim A ,B ,C As Integer A=5 B=8 C=fun1(A,B) TxtOutPut.Text = “A=“ + A.ToString() + “ “ + “B=“ + _ B.ToString() + “ 計(jì)算結(jié)果=“ + C.ToString() End Sub,4.4 參數(shù)傳遞,4.4.3 引用,ByRef表明調(diào)用過(guò)程時(shí)對(duì)應(yīng)的形參與實(shí)參之間按引用方式傳遞數(shù)據(jù)。 參數(shù)的傳遞是將實(shí)參的地址傳遞給形參，即形參與實(shí)參共享相同的存儲(chǔ)單元。 當(dāng)過(guò)程中對(duì)形參的值更改時(shí)，將更改相應(yīng)實(shí)參的值。 實(shí)參可以是變量或數(shù)組，而不能是常量或表達(dá)式。,4.4 參數(shù)傳遞,4.4.3 引用,Private Sub _ Button1_Click(ByVal sender _ As System.Object, ByVal e _ As System.EventArgs) _ Handles Button1.Click,Swap(X,Y),TxtOutput.Text = “X=” + _ X.ToString( ) + “ Y=” + _ Y.ToString( ),End Sub,Dim X，Y As Single X=3.95 ：Y=-12.2,Private Sub Swap（ByRef _ A As Single，ByRef B As _ Single）,Dim T As Single,End Sub,Swap(X,Y),3.95,-12.2,3.95,-12.2,T=A:,A=B:,B=T,3.95,3.95,-12.2,引 用 過(guò) 程,調(diào) 用 過(guò) 程,調(diào) 用 后,實(shí)參： X Y,形參：A B,T,4.4 參數(shù)傳遞,4.4.4 數(shù)組參數(shù),數(shù)組作為過(guò)程的參數(shù)，稱為數(shù)組參數(shù)。 不需指出數(shù)組的下標(biāo)上界； 需要指明數(shù)組的維數(shù)； 數(shù)組名后的括號(hào)不能省略； 參數(shù)傳遞只能是引用。 例如，定義以下過(guò)程： Private Sub fun2(ByRef a() As Integer) End Sub,4.4 參數(shù)傳遞,4.4.4 數(shù)組做參數(shù)（例4.3）,Private Function ArrSum(ByRef X() As Integer) As Integer Dim Sum，i As Integer Sum = 0 For i = 1 To X.GetUpperBound(0) Sum = Sum + X(i) Next i Return Sum End Function Private Sub Button1_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button1.Click Dim a(12) As Integer Dim i, b As Integer For i = 1 To 12 a(i) = Val(InputBox(“請(qǐng)收入“ + i.ToString() + “月份的收入：“) Next i b = ArrSum(a) MsgBox(“該職工的年輸入為：“ + b.ToString() End Sub,Private Function ArrSum(ByRef X() As Integer) As Integer Dim Sum，i As Integer Sum = 0 For i = 1 To X.GetUpperBound(0) Sum = Sum + X(i) Next i Return Sum End Function,Private Sub Button1_Click(ByVal sender As System.Object, ByVal _ e As System.EventArgs) Handles Button1.Click Dim a(12) As Integer Dim i, b As Integer For i = 1 To 12 a(i) = Val(InputBox(“請(qǐng)收入“ + i.ToString() + “月份的收入：“) Next i b = ArrSum(a) MsgBox(“該職工的年輸入為：“ + b.ToString() End Sub,MENU,4.5 變量的作用域與生存期,4.5.1 變量的作用域,1塊范圍,塊是由End、Else、Loop或Next語(yǔ)句終止的語(yǔ)句集合。例如： ForNext IfThenElseEnd If 在某塊內(nèi)聲明的變量只能在該塊內(nèi)使用。例如： If XYThen Dim T As Integer T=X : X=Y : Y=T End If,T的作用域,4.5 變量的作用域與生存期,4.5.1 變量的作用域,2過(guò)程范圍,在某過(guò)程內(nèi)聲明的變量只能在該過(guò)程內(nèi)部使用，該變量稱為“局部變量”。例如： Private Sub Button1_Click(ByVal sender As _ System.Object, ByVal e As System.EventArgs) _ Handles Button1.Click Dim AA As Integer End Sub,AA的作用域,4.5 變量的作用域與生存期,4.5.1 變量的作用域,Private Sub S1( ) Dim a, b As Integer a = 11 : b = 22： a = a + 1： b = b + 1 TxtOutPut.Text = “a=“ + a.ToString() + “ b=“ + b.ToString() End Sub Private Sub S2( ) Dim a, c As Integer a = 33 : c = 44: a = a 1: c = c 1 TxtOutPut.Text = “a=“ + a.ToString() + “ b=“ + b.ToString() End Sub Private Sub Button1_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button1.Click Call S1() MsgBox(“按任意鍵繼續(xù)！“) Call S2() End Sub,2過(guò)程范圍,Private Sub S1( ) Dim a, b As Integer a = 11 : b = 22： a = a + 1： b = b + 1 TxtOutPut.Text = “a=“ + a.ToString() + “ b=“ + b.ToString() End Sub,Private Sub S2( ) Dim a, c As Integer a = 33 : c = 44: a = a 1: c = c 1 TxtOutPut.Text = “a=“ + a.ToString() + “ b=“ + b.ToString() End Sub,Private Sub Button1_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button1.Click Call S1() MsgBox(“按任意鍵繼續(xù)！“) Call S2() End Sub,4.5 變量的作用域與生存期,4.5.1 變量的作用域,2過(guò)程范圍,全局變量在過(guò)程外部定義，可以被該模塊的所有過(guò)程調(diào)用。 【例4.5】局部變量與全局變量的區(qū)別。,Dim a As Integer Private Sub S1() Dim b As Integer b = 20 a = a + 1 b = b + 1 TxtOutPut.Text = “a=” + a.ToString() + “ b=” + b.ToString() End Sub Private Sub S2() Dim b As Integer b= 30 a = a +1 b = b +1 TxtOutPut.Text = “a=“ + a.ToString() + “ b=“ + b.ToString() End Sub Private Sub Button1_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button1.Click a=10 Call S1() MsgBox(“按任意鍵繼續(xù)！“) Call S2() End Sub,Dim a As Integer,Private Sub S1() Dim b As Integer b = 20 a = a + 1 b = b + 1 TxtOutPut.Text = “a=” + a.ToString（） + “ b=” + b.ToString（） End Sub,Private Sub S2() Dim b As Integer b= 30 a = a +1 b = b +1 TxtOutPut.Text = “a=” + a.ToString（） + “ b=” + b.ToString（） End Sub,Private Sub Button1_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button1.Click a=10 Call S1() MsgBox(“按任意鍵繼續(xù)！“) Call S2