第六章過程5學(xué)時-wenkub
2022-10-28 12:08:36 本頁面
【正文】 rm_Click() Dim t Dim a, b t = x a = 10 x = y b = 20 y = t Call Swap (a, b) End Sub Print a=。找下一個 OldS字符子串 Loop MyReplace = s 39。 函數(shù)名 = 返回值 在函數(shù)體內(nèi)至少對函數(shù)名賦值一次 [Exit Function] ： 表示退出函數(shù)過程 例 Replace一樣 ， 定義 MyReplace（ S,OldS,NewS） 函數(shù)過程 當(dāng)調(diào)用 MyReplace(abcdefgabcdecd,cd,3“) 時函數(shù)的返回值為 ab3efgab3e3“ Function MyReplace(s$, OldS$, NewS$) As String Dim i%, lenOldS% lenOldS = Len(OldS) 39。第六章 過程 （ 5學(xué)時） 函數(shù)過程的定義與調(diào)用 子過程的定義與調(diào)用 參數(shù)傳遞 變量、過程的作用域 遞歸 常用算法（三） 重點(diǎn)和難點(diǎn) 除了系統(tǒng)提供的內(nèi)部函數(shù)過程和事件過程外，用戶可自定義過程： ? “ Sub”保留字開始的為子過程 ? “ Function”保留字開始的為函數(shù)過程 一、函數(shù)過程的定義 1. 引例 已知多邊形的各條邊的長度 ， 要計(jì)算多邊形的面積 。取 OldS字符子串長度 i = InStr(s, OldS) 39。替換后的字符串賦值給函數(shù)過程名 End Function 假定 S為 “ abcdefgabcdecd”,Oolds為 “ cd”,News為 3 (“abcdefgabcdecd”,“cd”,“3”) 第 1 次 I=3 結(jié)果 “ ab3efgabcdecd” (“ab3efgabcdecd”,“cd”,“3”) 第 2 次 I=9 結(jié)果 “ ab3efgab3ecd” (“ab3efgab3ecd”,“cd”,“3”) 第 3 次 I=11 結(jié)果 ab3efgab3e3 函數(shù)過程的調(diào)用同標(biāo)準(zhǔn)函數(shù)調(diào)用，參與表達(dá)式運(yùn)算，形式如下： 函數(shù)過程名 ([參數(shù)列表 ]) 參數(shù)列表：稱為實(shí)參或?qū)嵲?，它必須與形參個數(shù)相同，位置與類型一一對應(yīng) 可以是同類型的常量、變量、表達(dá)式 執(zhí)行流程 ： Private Sub Command1_Click() Text1 = MyReplace(Text1, cd, 3) ST= (“Visual Basic 程序設(shè)計(jì)教程 ” Print MyReplace(ST, , ) End Sub Function MyReplace$(s$, OldS$, NewS$) Dim i%, lenOldS% lenOldS = Len(OldS) i = InStr(s, OldS) Do While i 0 s= Left(s, i 1) + NewS + Mid(s, i + lenOldS) i = InStr(s, OldS) Loop MyReplace = s End Function T e xt 1 = My R e p l a c e ( T e xt 1, c d , 3) P u bl i c F un c t i on M y R e p l a c e ( S $, O l d S $, N e w S $) A s S t r i ng二、子過程 函數(shù)過程的不足： （ 1）不是為了獲得某個函數(shù)值，而是為了某種功能的處理，如例 。a,， b=。 例 分別編一計(jì)算某級數(shù)部分和的子過程和函數(shù)過程，并調(diào)用。 1. 傳址與傳值 傳址： 形參得到的是實(shí)參的 地址 ，當(dāng)形參值的改變同時 也改變實(shí)參的值 。 a, B1=。 b End Sub Sub Swap2(x%, y%) t% = x: x = y: y = t End Sub a 的地址 1 0 1 0 1 0aa x x形參實(shí)參B y V al 傳值 傳地址2. 數(shù)組參數(shù)的傳遞 當(dāng)參數(shù)是數(shù)組通過傳址方式進(jìn)行傳遞。 例 編一函數(shù) tim，求任意一維數(shù)組中各元素之積。 (2)將結(jié)果返回給主調(diào)程序，地址傳遞。 數(shù)組、記錄類型、對象只能是地址傳遞。 s2刪除的子串，值傳遞。 窗體 /模塊級 ：加 Private關(guān)鍵字的過程，只能被定義的窗體或模塊中的過程調(diào)用。 全局變量 ：在 “通用聲明”段中用 Public語句聲明的變量，可被本應(yīng)用程序的任何過程或函數(shù)訪問。 局部變量 … End Sub Sub F2( ) Dim Fb As Single 39。 訪問局部變量 =20
教學(xué)課件相關(guān)推薦
鄂ICP備17016276號-1