VB計算機語言基礎(chǔ)第五章--過程

1、第五章第五章 過程過程計算機程序設(shè)計基礎(chǔ)計算機程序設(shè)計基礎(chǔ)生物醫(yī)學工程學院 計算機教研室VB語言-過程第五章第五章 過程過程計算機程序設(shè)計基礎(chǔ)計算機程序設(shè)計基礎(chǔ)生物醫(yī)學工程學院 計算機教研室2main contents 子過程的定義與調(diào)用子過程的定義與調(diào)用 函數(shù)過程的定義與調(diào)用函數(shù)過程的定義與調(diào)用 參數(shù)傳遞參數(shù)傳遞重點重點過程的遞歸調(diào)用過程的遞歸調(diào)用難點難點變量的作用范圍變量的作用范圍第五章第五章 過程過程計算機程序設(shè)計基礎(chǔ)計算機程序設(shè)計基礎(chǔ)生物醫(yī)學工程學院 計算機教研室3驗證哥德巴赫猜想：驗證哥德巴赫猜想： 任一大于任一大于2 2的偶數(shù)都的偶數(shù)都可寫成兩個質(zhì)數(shù)之和。可寫成兩個質(zhì)數(shù)之和。第五章

2、第五章 過程過程計算機程序設(shè)計基礎(chǔ)計算機程序設(shè)計基礎(chǔ)生物醫(yī)學工程學院 計算機教研室4過程（過程（ProcedureProcedure）是一組能夠完成特定功能的代是一組能夠完成特定功能的代碼，以一個名字來標識，用這個名字來調(diào)用。碼，以一個名字來標識，用這個名字來調(diào)用。 過程的兩個重要作用：過程的兩個重要作用： 以大化小使程序具有清晰的模塊化結(jié)構(gòu)，便于多以大化小使程序具有清晰的模塊化結(jié)構(gòu)，便于多個程序員的協(xié)同工作。個程序員的協(xié)同工作。 編寫具有通用性的獨立過程，便于重復(fù)調(diào)用，從編寫具有通用性的獨立過程，便于重復(fù)調(diào)用，從而簡化程序。而簡化程序。過程分為：自定義子過程、函數(shù)過程、事件過程過程分為：自定

3、義子過程、函數(shù)過程、事件過程第五章第五章 過程過程計算機程序設(shè)計基礎(chǔ)計算機程序設(shè)計基礎(chǔ)生物醫(yī)學工程學院 計算機教研室5自定義子過程：自定義子過程：由程序員自己編寫，用來求解特定重由程序員自己編寫，用來求解特定重復(fù)任務(wù)的子過程。復(fù)任務(wù)的子過程。子過程的調(diào)用及返回：子過程的調(diào)用及返回： 5.1 子過程的定義與調(diào)用子過程的定義與調(diào)用第五章第五章 過程過程計算機程序設(shè)計基礎(chǔ)計算機程序設(shè)計基礎(chǔ)生物醫(yī)學工程學院 計算機教研室6子過程的程序定義：子過程的程序定義：Sub (形式參數(shù)表形式參數(shù)表)Exit Sub 需要時提前退出子過程需要時提前退出子過程End Sub子過程的調(diào)用：子過程的調(diào)用：l 使用使用C

4、all關(guān)鍵字調(diào)用關(guān)鍵字調(diào)用- Call 過程名過程名(實際參數(shù)表實際參數(shù)表) 例：例：call t(1,2)l 直接調(diào)用直接調(diào)用- 過程名過程名 實際參數(shù)表實際參數(shù)表 例：例：t 1,2第五章第五章 過程過程計算機程序設(shè)計基礎(chǔ)計算機程序設(shè)計基礎(chǔ)生物醫(yī)學工程學院 計算機教研室7Private Sub Hello() 定義名為Hello的無參數(shù)子過程 MsgBox 您好！五一節(jié)快樂！End Sub Private Sub Form_Click() Call Hello 調(diào)用名為Hello的無參數(shù)子過程End Sub例例5.1 無參數(shù)的無參數(shù)的“節(jié)日問候節(jié)日問候”通用子過程通用子過程第五章第五章 過

5、程過程計算機程序設(shè)計基礎(chǔ)計算機程序設(shè)計基礎(chǔ)生物醫(yī)學工程學院 計算機教研室8Private Sub Command1_Click()Call Hello(Text1, Text2, Text3)Call Hello Text1, Text2, Text3 End SubPrivate Sub Hello(name1 As String, job1 As String, festival As String) Dim a As String, b As String a = 您好！值此 b = 來臨之際，向您和您的全家致以親切的問候。 MsgBox name1 & job1 & a

6、 & festival & bEnd Sub例例5.2 帶參數(shù)的帶參數(shù)的“節(jié)日問候節(jié)日問候” 子過程子過程第五章第五章 過程過程計算機程序設(shè)計基礎(chǔ)計算機程序設(shè)計基礎(chǔ)生物醫(yī)學工程學院 計算機教研室9SUB MAIN( )子過程子過程 Sub Main( )是標準模塊中一個具有特殊作用的子過程，通常用于創(chuàng)建應(yīng)用程序的初始化條件。每個工程只能有一個Sub Main( )子過程。 這個通用子過程可以設(shè)置在應(yīng)用程序啟動時首先被調(diào)用。Sub Main() x = InputBox(請輸入密碼：, 密碼)If x = 12345 Then Form1.Show Else MsgBox (密碼

7、不正確，即將關(guān)閉程序)End Sub第五章第五章 過程過程計算機程序設(shè)計基礎(chǔ)計算機程序設(shè)計基礎(chǔ)生物醫(yī)學工程學院 計算機教研室101.1.函數(shù)過程與自定義子過程的區(qū)別：函數(shù)過程與自定義子過程的區(qū)別：函數(shù)執(zhí)行完后將得到一個返回值，而子過程只是函數(shù)執(zhí)行完后將得到一個返回值，而子過程只是執(zhí)行一系列動作，沒有返回值。執(zhí)行一系列動作，沒有返回值。2.2.函數(shù)過程的定義：函數(shù)過程的定義：Function Function (形式參數(shù)表形式參數(shù)表)As )As 函數(shù)類型函數(shù)類型 程序代碼程序代碼函數(shù)過程名函數(shù)過程名= = 返回值表達式返回值表達式 End Function End Function 5.2 函

8、數(shù)過程的定義與調(diào)用函數(shù)過程的定義與調(diào)用第五章第五章 過程過程計算機程序設(shè)計基礎(chǔ)計算機程序設(shè)計基礎(chǔ)生物醫(yī)學工程學院 計算機教研室11Private Sub Form_Click() Dim a!, b!, c! a = Val(InputBox(第一個數(shù)：, 輸入) b = Val(InputBox(第二個數(shù)：, 輸入) c = MaxValue(a, b) Print 較大的數(shù)值 =; cEnd SubFunction MaxValue(x!, y!) As Single MaxValue = IIf( x y, x, y)End Function例例5.3 根據(jù)鍵盤輸入的兩個數(shù)值，調(diào)用根據(jù)鍵

9、盤輸入的兩個數(shù)值，調(diào)用MaxValue函數(shù)求函數(shù)求得其中較大的一個得其中較大的一個 調(diào)用函數(shù)過程時應(yīng)注意：調(diào)用函數(shù)過程時應(yīng)注意：函數(shù)過程的調(diào)用方式與標準函數(shù)函數(shù)過程的調(diào)用方式與標準函數(shù)相同，作為表達式中的一個部分相同，作為表達式中的一個部分被引用。被引用。引用時參數(shù)表必須放在括號內(nèi)引用時參數(shù)表必須放在括號內(nèi)所使用的參數(shù)的個數(shù)、位置和類所使用的參數(shù)的個數(shù)、位置和類型必須與函數(shù)中的聲明一致。型必須與函數(shù)中的聲明一致。第五章第五章 過程過程計算機程序設(shè)計基礎(chǔ)計算機程序設(shè)計基礎(chǔ)生物醫(yī)學工程學院 計算機教研室12l形式參數(shù)形式參數(shù)定義子過程和函數(shù)過程時定義子過程和函數(shù)過程時，通常都會包括須從外部獲取的，

10、通常都會包括須從外部獲取的參數(shù)，這些參數(shù)也稱為形式參數(shù)。在過程被調(diào)用前，形式參數(shù)，這些參數(shù)也稱為形式參數(shù)。在過程被調(diào)用前，形式參數(shù)既不占有實際的存儲空間，也沒有值。參數(shù)既不占有實際的存儲空間，也沒有值。 l實際參數(shù)實際參數(shù)在在調(diào)用子過程或函數(shù)過程時調(diào)用子過程或函數(shù)過程時，必須把要處理的數(shù)據(jù)提供給，必須把要處理的數(shù)據(jù)提供給被調(diào)用的過程。這些數(shù)據(jù)稱為實際參數(shù)，將實際參數(shù)傳遞被調(diào)用的過程。這些數(shù)據(jù)稱為實際參數(shù)，將實際參數(shù)傳遞給形式參數(shù)，由被調(diào)用的過程來處理。給形式參數(shù)，由被調(diào)用的過程來處理。Call Post( 6 Call Post( 6 ， 8 ) 8 ) 實際參數(shù)實際參數(shù) Sub Post(x

11、 As Single, y As Single) Sub Post(x As Single, y As Single) 形式參數(shù)形式參數(shù)5.3 參數(shù)傳遞參數(shù)傳遞第五章第五章 過程過程計算機程序設(shè)計基礎(chǔ)計算機程序設(shè)計基礎(chǔ)生物醫(yī)學工程學院 計算機教研室13參數(shù)的傳遞方式參數(shù)的傳遞方式l按地址傳遞（按地址傳遞（ByRefByRef）這是默認的參數(shù)傳遞方式這是默認的參數(shù)傳遞方式。在被調(diào)用過程中對形式。在被調(diào)用過程中對形式參數(shù)所做的任何修改，也就是對實際參數(shù)的修改。參數(shù)所做的任何修改，也就是對實際參數(shù)的修改。l按值傳遞（按值傳遞（ByValByVal）如果在過程定義時，形式參數(shù)前面用關(guān)鍵字如果在過程定義

12、時，形式參數(shù)前面用關(guān)鍵字ByValByVal界定，就是按值傳遞方式。被調(diào)用過程運行期間形界定，就是按值傳遞方式。被調(diào)用過程運行期間形式參數(shù)的任何變化，對實際參數(shù)不會產(chǎn)生任何影響。式參數(shù)的任何變化，對實際參數(shù)不會產(chǎn)生任何影響。第五章第五章 過程過程計算機程序設(shè)計基礎(chǔ)計算機程序設(shè)計基礎(chǔ)生物醫(yī)學工程學院 計算機教研室14Private Sub Form_Click()Dim a As Single, b As Single, c As Single a = InputBox(第一個直角邊的值：) b = InputBox(第二個直角邊的值：) Call Hypotenuse(a, b) Print

13、兩直角邊分別為：; a; bEnd SubPrivate Sub Hypotenuse(x!, y!) Dim c As Single x = x 2: y = y 2 c = Sqr(x + y) Print 直角三角形斜邊的值 =; cEnd Sub 例例5.4 計算直角三角形的斜邊計算直角三角形的斜邊按地址傳遞（按地址傳遞（ByRefByRef）第五章第五章 過程過程計算機程序設(shè)計基礎(chǔ)計算機程序設(shè)計基礎(chǔ)生物醫(yī)學工程學院 計算機教研室15Private Sub Form_Click()Dim a As Single, b As Single, c As Single a = InputBo

14、x(第一個直角邊的值：) b = InputBox(第二個直角邊的值：) Call Hypotenuse(a, b) Print 兩直角邊分別為：; a; bEnd SubPrivate Sub Hypotenuse(ByVal x!, ByVal y!) Dim c As Single x = x 2: y = y 2 c = Sqr(x + y) Print 直角三角形斜邊的值 =; cEnd Sub 例例5.4 計算直角三角形的斜邊計算直角三角形的斜邊按值傳遞（按值傳遞（ByValByVal）第五章第五章 過程過程計算機程序設(shè)計基礎(chǔ)計算機程序設(shè)計基礎(chǔ)生物醫(yī)學工程學院 計算機教研室16數(shù)組

15、參數(shù)只能按地址傳遞，而不能按值傳遞。數(shù)組參數(shù)只能按地址傳遞，而不能按值傳遞。 在過程定義時，若以數(shù)組作為過程的參數(shù)，在過程定義時，若以數(shù)組作為過程的參數(shù)，則形式參數(shù)表中的數(shù)組名后要有一對空的圓括號則形式參數(shù)表中的數(shù)組名后要有一對空的圓括號表示。表示。 例：例：Private Sub sum(x() As Integer) 而在過程調(diào)用時，實際參數(shù)表中的數(shù)組可以而在過程調(diào)用時，實際參數(shù)表中的數(shù)組可以只用數(shù)組名表示，圓括號可以省略。只用數(shù)組名表示，圓括號可以省略。數(shù)組作為參數(shù)傳遞數(shù)組作為參數(shù)傳遞第五章第五章 過程過程計算機程序設(shè)計基礎(chǔ)計算機程序設(shè)計基礎(chǔ)生物醫(yī)學工程學院 計算機教研室17Privat

16、e Sub Form_Click()Dim a%(9), s%Print 數(shù)組各元素的值為： For i = 0 To 9 a(i) = Int(Rnd * 10) Print a(i); Next iPrintPrint “總和為：; sum(a)End Sub例例5.5 利用利用sum子過程求數(shù)組各元素的和子過程求數(shù)組各元素的和Function sum%(x%()For i = LBound(x) To UBound(x) sum = sum + x(i)Next iEnd Function第五章第五章 過程過程計算機程序設(shè)計基礎(chǔ)計算機程序設(shè)計基礎(chǔ)生物醫(yī)學工程學院 計算機教研室18驗證哥德

17、巴赫猜想：驗證哥德巴赫猜想： 任一大于任一大于2 2的偶數(shù)都的偶數(shù)都可寫成兩個質(zhì)數(shù)之和?？蓪懗蓛蓚€質(zhì)數(shù)之和。實例練習實例練習第五章第五章 過程過程計算機程序設(shè)計基礎(chǔ)計算機程序設(shè)計基礎(chǔ)生物醫(yī)學工程學院 計算機教研室19分析：分析：（1）取出從起始數(shù)至終止數(shù)的每個數(shù)i（2）對每一個i，取2至i/2的每一個數(shù)j，分別判斷j和i-j是否同時為素數(shù)（3）如果同為素數(shù)，則輸出第五章第五章 過程過程計算機程序設(shè)計基礎(chǔ)計算機程序設(shè)計基礎(chǔ)生物醫(yī)學工程學院 計算機教研室20主過程：主過程：Private Sub Command1_Click()Dim i%, j%a = Val(Text1) : b = Val(

18、Text2)If a Mod 2 0 Then a = a + 1For i = a To b Step 2Next iEnd SubFor j = 2 To i / 2 If PrimeMagic(j) And PrimeMagic(i - j) Then Picture1.Print i & = & j & + & i - j & ; Exit For End IfNext j第五章第五章 過程過程計算機程序設(shè)計基礎(chǔ)計算機程序設(shè)計基礎(chǔ)生物醫(yī)學工程學院 計算機教研室21函數(shù)過程函數(shù)過程:Public Function PrimeMagic(a%) As

19、 BooleanDim t As Booleant = True定義并豎起標旗For i = 2 To Sqr(a) If a Mod i = 0 Then如果有一個i能整除a t = False則倒下標旗，表示a不是一個素數(shù) Exit For End IfNext iIf t = True Then根據(jù)標旗，返回True或False PrimeMagic = TrueElse PrimeMagic = FalseEnd IfEnd Function第五章第五章 過程過程計算機程序設(shè)計基礎(chǔ)計算機程序設(shè)計基礎(chǔ)生物醫(yī)學工程學院 計算機教研室225.4 過程的遞歸調(diào)用過程的遞歸調(diào)用1)1)遞歸的概念

20、遞歸的概念 在過程自身結(jié)構(gòu)內(nèi)部來調(diào)用自身，稱為遞歸調(diào)用2)2)遞歸的分類遞歸的分類 直接遞歸：一個過程在執(zhí)行時直接調(diào)用過程本身 間接遞歸：過程A在執(zhí)行時調(diào)用過程B，而過程B又調(diào)用過程A第五章第五章 過程過程計算機程序設(shè)計基礎(chǔ)計算機程序設(shè)計基礎(chǔ)生物醫(yī)學工程學院 計算機教研室23例：有如下子過程例：有如下子過程Sub1Sub Sub1() End Sub第五章第五章 過程過程計算機程序設(shè)計基礎(chǔ)計算機程序設(shè)計基礎(chǔ)生物醫(yī)學工程學院 計算機教研室Sub Sub1()Y=Sub1(n)End Sub24進行如下形式的調(diào)用進行如下形式的調(diào)用Sub Form_Click()Call Sub1End SubSu

21、b Sub1()Y=Sub1(n)End Sub過程的嵌套調(diào)用過程的嵌套調(diào)用第五章第五章 過程過程計算機程序設(shè)計基礎(chǔ)計算機程序設(shè)計基礎(chǔ)生物醫(yī)學工程學院 計算機教研室25例例5.6 用遞歸的方法計算用遞歸的方法計算Fac(n)=n!分析：根據(jù)階乘的定義改寫成遞歸的形式：分析：根據(jù)階乘的定義改寫成遞歸的形式： n!=nn!=n* *(n-1)!(n-1)! (n-1)!=(n-1) (n-1)!=(n-1)* *(n-2)!(n-2)! 1!=1 1!=1由此得到遞歸公式如下：由此得到遞歸公式如下： 注意：遞歸的結(jié)束條件為注意：遞歸的結(jié)束條件為n=0n=0或或1 1時，時，n!=1n!=1)!1(

22、*1!nnn1)1 , 0(nn第五章第五章 過程過程計算機程序設(shè)計基礎(chǔ)計算機程序設(shè)計基礎(chǔ)生物醫(yī)學工程學院 計算機教研室26主調(diào)過程主調(diào)過程Option ExplicitPrivate Sub Form_Click() Dim F%, x% x = InputBox( ) F = Fac (x) Print x; ! =; FEnd Sub函數(shù)過程函數(shù)過程Function Fac%(n As Integer) If n = 0 Or n = 1 Then Fac= 1 Else Fac = n*Fac (n - 1) End IfEnd Functionxn第五章第五章 過程過程計算機程序設(shè)計

23、基礎(chǔ)計算機程序設(shè)計基礎(chǔ)生物醫(yī)學工程學院 計算機教研室27 Fac(4)=4* Fac(3) Fac(3)=3* Fac(2) Fac(2)=2* Fac(1) Fac(1)=1 Fac(2)=1*2 Fac(3)=1*2*3 Fac(4)=1*2*3*4 遞推遞推 回回歸歸第五章第五章 過程過程計算機程序設(shè)計基礎(chǔ)計算機程序設(shè)計基礎(chǔ)生物醫(yī)學工程學院 計算機教研室28函數(shù)過程函數(shù)過程Function Fac% (n % ) If n = 0 Or n = 1 Then Fac= 1 Else Fac = n*Fac (n - 1) End IfEnd Function 第五章第五章 過程過程計算機

24、程序設(shè)計基礎(chǔ)計算機程序設(shè)計基礎(chǔ)生物醫(yī)學工程學院 計算機教研室29l使用遞歸算法必須要注意以下兩點：使用遞歸算法必須要注意以下兩點：設(shè)定遞歸結(jié)束條件及結(jié)束時的值設(shè)定遞歸結(jié)束條件及結(jié)束時的值能用遞歸形式表示，并且遞歸向結(jié)束條件能用遞歸形式表示，并且遞歸向結(jié)束條件發(fā)展發(fā)展第五章第五章 過程過程計算機程序設(shè)計基礎(chǔ)計算機程序設(shè)計基礎(chǔ)生物醫(yī)學工程學院 計算機教研室30運行下面的程序，當單擊窗體之后，窗體上顯運行下面的程序，當單擊窗體之后，窗體上顯示內(nèi)容是什么？示內(nèi)容是什么？Private Sub Form_Click() Test 2End SubPrivate Sub Test(x%) x = x *

25、2 + 1 If x 6 Then Call Test(x) End If x = x * 2 + 1 Me.Print xEnd Sub 第一次調(diào)用2xx=2*2+1=56x=11*2+1=23Print x 23x=23*2+1=47Print x 47第五章第五章 過程過程計算機程序設(shè)計基礎(chǔ)計算機程序設(shè)計基礎(chǔ)生物醫(yī)學工程學院 計算機教研室31斐波那契數(shù)列問題 “如果1對兔子每月能繁殖1對小兔子，而每對小兔在它出生后的第3個月里，又能繁殖1對小兔子，假定在不發(fā)生死亡的情況下，由1對初生的兔子開始，1年后能繁殖成多少對兔子？” 函數(shù)表達式： 12( )(1)(2)2xf nf nf nx第五

26、章第五章 過程過程計算機程序設(shè)計基礎(chǔ)計算機程序設(shè)計基礎(chǔ)生物醫(yī)學工程學院 計算機教研室32斐波那契數(shù)列問題求解Private Sub Form_Click() Print fibonacci(12)End SubFunction fibonacci(x as integer) If x=1 or x=2 then fib = 1 Else fibonacci=fibonacci(x-1)+ fibonacci(x-2) End IfEnd Function第五章第五章 過程過程計算機程序設(shè)計基礎(chǔ)計算機程序設(shè)計基礎(chǔ)生物醫(yī)學工程學院 計算機教研室33lDimDim語句語句自動變量自動變量l作用范圍取

27、決于其聲明的位置作用范圍取決于其聲明的位置lStaticStatic語句語句靜態(tài)變量靜態(tài)變量l作用范圍只在于它定義的過程中，但過程結(jié)束后，變作用范圍只在于它定義的過程中，但過程結(jié)束后，變量值保存量值保存lPrivatePrivate語句語句模塊級變量模塊級變量l只能在只能在窗體窗體/模塊的通用聲明段聲明（過程外），作用模塊的通用聲明段聲明（過程外），作用范圍是窗體范圍是窗體/模塊中的所有過程模塊中的所有過程lPublicPublic語句語句全局變量全局變量l只能在只能在窗體窗體/模塊的通用聲明段聲明（過程外），模塊的通用聲明段聲明（過程外）， 變變量有效范圍從聲明點算起，生存期是整個應(yīng)用程序量

28、有效范圍從聲明點算起，生存期是整個應(yīng)用程序 5.5 變量的作用范圍變量的作用范圍第五章第五章 過程過程計算機程序設(shè)計基礎(chǔ)計算機程序設(shè)計基礎(chǔ)生物醫(yī)學工程學院 計算機教研室34VISUAL BASIC 應(yīng)用程序的模塊化結(jié)構(gòu)應(yīng)用程序的模塊化結(jié)構(gòu)應(yīng)用程序應(yīng)用程序工程文件（工程文件（.vbp）窗體模塊窗體模塊（.frm）文件）文件類模塊類模塊（.cls）文件）文件標準模塊標準模塊（.bas）文件）文件事件過程事件過程（sub）子過程子過程（sub）函數(shù)過程函數(shù)過程（Function）子過程子過程（sub）函數(shù)過程函數(shù)過程（Function）第五章第五章 過程過程計算機程序設(shè)計基礎(chǔ)計算機程序設(shè)計基礎(chǔ)生物醫(yī)

29、學工程學院 計算機教研室35作用范圍作用范圍局部變量局部變量窗體窗體/模塊級模塊級變量變量全局變量全局變量窗體窗體標準模塊標準模塊聲明方式聲明方式DimStaticDimPrivatePublic聲明位置聲明位置在過程中窗體/模塊的通用聲明段窗體/模塊的通用聲明段能否被本模能否被本模塊的其他過塊的其他過程存取程存取不能能能能否被其他能否被其他模塊存取模塊存取不能不能能，但在變量名前加窗體名能第五章第五章 過程過程計算機程序設(shè)計基礎(chǔ)計算機程序設(shè)計基礎(chǔ)生物醫(yī)學工程學院 計算機教研室36Dim x As Integer, y As IntegerPrivate Sub Command1_Click()Dim Result As Single x=10: Result=x-y Print ResultEnd SubPrivate Su