1、本書(shū)目錄本書(shū)目錄1 1Visual Basic.NETVisual Basic.NET程序設(shè)計(jì)教程程序設(shè)計(jì)教程吉林師范大學(xué)譚振江吉林師范大學(xué)譚振江Email書(shū)目錄本書(shū)目錄2 2第六章第六章 過(guò)過(guò) 程程 6.1 6.1 函數(shù)過(guò)程函數(shù)過(guò)程6.2 6.2 子過(guò)程子過(guò)程6.3 6.3 參數(shù)傳遞參數(shù)傳遞6.4 6.4 綜合應(yīng)用綜合應(yīng)用6.5 6.5 自主學(xué)習(xí)自主學(xué)習(xí)- -遞遞 歸歸本章目錄本章目錄本書(shū)目錄本書(shū)目錄3 36.6. 過(guò)程概述過(guò)程概述 一、問(wèn)題的提出一、問(wèn)題的提出引例引例.1自動(dòng)和手動(dòng)事件自動(dòng)和手動(dòng)事件例例.5輸入數(shù)據(jù)合法性檢驗(yàn)輸入數(shù)據(jù)合法性檢驗(yàn): 回車(chē)鍵、回車(chē)鍵、T

2、ab鍵表示輸入，完成相同的輸入鍵表示輸入，完成相同的輸入數(shù)據(jù)合法性數(shù)據(jù)合法性本章目錄本章目錄本書(shū)目錄本書(shū)目錄4 4u過(guò)程的引入過(guò)程的引入: 使同類(lèi)的操作不重復(fù)編寫(xiě)，使同類(lèi)的操作不重復(fù)編寫(xiě)，寫(xiě)一次多次用寫(xiě)一次多次用 把一項(xiàng)復(fù)雜的工作分成簡(jiǎn)單的功能塊把一項(xiàng)復(fù)雜的工作分成簡(jiǎn)單的功能塊,分而治之分而治之u過(guò)程過(guò)程: 完成一段獨(dú)立功能，可供其他過(guò)程使用完成一段獨(dú)立功能，可供其他過(guò)程使用(調(diào)用調(diào)用)。u調(diào)用過(guò)程調(diào)用過(guò)程: 調(diào)用其他過(guò)程的過(guò)程調(diào)用其他過(guò)程的過(guò)程調(diào)用過(guò)程調(diào)用過(guò)程: 調(diào)用調(diào)用Sprg1調(diào)用調(diào)用Sprg1調(diào)用調(diào)用Sprg2子過(guò)程子過(guò)程: Sprg1子過(guò)程子過(guò)程: Sprg2本書(shū)目錄本書(shū)目錄5 5常

3、用過(guò)程分類(lèi)常用過(guò)程分類(lèi):Sub過(guò)程過(guò)程Function過(guò)程過(guò)程事件過(guò)程事件過(guò)程自定義子過(guò)程自定義子過(guò)程 內(nèi)部函數(shù)內(nèi)部函數(shù)(標(biāo)準(zhǔn)函數(shù)）標(biāo)準(zhǔn)函數(shù)） 自定義函數(shù)過(guò)程自定義函數(shù)過(guò)程1）過(guò)程是一段程序代碼，是相對(duì)獨(dú)立的邏輯模塊。）過(guò)程是一段程序代碼，是相對(duì)獨(dú)立的邏輯模塊。2）一個(gè)完整的）一個(gè)完整的VB應(yīng)用程序由若干過(guò)程和模塊組成。應(yīng)用程序由若干過(guò)程和模塊組成。Sub子過(guò)程：完成一定的操作和功能，無(wú)返回值。子過(guò)程：完成一定的操作和功能，無(wú)返回值。Function函數(shù)過(guò)程：完成一定的操作和功能，并且可函數(shù)過(guò)程：完成一定的操作和功能，并且可將數(shù)據(jù)處理的結(jié)果返回。將數(shù)據(jù)處理的結(jié)果返回。本書(shū)目錄本書(shū)目錄6 66.

4、1 6.1 函數(shù)過(guò)程函數(shù)過(guò)程 6.1.1 引例求多邊形面積引例求多邊形面積 已知已知多邊形各條邊的長(zhǎng)度，計(jì)算多邊形各條邊的長(zhǎng)度，計(jì)算多邊形的面積。多邊形的面積。 a b d e f g S1 c S2 S3 )(21)()(zyxczcycxccarea本章目錄本章目錄分析分析: 計(jì)算多邊形面積，可將多邊形分解成計(jì)算多邊形面積，可將多邊形分解成若干個(gè)三角形。若干個(gè)三角形。 計(jì)算三角形面積的公式如下：計(jì)算三角形面積的公式如下：本書(shū)目錄本書(shū)目錄7 76.1.1 6.1.1 引例引例 定義函數(shù)過(guò)程定義函數(shù)過(guò)程areaFunction area(x!, y!, z!) As Single Dim c!

5、 c = 1 / 2 * (x + y + z) area = Sqrt(c * (c - x) * (c - y) * (c - z)End FunctionSub command1_click() 輸入若干個(gè)三角形邊長(zhǎng)輸入若干個(gè)三角形邊長(zhǎng) S=area(a,b,c)+area(c,d,e)+area(e,f,g) msgbox(“面積面積=” & S)End Sub調(diào)調(diào)用用函函數(shù)數(shù)過(guò)過(guò)程程本章目錄本章目錄本書(shū)目錄本書(shū)目錄8 .2函數(shù)過(guò)程的定義函數(shù)過(guò)程的定義 定義函數(shù)過(guò)程的形式如下：定義函數(shù)過(guò)程的形式如下：Public |Private Function 函數(shù)過(guò)程函

6、數(shù)過(guò)程(形參形參) As 類(lèi)型類(lèi)型 變量聲明變量聲明 語(yǔ)句塊語(yǔ)句塊 Return 表達(dá)式表達(dá)式 或或 函數(shù)名函數(shù)名=表達(dá)式表達(dá)式End Function本章目錄本章目錄Public Public 全局函數(shù)過(guò)程，可被程序任何模塊調(diào)用。全局函數(shù)過(guò)程，可被程序任何模塊調(diào)用。PrivatePrivate 僅供本模塊中的其它過(guò)程調(diào)用。僅供本模塊中的其它過(guò)程調(diào)用。形參形參(或稱(chēng)啞元或稱(chēng)啞元) 只能是變量或數(shù)組名只能是變量或數(shù)組名( ), 僅表示參數(shù)的個(gè)數(shù)、類(lèi)型，無(wú)值。僅表示參數(shù)的個(gè)數(shù)、類(lèi)型，無(wú)值。本書(shū)目錄本書(shū)目錄9 9例例6.2 6.2 編一求最大公約數(shù)的函數(shù)過(guò)程編一求最大公約數(shù)的函數(shù)過(guò)程 分別求若干組數(shù)

7、的最大公約數(shù)分別求若干組數(shù)的最大公約數(shù) 分析：求分析：求最大最大公約數(shù)的算法已在例公約數(shù)的算法已在例4.19中解決中解決 （輾轉(zhuǎn)相除法、相減法）（輾轉(zhuǎn)相除法、相減法） 本章目錄本章目錄解決的問(wèn)題：解決的問(wèn)題：如何構(gòu)建函數(shù)（函數(shù)頭，參數(shù)設(shè)置），如何構(gòu)建函數(shù)（函數(shù)頭，參數(shù)設(shè)置）， 供多次調(diào)用供多次調(diào)用 搞清楚：搞清楚： 解該問(wèn)題已知數(shù)據(jù)解該問(wèn)題已知數(shù)據(jù)有幾個(gè)（本例兩個(gè)有幾個(gè)（本例兩個(gè)), 處理結(jié)果幾個(gè)（本例處理結(jié)果幾個(gè)（本例1個(gè)）。個(gè)）。本書(shū)目錄本書(shū)目錄10.3函數(shù)過(guò)程的調(diào)用函數(shù)過(guò)程的調(diào)用 調(diào)用形式：調(diào)用形式：函數(shù)過(guò)程名函數(shù)過(guò)程名(參數(shù)列表參數(shù)列表) 參數(shù)列表參數(shù)列表( (稱(chēng)為

8、實(shí)參或?qū)嵲Q(chēng)為實(shí)參或?qū)嵲? )：必須與形參個(gè)數(shù)相同，位置與：必須與形參個(gè)數(shù)相同，位置與類(lèi)型一一對(duì)應(yīng)。可以是同類(lèi)型的常量、變量、表達(dá)式。類(lèi)型一一對(duì)應(yīng)。可以是同類(lèi)型的常量、變量、表達(dá)式。 SubSub Form1_Click( Form1_Click() ) Handles MyBase.Click Handles MyBase.Click Dim x%, y%, z% Dim x%, y%, z% x = 124: y = 24 x = 124: y = 24 z = gcd(x, y) z = gcd(x, y) MsgBox( MsgBox(最大公約數(shù)是最大公約數(shù)是 & z) &am

9、p; z)End SubEnd Sub 程序運(yùn)程序運(yùn)行流程行流程 Sub Form1_Click(Sub Form1_Click() Handles MyBase.Click) Handles MyBase.Click Dim x%, y%, z% Dim x%, y%, z% x = 124: y = 24 x = 124: y = 24 z = gcd(x, y) z = gcd(x, y) Function gcd( m%, n%) As Integer Dim r% If m n Then t = m: m = n: n = t r=m mod n Do while r0 m = n：

10、 n = r : r = m Mod n Loop gcd = n End Function MsgBox( MsgBox(最大公約數(shù)是最大公約數(shù)是 & z) & z)End SubEnd Sub 本章目錄本章目錄調(diào)用演示調(diào)用演示本書(shū)目錄本書(shū)目錄1111函數(shù)過(guò)程的調(diào)用函數(shù)過(guò)程的調(diào)用 例例6.36.3編一函數(shù)，統(tǒng)計(jì)字符串中漢字的個(gè)數(shù)。編一函數(shù)，統(tǒng)計(jì)字符串中漢字的個(gè)數(shù)。本章目錄本章目錄代碼說(shuō)明代碼說(shuō)明分析分析：在：在VB.NET中，字符以中，字符以Unicode碼存放，每個(gè)碼存放，每個(gè)漢字和英文是一個(gè)字符、占有兩個(gè)字節(jié)，區(qū)別是漢漢字和英文是一個(gè)字符、占有兩個(gè)字節(jié)，區(qū)別是漢字的機(jī)內(nèi)碼

11、字的機(jī)內(nèi)碼最高位為最高位為1 1，若利用，若利用Asc函數(shù)求其碼值為函數(shù)求其碼值為小于小于0（以補(bǔ)碼表示），而西文字符的（以補(bǔ)碼表示），而西文字符的最高位為最高位為0，Asc函數(shù)求其碼值為大于函數(shù)求其碼值為大于0 本書(shū)目錄本書(shū)目錄12126.2 6.2 子過(guò)程的定義與調(diào)用子過(guò)程的定義與調(diào)用 6.2.1 6.2.1 引例引例-控件隨機(jī)移動(dòng)控件隨機(jī)移動(dòng) 例例6.46.4編一過(guò)程，對(duì)編一過(guò)程，對(duì)Label1Label1控件進(jìn)行移動(dòng)，通控件進(jìn)行移動(dòng)，通過(guò)參數(shù)過(guò)參數(shù)TagTag的值（的值（1 1或或-1-1）決定移動(dòng)方向。）決定移動(dòng)方向。 分析分析: : 該過(guò)程不是為了計(jì)算獲得某個(gè)結(jié)果，而該過(guò)程不是為了

12、計(jì)算獲得某個(gè)結(jié)果，而是進(jìn)行對(duì)控件移動(dòng)的處理。是進(jìn)行對(duì)控件移動(dòng)的處理。 本章目錄本章目錄針對(duì)函數(shù)過(guò)程問(wèn)題的提出針對(duì)函數(shù)過(guò)程問(wèn)題的提出:u 不是為了獲得某個(gè)函數(shù)值，而是為了某種功能處理。不是為了獲得某個(gè)函數(shù)值，而是為了某種功能處理。u 要獲得多個(gè)結(jié)果。要獲得多個(gè)結(jié)果。VB.NET中提供了使用更靈活的子過(guò)程。中提供了使用更靈活的子過(guò)程。本書(shū)目錄本書(shū)目錄13.2子過(guò)程的定義子過(guò)程的定義 子過(guò)程定義的方法同函數(shù)過(guò)程，形式如下：子過(guò)程定義的方法同函數(shù)過(guò)程，形式如下：Sub Sub 子過(guò)程名子過(guò)程名(參數(shù)列表參數(shù)列表) 局部變量或常數(shù)定義局部變量或常數(shù)定義 語(yǔ)句語(yǔ)句 Exit Sub 語(yǔ)

13、句語(yǔ)句End SubEnd Sub子過(guò)程名、形參同函數(shù)過(guò)程中對(duì)應(yīng)項(xiàng)的規(guī)定，子過(guò)程名、形參同函數(shù)過(guò)程中對(duì)應(yīng)項(xiàng)的規(guī)定，當(dāng)無(wú)形參時(shí)不要括號(hào)。當(dāng)無(wú)形參時(shí)不要括號(hào)。本章目錄本章目錄本書(shū)目錄本書(shū)目錄1414子過(guò)程與函數(shù)過(guò)程的區(qū)別子過(guò)程與函數(shù)過(guò)程的區(qū)別u 把某功能定義為函數(shù)過(guò)程還是子過(guò)程，沒(méi)有把某功能定義為函數(shù)過(guò)程還是子過(guò)程，沒(méi)有嚴(yán)格的規(guī)定。一般若程序有嚴(yán)格的規(guī)定。一般若程序有一個(gè)返回值一個(gè)返回值時(shí)，函時(shí)，函數(shù)過(guò)程直觀；當(dāng)有數(shù)過(guò)程直觀；當(dāng)有多個(gè)返回值多個(gè)返回值時(shí)，習(xí)慣用子過(guò)時(shí)，習(xí)慣用子過(guò)程。程。u 函數(shù)過(guò)程必須有返回值，函數(shù)過(guò)程必須有返回值，函數(shù)名有類(lèi)型函數(shù)名有類(lèi)型。子過(guò)程名沒(méi)有值，過(guò)程名子過(guò)程名沒(méi)有值，過(guò)

14、程名沒(méi)有類(lèi)型沒(méi)有類(lèi)型，不能在子，不能在子過(guò)程體內(nèi)對(duì)子過(guò)程名賦值。過(guò)程體內(nèi)對(duì)子過(guò)程名賦值。 本章目錄本章目錄本書(shū)目錄本書(shū)目錄1515子過(guò)程的調(diào)用是一句獨(dú)立的調(diào)用語(yǔ)句，有兩種子過(guò)程的調(diào)用是一句獨(dú)立的調(diào)用語(yǔ)句，有兩種形式：形式：Call Call 子過(guò)程名子過(guò)程名(實(shí)參列表實(shí)參列表)子過(guò)程名子過(guò)程名 (實(shí)參列表實(shí)參列表).3子過(guò)程調(diào)用子過(guò)程調(diào)用本章目錄本章目錄注意：若實(shí)參要獲得子過(guò)程的返回值，則實(shí)參注意：若實(shí)參要獲得子過(guò)程的返回值，則實(shí)參只能是只能是變量變量(與形參同類(lèi)型的簡(jiǎn)單變量、數(shù)組名、與形參同類(lèi)型的簡(jiǎn)單變量、數(shù)組名、結(jié)構(gòu)類(lèi)型結(jié)構(gòu)類(lèi)型)，不能是常量、表達(dá)式，也不能是控不能是常量、

15、表達(dá)式，也不能是控件名件名。 本書(shū)目錄本書(shū)目錄1616例例6.5 6.5 分別編一統(tǒng)計(jì)字符串分別編一統(tǒng)計(jì)字符串S S中定冠詞中定冠詞TheThe出現(xiàn)個(gè)出現(xiàn)個(gè)數(shù)的子過(guò)程和函數(shù)過(guò)程，并分別調(diào)用。數(shù)的子過(guò)程和函數(shù)過(guò)程，并分別調(diào)用。處理方法：利用處理方法：利用InStrInStr函數(shù)反復(fù)在函數(shù)反復(fù)在字符串字符串S找找T The子串。子串。本章目錄本章目錄代碼說(shuō)明代碼說(shuō)明If you cant find the answers you need in the productistst第第1次次第第2次次本書(shū)目錄本書(shū)目錄1717參數(shù)問(wèn)題參數(shù)問(wèn)題u形參是過(guò)程與主調(diào)程序交互的接口，從主調(diào)形參是過(guò)程與主調(diào)程序交

16、互的接口，從主調(diào) 程序獲得初值，或?qū)⒂?jì)算結(jié)果返回給主調(diào)程序。程序獲得初值，或?qū)⒂?jì)算結(jié)果返回給主調(diào)程序。不要將過(guò)程中所有使用過(guò)的變量均作為形參。不要將過(guò)程中所有使用過(guò)的變量均作為形參。利利6.5找定冠詞的找定冠詞的rocThe子過(guò)程子過(guò)程u 形參沒(méi)有具體的值，只代表了參數(shù)的個(gè)數(shù)、形參沒(méi)有具體的值，只代表了參數(shù)的個(gè)數(shù)、位置、類(lèi)型；只能是簡(jiǎn)單變量、數(shù)組名，不能位置、類(lèi)型；只能是簡(jiǎn)單變量、數(shù)組名，不能是常量、數(shù)組元素、表達(dá)式。是常量、數(shù)組元素、表達(dá)式。 本章目錄本章目錄 Sub ProcThe(ByVal s$, ByRef Count%) End Sub Call ProcThe(Text1.Tex

17、t, n ) 本書(shū)目錄本書(shū)目錄18186.3 6.3 參數(shù)傳遞參數(shù)傳遞 在參數(shù)傳遞中，一般是按位置傳送，按在參數(shù)傳遞中，一般是按位置傳送，按實(shí)參實(shí)參的的位置次序位置次序與與形參形參的位置次序?qū)?yīng)傳送，與的位置次序?qū)?yīng)傳送，與參數(shù)名參數(shù)名沒(méi)有關(guān)系。沒(méi)有關(guān)系。 按位置傳送是最常用的參數(shù)傳遞方法，如在調(diào)按位置傳送是最常用的參數(shù)傳遞方法，如在調(diào)用標(biāo)準(zhǔn)函數(shù)時(shí)，用戶(hù)根本不知道形參名，只要關(guān)用標(biāo)準(zhǔn)函數(shù)時(shí)，用戶(hù)根本不知道形參名，只要關(guān)心形參的心形參的個(gè)數(shù)、類(lèi)型、位置個(gè)數(shù)、類(lèi)型、位置. .本章目錄本章目錄如如Mid函數(shù)形式函數(shù)形式: Mid(字符串字符串$，起始位，起始位%，取幾位，取幾位%)調(diào)用調(diào)用: s=M

18、id( This is VB.NET ,9,2) s為為VB若調(diào)用若調(diào)用:s=Mid(9, This is VB.NET “ ,2) 則錯(cuò)誤則錯(cuò)誤6.3.1 6.3.1 形參與實(shí)參形參與實(shí)參本書(shū)目錄本書(shū)目錄19196.3.2 6.3.2 傳址與傳值傳址與傳值u傳值方式參數(shù)結(jié)合過(guò)程傳值方式參數(shù)結(jié)合過(guò)程 當(dāng)調(diào)用時(shí)，系統(tǒng)將當(dāng)調(diào)用時(shí)，系統(tǒng)將實(shí)參的值復(fù)制實(shí)參的值復(fù)制給形參，實(shí)參與形參給形參，實(shí)參與形參斷開(kāi)斷開(kāi)了聯(lián)系。在過(guò)程體內(nèi)對(duì)形參的任何操作了聯(lián)系。在過(guò)程體內(nèi)對(duì)形參的任何操作不會(huì)影響不會(huì)影響到到實(shí)參。實(shí)參。 u傳址方式參數(shù)結(jié)合過(guò)程傳址方式參數(shù)結(jié)合過(guò)程 當(dāng)調(diào)用時(shí)，將實(shí)參的當(dāng)調(diào)用時(shí)，將實(shí)參的地址傳遞地址傳遞

19、給形參。因此在被調(diào)過(guò)給形參。因此在被調(diào)過(guò)程體中對(duì)形參的任何操作都變成了對(duì)相應(yīng)程體中對(duì)形參的任何操作都變成了對(duì)相應(yīng)實(shí)參的操作實(shí)參的操作，實(shí)參的值就會(huì)隨過(guò)程體內(nèi)對(duì)形參的改變而實(shí)參的值就會(huì)隨過(guò)程體內(nèi)對(duì)形參的改變而改變改變。本章目錄本章目錄實(shí)參與形參兩種結(jié)合方法實(shí)參與形參兩種結(jié)合方法: 傳址傳址(ByRef,)、傳值、傳值(ByVal默認(rèn)默認(rèn))本書(shū)目錄本書(shū)目錄2020傳值、傳址對(duì)比例傳值、傳址對(duì)比例本章目錄本章目錄例例6.6 編寫(xiě)交換兩個(gè)數(shù)的過(guò)程編寫(xiě)交換兩個(gè)數(shù)的過(guò)程Swap1，其中，其中x,y為為形參，使用形參，使用傳值傳遞傳值傳遞方式。方式。 a b 10 20 a = 10 : b = 20 :

20、Call Swap2(a, x 10 y 20 a = 10 : b = 20 : Call Swap2(a, b) 調(diào)用過(guò)程ByVal 傳值 10 a = 10 : b = 20 : x 20 執(zhí)行過(guò)程體 a b 10 20 a = 返回 y 例例6.7 編寫(xiě)交換兩個(gè)數(shù)的過(guò)程編寫(xiě)交換兩個(gè)數(shù)的過(guò)程Swap2，其中，其中x,y為為形參，使用形參，使用傳址傳遞傳址傳遞方式。方式。 a b 10 x b 的地址10 y 20 a = 10 : b = 20 : Call Swap2(a, b) Text調(diào)用過(guò)程ByVal 傳值 a b 20 10 a = 10 : b = 20 : Call Swa

21、p執(zhí)行過(guò)程體ByVal 傳值 a b 20 10 a = 返回 a 的地址10 x b 的地址10 y a 的地址10 本書(shū)目錄本書(shū)目錄2121傳遞方式的選擇傳遞方式的選擇 u被調(diào)過(guò)程中的被調(diào)過(guò)程中的結(jié)果結(jié)果返回給主調(diào)程序，則形參必須是返回給主調(diào)程序，則形參必須是傳傳地址地址方式方式;否則選用傳值方式否則選用傳值方式, 可增加程序的可靠性和便可增加程序的可靠性和便于調(diào)試。于調(diào)試。u傳值傳值參數(shù)只接受實(shí)參的值，實(shí)參為同類(lèi)型的參數(shù)只接受實(shí)參的值，實(shí)參為同類(lèi)型的表達(dá)式表達(dá)式； 傳址傳址方式形參獲得的是實(shí)參地址，實(shí)參必須是同類(lèi)型方式形參獲得的是實(shí)參地址，實(shí)參必須是同類(lèi)型的的變量名變量名（包括簡(jiǎn)單變量、

22、數(shù)組名、結(jié)構(gòu)類(lèi)型等），（包括簡(jiǎn)單變量、數(shù)組名、結(jié)構(gòu)類(lèi)型等），不能是常量、表達(dá)式。不能是常量、表達(dá)式。u實(shí)參和形參實(shí)參和形參在不同的在不同的過(guò)程過(guò)程（一般前者在事件過(guò)程，后（一般前者在事件過(guò)程，后者為函數(shù)過(guò)程或子過(guò)程），其作用域不同，與是否同者為函數(shù)過(guò)程或子過(guò)程），其作用域不同，與是否同名無(wú)關(guān)。名無(wú)關(guān)。本章目錄本章目錄本書(shū)目錄本書(shū)目錄2222例例6.86.8如下如下sumsum子過(guò)程求數(shù)組子過(guò)程求數(shù)組a a各元素和、并改變各元素和、并改變數(shù)組各元素值：數(shù)組各元素值：FunctionFunction sum%( sum%(ByValByVal x() x() AsAs IntegerInteger

23、) ) Dim Dim i% i% sum = 0 sum = 0 For For i = 0 i = 0 ToTo UBound(x) UBound(x) sum += x(i) sum += x(i)：x(i) = 2 x(i) = 2 * * x(i) x(i) Next Next i iEndEnd FunctionFunction6.3.3 6.3.3 數(shù)組參數(shù)的傳遞數(shù)組參數(shù)的傳遞 本章目錄本章目錄調(diào)用調(diào)用: Dim b() As Integer = 1, 3, 5, 7, 9, i%,s% s = sum( b )本書(shū)目錄本書(shū)目錄2323v形參是數(shù)組形參是數(shù)組 要以數(shù)組名加圓括號(hào)表

24、示，不要要以數(shù)組名加圓括號(hào)表示，不要給出維數(shù)上界；多維數(shù)組，每維以逗號(hào)分隔。在給出維數(shù)上界；多維數(shù)組，每維以逗號(hào)分隔。在過(guò)程中通過(guò)過(guò)程中通過(guò)Ubound函數(shù)確定每維的上界。函數(shù)確定每維的上界。v實(shí)參是數(shù)組實(shí)參是數(shù)組 要給出數(shù)組名要給出數(shù)組名(不需要圓括號(hào)不需要圓括號(hào))。v傳遞過(guò)程傳遞過(guò)程 系統(tǒng)將實(shí)參數(shù)組的首地址傳給過(guò)程的系統(tǒng)將實(shí)參數(shù)組的首地址傳給過(guò)程的形參，使兩者有相同的起始地址形參，使兩者有相同的起始地址。 數(shù)組參數(shù)的傳遞規(guī)定數(shù)組參數(shù)的傳遞規(guī)定 13579形參數(shù)組形參數(shù)組實(shí)參數(shù)組實(shí)參數(shù)組本章目錄本章目錄本書(shū)目錄本書(shū)目錄24246.3.4 6.3.4 變量的作用域變量的作用域 u塊變量塊變量

25、在控制結(jié)構(gòu)塊中聲明，只能在本塊內(nèi)在控制結(jié)構(gòu)塊中聲明，只能在本塊內(nèi) 有效有效. u過(guò)程級(jí)變量過(guò)程級(jí)變量 在一個(gè)過(guò)程內(nèi)用在一個(gè)過(guò)程內(nèi)用Dim或或Static語(yǔ)句語(yǔ)句 聲明的變量，只能在本過(guò)程中使用聲明的變量，只能在本過(guò)程中使用 u模塊級(jí)變量模塊級(jí)變量 在模塊內(nèi)、任何過(guò)程外用在模塊內(nèi)、任何過(guò)程外用Dim、 Private語(yǔ)句聲明，可被本模塊語(yǔ)句聲明，可被本模塊 的任何過(guò)程訪問(wèn)的任何過(guò)程訪問(wèn) u全局變量全局變量 在模塊級(jí)用在模塊級(jí)用Public語(yǔ)句聲明，可被語(yǔ)句聲明，可被 應(yīng)用程序的任何過(guò)程或函數(shù)訪問(wèn)應(yīng)用程序的任何過(guò)程或函數(shù)訪問(wèn) 本章目錄本章目錄變量聲明位置不同，被訪問(wèn)范圍不同變量聲明位置不同，被訪問(wèn)

26、范圍不同,稱(chēng)為變量的作用域。稱(chēng)為變量的作用域。 本書(shū)目錄本書(shū)目錄2525變量的作用域變量的作用域 例如在下面一個(gè)標(biāo)準(zhǔn)模塊文件中不同級(jí)的變量聲明：例如在下面一個(gè)標(biāo)準(zhǔn)模塊文件中不同級(jí)的變量聲明： Public Pa Pa As integer 全局變量全局變量 Private MbMb As string *10 窗體窗體/模塊級(jí)變量模塊級(jí)變量 Sub F1( ) Dim Fa Fa As integer 過(guò)程級(jí)變量過(guò)程級(jí)變量 End Sub Sub F2( ) Dim Fb Fb As Single 過(guò)程級(jí)變量過(guò)程級(jí)變量For i=1 to 10 Dim k%k% 塊變量塊變量 Next i E

27、nd Sub本章目錄本章目錄本書(shū)目錄本書(shū)目錄26266.3.5 6.3.5 靜態(tài)變量靜態(tài)變量 聲明形式：聲明形式：Static Static 變量名變量名 AS AS 類(lèi)型類(lèi)型 本章目錄本章目錄用用Static語(yǔ)句聲明的過(guò)程級(jí)變量語(yǔ)句聲明的過(guò)程級(jí)變量 程序運(yùn)行過(guò)程中可程序運(yùn)行過(guò)程中可保留變量的值保留變量的值.用用Dim聲明的變量，每次調(diào)用過(guò)程時(shí)重新初始化聲明的變量，每次調(diào)用過(guò)程時(shí)重新初始化例例6.10 比較比較Dim和和Static兩者的區(qū)別。兩者的區(qū)別。Sub Form_Click() Dim Count% Count=Count + 1 Label1.Text &=已單擊窗體已單擊

28、窗體 _ & Count &次次End SubSub Form_Click() Static Count% Count=Count + 1 Label1.Text &=已單擊窗體已單擊窗體 _ & Count &次次End Sub本書(shū)目錄本書(shū)目錄27276.4 6.4 綜合應(yīng)用綜合應(yīng)用 1 數(shù)制轉(zhuǎn)換數(shù)制轉(zhuǎn)換 例例6.11編一函數(shù)，實(shí)現(xiàn)一個(gè)十進(jìn)制整數(shù)轉(zhuǎn)換成二、八、編一函數(shù)，實(shí)現(xiàn)一個(gè)十進(jìn)制整數(shù)轉(zhuǎn)換成二、八、十六任意進(jìn)制的數(shù)字字符串；并用內(nèi)部函數(shù)驗(yàn)證。十六任意進(jìn)制的數(shù)字字符串；并用內(nèi)部函數(shù)驗(yàn)證。本章目錄本章目錄演示演示分析：十進(jìn)制正整數(shù)分析：十進(jìn)制正整數(shù)m轉(zhuǎn)換

29、成轉(zhuǎn)換成r進(jìn)制數(shù)，進(jìn)制數(shù)，將將m不斷除不斷除r取取余數(shù)余數(shù)(若余數(shù)超過(guò)若余數(shù)超過(guò)9，還要進(jìn)行相應(yīng)的轉(zhuǎn)換，例如，還要進(jìn)行相應(yīng)的轉(zhuǎn)換，例如10變成變成A，11變成變成B等等)，直到商為零直到商為零，以，以反序得到結(jié)果反序得到結(jié)果，即最，即最后得到的余數(shù)在最高位。后得到的余數(shù)在最高位。 16 1000 r m 余數(shù) 16 62 8 8 16 3 14 E 0 3 3 顯示 本書(shū)目錄本書(shū)目錄28282.加密和解密加密和解密 信息加密是信息安全性的措施之一。信息加密信息加密是信息安全性的措施之一。信息加密有各種方法，最簡(jiǎn)單的加密方法是將每個(gè)字母平有各種方法，最簡(jiǎn)單的加密方法是將每個(gè)字母平移一個(gè)位置移一個(gè)

30、位置( ( 稱(chēng)為密鑰稱(chēng)為密鑰) )。例如，后移。例如，后移5 5個(gè)位置，個(gè)位置，這時(shí)，這時(shí)，AFAF，B G Y DB G Y D，ZE ZE ，a f a f ；解密是加密的逆操作。；解密是加密的逆操作。 例例6.12 6.12 編一加密和解密的程序，即將輸入的編一加密和解密的程序，即將輸入的一行字符串中的所有字母加密，加密后還可再進(jìn)一行字符串中的所有字母加密，加密后還可再進(jìn)行解密。行解密。 本章目錄本章目錄代碼說(shuō)明代碼說(shuō)明本書(shū)目錄本書(shū)目錄2929Welcome studWC87IAsc=Asc(C)92+5IAsc90 IAsc=IAsc-26B如果密鑰為如果密鑰為5 ，對(duì)取得的一個(gè)字符，

31、對(duì)取得的一個(gè)字符”放入變量中，放入變量中， 加密的過(guò)程如下：加密的過(guò)程如下：C=Chr(IAsc)加加密密思思路路過(guò)程頭如何設(shè)置？過(guò)程頭如何設(shè)置？思考：解密思路？思考：解密思路？本書(shū)目錄本書(shū)目錄30303.查找查找 查找是在查找是在線(xiàn)性表線(xiàn)性表(在此為數(shù)組在此為數(shù)組)中，根據(jù)指定的中，根據(jù)指定的關(guān)鍵值關(guān)鍵值，找出，找出與其值相同的元素與其值相同的元素。查找方法查找方法: : 一般有一般有順序查找和二分法查找順序查找和二分法查找。順序查找。順序查找根據(jù)查找的關(guān)鍵值與數(shù)組的元素逐一比較，若相同，根據(jù)查找的關(guān)鍵值與數(shù)組的元素逐一比較，若相同，查找成功，若找不到，則查找失敗。查找成功，若找不到，則查找

32、失敗。例例6.13實(shí)現(xiàn)實(shí)現(xiàn)順序查找順序查找本書(shū)目錄本書(shū)目錄31314. 字符處理應(yīng)用字符處理應(yīng)用本章目錄本章目錄代碼說(shuō)明代碼說(shuō)明此題關(guān)鍵是：此題關(guān)鍵是：對(duì)輸入的字符串與隨機(jī)產(chǎn)生的字對(duì)輸入的字符串與隨機(jī)產(chǎn)生的字符串，一一對(duì)應(yīng)比較，判斷輸入正確與否。符串，一一對(duì)應(yīng)比較，判斷輸入正確與否。例例6.14 編寫(xiě)一個(gè)英文打字訓(xùn)練的程序，要求：編寫(xiě)一個(gè)英文打字訓(xùn)練的程序，要求：(1) 在標(biāo)簽框內(nèi)隨機(jī)產(chǎn)生在標(biāo)簽框內(nèi)隨機(jī)產(chǎn)生30個(gè)字母的范文；個(gè)字母的范文；(2) 當(dāng)焦點(diǎn)進(jìn)入文本框時(shí)開(kāi)始計(jì)時(shí)，并顯示當(dāng)時(shí)時(shí)間；當(dāng)焦點(diǎn)進(jìn)入文本框時(shí)開(kāi)始計(jì)時(shí)，并顯示當(dāng)時(shí)時(shí)間；(3) 當(dāng)輸入了當(dāng)輸入了30個(gè)字符時(shí)結(jié)束計(jì)時(shí)，禁止向文本框輸入

33、個(gè)字符時(shí)結(jié)束計(jì)時(shí)，禁止向文本框輸入內(nèi)容，顯示打字的速度和正確率。內(nèi)容，顯示打字的速度和正確率。本書(shū)目錄本書(shū)目錄3232例例6.15編編fac(n)=n! 的遞歸函數(shù)的遞歸函數(shù)Function fac%(n %) If n = 1 Then fac = 1 Elsefac = n * fac(n - 1) End IfEnd Function1) 1fac(*11)fac(nnnnn6.5 6.5 自主學(xué)習(xí)自主學(xué)習(xí)用自身的結(jié)構(gòu)來(lái)描用自身的結(jié)構(gòu)來(lái)描述自身就稱(chēng)為遞歸述自身就稱(chēng)為遞歸最典型的例子是階乘最典型的例子是階乘運(yùn)算運(yùn)算,作如下的定義：作如下的定義：)!2()1()!1()!1(!nnnnnn本

34、章目錄本章目錄遞歸過(guò)程在自身定義遞歸過(guò)程在自身定義的內(nèi)部調(diào)用自己。的內(nèi)部調(diào)用自己。11)!2)(1()!1()!1(!！nnnnnn6.5.1 6.5.1 遞歸遞歸本書(shū)目錄本書(shū)目錄3333遞推遞推回歸回歸由此可見(jiàn)構(gòu)成遞歸的結(jié)構(gòu)如下：由此可見(jiàn)構(gòu)成遞歸的結(jié)構(gòu)如下： 遞歸結(jié)束條件及結(jié)束時(shí)的值；遞歸結(jié)束條件及結(jié)束時(shí)的值； 能用遞歸形式表示，并且遞歸向終止條件發(fā)展。能用遞歸形式表示，并且遞歸向終止條件發(fā)展。fac(2)=2*fac(1)fac(1)=1fac(4)=4*6fac(3)=3*2fac(2)=2*1fac(3)=3*fac(2)fac(4)=4*fac(3)本章目錄本章目錄遞歸執(zhí)行過(guò)程遞歸執(zhí)行過(guò)程遞推過(guò)程：每調(diào)用自身，當(dāng)前參數(shù)壓棧，直到達(dá)到遞歸結(jié)束條件。遞推過(guò)程：每調(diào)用自身，當(dāng)前參數(shù)壓棧，直到達(dá)到遞歸結(jié)束條件。回歸過(guò)程：不斷從棧中彈出當(dāng)前的參數(shù)，直到棧空。回歸過(guò)程：不斷從棧中彈出當(dāng)前的參數(shù)，直到棧空。遞歸算法設(shè)計(jì)簡(jiǎn)單，但消耗的機(jī)時(shí)和占據(jù)的內(nèi)存空間比非遞歸大遞歸算法設(shè)計(jì)簡(jiǎn)單，但消耗的機(jī)時(shí)和占據(jù)的內(nèi)存空間比非遞歸大本書(shū)目錄本書(shū)目錄34346.5.2 二分法利用計(jì)算機(jī)二分法算法可解決很多問(wèn)題：利用計(jì)算機(jī)二分法算法可解決很多問(wèn)題： 猜數(shù)游戲、二分法查找、二分法求根等猜數(shù)游戲、二分法查找、二分法求根等