第4章 VVB NET過(guò)程與變量

1、第四章第四章 過(guò)程與變量的作用域過(guò)程與變量的作用域在Visual Basic.NET中有3種類型的過(guò)程：Sub過(guò)程、Function過(guò)程和Property過(guò)程。 Sub過(guò)程過(guò)程執(zhí)行操作，但不向調(diào)用它的過(guò)程返回值。執(zhí)行操作，但不向調(diào)用它的過(guò)程返回值。 Function過(guò)程過(guò)程可以向調(diào)用它的過(guò)程返回值。可以向調(diào)用它的過(guò)程返回值。 Property過(guò)程過(guò)程可以返回類、結(jié)構(gòu)或模塊屬性的可以返回類、結(jié)構(gòu)或模塊屬性的值，或向它們賦值。值，或向它們賦值。 過(guò)程可以被其他過(guò)程調(diào)用，當(dāng)一個(gè)過(guò)程調(diào)用另一過(guò)程可以被其他過(guò)程調(diào)用，當(dāng)一個(gè)過(guò)程調(diào)用另一個(gè)過(guò)程時(shí)，控制權(quán)將會(huì)轉(zhuǎn)移到后一個(gè)過(guò)程，當(dāng)后個(gè)過(guò)程時(shí)，控制權(quán)將會(huì)轉(zhuǎn)移到后

2、一個(gè)過(guò)程，當(dāng)后一個(gè)過(guò)程的代碼執(zhí)行完畢時(shí)，它將控制權(quán)返回給一個(gè)過(guò)程的代碼執(zhí)行完畢時(shí)，它將控制權(quán)返回給調(diào)用它的過(guò)程。調(diào)用它的過(guò)程。4.1 Sub過(guò)程的創(chuàng)建與調(diào)用過(guò)程的創(chuàng)建與調(diào)用知識(shí)點(diǎn)知識(shí)點(diǎn)1 Sub過(guò)程的創(chuàng)建過(guò)程的創(chuàng)建1. 聲明Sub過(guò)程的語(yǔ)法格式如下：訪問(wèn)修飾符訪問(wèn)修飾符 Sub 過(guò)程名過(guò)程名 ( 形參列表形參列表 ) 語(yǔ)句塊語(yǔ)句塊1 Exit Sub 語(yǔ)句塊語(yǔ)句塊2 End Sub說(shuō)明：見(jiàn)說(shuō)明：見(jiàn)P81表表4-1知識(shí)點(diǎn)知識(shí)點(diǎn)2 Sub過(guò)程的調(diào)用過(guò)程的調(diào)用定義一個(gè)過(guò)程后，就可以在程序中調(diào)用該過(guò)程了。定義一個(gè)過(guò)程后，就可以在程序中調(diào)用該過(guò)程了。調(diào)用調(diào)用Sub過(guò)程的語(yǔ)法格式如下所示：過(guò)程的語(yǔ)法格式如

3、下所示： Call 過(guò)程名過(guò)程名 ( 實(shí)參列表實(shí)參列表 ) 說(shuō)明：說(shuō)明： 調(diào)用調(diào)用Sub 過(guò)程要使用獨(dú)立的調(diào)用語(yǔ)句，不能在表過(guò)程要使用獨(dú)立的調(diào)用語(yǔ)句，不能在表達(dá)式中調(diào)用達(dá)式中調(diào)用Sub 過(guò)程。過(guò)程。 調(diào)用時(shí)必須提供所有非可選參數(shù)的值，并且必須調(diào)用時(shí)必須提供所有非可選參數(shù)的值，并且必須用括號(hào)將參數(shù)列表括起來(lái)。如果未提供任何參數(shù)，用括號(hào)將參數(shù)列表括起來(lái)。如果未提供任何參數(shù)，可以省略括號(hào)。可以省略括號(hào)。 Call 關(guān)鍵字是可選項(xiàng)，但是建議使用。關(guān)鍵字是可選項(xiàng)，但是建議使用。知識(shí)點(diǎn)知識(shí)點(diǎn)3 事件過(guò)程事件過(guò)程Windows應(yīng)用程序采用事件驅(qū)動(dòng)事件驅(qū)動(dòng)的編程機(jī)制，在圖形用戶界面上，要實(shí)現(xiàn)用戶和應(yīng)用程序之間

4、的交互就必須對(duì)事件進(jìn)行響應(yīng)，為此必須編寫(xiě)對(duì)象的事件過(guò)程代碼。對(duì)象的事件過(guò)程也是Sub過(guò)程，其過(guò)程名稱通常是對(duì)對(duì)象名象名_事件名稱事件名稱，如frmSub窗體的加載事件frmSub_Load()、單擊事件frmSub_Click()等。在事件過(guò)程中可以調(diào)用其他Sub過(guò)程。任務(wù)任務(wù)1 Sub過(guò)程的應(yīng)用過(guò)程的應(yīng)用 要求：編寫(xiě)一個(gè)Sub 過(guò)程，通知用戶應(yīng)用程序?qū)⒁獔?zhí)行哪個(gè)任務(wù)，并且顯示一個(gè)時(shí)間戳。分別在窗體的Load事件和Click事件過(guò)程中調(diào)用該過(guò)程。 任務(wù)任務(wù)1 解析解析編寫(xiě)Sub過(guò)程tellOperator，其形參task表示任務(wù)名稱。Sub tellOperator(ByVal task As

5、 String) Dim stamp As Date stamp = TimeOfDay()系統(tǒng)時(shí)間系統(tǒng)時(shí)間 MsgBox(執(zhí)行執(zhí)行 & task & 任務(wù)任務(wù) at & CStr(stamp)End Sub編寫(xiě)窗體的Load事件過(guò)程，在調(diào)用Sub過(guò)程時(shí)使用的實(shí)參是窗體加載。Private Sub frmSub_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Click Call tellOperator(單擊窗體單擊窗體) End Sub編寫(xiě)窗體的Click事件過(guò)程，在調(diào)用Su

6、b過(guò)程時(shí)使用的實(shí)參是單擊窗體。 Private Sub frmSub_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load Call tellOperator(窗體加載窗體加載) End Sub4.2 Function過(guò)程的創(chuàng)建與調(diào)用過(guò)程的創(chuàng)建與調(diào)用Function過(guò)程又稱為函數(shù)過(guò)程，它是過(guò)程的另一種形式，當(dāng)過(guò)程的執(zhí)行僅需要返回一個(gè)值時(shí)，用函數(shù)過(guò)程就比較簡(jiǎn)單。 知識(shí)點(diǎn)知識(shí)點(diǎn)1 Function過(guò)程的創(chuàng)建過(guò)程的創(chuàng)建Function過(guò)程和Sub過(guò)程類似，但Function過(guò)程可以向其調(diào)用過(guò)程返回值。創(chuàng)建F

7、unction過(guò)程的語(yǔ)法格式如下所示：訪問(wèn)修飾符訪問(wèn)修飾符 Function 函數(shù)名函數(shù)名 ( 形參列表形參列表 ) As 數(shù)據(jù)類型數(shù)據(jù)類型 語(yǔ)句塊語(yǔ)句塊1 函數(shù)名函數(shù)名= 表達(dá)式表達(dá)式 | Return 表達(dá)式表達(dá)式 Exit Function 函數(shù)名函數(shù)名= 表達(dá)式表達(dá)式 | Return 表達(dá)式表達(dá)式 語(yǔ)句塊語(yǔ)句塊2 End Function例如，下面是一個(gè)計(jì)算正整數(shù)n階乘的函數(shù)過(guò)程fact (n ) Public Function Fact (n As Integer) As LongDim t As Long, i As Integert = 1For i = 1 To nt = t

8、 * iNext iFact = t 或者或者 Return tEnd Function知識(shí)點(diǎn)知識(shí)點(diǎn)2 Function過(guò)程的調(diào)用過(guò)程的調(diào)用 調(diào)用 Function 過(guò)程的方法是將其名稱和參數(shù)放在賦值語(yǔ)句的右邊或表達(dá)式中。必須提供所有非可選參數(shù)的值，并且必須用括號(hào)將參數(shù)列表括起來(lái)。如果未提供任何參數(shù)，則也可以選擇省略括號(hào)。 調(diào)用 Function 過(guò)程的語(yǔ)法格式如下： 函數(shù)名函數(shù)名( 實(shí)參列表實(shí)參列表 )例如，調(diào)用Fact函數(shù)過(guò)程計(jì)算5！，并將結(jié)果顯示在文本框TextBox1的語(yǔ)句如下：TextBox1.Text = Cstr(Fact(5)任務(wù)2 使用Function過(guò)程求最大公約數(shù)和最小公

9、倍數(shù) 要求：編寫(xiě)一個(gè)求最大公約數(shù)的Function 過(guò)程，調(diào)用這個(gè)過(guò)程求任意兩個(gè)正整數(shù)的最大公約數(shù)和最小公倍數(shù)。 任務(wù)任務(wù)2 解析解析思路分析：求兩個(gè)數(shù)m和n的最大公約數(shù)可以使用“輾轉(zhuǎn)相除法”，步驟是：n以數(shù)m作為被除數(shù)，數(shù)n作為除數(shù)，相除后余數(shù)為r。n若r不為零，則 繼續(xù)相除得到新的r。若r仍不為零，則重復(fù)此過(guò)程，直到r0。n最后的n就是最大公約數(shù)。 最小公倍數(shù)最大公約數(shù)mn, rn, nm編寫(xiě)一個(gè)Function 過(guò)程Gcd，用于求兩個(gè)形參m和n的最大公約數(shù)。 Dim num1, num2 As Integer Function Gcd(ByVal m As Integer, ByVal

10、n As Integer) As Integer Dim r As Integer r表示兩數(shù)相除得到的余數(shù)表示兩數(shù)相除得到的余數(shù) r = m Mod n Do While r 0當(dāng)余數(shù)不為當(dāng)余數(shù)不為0時(shí)時(shí) m = n n = r r = m Mod n Loop Gcd = n End Function編寫(xiě)按鈕的編寫(xiě)按鈕的Click事件過(guò)程，通過(guò)調(diào)用事件過(guò)程，通過(guò)調(diào)用Gcd過(guò)程計(jì)算得到任意兩個(gè)數(shù)的最大公約數(shù)。過(guò)程計(jì)算得到任意兩個(gè)數(shù)的最大公約數(shù)。 Private Sub btnGcd_Click(ByVal sender As Object, ByVal e As System.EventAr

11、gs) Handles btnGcd.Click num1 = Val(txtFirst.Text) num2 = Val(txtSecond.Text) txtGcd.Text = Gcd(num1, num2) End Sub編寫(xiě)按鈕的編寫(xiě)按鈕的Click事件過(guò)程，通過(guò)調(diào)用事件過(guò)程，通過(guò)調(diào)用Gcd過(guò)程計(jì)算得到任意兩個(gè)數(shù)的最小公倍數(shù)。過(guò)程計(jì)算得到任意兩個(gè)數(shù)的最小公倍數(shù)。 Private Sub btnLcm_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnLcm.Click num1 = Val(tx

12、tFirst.Text) num2 = Val(txtSecond.Text)txtLcm.Text = num1 * num2 / Gcd(num1, num2) End Sub4.3 過(guò)程中參數(shù)的傳遞過(guò)程中參數(shù)的傳遞 調(diào)用過(guò)程時(shí)可以把數(shù)據(jù)傳遞給被調(diào)用的過(guò)程，也可以把過(guò)程中的數(shù)據(jù)傳遞回來(lái)。在調(diào)用過(guò)程中，要考慮調(diào)用過(guò)程和被調(diào)用過(guò)程之間的數(shù)據(jù)是怎樣傳遞的。知識(shí)點(diǎn)知識(shí)點(diǎn)1 形參與實(shí)參形參與實(shí)參形參是形式參數(shù)的簡(jiǎn)稱，是指在定義Sub過(guò)程或Function過(guò)程時(shí)，出現(xiàn)在Sub或Function過(guò)程中的變量名，是接收數(shù)據(jù)的變量。實(shí)參是實(shí)際參數(shù)的簡(jiǎn)稱，是指在調(diào)用Sub過(guò)程或Function過(guò)程時(shí)，傳遞給S

13、ub或Function過(guò)程的常量、變量或表達(dá)式。和中的對(duì)應(yīng)變量名不必相同，但是變量的個(gè)數(shù)必須相等，而且各實(shí)參的書(shū)寫(xiě)順序必須與相應(yīng)的形參順序一致，類型相符。知識(shí)點(diǎn)知識(shí)點(diǎn)2 傳值與傳地址傳值與傳地址在調(diào)用過(guò)程時(shí)，參數(shù)的傳遞有兩種方式：傳值方式和傳地址方式，其中傳值方式傳值方式是默認(rèn)方式。是默認(rèn)方式。1. 傳值方式 形式：形參前帶有關(guān)鍵字ByVal。 對(duì)實(shí)參的影響：形參得到的是實(shí)參的值，形參值的改變不會(huì)影響實(shí)參的值。引子：以兩個(gè)人在兩臺(tái)機(jī)器的文件拷貝做例子,值傳遞好比是你把文件復(fù)制一份，通過(guò)網(wǎng)絡(luò)傳給他，然后他可以在他本機(jī)上對(duì)文件做任何的修改，修改會(huì)保存下來(lái)，但是你機(jī)器上的文件不會(huì)發(fā)生任何的變化。即形

14、參與實(shí)參是兩個(gè)不同的變量，各自占用不同的存儲(chǔ)單元2. 傳地址方式 形式：形參前帶有關(guān)鍵字ByRef。 對(duì)實(shí)參的影響：形參得到的是實(shí)參的地址，形形參得到的是實(shí)參的地址，形參和實(shí)參使用相同的內(nèi)存單元，改變形參的值也參和實(shí)參使用相同的內(nèi)存單元，改變形參的值也即改變實(shí)參的值。即改變實(shí)參的值。 要求：實(shí)參必須是變量時(shí)才可以實(shí)現(xiàn)傳地址調(diào)用。當(dāng)實(shí)參是常量或表達(dá)式時(shí)無(wú)法實(shí)現(xiàn)傳地址方式，實(shí)際上是傳值方式。 Visual Basic.NET中允許參數(shù)是數(shù)組，數(shù)組只能通過(guò)傳址的方式進(jìn)行傳遞。在傳遞數(shù)組時(shí)要在實(shí)參列表和形參列表中放入數(shù)組名，忽略維數(shù)的定義，但圓括號(hào)不能省略。任務(wù)任務(wù)3 傳值與傳地址方式傳遞參傳值與傳地

15、址方式傳遞參數(shù)數(shù)編寫(xiě)交換兩個(gè)數(shù)的Sub過(guò)程，過(guò)程Swap1使用傳值方式，過(guò)程Swap2使用傳地址方式。 Dim num1 As Single, num2 As Single Sub Swap1(ByVal a As Single, ByVal b As Single) Dim t As Single t = a a = b b = t End Sub Sub Swap2(ByRef a As Single, ByRef b As Single) Dim t As Single t = a a = b b = t End SubNum1的值的值 aNum2的值的值 b變量變量a的存儲(chǔ)單元的存儲(chǔ)單

16、元ab變量變量b的存儲(chǔ)單元的存儲(chǔ)單元num1num2 Private Sub btnByVal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnByVal.Click num1 = Val(txtNum1.Text) num2 = Val(txtNum2.Text) Call Swap1(num1, num2) Label2.Text = 傳值方式傳值方式 txtResult1.Text = num1 txtResult2.Text = num2 End SubPrivate Sub bt

17、nByRef_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnByRef.Click num1 = Val(txtNum1.Text) num2 = Val(txtNum2.Text) Call Swap2(num1, num2) Label2.Text = 傳地址方式傳地址方式 txtResult1.Text = num1 txtResult2.Text = num2 End Sub4.4 過(guò)程的嵌套與遞歸調(diào)用過(guò)程的嵌套與遞歸調(diào)用在一個(gè)過(guò)程（Sub過(guò)程或Function過(guò)程）中調(diào)用另外一個(gè)過(guò)程，稱為過(guò)

18、程的嵌套調(diào)用；而過(guò)程直接或間接地調(diào)用其自身，則稱為過(guò)程的遞歸調(diào)用。知識(shí)點(diǎn)1 過(guò)程的嵌套 在VB.NET中過(guò)程的定義不能嵌套，但可以嵌套調(diào)用過(guò)程，也就是主程序可以調(diào)用子過(guò)程，在子過(guò)程中還可以調(diào)用另外的子過(guò)程，這種過(guò)程的嵌套調(diào)用如圖4-7所示。主程序調(diào)用Sub1End SubSub1調(diào)用Sub2End Sub Sub2End Sub知識(shí)點(diǎn)2 過(guò)程的遞歸 遞歸調(diào)用是指一個(gè)過(guò)程直接或間接地調(diào)用自身，即自己調(diào)用自己。 例如，編寫(xiě)一個(gè)用遞歸調(diào)用的方法求n！的Function過(guò)程。 根據(jù)求n!的定義，n!=n*(n-1)!可以寫(xiě)成如下的形式：1n) 1n(fac*n1n1)n(fac計(jì)算n！的Functio

19、n過(guò)程如下：Private Function fac(Byval n As Integer) As LongIf n = 1 Then fac = 1Else fac = n * fac(n - 1)End IfEnd Function任務(wù)4 使用過(guò)程的嵌套求組合數(shù) 編寫(xiě)一個(gè)求組合數(shù) 的程序。要求將求階乘和求組合數(shù)公式分別定義成兩個(gè)Function過(guò)程來(lái)實(shí)現(xiàn)。 )!( !mnmnCmn任務(wù)任務(wù)4 解析解析思路分析： 編寫(xiě)一個(gè)求階乘的Function過(guò)程Fact，一個(gè)求組合數(shù)的Function過(guò)程Comb。在Comb過(guò)程中要調(diào)用Fact過(guò)程3次，這就是過(guò)程的嵌套調(diào)用。最后在按鈕的Click事件中

20、調(diào)用Comb過(guò)程，就可以得到任意兩個(gè)正整數(shù)的組合數(shù)。 求階乘的Function過(guò)程Fact的代碼如下： Private Function Fact(ByVal num As Integer) As Long Dim i As Integer, t As Long t = 1 For i = 1 To num t = t * i Next i Fact = t End Function 求組合數(shù)的Function過(guò)程Comb的代碼如下： Private Function Comb(ByVal n As Integer, ByVal m As Integer) As Long Comb = Fac

21、t(n) / Fact(m) * Fact(n - m) End FunctionPrivate Sub btnOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOK.Click Dim n, m, temp As Integer n = Val(txtN.Text) m = Val(txtM.Text) If n n則交換兩數(shù)則交換兩數(shù) temp = n n = m m = temp txtN.Text = n txtM.Text = m End If txtResult.Text

22、= Comb(n, m) End Sub4.5 變量的作用域變量的作用域 變量可以在語(yǔ)句塊、過(guò)程、窗體模塊、標(biāo)準(zhǔn)模塊或類中定義。根據(jù)聲明變量的位置，可以把變量的作用域分為：局部變量、模塊級(jí)變量和全局變量。知識(shí)點(diǎn)知識(shí)點(diǎn)1 局部變量局部變量局部變量具有以下特點(diǎn)： 是在過(guò)程或語(yǔ)句塊中使用Dim或或Static關(guān)鍵字聲明的變量； 只能在定義它的過(guò)程或語(yǔ)句塊中使用； 如果兩個(gè)過(guò)程或兩個(gè)語(yǔ)句塊定義相同名稱的變量，它們是完全獨(dú)立的，作用域范圍互不相同，都只在各自的過(guò)程或語(yǔ)句塊中起作用。知識(shí)點(diǎn)2 模塊級(jí)變量 在窗體模塊、標(biāo)準(zhǔn)模塊或類的所有過(guò)程外用關(guān)鍵字Private或Dim定義的變量是模塊級(jí)變量，其作用域是定

23、義的模塊，在模塊內(nèi)的所有過(guò)程都可以使用它們，但其他模塊不能訪問(wèn)這些變量。知識(shí)點(diǎn)3 全局變量 在窗體模塊、標(biāo)準(zhǔn)模塊或類的所有過(guò)程外用關(guān)鍵字Public或或Shared定義的變量是全局變量，其作用域?yàn)檎麄€(gè)程序。全局變量定義后，本模塊中的過(guò)程和同一項(xiàng)目中的所有其他模塊中的過(guò)程均可以使用該變量。由于全局變量具有能被同一項(xiàng)目中的所有模塊中的多個(gè)過(guò)程共同訪問(wèn)的特點(diǎn)，所以可以使用全局變量在多模塊多過(guò)程之間進(jìn)行數(shù)據(jù)傳遞。任務(wù)任務(wù)5 變量作用域的演示變量作用域的演示在“局部變量”的單擊事件過(guò)程中定義了3個(gè)局部變量：過(guò)程級(jí)變量a、靜態(tài)變量m、語(yǔ)句塊級(jí)變量s，并引用了模塊級(jí)變量strName的值作為電影的名稱，注意每單擊一次該按鈕，這些變量值的變化。在“模塊級(jí)變量”的單擊事件過(guò)程中定義了1個(gè)模塊級(jí)變量strName，每單擊一次該按鈕，變量strName就被賦值為一個(gè)新的電影名稱。在“全局變量”的單擊事件過(guò)程中引用了1個(gè)全局變量pub，每單擊一次該按鈕，pub的值累加10，并在標(biāo)簽中顯示新值。在項(xiàng)目中添加一個(gè)標(biāo)準(zhǔn)模塊，在模塊中定義一個(gè)全局變量pub。Public Class frmRangePrivate strName As String = 哈利波特 定義模塊級(jí)變量定義