第六章過(guò)程5學(xué)時(shí)(編輯修改稿)
2024-11-22 12:08 本頁(yè)面
【文章內(nèi)容簡(jiǎn)介】 ?832iibt調(diào)用： Sub Command1_Click() Dim a%(1 To 5)， b%(3 To 8) … t1 = tim(a()) t2 = tim(b()) Print t1， t2 End Sub 使用過(guò)程注意事項(xiàng)： 1. 確定自定義的過(guò)程是子過(guò)程還是函數(shù)過(guò)程 函數(shù)過(guò)程名有值，子過(guò)程名無(wú)值。 2．過(guò)程中形參的個(gè)數(shù)和傳遞方式的確定 過(guò)程中參數(shù)的作用是實(shí)現(xiàn)過(guò)程與調(diào)用者的數(shù)據(jù)通信。 (1)從主調(diào)程序獲得初值，值傳遞。 (2)將結(jié)果返回給主調(diào)程序，地址傳遞。 3. 實(shí)參與形參結(jié)合時(shí)對(duì)應(yīng)問(wèn)題 個(gè)數(shù)、類型、位置、次序一一對(duì)應(yīng)。 形參是值傳遞，對(duì)應(yīng)實(shí)參可以是表達(dá)式、常量、數(shù)組元素。 形參是地址傳遞，對(duì)應(yīng)實(shí)參只能是簡(jiǎn)單變量。 數(shù)組、記錄類型、對(duì)象只能是地址傳遞。 實(shí)驗(yàn) 1. 函數(shù)過(guò)程，形參一個(gè)，值傳遞對(duì)所判斷的數(shù)字；函數(shù)名是否為回文數(shù)。 Function IsH(ByVal ss As String) As Boolean 2. 子過(guò)程，形參兩個(gè)，值傳遞對(duì)所判斷的數(shù)字，地址傳遞是否位回文數(shù)。 Sub hui(ByVal ss As String, Tag As Boolean) 實(shí)驗(yàn) DeleStr(s1， s2)形參的確定 s1，要處理的字符串，從主調(diào)程序得初值，刪除子串后結(jié)果在 S1中，所以地址傳遞。 s2刪除的子串，值傳遞。 實(shí)驗(yàn) MaxLength(s)形參的確定 S要處理的字符串，值傳遞。 MaxLength函數(shù)名，最長(zhǎng)的單詞長(zhǎng)度。 四、 變量、過(guò)程的作用域 作用域： 變量、過(guò)程隨所處的位置不同，可被訪問(wèn)的范圍。 窗體 /模塊級(jí) ：加 Private關(guān)鍵字的過(guò)程，只能被定義的窗體或模塊中的過(guò)程調(diào)用。 全局級(jí) ：加 Public關(guān)鍵字（缺省）的過(guò)程，可供該應(yīng)用程序的所有 窗體和所有標(biāo)準(zhǔn)模塊中的過(guò)程調(diào)用。 2. 變量的作用域 局部變量 ：在過(guò)程內(nèi)用聲明的變量，只能在本過(guò)程中使用。 窗體 /模塊級(jí)變量 ：在“通用聲明”段中用 Dim語(yǔ)句或用 Private語(yǔ)句聲明的變量 ,可被本窗體 /模塊的任何過(guò)程訪問(wèn)。 全局變量 ：在 “通用聲明”段中用 Public語(yǔ)句聲明的變量，可被本應(yīng)用程序的任何過(guò)程或函數(shù)訪問(wèn)。 例如在下面一個(gè)標(biāo)準(zhǔn)模塊文件中不同級(jí)的變量聲明： Public Pa As integer 39。 全局變量 Private Mb As string *10 39。 窗體 /模塊級(jí)變量 Sub F1( ) Dim Fa As integer 39。 局部變量 … End Sub Sub F2( ) Dim Fb As Single 39。 局部變量 … End Sub 若在不同級(jí)聲明相同的變量名 ,系統(tǒng)按局部、窗體 /模塊、全局次序訪問(wèn)如 : Public Temp As integer 39。 全局變量 Sub Form_Load（） Dim Temp As Integer 39。 局部變量 Temp=10 39。 訪問(wèn)局部變量 =20 39。 訪問(wèn)全局變量必須加窗體名 Print , Temp 39。 顯示 20 10 End Sub 3. 靜態(tài)變量 局部變量聲明： Dim聲明 ，隨過(guò)程的調(diào)用而分配存貯單元，變量的初始化；過(guò)程體結(jié)束，變量的內(nèi)容自動(dòng)消失，存貯單元釋放。 Static聲明 ，每次調(diào)用過(guò)程，變量保持原來(lái)的值。 聲明形式 ： Static 變量名 [AS 類型 ] Static Function 函數(shù)過(guò)程名 ([參數(shù)列表 ]) [As 類型 ] Static Sub 子過(guò)程名 [(參數(shù)列表 )] 過(guò)程名前加 Static，表示該過(guò)程內(nèi)的局部變量都是靜態(tài)變量。 例 Private Sub Form_Click() Dim i% ， isum% For i = 1 To 5 isum = sum(i) Print isum， Next i End Sub Private Function sum(n As Integer) Dim j As Integer j = j + n sum = j End Function Static j As Integer，結(jié)果？ 1， 2， 3， 4， 5 Sub f1(x) … x=f2(xx)*3… End Sub Sub Command1_Click() …… Call f1(y) End Sub Function f2(x) …… f2=f3(x)+3 End Sub Function f3(x) …… f3=x*x End Sub Sub f1(x) … Call f1(y) End Sub 過(guò)程
教學(xué)課件相關(guān)推薦
鄂ICP備17016276號(hào)-1