Visual Basic.NET程序設(shè)計(jì)教程上海商學(xué)院信息管理與信息系統(tǒng)教研室

1、 VB.NET程序設(shè)計(jì)教程程序設(shè)計(jì)教程本書(shū)目錄本書(shū)目錄Visual Basic.NETVisual Basic.NET程序設(shè)計(jì)教程程序設(shè)計(jì)教程上海商學(xué)院信息管理與信息系統(tǒng)教研室上海商學(xué)院信息管理與信息系統(tǒng)教研室沈群力（沈群力（SQL）http:/ VB.NET程序設(shè)計(jì)教程程序設(shè)計(jì)教程本書(shū)目錄本書(shū)目錄2 2第六章第六章 過(guò)過(guò) 程程 6.1 6.1 函數(shù)過(guò)程的定義與調(diào)用函數(shù)過(guò)程的定義與調(diào)用6.2 6.2 子過(guò)程的定義與調(diào)用子過(guò)程的定義與調(diào)用6.3 6.3 參數(shù)傳遞參數(shù)傳遞6.4 6.4 遞遞 歸歸6.5 6.5 綜合應(yīng)用綜合應(yīng)用 本章目錄本章目錄 VB.NET程序設(shè)計(jì)教程程序設(shè)計(jì)教程本書(shū)目錄本書(shū)目

2、錄3 3u過(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 VB.NET程序設(shè)計(jì)教程程序設(shè)計(jì)教程本書(shū)目錄本書(shū)目錄4 4常用過(guò)程分類(lèi)常用過(guò)程分類(lèi):Sub過(guò)程過(guò)程Function過(guò)程過(guò)程事件過(guò)

3、程事件過(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ò)程和模塊組成。本節(jié)主要介紹用戶(hù)自定義的本節(jié)主要介紹用戶(hù)自定義的Sub子過(guò)程：完成一定的操作和功能，無(wú)返回值。子過(guò)程：完成一定的操作和功能，無(wú)返回值。Function函數(shù)過(guò)程：完成一定的操作和功能，并且可函數(shù)過(guò)程：完成一定的操作和功能，并且可將數(shù)據(jù)處理的結(jié)果返回。將數(shù)據(jù)處理的結(jié)果返回。 VB.NET程序設(shè)計(jì)教程程序設(shè)計(jì)教程本書(shū)目錄

4、本書(shū)目錄5 56.1 6.1 函數(shù)過(guò)程的定義和調(diào)用函數(shù)過(guò)程的定義和調(diào)用 6.1.1 引例引例6.1已知多邊形各條邊已知多邊形各條邊的長(zhǎng)度，計(jì)算多邊形的面積。的長(zhǎng)度，計(jì)算多邊形的面積。計(jì)算多邊形面積，可將多邊形分解計(jì)算多邊形面積，可將多邊形分解成若干個(gè)三角形。計(jì)算三角形面積成若干個(gè)三角形。計(jì)算三角形面積的公式如下：的公式如下：a b d e f g S1 c S2 S3 )(21)()(zyxczcycxccarea本章目錄本章目錄 VB.NET程序設(shè)計(jì)教程程序設(shè)計(jì)教程本書(shū)目錄本書(shū)目錄6 66.1.1 6.1.1 引例引例 定義函數(shù)過(guò)程定義函數(shù)過(guò)程areaFunction area(x!, y!

5、, z!) As Single Dim c! 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ò)程程本章目錄本章目錄 VB.NET程序設(shè)計(jì)教程程序設(shè)計(jì)教程本書(shū)目錄本書(shū)目錄7 .2函數(shù)過(guò)程的定義函數(shù)過(guò)程的定義 在窗體、模塊等的代碼窗口把插入點(diǎn)放

6、在所有現(xiàn)在窗體、模塊等的代碼窗口把插入點(diǎn)放在所有現(xiàn)有過(guò)程之外，直接輸入函數(shù)過(guò)程。定義函數(shù)過(guò)程有過(guò)程之外，直接輸入函數(shù)過(guò)程。定義函數(shù)過(guò)程的形式如下：的形式如下：Public |Private Function函數(shù)過(guò)程函數(shù)過(guò)程(形參形參)As 類(lèi)型類(lèi)型 變量聲明變量聲明 語(yǔ)句塊語(yǔ)句塊 Return 表達(dá)式表達(dá)式 或或 函數(shù)名函數(shù)名=表達(dá)式表達(dá)式End Function本章目錄本章目錄 VB.NET程序設(shè)計(jì)教程程序設(shè)計(jì)教程本書(shū)目錄本書(shū)目錄8 8vPublic 全局函數(shù)過(guò)程，可被程序任何模塊調(diào)全局函數(shù)過(guò)程，可被程序任何模塊調(diào)用用vPrivate 僅供本模塊中的其它過(guò)程調(diào)用僅供本模塊中的其它過(guò)程調(diào)用v形

7、參形參(或稱(chēng)啞元或稱(chēng)啞元) 只能是變量或數(shù)組名只能是變量或數(shù)組名( ),僅表示僅表示參數(shù)的個(gè)數(shù)、類(lèi)型，無(wú)值。參數(shù)的個(gè)數(shù)、類(lèi)型，無(wú)值。例例6.2 6.2 編一求最大公約數(shù)的函數(shù)過(guò)程編一求最大公約數(shù)的函數(shù)過(guò)程 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： n = r : r = m Mod n Loop gcd = n End Function本章目錄本章目錄 VB.NET程序設(shè)計(jì)教程程序設(shè)計(jì)教程本書(shū)目錄本書(shū)目錄9 .3函數(shù)過(guò)

8、程的調(diào)用函數(shù)過(guò)程的調(diào)用 調(diào)用形式：調(diào)用形式：函數(shù)過(guò)程名函數(shù)過(guò)程名(參數(shù)列表參數(shù)列表) 參數(shù)列表參數(shù)列表(稱(chēng)為實(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 z = gc

9、d(x, y), y) MsgBox MsgBox(最大公約數(shù)是最大公約數(shù)是 & z) & 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 z = gcd(x, y), y) Function gcd( m%, n%) As Integer Dim r% If m n Then t = m

10、: m = n: n = t r=m mod n Do while r0 m = n： n = r : r = m Mod n Loop gcd = n End Function MsgBox MsgBox(最大公約數(shù)是最大公約數(shù)是 & z) & z)End SubEnd Sub 本章目錄本章目錄調(diào)用演示調(diào)用演示 VB.NET程序設(shè)計(jì)教程程序設(shè)計(jì)教程本書(shū)目錄本書(shū)目錄1010函數(shù)過(guò)程的調(diào)用函數(shù)過(guò)程的調(diào)用 例例6.36.3編一函數(shù)，統(tǒng)計(jì)字符串中漢字的個(gè)數(shù)。編一函數(shù)，統(tǒng)計(jì)字符串中漢字的個(gè)數(shù)。分析：在分析：在VB.NET中，字符以中，字符以Unicode碼存放，碼存放，每個(gè)漢字和英文是一個(gè)字符、占有兩

11、個(gè)字節(jié)，每個(gè)漢字和英文是一個(gè)字符、占有兩個(gè)字節(jié)，區(qū)別是漢字的機(jī)內(nèi)碼最高位為區(qū)別是漢字的機(jī)內(nèi)碼最高位為1，若利用，若利用Asc函函數(shù)求其碼值為小于數(shù)求其碼值為小于0（以補(bǔ)碼表示），而西文字（以補(bǔ)碼表示），而西文字符的最高位為符的最高位為0，Asc函數(shù)求其碼值為大于函數(shù)求其碼值為大于0 本章目錄本章目錄代碼說(shuō)明代碼說(shuō)明 VB.NET程序設(shè)計(jì)教程程序設(shè)計(jì)教程本書(shū)目錄本書(shū)目錄11116.2 6.2 子過(guò)程的定義與調(diào)用子過(guò)程的定義與調(diào)用 6.2.1 引例引例以下情況使用函數(shù)過(guò)程存在不便：以下情況使用函數(shù)過(guò)程存在不便：v不是為了獲得某個(gè)函數(shù)值，而是為了某種功不是為了獲得某個(gè)函數(shù)值，而是為了某種功能的處理。

12、能的處理。v要獲得多個(gè)結(jié)果。要獲得多個(gè)結(jié)果。VB.NET中提供了使用更靈活的子過(guò)程。中提供了使用更靈活的子過(guò)程。例例6.4編一過(guò)程，對(duì)編一過(guò)程，對(duì)Label1控件進(jìn)行移動(dòng)，通過(guò)控件進(jìn)行移動(dòng)，通過(guò)參數(shù)參數(shù)Tag的值（的值（1或或-1）決定移動(dòng)方向。）決定移動(dòng)方向。 該過(guò)程不是為了計(jì)算獲得某個(gè)結(jié)果，而是進(jìn)行該過(guò)程不是為了計(jì)算獲得某個(gè)結(jié)果，而是進(jìn)行對(duì)控件移動(dòng)的處理。對(duì)控件移動(dòng)的處理。 本章目錄本章目錄代碼說(shuō)明代碼說(shuō)明 VB.NET程序設(shè)計(jì)教程程序設(shè)計(jì)教程本書(shū)目錄本書(shū)目錄12.2子過(guò)程的定義子過(guò)程的定義 子過(guò)程定義的方法同函數(shù)過(guò)程，形式如下：子過(guò)程定義的方法同函數(shù)過(guò)程，形式如下：S

13、ub Sub 子過(guò)程名子過(guò)程名(參數(shù)列表參數(shù)列表) 局部變量或常數(shù)定義局部變量或常數(shù)定義 語(yǔ)句語(yǔ)句 Exit Sub 語(yǔ)句語(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)。本章目錄本章目錄 VB.NET程序設(shè)計(jì)教程程序設(shè)計(jì)教程本書(shū)目錄本書(shū)目錄1313子過(guò)程與函數(shù)過(guò)程的區(qū)別子過(guò)程與函數(shù)過(guò)程的區(qū)別u 把某功能定義為函數(shù)過(guò)程還是子過(guò)程，沒(méi)有把某功能定義為函數(shù)過(guò)程還是子過(guò)程，沒(méi)有嚴(yán)格的規(guī)定。一般若程序有一個(gè)返回值時(shí)，函嚴(yán)格的規(guī)定。一般若程序有一個(gè)返回值時(shí)，函數(shù)過(guò)程直觀；當(dāng)有多個(gè)返回值時(shí)，習(xí)慣用子過(guò)數(shù)過(guò)

14、程直觀；當(dāng)有多個(gè)返回值時(shí)，習(xí)慣用子過(guò)程。程。u 函數(shù)過(guò)程必須有返回值，函數(shù)名有類(lèi)型。函數(shù)過(guò)程必須有返回值，函數(shù)名有類(lèi)型。子過(guò)程名沒(méi)有值，過(guò)程名沒(méi)有類(lèi)型，不能在子子過(guò)程名沒(méi)有值，過(guò)程名沒(méi)有類(lèi)型，不能在子過(guò)程體內(nèi)對(duì)子過(guò)程名賦值。過(guò)程體內(nèi)對(duì)子過(guò)程名賦值。 本章目錄本章目錄 VB.NET程序設(shè)計(jì)教程程序設(shè)計(jì)教程本書(shū)目錄本書(shū)目錄1414參數(shù)問(wèn)題參數(shù)問(wèn)題u形參是過(guò)程與主調(diào)程序交互的接口，從主調(diào)形參是過(guò)程與主調(diào)程序交互的接口，從主調(diào) 程序獲得初值，或?qū)⒂?jì)算結(jié)果返回給主調(diào)程序。程序獲得初值，或?qū)⒂?jì)算結(jié)果返回給主調(diào)程序。不要將過(guò)程中所有使用過(guò)的變量均作為形參。不要將過(guò)程中所有使用過(guò)的變量均作為形參。利利6.5找

15、定冠詞的找定冠詞的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.Text, n ) VB.NET程序設(shè)計(jì)教程程序設(shè)計(jì)教程本書(shū)目錄本書(shū)目錄1515子過(guò)程的調(diào)用是一句獨(dú)立的調(diào)用語(yǔ)句，有兩種子過(guò)程的調(diào)用是一句獨(dú)立的調(diào)用語(yǔ)句，有兩種形式：形式：Call Call 子過(guò)程名

16、子過(guò)程名(實(shí)參列表實(shí)參列表)子過(guò)程名子過(guò)程名 (實(shí)參列表實(shí)參列表)用用Call關(guān)鍵字時(shí)，若有實(shí)參，則實(shí)參必須用圓關(guān)鍵字時(shí)，若有實(shí)參，則實(shí)參必須用圓括號(hào)括起，無(wú)實(shí)參圓括號(hào)省略括號(hào)括起，無(wú)實(shí)參圓括號(hà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á)式，也不能是控，不能是常量、表達(dá)式，也不能是控件名。件名。 .3子過(guò)程調(diào)用子過(guò)程調(diào)用本章目錄本章目錄 VB.NET程序設(shè)計(jì)教程程序設(shè)計(jì)教程本書(shū)目錄本書(shū)目錄1616例例6.5 6

17、.5 分別編一統(tǒng)計(jì)字符串分別編一統(tǒng)計(jì)字符串S S中定冠詞中定冠詞T Thehe出現(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子串。子串。.3子過(guò)程調(diào)用子過(guò)程調(diào)用本章目錄本章目錄代碼說(shuō)明代碼說(shuō)明If you cant find the answers you need in the productist VB.NET程序設(shè)計(jì)教程程序設(shè)計(jì)教程本書(shū)目錄本書(shū)目錄1717例例6.5 6.5 分別編一統(tǒng)計(jì)字符串分別編一統(tǒng)計(jì)字符串S S中定冠詞中定冠詞TheThe

18、出現(xiàn)個(gè)出現(xiàn)個(gè)數(shù)的數(shù)的子過(guò)程和函數(shù)過(guò)程子過(guò)程和函數(shù)過(guò)程，并分別調(diào)用。，并分別調(diào)用。處理方法：利用處理方法：利用InStrInStr函數(shù)反復(fù)在函數(shù)反復(fù)在字符串字符串St找找TheThe子串。子串。分析：分析：.3子過(guò)程調(diào)用子過(guò)程調(diào)用本章目錄本章目錄If you cant find the answers you need in the productiSt VB.NET程序設(shè)計(jì)教程程序設(shè)計(jì)教程本書(shū)目錄本書(shū)目錄1818兩種過(guò)程使用的區(qū)別兩種過(guò)程使用的區(qū)別: : 函數(shù)名有一個(gè)值、子過(guò)程名無(wú)值函數(shù)名有一個(gè)值、子過(guò)程名無(wú)值要將函數(shù)過(guò)程改為子過(guò)程要將函數(shù)過(guò)程改為子過(guò)程: : 將函數(shù)過(guò)程的返回

19、結(jié)果作為子過(guò)程的一個(gè)形參將函數(shù)過(guò)程的返回結(jié)果作為子過(guò)程的一個(gè)形參本章目錄本章目錄 VB.NET程序設(shè)計(jì)教程程序設(shè)計(jì)教程本書(shū)目錄本書(shū)目錄19196.3 6.3 參數(shù)傳遞參數(shù)傳遞 6.3.1 形參與實(shí)參形參與實(shí)參在參數(shù)傳遞中，一般是按位置傳送，按實(shí)參的位在參數(shù)傳遞中，一般是按位置傳送，按實(shí)參的位置次序與形參的位置次序?qū)?yīng)傳送，與參數(shù)名沒(méi)置次序與形參的位置次序?qū)?yīng)傳送，與參數(shù)名沒(méi)有關(guān)系。有關(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ù)、

20、類(lèi)型、位置，例如Mid函數(shù)形式：函數(shù)形式： MidMid(字符串字符串$，起始位，起始位%，取幾位，取幾位%)調(diào)用語(yǔ)句：調(diào)用語(yǔ)句：s=Mid(This is VB.NET ，9，2)則則s中的結(jié)果為中的結(jié)果為“VB”。 若若: s=Mid(9,“This is VB.NET” ，2) 則錯(cuò)誤則錯(cuò)誤本章目錄本章目錄 VB.NET程序設(shè)計(jì)教程程序設(shè)計(jì)教程本書(shū)目錄本書(shū)目錄20206.3.2 6.3.2 傳址與傳值傳址與傳值實(shí)參與形參的結(jié)合有實(shí)參與形參的結(jié)合有傳址傳址(ByRef,默認(rèn)默認(rèn))和和傳值傳值(ByVal)兩種方法。兩種方法。v 傳址方式參數(shù)結(jié)合過(guò)程傳址方式參數(shù)結(jié)合過(guò)程 當(dāng)調(diào)用一個(gè)過(guò)程時(shí)，當(dāng)

21、調(diào)用一個(gè)過(guò)程時(shí)，它將實(shí)參的地址傳遞給形參。因此在被調(diào)過(guò)程體它將實(shí)參的地址傳遞給形參。因此在被調(diào)過(guò)程體中對(duì)形參的任何操作都變成了對(duì)相應(yīng)實(shí)參的操作，中對(duì)形參的任何操作都變成了對(duì)相應(yīng)實(shí)參的操作，實(shí)參的值就會(huì)隨過(guò)程體內(nèi)對(duì)形參的改變而實(shí)參的值就會(huì)隨過(guò)程體內(nèi)對(duì)形參的改變而改變改變。v 傳值方式參數(shù)結(jié)合過(guò)程傳值方式參數(shù)結(jié)合過(guò)程 當(dāng)調(diào)用一個(gè)過(guò)程時(shí)，當(dāng)調(diào)用一個(gè)過(guò)程時(shí)，系統(tǒng)將實(shí)參的值復(fù)制給形參，實(shí)參與形參斷開(kāi)了系統(tǒng)將實(shí)參的值復(fù)制給形參，實(shí)參與形參斷開(kāi)了聯(lián)系。在過(guò)程體內(nèi)對(duì)形參的任何操作聯(lián)系。在過(guò)程體內(nèi)對(duì)形參的任何操作不會(huì)影響不會(huì)影響到到實(shí)參。實(shí)參。 本章目錄本章目錄 VB.NET程序設(shè)計(jì)教程程序設(shè)計(jì)教程本書(shū)目錄本書(shū)

22、目錄2121例例6.7 傳址與傳值傳址與傳值a的 地 址 1 0 1 0 1 0aa x x形 參實(shí) 參B yV al 傳 值傳 地 址本章目錄本章目錄形參獲得實(shí)形參獲得實(shí)參的值參的值形參獲得實(shí)形參獲得實(shí)參的地址參的地址 VB.NET程序設(shè)計(jì)教程程序設(shè)計(jì)教程本書(shū)目錄本書(shū)目錄2222傳址與傳值傳址與傳值選用傳值還是傳地址一般進(jìn)行如下考慮：選用傳值還是傳地址一般進(jìn)行如下考慮：q 要將被調(diào)過(guò)程中的結(jié)果返回給主調(diào)程序，則要將被調(diào)過(guò)程中的結(jié)果返回給主調(diào)程序，則形參必須是傳址方式。這時(shí)實(shí)參必須是同類(lèi)型的形參必須是傳址方式。這時(shí)實(shí)參必須是同類(lèi)型的變量名變量名( (包括簡(jiǎn)單變量、數(shù)組名、結(jié)構(gòu)類(lèi)型等包括簡(jiǎn)單變量

23、、數(shù)組名、結(jié)構(gòu)類(lèi)型等) )，不能是常量、表達(dá)式。不能是常量、表達(dá)式。q 不希望過(guò)程修改實(shí)參的值，則應(yīng)選用傳值方不希望過(guò)程修改實(shí)參的值，則應(yīng)選用傳值方式，減少各過(guò)程間的關(guān)聯(lián)。因?yàn)樵谶^(guò)程體內(nèi)對(duì)形式，減少各過(guò)程間的關(guān)聯(lián)。因?yàn)樵谶^(guò)程體內(nèi)對(duì)形參的改變不會(huì)影響實(shí)參。參的改變不會(huì)影響實(shí)參。q 形參是數(shù)組都是地址傳遞形參是數(shù)組都是地址傳遞( (可表示值傳遞或地可表示值傳遞或地址傳遞址傳遞) )。 本章目錄本章目錄 VB.NET程序設(shè)計(jì)教程程序設(shè)計(jì)教程本書(shū)目錄本書(shū)目錄2323例例6.86.8如下如下sumsum子過(guò)程求數(shù)組子過(guò)程求數(shù)組a a各元素和、并改變各元素和、并改變數(shù)組各元素值：數(shù)組各元素值：Functi

24、onFunction sum%( sum%(ByValByVal x() x() AsAs IntegerInteger) ) 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ù)的傳遞 本章目錄本章目錄 VB.NET程序設(shè)計(jì)教程程序設(shè)計(jì)教程本書(shū)目錄本書(shū)目錄2424v形

25、參是數(shù)組形參是數(shù)組 要以數(shù)組名加圓括號(hào)表示，不要要以數(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當(dāng)數(shù)組作為參數(shù)傳遞時(shí)，系統(tǒng)將實(shí)參數(shù)組的起當(dāng)數(shù)組作為參數(shù)傳遞時(shí)，系統(tǒng)將實(shí)參數(shù)組的起始地址傳給過(guò)程，使形參數(shù)組也具有與實(shí)參數(shù)組始地址傳給過(guò)程，使形參數(shù)組也具有與實(shí)參數(shù)組相同的起始地址。相同的起始地址。 數(shù)組參數(shù)的傳遞數(shù)組參數(shù)的傳遞 13579形參數(shù)組形參數(shù)組實(shí)參數(shù)組實(shí)參數(shù)組本章目錄本章目錄

26、VB.NET程序設(shè)計(jì)教程程序設(shè)計(jì)教程本書(shū)目錄本書(shū)目錄25256.3.4 6.3.4 變量的作用域變量的作用域 u塊變量塊變量 在控制結(jié)構(gòu)塊中聲明的變量，只能在在控制結(jié)構(gòu)塊中聲明的變量，只能在 本塊內(nèi)有效本塊內(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ǔ)句聲明的變量，可被本模塊的任何過(guò)程語(yǔ)句聲明的變量，可被本模塊的任何過(guò)程訪問(wèn)訪問(wèn) u全局變量全局變量 在模塊級(jí)用在模塊級(jí)用Public語(yǔ)句聲明的變量，

27、語(yǔ)句聲明的變量，可被應(yīng)用程序的任何過(guò)程或函數(shù)訪問(wèn)可被應(yīng)用程序的任何過(guò)程或函數(shù)訪問(wèn) 本章目錄本章目錄 VB.NET程序設(shè)計(jì)教程程序設(shè)計(jì)教程本書(shū)目錄本書(shū)目錄2626變量的作用域變量的作用域 例如在下面一個(gè)標(biāo)準(zhǔn)模塊文件中不同級(jí)的變量聲明：例如在下面一個(gè)標(biāo)準(zhǔn)模塊文件中不同級(jí)的變量聲明： Public Pa As integer 全局變量全局變量 Private Mb As string *10 窗體窗體/模塊級(jí)變量模塊級(jí)變量 Sub F1( ) Dim Fa As integer 過(guò)程級(jí)變量過(guò)程級(jí)變量 End Sub Sub F2( ) Dim Fb As Single 過(guò)程級(jí)變量過(guò)程級(jí)變量For i

28、=1 to 10 Dim k% 塊變量塊變量 Next i End Sub本章目錄本章目錄 VB.NET程序設(shè)計(jì)教程程序設(shè)計(jì)教程本書(shū)目錄本書(shū)目錄2727Sub Button1_Click() Handles Button1.Click Dim i% ，isum% For i = 1 To 5 isum = sum(i) TextBox1.Text &= isum= & isum & vbCrLf Next iEnd SubFunction sum(ByVal n As Integer) Static j As Integer j = j + n sum = jEnd Function6.3.5

29、 6.3.5 靜態(tài)變量靜態(tài)變量 靜態(tài)變量靜態(tài)變量 程序運(yùn)行過(guò)程中可程序運(yùn)行過(guò)程中可保留變量的值保留變量的值聲明形式：聲明形式：Static Static 變量名變量名 AS 類(lèi)型類(lèi)型用用Dim聲明的變量，每次調(diào)用過(guò)程時(shí)重新初始化聲明的變量，每次調(diào)用過(guò)程時(shí)重新初始化例例6.10比較比較Dim和和Static兩者的區(qū)別。兩者的區(qū)別。 本章目錄本章目錄 VB.NET程序設(shè)計(jì)教程程序設(shè)計(jì)教程本書(shū)目錄本書(shū)目錄2828遞歸過(guò)程在自身定義的內(nèi)部調(diào)用自己。遞歸過(guò)程在自身定義的內(nèi)部調(diào)用自己。例例6.12編編fac(n)=n! 的遞歸函數(shù)的遞歸函數(shù)Function fac(n As Integer) As Int

30、eger If n = 1 Then fac = 1 Elsefac = n * fac(n - 1) End IfEnd Function1) 1fac(*11)fac(nnnnn6.4 6.4 遞歸遞歸用自身的結(jié)構(gòu)來(lái)描述自用自身的結(jié)構(gòu)來(lái)描述自身就稱(chēng)為遞歸。身就稱(chēng)為遞歸。最典型的例子是階乘運(yùn)最典型的例子是階乘運(yùn)算算, ,作如下的定義：作如下的定義： )!2() 1()!1()!1(!nnnnnn本章目錄本章目錄 VB.NET程序設(shè)計(jì)教程程序設(shè)計(jì)教程本書(shū)目錄本書(shū)目錄2929遞推遞推回歸回歸遞推過(guò)程：每調(diào)用自身，當(dāng)前參數(shù)壓棧，直到達(dá)到遞歸結(jié)束條件。遞推過(guò)程：每調(diào)用自身，當(dāng)前參數(shù)壓棧，直到達(dá)到遞歸

31、結(jié)束條件?；貧w過(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)存空間比非遞歸大由此可見(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)本章目錄本章目錄遞歸結(jié)構(gòu)

32、遞歸結(jié)構(gòu) VB.NET程序設(shè)計(jì)教程程序設(shè)計(jì)教程本書(shū)目錄本書(shū)目錄30306.5 6.5 綜合應(yīng)用綜合應(yīng)用 1 數(shù)制轉(zhuǎn)換數(shù)制轉(zhuǎn)換不同進(jìn)制數(shù)之間的轉(zhuǎn)換，可通過(guò)編程來(lái)實(shí)現(xiàn)；也可通過(guò)不同進(jìn)制數(shù)之間的轉(zhuǎn)換，可通過(guò)編程來(lái)實(shí)現(xiàn)；也可通過(guò)VB提供的內(nèi)部函數(shù)：十進(jìn)制轉(zhuǎn)換為八進(jìn)制函數(shù)（提供的內(nèi)部函數(shù)：十進(jìn)制轉(zhuǎn)換為八進(jìn)制函數(shù)（Oct）、）、轉(zhuǎn)換為十六進(jìn)制函數(shù)（轉(zhuǎn)換為十六進(jìn)制函數(shù)（Hex）來(lái)實(shí)現(xiàn)。）來(lái)實(shí)現(xiàn)。例例6.13編一函數(shù)，實(shí)現(xiàn)一個(gè)十進(jìn)制整數(shù)轉(zhuǎn)換成二至十六編一函數(shù)，實(shí)現(xiàn)一個(gè)十進(jìn)制整數(shù)轉(zhuǎn)換成二至十六任意進(jìn)制的字符。任意進(jìn)制的字符。分析：十進(jìn)制正整數(shù)分析：十進(jìn)制正整數(shù)m轉(zhuǎn)換成轉(zhuǎn)換成r進(jìn)制數(shù)，進(jìn)制數(shù)，將將m不斷除不斷除r

33、取取余數(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ù)在最高位。本章目錄本章目錄演示演示 VB.NET程序設(shè)計(jì)教程程序設(shè)計(jì)教程本書(shū)目錄本書(shū)目錄3131綜合應(yīng)用綜合應(yīng)用- -加密加密2.加密和解密加密和解密信息加密是信息安全性的措施之一。信息加密有信息加密是信息安全性的措施之一。信息加密有各種方法，最簡(jiǎn)單的加密方法是將每個(gè)字母平移各種方法，最簡(jiǎn)單的加密方法是將每個(gè)字母平移一個(gè)位置一個(gè)位置( 稱(chēng)為密鑰稱(chēng)為密鑰)。例如，后移。例如，后移5個(gè)位置，這個(gè)位置，這時(shí)，時(shí)，AF，B G Y D，ZE ，a f ；解；解密是加密的逆操作。密是加密的逆操作。例例6.14 6.14 編一加密和解密的程序