第8章過程與函數(shù)2

1、1第8章2 在設(shè)計一個規(guī)模較大、復雜程度較高的程序時，在設(shè)計一個規(guī)模較大、復雜程度較高的程序時，往往根據(jù)需要按功能往往根據(jù)需要按功能將程序分解成若干個相對獨立將程序分解成若干個相對獨立的部分的部分，然后對每個部分分別編寫一段程序，這些，然后對每個部分分別編寫一段程序，這些程序段稱為程序段稱為 3VB子程序分類圖子程序分類圖是對是對進行處理的程序段進行處理的程序段4是指是指以規(guī)定語法結(jié)構(gòu)組織的以規(guī)定語法結(jié)構(gòu)組織的、可以被重復調(diào)用的可以被重復調(diào)用的、具具有特定功能的有特定功能的、相對獨立的相對獨立的程序段。程序段。 不與任何特定的事件過程相關(guān)聯(lián)，只能由別的過程調(diào)用不與任何特定的事件過程相關(guān)聯(lián)，只能

2、由別的過程調(diào)用 聲明聲明 Sub 過程過程就是在就是在的代碼窗口編寫一個能的代碼窗口編寫一個能實現(xiàn)預期功能的語句塊。實現(xiàn)預期功能的語句塊。 () Exit Sub 過程體過程體 5每個通用過程都有一個每個通用過程都有一個同一模塊中過程名不得重復。同一模塊中過程名不得重復。過程前加上過程前加上Public關(guān)鍵字關(guān)鍵字或缺省，則該過程為或缺省，則該過程為，過程前加上過程前加上Private關(guān)鍵字關(guān)鍵字，則該過程為，則該過程為，只有在聲明，只有在聲明它的模塊中才可以調(diào)用此過程。它的模塊中才可以調(diào)用此過程。在過程名前加上在過程名前加上Static關(guān)鍵字關(guān)鍵字，表明該過程的變量都是靜態(tài)變量。，表明該過程

3、的變量都是靜態(tài)變量。形參列表形參列表是傳遞到過程中的變量名是傳遞到過程中的變量名(多個時用多個時用“,”分隔分隔),它指明了調(diào)它指明了調(diào)用時傳遞給過程的參數(shù)的類型和個數(shù)用時傳遞給過程的參數(shù)的類型和個數(shù). 過程可以有參數(shù)，也可以不帶任何參數(shù)。根據(jù)需要而定過程可以有參數(shù)，也可以不帶任何參數(shù)。根據(jù)需要而定 格式為：格式為：ByVal|ByRef變量名變量名( ) AS 數(shù)據(jù)類型數(shù)據(jù)類型, ByVal 表示按值傳遞；表示按值傳遞；ByRef 表示按地址傳遞表示按地址傳遞6、過程內(nèi)不能再定義過程，過程定義也不能寫在事件過程內(nèi)、過程內(nèi)不能再定義過程，過程定義也不能寫在事件過程內(nèi)6Sub Tryout( x

4、 as integer , y as integer) x=x+100 y=y*6 Print x,y End Sub 建立通用過程可以使用以下兩種方法：建立通用過程可以使用以下兩種方法：7要執(zhí)行一個過程，必須調(diào)用該過程要執(zhí)行一個過程，必須調(diào)用該過程。調(diào)用的方法為：。調(diào)用的方法為： Call 過程名過程名(實參列表實參列表) 過程名過程名 Sub 過程的調(diào)用過程的調(diào)用例：要調(diào)用前面的例：要調(diào)用前面的Tryout過程，可以使用下面兩種方式：過程，可以使用下面兩種方式：Tryout(a , b) 或或 Tryout a , b主過程主過程Call 過程過程1End Sub過程過程1Call 過程過

5、程2End Sub過程過程2End Sub調(diào)用的本質(zhì)：轉(zhuǎn)入被調(diào)用過程去執(zhí)行調(diào)用的本質(zhì)：轉(zhuǎn)入被調(diào)用過程去執(zhí)行,完成后返回完成后返回8可以直接調(diào)用本模塊中聲明的過程或可以直接調(diào)用本模塊中聲明的過程或當定義的過程重名時，調(diào)用過程時，過程名前應加模塊名修當定義的過程重名時，調(diào)用過程時，過程名前應加模塊名修飾；飾；如果要調(diào)用如果要調(diào)用中聲明的中聲明的調(diào)用時過程名前調(diào)用時過程名前9Public Sub fact(ByVal n As Integer, sum As Long) Dim i As Integer sum = 1 For i = 1 To n sum = sum * i Next iEnd S

6、ubPrivate Sub Command1_Click() Dim a, b, c As Integer Dim x As Long a = 5: b = 7: c = 8 Call fact(a, x) s = x Call fact(b, x) s = s + x Call fact(c, x) s = s + x Text1.Text = sEnd Sub10Public Sub a1(n As Integer, s As Integer) s = 0 For j = 1 To n s = s + j Next jEnd SubPrivate Sub Command1_Click()

7、Dim k As Integer Dim s1 As Integer, i As Integer k = Val(Text1.Text) For i = 1 To k Call a1(i, s1) Sum = Sum + s1 Next i Text2.Text = SumEnd Sub11將將求三角形的面積求三角形的面積的代碼存放在的代碼存放在過程過程triarea(a,b,c)中，邊長中，邊長從三個文本框中輸入，如果符合構(gòu)成三角形的條件，則調(diào)用該從三個文本框中輸入，如果符合構(gòu)成三角形的條件，則調(diào)用該過程，否則調(diào)用過程，否則調(diào)用suberr過程。過程。 程序如下：程序如下：Private S

8、ub (area As Double, x As Double, y As Double, z As Double) Dim s As Double s = (x +y + z) / 2 area = Sqr(s - x) * (s - y) * (s - z) * s)End SubPrivate Sub suberr(intyrn As Integer) intyrn = MsgBox(請檢查您的數(shù)據(jù)請檢查您的數(shù)據(jù))End Sub12Private Sub Command1_Click() Dim a#, b#, c#, s# Dim intYesorNo As Integer a = V

9、al(Text1.Text) b = Val(Text2.Text) c = Val(Text3.Text) If a + b c And b + c a And c + a b Then Call triarea(s, a, b, c) 使用使用Call關(guān)鍵字，實際參數(shù)用括號括起來關(guān)鍵字，實際參數(shù)用括號括起來 Print 面積面積 =; s Else suberr intYesorNo 不使用不使用Call關(guān)鍵字，實際參數(shù)不用括號關(guān)鍵字，實際參數(shù)不用括號 End IfEnd Sub 13與與Sub 過程過程 的主要區(qū)別是：的主要區(qū)別是： Public|Private Static Funct

10、ion 函數(shù)過程名函數(shù)過程名 () As End Function在函數(shù)體內(nèi)，函數(shù)名可以當變量名使用，函數(shù)的返回值就是通過對函數(shù)名在函數(shù)體內(nèi)，函數(shù)名可以當變量名使用，函數(shù)的返回值就是通過對函數(shù)名的賦值語句來實現(xiàn)的。即函數(shù)值通過函數(shù)名返回。的賦值語句來實現(xiàn)的。即函數(shù)值通過函數(shù)名返回。函數(shù)體中的函數(shù)體中的Exit Function語句的功能是強制退出函數(shù)并返回語句的功能是強制退出函數(shù)并返回函數(shù)過程需要返回的值的類型由函數(shù)過程需要返回的值的類型由 As 設(shè)置。設(shè)置。14 函數(shù)名函數(shù)名()不能獨立成為語句，必須參加表達式的運算。不能獨立成為語句，必須參加表達式的運算。下面是已知直角三角形兩直角邊的值，

11、計算斜邊的函數(shù)。下面是已知直角三角形兩直角邊的值，計算斜邊的函數(shù)。 function myfun(A as integer,B as integer) as string myfun=sqr(A*A+B*B) End function 15將前面的兩個將前面的兩個Sub過程改為過程改為Function過程。過程。Private Function triarea( As Double, As Double, As Double) Dim s As Double s = (x + y + z) / 2 triarea = Sqr(s - x) * (s - y) * (s - z) * s)End

12、 FunctionPrivate Sub Command1_Click() Dim a#, b#, c#, s#, intYesorNo% a = Val(Text1.Text) : b = Val(Text2.Text) c = Val(Text3.Text) If a + b c And b + c a And c + a b Then Print 面積面積 =; triarea(a, b, c) Else intYesorNo = suberr( ) 無參數(shù)時，括號不能省略無參數(shù)時，括號不能省略 End IfEnd Sub168.3 過程中參數(shù)的傳送過程中參數(shù)的傳送通過全局變量實現(xiàn)各過程

13、中共享數(shù)據(jù)通過全局變量實現(xiàn)各過程中共享數(shù)據(jù)(即在即在“通用通用”部份部份定義的變量，由該模塊所有過程定義的變量，由該模塊所有過程共共享享)通過過程調(diào)用實參與形參的結(jié)合實現(xiàn)通過過程調(diào)用實參與形參的結(jié)合實現(xiàn)17Sub過程和過程和Function函數(shù)過程中的函數(shù)過程中的中的參中的參數(shù)稱為數(shù)稱為，在程序中調(diào)用，在程序中調(diào)用Sub過程過程和和Function函數(shù)過程時函數(shù)過程時中稱為實際參數(shù)中稱為實際參數(shù) 。 在調(diào)用過程時，在調(diào)用過程時，就是就是把把“實參實參”依次依次按位置按位置傳遞給傳遞給被調(diào)用過程的被調(diào)用過程的“形參形參” ，然后執(zhí)行被調(diào)用過程中的，然后執(zhí)行被調(diào)用過程中的語句。語句。 Print

14、greatcd(x, y) Public Function greatcd(m As Integer, n As Integer)與與 18 按值傳遞按值傳遞就是將就是將傳送給被調(diào)用過程中的傳送給被調(diào)用過程中的。即：即：系統(tǒng)把實參復制一份傳送給形參。系統(tǒng)把實參復制一份傳送給形參。這樣，這樣，被調(diào)用的過程如果被調(diào)用的過程如果改變了形參的值，也不會改變實參的值。改變了形參的值，也不會改變實參的值。 在在VB中，傳值方式的標志為：中，傳值方式的標志為：。 這種傳遞方式這種傳遞方式，19寫出下列程序的運行結(jié)果寫出下列程序的運行結(jié)果Sub tryout(ByVal x as integer, ByVal

15、 y as integer) x=x+100 y=y*6 print “x=“;x.”y=“;yEnd SubSub Form_click() Dim a%,b% a=10:b=20 tryout a,b Print “a=“;a,”b=“;bEnd Sub傳值：傳值：X=110 y=120a=10 b=2020 傳址方式是將實參在內(nèi)存的地址傳遞給形參，也就是實參、傳址方式是將實參在內(nèi)存的地址傳遞給形參，也就是實參、形參公用內(nèi)存的形參公用內(nèi)存的“地址地址”。 在在VB中，按址傳遞數(shù)據(jù)是在形參前加上中，按址傳遞數(shù)據(jù)是在形參前加上ByRef（默認方式）。（默認方式）。 這種傳遞方式這種傳遞方式，即

16、調(diào)用時實參將值傳，即調(diào)用時實參將值傳遞給形參；調(diào)用結(jié)束由形參將操作結(jié)果返回給實參。當用傳遞給形參；調(diào)用結(jié)束由形參將操作結(jié)果返回給實參。當用傳址方式時，址方式時， ByVal ByRef 21Sub tryout(ByRef x as integer, ByRef y as integer) x=x+100 y=y*6 print “x=“;x.”y=“;yEnd SubSub Form_click() Dim a%,b% a=10:b=20 tryout a,b Print “a=“;a,”b=“;bEnd Sub傳址：傳址：X=110 y=120a=110 b=120223、 數(shù)組作過程的參

17、數(shù)數(shù)組作過程的參數(shù) Visual Basic允許把數(shù)組作為實參傳送到過程中。數(shù)組作允許把數(shù)組作為實參傳送到過程中。數(shù)組作參數(shù)是通過傳地址方式傳送。在傳送數(shù)組時，除遵守參數(shù)傳參數(shù)是通過傳地址方式傳送。在傳送數(shù)組時，除遵守參數(shù)傳送的一般規(guī)則外，還應注意以下幾點：送的一般規(guī)則外，還應注意以下幾點： 1為了把一個數(shù)組的全部元素傳送給一個過程，應將數(shù)為了把一個數(shù)組的全部元素傳送給一個過程，應將數(shù)組名分別寫入形參表中，并略去數(shù)組的上下界，但括號不能組名分別寫入形參表中，并略去數(shù)組的上下界，但括號不能省略。省略。Private Sub Sort(a() As single) End Sub其中形參其中形參“

18、a( )”即為數(shù)組。即為數(shù)組。23 2被調(diào)過程可通過被調(diào)過程可通過Lbound和和Ubound函數(shù)確定實參數(shù)組函數(shù)確定實參數(shù)組的上、下界。的上、下界。 3當用數(shù)組作形參時，對應的實參必須也是數(shù)組，且類當用數(shù)組作形參時，對應的實參必須也是數(shù)組，且類型一致。型一致。 4實參和形參結(jié)合是按地址傳遞，即形參數(shù)組和實參數(shù)實參和形參結(jié)合是按地址傳遞，即形參數(shù)組和實參數(shù)組共用一段內(nèi)存單元。組共用一段內(nèi)存單元。 例如：定義了實參數(shù)組例如：定義了實參數(shù)組b(1 to 8)，給它們賦了值，調(diào)用，給它們賦了值，調(diào)用Sort()函數(shù)過程的形式如下：函數(shù)過程的形式如下： Sort b( ) 或或 Call Sort(

19、b() ) 實參數(shù)組后面的括號可以省略，但為便于閱讀，建議一實參數(shù)組后面的括號可以省略，但為便于閱讀，建議一般不要省略為好。般不要省略為好。 3、 數(shù)組作過程的參數(shù)數(shù)組作過程的參數(shù)24 調(diào)用時形參數(shù)組調(diào)用時形參數(shù)組a和實參數(shù)組和實參數(shù)組b虛實結(jié)合，共用一段內(nèi)存單虛實結(jié)合，共用一段內(nèi)存單元，如圖元，如圖6-7所示。因此在所示。因此在Sort()過程中改變數(shù)組過程中改變數(shù)組a的各元素值，的各元素值，也就相當于改變了實參數(shù)組也就相當于改變了實參數(shù)組b中對應的元素的值，當調(diào)用結(jié)束中對應的元素的值，當調(diào)用結(jié)束時，形參數(shù)組時，形參數(shù)組a成為無定義。成為無定義。 b(1) b(2) b(3) b(4) b(

20、5) b(6) b(7) b(8) a(1) a(2) a(3) a(4) a(5) a(6) a(7) a(8)參數(shù)為數(shù)組時虛實結(jié)合示意圖參數(shù)為數(shù)組時虛實結(jié)合示意圖 3、 數(shù)組作過程的參數(shù)數(shù)組作過程的參數(shù)25程序分析舉例Private Sub sub1 (x As Integer, y As Integer) Dim t As Integer x=x+y : y=x-y : x=x-yEnd SubPrivate Sub Form_Click() Dim a As Integer , b As Integer a = 15 : b = 25 Call sub1 (b, a) Print a

21、; b sub1 a , b Print a ; bEnd Sub26程序分析舉例Private Sub sub1(ByVal a As Integer , b As Integer) a = a + b : b = a + bEnd SubPrivate Sub form_click() Dim x As Integer , y As Integer x = 10 : y = 20 Call sub1(x, y) Print x; yEnd Sub27程序設(shè)計舉例 寫一個子程序 , 把一人十進制數(shù)轉(zhuǎn)換成二進制數(shù) , 并驗證其正確性。1、確定使用過程或函數(shù)來實現(xiàn)：根據(jù)子程序的被調(diào)用方式來確定：

22、如果被、確定使用過程或函數(shù)來實現(xiàn)：根據(jù)子程序的被調(diào)用方式來確定：如果被調(diào)用時當成表達式來使用，必須使用函數(shù)來實現(xiàn)，否則用過程實現(xiàn)；也可調(diào)用時當成表達式來使用，必須使用函數(shù)來實現(xiàn)，否則用過程實現(xiàn)；也可根據(jù)子程序在被調(diào)用時是否需要通過函數(shù)名返回一個值來確定，如需要，根據(jù)子程序在被調(diào)用時是否需要通過函數(shù)名返回一個值來確定，如需要，則必須使用函數(shù)來實現(xiàn)，否則則必須使用函數(shù)來實現(xiàn)，否則用過程實現(xiàn)。用過程實現(xiàn)。2、確定子程序名稱和框架、確定子程序名稱和框架3、確定參數(shù)形式：包括參數(shù)個數(shù)、類型、作用、確定參數(shù)形式：包括參數(shù)個數(shù)、類型、作用方法：依據(jù)子程序功能進行確定，即判斷該子程序功能的數(shù)據(jù)需求和需方法：依

23、據(jù)子程序功能進行確定，即判斷該子程序功能的數(shù)據(jù)需求和需要輸出哪些數(shù)據(jù)要輸出哪些數(shù)據(jù)4、設(shè)計子程序主體、設(shè)計子程序主體28Sub ShiToEr(shi As String, er As String) x = Val(shi) s = While x 0 m = x Mod 2 x = Int(x / 2) s = s & m Wend er = StrReverse(s)End SubPrivate Sub Command1_Click() Dim er As String Call ShiToEr(Text1.Text , er) Text2.Text = erEnd Sub1、用

24、過程實現(xiàn)、用過程實現(xiàn)29Function ShiToEr(shi As String) x = Val(shi) s = While x 0 m = x Mod 2 x = Int(x / 2) s = s & m Wend ShiToEr = StrReverse(s)End FunctionPrivate Sub Command1_Click() Dim er As String Text2.Text = ShiToEr(Text1.Text)End Sub2、用函數(shù)實現(xiàn)、用函數(shù)實現(xiàn)30 在過程的形參列表中加入在過程的形參列表中加入Optional關(guān)鍵字關(guān)鍵字，就可以，就可以指定過

25、程的參數(shù)為可選的。如果指定了可選參數(shù)，則指定過程的參數(shù)為可選的。如果指定了可選參數(shù)，則參參數(shù)表中此參數(shù)后面的其它參數(shù)也必是可選的數(shù)表中此參數(shù)后面的其它參數(shù)也必是可選的，并且要用，并且要用Optional關(guān)鍵字來聲明。關(guān)鍵字來聲明。 求兩個數(shù)的和的函數(shù)過程。求兩個數(shù)的和的函數(shù)過程。 函數(shù)過程：函數(shù)過程：Public Function mysum (first As Integer, second As Long, Optional third ) mysum = first + second If Not IsMissing(third) Then mysum = mysum + thirdEn

26、d Function31事件過程：事件過程：Private Sub Command1_Click() Dim a As Integer, b As Long, c As Double Dim sum As Integer a = 10: b = 20 Sum=mysum(a, b) Print sum=; Sum a = 10: b = 20: c = 30 Sum=mysum(a, b, c) Print sum=; SumEnd Sub IsMissing( )32 一般說來，過程調(diào)用中的參數(shù)個數(shù)應等于過程說明一般說來，過程調(diào)用中的參數(shù)個數(shù)應等于過程說明的參數(shù)個數(shù)。的參數(shù)個數(shù)。在傳遞參數(shù)時

27、，在傳遞參數(shù)時，如果要求參數(shù)的數(shù)目可以如果要求參數(shù)的數(shù)目可以變化變化，則在函數(shù)過程或，則在函數(shù)過程或Sub過程的過程的ParamArray關(guān)鍵字關(guān)鍵字（不能與（不能與ByVal ByDef連用）連用）指明。指明。 格式如下：格式如下：Sub 過程名過程名( 其他參數(shù)其他參數(shù), ParamArray ( ) ) 33Private Sub Command1_Click() Dim s( ), a%, b As Long, c As Variant, d As Double s = Array(1, 2, 3, 4, 5) Print sum=; multisum( s(0), s(2), s(4

28、) ) a = 1000: b = 10000: c = 100: d = 10 Print sum=; multisum( a, b, c, d )End Sub Public Function multisum( ParamArray p() ) Dim int1%, sum as variant For int1= LBound(p) To UBound(p) sum = sum + p(int1) Next multisum=sum End Sub348.5對象參數(shù) 窗體參數(shù) 形參定義格式: 形參名 As form 調(diào)用時實參: 必須為某個窗體名稱 控件參數(shù): 形參定義格式: 形參名

29、As Control 調(diào)用時實參: 可為任意一個控件對象358.6 過程的嵌套和遞歸過程的嵌套和遞歸1、 過程的嵌套過程的嵌套 在程序中調(diào)用一子過程，而在子過程中又調(diào)用另外的子過在程序中調(diào)用一子過程，而在子過程中又調(diào)用另外的子過程，這種程序結(jié)構(gòu)稱為程，這種程序結(jié)構(gòu)稱為過程的嵌套。過程的嵌套。過程的嵌套調(diào)用執(zhí)行過過程的嵌套調(diào)用執(zhí)行過程如程如下圖：下圖：362、 過程的遞歸調(diào)用過程的遞歸調(diào)用 用自身的結(jié)構(gòu)來描述自身，稱遞歸。例如，對階乘的定義：用自身的結(jié)構(gòu)來描述自身，稱遞歸。例如，對階乘的定義：)!2() 1()!1()!1(!nnnnnn Visual Basic允許在一個允許在一個Sub子過程

30、和子過程和Function過程的定過程的定義內(nèi)部調(diào)用自己，即遞歸義內(nèi)部調(diào)用自己，即遞歸Sub子過程和遞歸子過程和遞歸Function函數(shù)。函數(shù)。 直接調(diào)用自己稱為直接遞歸調(diào)用直接調(diào)用自己稱為直接遞歸調(diào)用 間接調(diào)用自己稱為間接遞歸調(diào)用間接調(diào)用自己稱為間接遞歸調(diào)用6.6 過程的嵌套和遞歸調(diào)用過程的嵌套和遞歸調(diào)用37Private Function fac(n As Integer) As Integer If n = 1 Then fac = 1 Else fac = n * fac(n - 1) End IfEnd FunctionPrivate Sub Form_Click() Print “fac(