VB過程講解ppt

1、1教學(xué)目的要求： 掌握過程的概念和調(diào)用 掌握子過程和函數(shù)的應(yīng)用 掌握虛實結(jié)合和變量的作用域教學(xué)重點： 子過程和函數(shù) 第4.5章 過 程2 VB應(yīng)用程序是由過程組成的，除了定義一些公共的常量、變量或數(shù)組外，編寫代碼都是在過程中進行的。 事件過程由VB預(yù)先定義，編程人員所要做的工作就是在已經(jīng)存在的過程中編寫代碼。 實際應(yīng)用中，為了使程序結(jié)構(gòu)清楚，或減少代碼的重復(fù)性，可將重復(fù)性較大的代碼段獨立出來形成一個過程，在需要使用該過程的位置可根據(jù)不同的參數(shù)調(diào)用該過程，實現(xiàn)該過程所規(guī)定的功能。這種獨立定義的過程叫做“通用過程”。 通用過程由編程人員建立，供事件過程或其他通用過程使用(調(diào)用)，通用過程也稱為“子

2、過程”或“子程序”，可以被多次調(diào)用。而調(diào)用該子過程的過程稱為“調(diào)用過程”。VB中，通用過程分為兩類：Function過程和Sub過程3調(diào)用過程調(diào)用Sprg1調(diào)用Sprg1調(diào)用Sprg2子過程：Sprg1子過程：Sprg2過程調(diào)用4 VB提供了豐富的內(nèi)部函數(shù)供用戶使用，如Sin函數(shù)、Sqr函數(shù)，使用這些函數(shù)時只需寫出函數(shù)名稱，并指定相應(yīng)的參數(shù)就能得到函數(shù)值。 當(dāng)在程序中要重復(fù)使用某一公式或處理某一函數(shù)關(guān)系，而又沒有現(xiàn)成的內(nèi)部函數(shù)可以使用時，可以自己定義函數(shù)，并采用與調(diào)用內(nèi)部函數(shù)相同的方法來調(diào)用自定義函數(shù)。 自定義函數(shù)通過Function過程實現(xiàn)。Function過程也稱為函數(shù)過程函數(shù)過程。 一、

3、 Function過程5（一） Function過程的定義 1Function過程的格式 Public | Private | Static Function () As = Exit FunctionEnd Function62說明 Public：可選項，缺省值。使用Public時表示所有模塊的所有其他過程都可以調(diào)用該Function過程。 Private：可選項。使用Private時表示只有本模塊中的其他過程才可以調(diào)用該Function過程。 Static：可選項。如果使用該選項，則VB只給過程中的所有局部變量分配一次存儲空間，即在應(yīng)用程序執(zhí)行期間，每次調(diào)用該Function過程時將保留該

4、過程中的局部變量值。若沒有使用該選項，則每次調(diào)用該Function過程時，其中的局部變量都要被重新初始化。 ：Function過程的名稱，遵循變量的命名規(guī)則。7 ：可選項。表示在調(diào)用時要傳遞給Function過程的參數(shù)變量列表。多個變量之間用逗號隔開。的格式為： ByVal | ByRef ( ) As 其中： ByVal為可選項，表示該參數(shù)按值傳遞; ByRef為可選項，缺省值，表示該參數(shù)按地址傳遞。 遵循變量命名規(guī)則的任何變量名或數(shù)組名。 ( )當(dāng)參數(shù)為數(shù)組時使用。 As為可選項，用于聲明參數(shù)的數(shù)據(jù)類型。8 As ：可選項。Function過程的返回值的數(shù)據(jù)類型,可以是Byte、Boole

5、an、Integer、Long、Currency、Single、Double、Date、String(固定長度除外)、Object、Variant或用戶自定義類型。 ：可選項。語句組中可以有一條或多條Exit Function語句。 Exit Function語句：從Function過程中退出。 ：可選項。Function過程通過賦值語句 “ = ”將函數(shù)的返回值賦給。如果省略該語句，則數(shù)值函數(shù)過程返回0，字符串函數(shù)過程返回空串。9Function過程的建立可以在窗體模塊中進行，也可以在標(biāo)準模塊中進行。建立的方法有以下兩種： Function過程的定義不能嵌套，即不能在Function過程中再

6、定義Function過程或Sub過程。例如，F(xiàn)unction Fact(N As Integer)，回車后，此時代碼窗口中即可在Function語句和End Function語句之間輸入程序代碼。1)直接在代碼窗口中輸入在代碼窗口中的所有過程之外，輸入過程的第一條語句。102)使用“添加過程命令。 打開代碼窗口，執(zhí)行“工具”菜單中的“添加過程”命令，彈出添加過程對話框，輸入過程名選擇類型選擇范圍11（二）Function過程的調(diào)用 定義函數(shù)過程的目的是為了在其他過程中調(diào)用，通過調(diào)用將一些參數(shù)值傳遞給函數(shù)過程，在函數(shù)過程中利用參數(shù)值計算并返回函數(shù)值。 Function過程的調(diào)用與內(nèi)部函數(shù)的調(diào)用類

7、似，即可以直接在表達式中調(diào)用。 格式： () 其中，為要調(diào)用的Function過程的名稱；為要傳送給Function過程的常量、變量或表達式，各參數(shù)之間用逗號分隔，如果是數(shù)組，在數(shù)組名之后必須跟一對空括號空括號。12Function過程定義及調(diào)用舉例過程定義Label2Label3Text113例例4-19 輸入輸入n,計算計算1!+2!+3!+n!(用函數(shù)過程實現(xiàn)用函數(shù)過程實現(xiàn))Function fact(x) t = 1 For i = 1 To x t = t * i Next i fact = tEnd FunctionPrivate Sub Command1_Click() n=in

8、putbox(“輸入輸入n值值”) sum = 0 For i = 1 To n sum = sum + fact(i) Next i Text1.Text = sumEnd Sub14 當(dāng)需要定義的過程返回一個值時，使用前面介紹的Function過程很容易實現(xiàn)，但在實際應(yīng)用中，可能希望過程不需要返回值，例如，使用過程打印一個圖形，或需要返回多個值； 如，利用過程對一批數(shù)據(jù)進行排序，或者要進行較復(fù)雜的操作，等等。在這些情況下就要利用Sub過程來實現(xiàn)。二、 Sub過程15（一） Sub過程的定義 1Sub過程的格式 Private | PublicStatic Sub () Exit Sub E

9、nd Sub16 2說明 格式中各項含義同F(xiàn)unction過程。Exit Sub用于退出Sub過程。 Sub過程的與Function過程的的含義與作用不同，只在調(diào)用Sub過程時使用，不具有值的意義，在Sub過程中不能給賦值，也不能給定義類型。 過程可以返回0到多個值，且由中的參數(shù)返回這些值。因此，使用函數(shù)過程可以實現(xiàn)的功能，也可以用Sub過程實現(xiàn)。 Sub過程的建立方法與Function過程的建立方法相同，可以在代碼窗口中直接輸入，也可通過執(zhí)行“工具”菜單中的“添加過程”命令生成過程模板。17（二） Sub過程的調(diào)用 定義一個Sub過程之后，必須使用Call語句調(diào)用該過程。 調(diào)用格式一：Cal

10、l () 調(diào)用格式二： ：要調(diào)用的Sub過程名。 ：要傳送給Sub過程的常量、變量或表達式，各參數(shù)之間用逗號分隔。如果是數(shù)組參數(shù)，則要在數(shù)組名之后跟一對空括號。 用Call語句調(diào)用一個Sub過程時，如果過程本身沒有參數(shù)，則省略和括號。 格式二省略了Call關(guān)鍵字，同時兩邊也不能帶括號。18例:在窗體上輸出n行*號Sub ab(n)for I=1 to nprint “*”next IEnd subPrivate sub command1-click()x=val(text1.text)call ab(x)End sub例4-18（89頁）19（一） 形參和實參 形參是在Sub過程、Functi

11、on過程的定義中出現(xiàn)的變量名，實參則是在調(diào)用Sub過程或Function過程時傳送給Sub過程或Function過程的常量、變量、表達式或數(shù)組。 在調(diào)用一個過程時，必須把實參傳送給過程，完成形參與實參的結(jié)合，然后用實參執(zhí)行調(diào)用的過程。這種參數(shù)的傳遞也稱為參數(shù)的結(jié)合。 三、 參數(shù)的傳遞20例如，定義如下一個過程：Sub SubTest(n As Integer, Sum As Single) End Sub 如果有以下調(diào)用語句：Call SubTest(a, s) 則其形參與實參的結(jié)合關(guān)系如下： 過程調(diào)用: Call SubTest(a, s) 過程定義: Sub SubTest(n As In

12、teger, Sum As Single) 在傳遞參數(shù)時，形參表與實參表中對應(yīng)參數(shù)的名字不必相同，但要求形參表與實參表中參數(shù)的個數(shù)、類型、位置順序必須一一對應(yīng)。 形參表中的參數(shù)可以是：除固定長度字符串之外的合法變量名，后面帶一對圓括號的數(shù)組名。 實參表中的參數(shù)可以是：常量、變量、表達式、后面帶一對圓括號的數(shù)組名。 VB中, 形參與實參的結(jié)合有兩種方式：按值傳遞和按地址傳遞。21（二） 按值傳遞和按地址傳遞 1按值傳遞 按值傳遞是指實參把其值傳遞給形參而不傳遞實參的地址。在這種情況下，系統(tǒng)把需要傳遞的參數(shù)復(fù)制到一個臨時存儲單元中，然后把臨時存儲單元與形參結(jié)合，在子程序執(zhí)行過程中，形參值的改變不會

13、影響主程序中實參的值，因此，數(shù)據(jù)的傳遞是單向的。例:sub power2(byval y as integer)y=y2print “y=“;y end sub private sub form_click()dim x as integerx=10call power2(x)print “x=“;x end sub222按地址傳遞 按地址傳遞即指將實參的地址傳給形參，使形參和實參具有相同的地址，即形參與實參共享同一存儲單元。當(dāng)實參為變量或數(shù)組時，形參使用關(guān)鍵字ByRef定義(或省略)，表示要按地址傳遞。 當(dāng)參數(shù)是數(shù)組時，數(shù)組名之后必須使用一對空的圓括號。 按地址傳遞可以實現(xiàn)調(diào)用過程與子過程之

14、間數(shù)據(jù)的雙向傳遞。 sub power(byref y as integer)233傳遞數(shù)組在VB中可以把數(shù)組或數(shù)組元素作為實參傳送給形參，若傳遞整個數(shù)組，需在實參和形參上都要寫上數(shù)組名和一對括號，若要傳遞數(shù)組的元素，則在實參上寫上該數(shù)組元素。 例4-20 隨機生成有10個元素的一維數(shù)組，并求其平方和。24在一個過程執(zhí)行期間又調(diào)用另一個過程,稱為過程的嵌套.程序S1 S2四、 過程的嵌套調(diào)用調(diào)用25 程序的遞歸過程（過程調(diào)用自身）26VB的程序模塊由一些過程組成，在過程中會使用到變量，包括在形參表中出現(xiàn)的變量以及不在形參數(shù)表中出現(xiàn)的變量。本節(jié)要討論的是不在形參表中出現(xiàn)的變量。變量的定義位置不同

15、，定義方式不同，允許被訪問的范圍和作用時間也不相同。變量的作用域即指變量的有效范圍。變量的生存期即指變量的作用時間。4.6 變量的作用域與生存期274.6.1 變量的作用域 變量的作用域決定了應(yīng)用程序中哪些過程可以訪問該變量。按變量的作用域不同，可以將變量分為：局部變量、窗體/模塊級變量和全局變量。 1局部變量 局部變量指在過程內(nèi)用Dim語句聲明的變量、未聲明而直接使用的變量、用Static聲明的變量。這種變量只能在本過程中使用，不能被其他過程訪問。在其他過程中如果有同名的變量，也與本過程的變量無關(guān)，即不同的過程中可以使用同名的變量。除了用Static聲明的變量外，局部變量在其所在的過程每次運

16、行時都被初始化。282模塊級變量 模塊級變量指在窗體模塊或標(biāo)準模塊的通用聲明段中用Dim語句或Private語句聲明的變量。模塊級變量的作用范圍為其定義位置所在的模塊，可以被本模塊中的所有過程訪問。模塊級變量在其所在的模塊運行時被初始化。例如：例如：在在“通用聲明通用聲明”段聲明如下變量段聲明如下變量Private s As StringDim a As Integer，b As Single3全局變量 全局變量指在模塊的通用聲明段中用Public語句聲明的變量，其作用范圍為應(yīng)用程序的所有過程。全局變量在應(yīng)用程序運行時被初始化。29例如：例如：在標(biāo)準模塊文件中進行不同級的變量聲明在標(biāo)準模塊文件

17、中進行不同級的變量聲明Public pa As integer 全局變量全局變量Private Mb as string * 10窗體窗體/模塊級變量模塊級變量Sub F1()Dim Fa As integer局部變量局部變量 End SubSub F2()Dim Fb As Single局部變量局部變量End Sub30同時還要說，若在不同級聲明相同變量名，如： Public Temp As integer全局變量Sub Form_Click()Dim Temp As Integer局部變量Temp=10訪問局部變量Form1.Temp=20訪問全局變量必須加窗體名Print Form1.T

18、emp,Temp顯示20和10End Sub 31作用域 局部變量模塊級變量 全局變量 窗體模塊 標(biāo)準模塊聲明方式 Dim、StaticDim、PrivatePublic聲明位置在過程中窗體模塊、標(biāo)準模塊的通用聲明段窗體模塊、標(biāo)準模塊的通用聲明段能否被本模塊中其他過程調(diào)用 否能能能否被本應(yīng)用程序中其他模塊調(diào)用 否否能，但要在變量名前加窗體名能變量的作用域及聲明、使用規(guī)則324.6.2 變量的生存期 當(dāng)一個過程被調(diào)用時，系統(tǒng)將給該過程中的變量分配存儲單元，當(dāng)該過程執(zhí)行結(jié)束時，是釋放還是保留變量的存儲單元，這就是變量的生存期問題。 根據(jù)變量的生存期，可以將變量分為動態(tài)變量和靜態(tài)變量。331動態(tài)變量

19、 在應(yīng)用程序中的變量如果不使用Static語句進行聲明，則屬于動態(tài)變量。 對于過程級的動態(tài)變量，在程序運行到變量所在的過程時，系統(tǒng)為變量分配存儲空間，并進行變量的初始化工作；當(dāng)該過程結(jié)束時，釋放變量所占用的存儲空間，其值不再存在。 模塊級動態(tài)變量在運行模塊時被初始化，在退出模塊時釋放其所占用的存儲空間。 全局級動態(tài)變量在應(yīng)用程序執(zhí)行時分配存儲空間，在退出應(yīng)用程序時釋放存儲空間。 342靜態(tài)變量 如果一個變量用Static語句聲明，則該變量只被初始化一次，在應(yīng)用程序運行期間保留其值，即在每次調(diào)用該變量所在的過程時，該變量不會被重新初始化，而在退出變量所在的過程時，不釋放該變量所占的存儲空間。聲明

20、靜態(tài)變量： Static As Static Function () As Static Sub 在Function過程、Sub過程的定義語句中使用Static修飾詞，表明該過程內(nèi)所有的局部變量均為靜態(tài)變量。35例:Static Sub SS1( ) For I = 1 To 10 S = S + I Next I Print SEnd SubPrivate Sub Command1_Click( ) Call SS1End Sub55110165555555取消Static36VB應(yīng)用程序由三種模塊組成，即窗體模塊(Form)、標(biāo)準模塊(Module)和類模塊(Class)。這些模塊通常保存

21、在具有特定類型名的文件中，窗體模塊保存在以.frm為類型名的文件中；標(biāo)準模塊保存在以.bas為類型名的文件中；類模塊保存在以.cls為類型名的文件中。5.5 代碼模塊37VB應(yīng)用程序的組成類模塊(.cls)文件標(biāo)準模塊(.bas)文件事件過程窗口模塊(.frm)文件應(yīng)用程序工程文件Function過程Sub過程Function過程Sub過程385.5.1 窗體模塊 窗體模塊是大多數(shù)VB應(yīng)用程序的基礎(chǔ)。 窗體模塊可以包含處理事件的過程、通用過程以及變量、常量、類型和外部過程的窗體級聲明。若要在文本編輯器中觀察窗體模塊，則還會看到窗體及其控件的描述，包括它們的屬性設(shè)置值。窗體模塊還可以引用該應(yīng)用程

22、序內(nèi)的其他窗體或?qū)ο蟆?95.5.2 標(biāo)準模塊 當(dāng)一個應(yīng)用程序含有多個窗體，且這些窗體都需要調(diào)用某一個通用過程時，就需要建立一個標(biāo)準模塊，在該標(biāo)準模塊中建立通用過程。標(biāo)準模塊可以包含變量、常量、外部過程和全局過程的全局(在整個應(yīng)用程序范圍內(nèi)有效的)聲明或模塊級聲明。缺省情況下，標(biāo)準模塊中的代碼是公有的，任何窗體或模塊中的事件過程或通用過程都可以訪問它。標(biāo)準模塊不與任何窗體相關(guān)聯(lián)。在標(biāo)準模塊中可以包含通用過程，但不能包含事件過程。 添加標(biāo)準模塊的步驟： 1)從“工程”菜單中執(zhí)行“添加模塊”命令，打開“添加模塊”對話框。 2)在“新建”選項卡中，雙擊“模塊”圖標(biāo)即可建立一個標(biāo)準模塊Modulel，

23、打開標(biāo)準模塊代碼窗口。405.5.3 類模塊 在VB中類模塊是面向?qū)ο缶幊痰幕A(chǔ)。 可在類模塊中編寫代碼建立新對象，這些新對象可以包含自定義的屬性和方法。實際上，窗體正是這樣一種類模塊，在其上可安放控件，可顯示窗體窗口。例題：例題：建立四個模塊，包括兩個窗體模塊（各創(chuàng)建兩個按鈕）和兩個標(biāo)準模塊，在每個模塊中建立通用過程Proce。并在不同模塊中互相調(diào)用這個過程。415.5.4 過程的作用域 在窗體模塊中可以建立事件過程、通用過程，在標(biāo)準模塊中只能建立通用過程。過程的建立位置不同，允許被訪問的范圍也不同。VB中，可以將過程的作用域分為模塊級和全局級。 在Sub過程或Function過程前如果加P

24、rivate關(guān)鍵字，則這種過程只能被其所在的窗體模塊或標(biāo)準模塊中的其他過程所調(diào)用，稱為模塊級過程。 在Sub過程或Function過程前如果加Public關(guān)鍵字，或者省略Public與Private關(guān)鍵字，這種過程可以被該應(yīng)用程序的所有窗體模塊或所有標(biāo)準模塊中的過程所調(diào)用，稱為全局過程。 全局過程所處的位置不同，其調(diào)用方式也有所區(qū)別。在窗體模塊內(nèi)定義的全局過程，其他模塊中的過程要調(diào)用時，必須在被調(diào)用過程名前加上其所在的窗體名；在標(biāo)準模塊內(nèi)定義的全局過程，其他模塊中的過程可直接調(diào)用，但被調(diào)用過程名必須惟一，否則要加上其所在的標(biāo)準模塊名。 42作用域 模塊級 全局級 窗體模塊 標(biāo)準模塊 窗體模塊

25、標(biāo)準模塊定義方式 過程名前加Private，例如： Private Sub Subl () 過程名前加Public，例如： Public Sub Sub2 (形參表) 能否被本模塊中其他過程調(diào)用 能能能能能否被本應(yīng)用程序中其他模塊調(diào)用 否否能，但必須在過程名前加窗體名，例如：Call Forml.Sub2 () 能，但過程名必須唯一，否則必須在過程名前加標(biāo)準模塊名，例如：Call Modulel.Sub2() 過程的作用域及過程定義、調(diào)用規(guī)則43【例】編寫Function過程求最大公約數(shù)，并通過命令按鈕的單擊事件過程調(diào)用該函數(shù)過程。44Function hcf(m As Integer, n

26、As Integer) As Integer Dim r As Integer r = m Mod n Do While r 0 m = n n = r r = m Mod n Loop hcf = nEnd FunctionPrivate Sub Command1_Click() Dim m As Integer, n As Integer m = Val(Text1.Text): n = Val(Text2.Text) Label3.Caption = “的最大公約數(shù)是：” & Str(hcf(m, n)End Sub45【例】利用Function過程計算階乘，求組合數(shù)。設(shè)計界面如下圖。T

27、ext2OLE1控件控件Text1Text3Command1BackStyle: 0 - TransparentBorderStyle: 0 NoneSizeMode: 2 - AutoSize46 定義求階乘的函數(shù)FactFunction Fact(n As Integer) As Double Dim F As Double, i As Integer F = 1 For i = 1 To n F = F * i Next i Fact = FEnd FunctionPrivate Sub Command1_Click() =按鈕的事件過程按鈕的事件過程 Dim m As Integer,

28、 n As Integer, c As Double m = Val(Text1.Text) n = Val(Text2.Text) c = Fact(m) / (Fact(n) * (Fact(m - n) 調(diào)用調(diào)用Fact Text3.Text = Trim(Str(c)End Sub47【例】將求組合數(shù)一題改成用Sub過程實現(xiàn)Sub Fact(N As Integer, F As Long) Dim I As Integer F = 1 For I = 1 To N F = F * I Next IEnd Sub48Private Sub Command1_Click() Dim M A

29、s Integer, N As Integer Dim f1 As Long, f2 As Long, f3 As Long M = Val(Text1.Text) : N = Val(Text2.Text) Call Fact(M, f1):Call Fact(N, f2):Call Fact(M - N, f3) Text3.Text = Trim(Str(f1 / (f2 * f3)End Sub49【例】編寫一個Sub過程，計算K個數(shù)的和，即1+2+K，并通過命令按鈕的單擊事件調(diào)用該過程計算S=1+(1+2)+(1+2+3)+ +(1+2+N)。 分析: 編寫一個Sub過程計算1+2+

30、K， 設(shè)參數(shù)K、S，參數(shù)S用于返回該和值。 Sub A1(K As Integer, S As Integer) S = 0 For J = 1 To K S = S + J Next J End Sub50Private Sub Command1_Click() Dim N As Integer, S1 As Integer, I As Integer N = Val(Text1.Text) For I = 1 To N 調(diào)用過程A1求1+2+I，和值返回到S1中 Call A1(I, S1) Sum = Sum + S1 Next I Text2.Text = SumEnd Sub51【例

31、】編寫一個計算乘冪的Function過程，用來計算x的y次冪，其中y0。單擊窗體時調(diào)用該過程打印51、52、53、54、55的值。 Function Power(x As Single, ByVal y As Integer) Dim result As Single result = 1 Do While y 0 result = result * x y = y - 1 Loop 52 Power = result End FunctionPrivate Sub Form_Click() Dim i As Integer For i = 1 To 5 Print Power(5, i) N

32、ext iEnd Sub思考: 如果取消過程Power中參數(shù)y前的關(guān)鍵字ByVal，則會出現(xiàn)什么情況？53例例:將輸入的十進制整數(shù)轉(zhuǎn)化為二進制數(shù)后輸出。數(shù)將輸入的十進制整數(shù)轉(zhuǎn)化為二進制數(shù)后輸出。數(shù)制的轉(zhuǎn)換通過子過程制的轉(zhuǎn)換通過子過程DectoBin實現(xiàn)。實現(xiàn)。對象屬性屬性值Form1Caption十進制轉(zhuǎn)換為二進制Label1Caption十進制數(shù)：Label2二進制數(shù)：Text1Text2Text空白Command1Caption轉(zhuǎn)換Command2Caption退出54Sub DectoBin(d As Integer, b As String) Dim r b = Do While d 0 r = d Mod 2 If r = 0 Then b = 0 & b Else b = 1 & b End If d = d 2 LoopEnd SubPri