VB教程 全套課件

1、第六章 過程（5學(xué)時(shí)）,6.1 函數(shù)過程的定義與調(diào)用 6.2 子過程的定義與調(diào)用 6.3 參數(shù)傳遞 6.4 變量、過程的作用域 6.5 遞歸 6.6 常用算法（三） 6.7 重點(diǎn)和難點(diǎn),除了系統(tǒng)提供的內(nèi)部函數(shù)過程和事件過程外，用戶可自定義過程： “Sub”保留字開始的為子過程 “Function”保留字開始的為函數(shù)過程 一、函數(shù)過程的定義 1. 引例6.1 已知多邊形的各條邊的長度，要計(jì)算多邊形的面積。 計(jì)算多邊形面積，可將多邊形分解成若干個(gè)三角形。 計(jì)算三角形面積的公式如下：,定義函數(shù)過程 Public Function area(x!, y!, z!) As Single Dim c! c

2、 = 1 / 2 * (x + y + z) area = Sqr(c * (c - x) * (c - y) * (c - z) End Function,調(diào)用函數(shù)過程: Sub command1_click() 輸入若干個(gè)三角形邊長 S=area(a,b,c)+area(c,d,e)+area(e,f,g) Print s End Sub,2函數(shù)過程的定義 自定義函數(shù)過程有兩種方法： (1)利用“工具”菜單下的“添加過程”命令定義,生成一個(gè)函數(shù)的框架 (2)利用代碼窗口直接定義 函數(shù)過程形式: Function 函數(shù)過程名(參數(shù)列表) As 類型 局部變量或常數(shù)定義 語句塊 函數(shù)名 = 返

3、回值 函數(shù)過程體 Exit Function 語句塊 函數(shù)名 = 返回值 End Function,函數(shù)過程名:命名規(guī)則同變量名 參數(shù)列表形式: ByVal變量名()As 類型 稱為形參或啞元,僅表示參數(shù)的個(gè)數(shù)、類型，無值。 函數(shù)名 = 返回值 在函數(shù)體內(nèi)至少對函數(shù)名賦值一次 Exit Function ：表示退出函數(shù)過程,例6.2同標(biāo)準(zhǔn)函數(shù)Replace一樣，定義MyReplace（S,OldS,NewS）函數(shù)過程 當(dāng)調(diào)用MyReplace(abcdefgabcdecd,cd,3“) 時(shí)函數(shù)的返回值為ab3efgab3e3“ Function MyReplace(s$, OldS$, New

4、S$) As String Dim i%, lenOldS% lenOldS = Len(OldS) 取OldS字符子串長度 i = InStr(s, OldS) 在字符串中找有否OldS字符子串 Do While i 0 找到用NewS 字符子串替換OldS字符子串 s = Left(s, i - 1) + NewS + Mid(s, i + lenOldS) i = InStr(s, OldS)找下一個(gè)OldS字符子串 Loop MyReplace = s替換后的字符串賦值給函數(shù)過程名 End Function 假定S為“abcdefgabcdecd”,Oolds為 “cd”,News為

5、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,3.函數(shù)過程的調(diào)用 函數(shù)過程的調(diào)用同標(biāo)準(zhǔn)函數(shù)調(diào)用，參與表達(dá)式運(yùn)算，形式如下： 函數(shù)過程名(參數(shù)列表) 參數(shù)列表：稱為實(shí)參或?qū)嵲?，它必須與形參個(gè)數(shù)相同，位置與類型一一對應(yīng) 可以是同類型的常量、變量、表達(dá)式 執(zhí)行流程： Private Sub Command1_Click()

6、Text1 = MyReplace(Text1, cd, 3) ST= (“Visual Basic 程序設(shè)計(jì)教程5.0版” Print MyReplace(ST, 5.0, 6.0) 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 Fun

7、ction,二、子過程 函數(shù)過程的不足： （1）不是為了獲得某個(gè)函數(shù)值，而是為了某種功能的處理，如例1.1。 （2） 要獲得多個(gè)結(jié)果。 1.引例 編寫一個(gè)兩個(gè)數(shù)交換的過程供多次調(diào)用。 Swap （x,y）子過程的定義 主調(diào)程序調(diào)用Swap子過程 Public Sub Swap(x, y)Private Sub Form_Click() Dim t Dim a, b t = x a = 10 x = y b = 20 y = t Call Swap (a, b) End Sub Print a=;a,，b=; b End Sub,2 子過程定義 Sub 子過程名(參數(shù)列表) 局部變量或常數(shù)定義

8、語句 Exit Sub 語句 End Sub 3 子過程的調(diào)用 子過程名 參數(shù)列表 或 Call 子過程名(參數(shù)列表） 4.子過程與函數(shù)過程區(qū)別： （1）函數(shù)過程名有值，有類型，在函數(shù)體內(nèi)至少賦值一次； 子過程名無值，無類型，在子過程體內(nèi)不能對子過程名賦值； （2）調(diào)用時(shí)，子過程調(diào)用是一句獨(dú)立的語句。 函數(shù)過程不能作為單獨(dú)的語句加以調(diào)用，必須參與表達(dá)式運(yùn)算。 （3）一般當(dāng)過程有一個(gè)函數(shù)值，使用函數(shù)過程較直觀； 反之若過程無返回值，或有多個(gè)返回值，使用子過程較直觀。,例6.4 分別編一計(jì)算某級數(shù)部分和的子過程和函數(shù)過程，并調(diào)用。 級數(shù)為： 精度為：,程序運(yùn)行流程： Private Sub Com

9、mand1_Click() Dim f1#, f2# f1 = jishu1(2#, 0.000001) Call jishu2(f2, 2#, 0.000001) Print f1=; f1, f2 = ; f2 End Sub,Function jishu1(x!, eps#) As Doubl jishu=表達(dá)式 End Function,找函數(shù)名調(diào)用jishu1,函數(shù)名帶了值返回,Sub jishu2(s#， x!， eps#) s=表達(dá)式 End Sub,找子過程名調(diào)用jishu2,三、 參數(shù)傳遞 指主調(diào)過程的實(shí)參傳遞給被調(diào)過程的形參。 1. 傳址與傳值 傳址：形參得到的是實(shí)參的地址

10、，當(dāng)形參值的改變同時(shí)也改變實(shí)參的值。 傳值： 形參得到的是實(shí)參的值，形參值的改變不會(huì)影響實(shí)參的值。 v6j06-05.vbp兩個(gè)變量的交換 Sub Swap1(ByVal x%, ByVal y%) t% = x: x = y: y = t End Sub Private Sub Command1_Click() a% = 10: b% = 20: Swap1 a, b 傳值 Print A1=; a, B1=; b a = 10: b = 20: Swap2 a, b 傳地址 Print A2=; a, B2=; b End Sub,Sub Swap2(x%, y%) t% = x: x =

11、 y: y = t End Sub,2. 數(shù)組參數(shù)的傳遞 當(dāng)參數(shù)是數(shù)組通過傳址方式進(jìn)行傳遞。注意： 在實(shí)參和形參中寫數(shù)組名，忽略維數(shù)的定義，但圓括號不能省。 被調(diào)過程可通過Lbound和Ubound函數(shù)確定實(shí)參數(shù)組的下、上界。 Lbound和Ubound函數(shù)的形式如下： L|Ubound(數(shù)組名，維數(shù)) 其中：維數(shù)指明要測試的是第幾維的下標(biāo)值，缺省是一維數(shù)組。 例 6.7 編一函數(shù)tim，求任意一維數(shù)組中各元素之積。 調(diào)用tim,求和 Function tim(a() As Integer) Dim t#， i% t = 1 For i = Lbound(a) To Ubound(a) t =

12、 t * a(i) Next i tim = t End Function,調(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,使用過程注意事項(xiàng)： 1. 確定自定義的過程是子過程還是函數(shù)過程 函數(shù)過程名有值，子過程名無值。 2過程中形參的個(gè)數(shù)和傳遞方式的確定 過程中參數(shù)的作用是實(shí)現(xiàn)過程與調(diào)用者的數(shù)據(jù)通信。 (1)從主調(diào)程序獲得初值，值傳遞。 (2)將結(jié)果返回給主調(diào)程序，地址傳遞。 3. 實(shí)參與形參結(jié)合時(shí)對應(yīng)問題 個(gè)數(shù)、類型、位置、次序一一對應(yīng)。 形參是

13、值傳遞，對應(yīng)實(shí)參可以是表達(dá)式、常量、數(shù)組元素。 形參是地址傳遞，對應(yīng)實(shí)參只能是簡單變量。 數(shù)組、記錄類型、對象只能是地址傳遞。,實(shí)驗(yàn)6.4回文數(shù)的判斷中形參的確定 1. 函數(shù)過程，形參一個(gè)，值傳遞對所判斷的數(shù)字；函數(shù)名是否為回文數(shù)。 Function IsH(ByVal ss As String) As Boolean 2. 子過程，形參兩個(gè)，值傳遞對所判斷的數(shù)字，地址傳遞是否位回文數(shù)。 Sub hui(ByVal ss As String, Tag As Boolean) 實(shí)驗(yàn)6.2子過程DeleStr(s1，s2)形參的確定 s1，要處理的字符串，從主調(diào)程序得初值，刪除子串后結(jié)果在S1中，

14、所以地址傳遞。 s2刪除的子串，值傳遞。 實(shí)驗(yàn)6.3函數(shù)過程 MaxLength(s)形參的確定 S要處理的字符串，值傳遞。 MaxLength函數(shù)名，最長的單詞長度。,四、 變量、過程的作用域 作用域：變量、過程隨所處的位置不同，可被訪問的范圍。 1.過程的作用域 窗體/模塊級：加Private關(guān)鍵字的過程，只能被定義的窗體或模塊中的過程調(diào)用。 全局級：加Public關(guān)鍵字（缺?。┑倪^程，可供該應(yīng)用程序的所有 窗體和所有標(biāo)準(zhǔn)模塊中的過程調(diào)用。,2. 變量的作用域 局部變量：在過程內(nèi)用聲明的變量，只能在本過程中使用。 窗體/模塊級變量：在“通用聲明”段中用Dim語句或用Private語句聲明的

15、變量,可被本窗體/模塊的任何過程訪問。 全局變量：在 “通用聲明”段中用Public語句聲明的變量，可被本應(yīng)用程序的任何過程或函數(shù)訪問。,例如在下面一個(gè)標(biāo)準(zhǔn)模塊文件中不同級的變量聲明： Public Pa As integer 全局變量 Private Mb As string *10 窗體/模塊級變量 Sub F1( ) Dim Fa As integer 局部變量 End Sub Sub F2( ) Dim Fb As Single 局部變量 End Sub,若在不同級聲明相同的變量名,系統(tǒng)按局部、窗體/模塊、全局次序訪問如: Public Temp As integer 全局變量 Sub

16、 Form_Load（） Dim Temp As Integer 局部變量 Temp=10 訪問局部變量 Form1.Temp=20 訪問全局變量必須加窗體名 Print Form1.Temp, Temp 顯示 20 10 End Sub,3. 靜態(tài)變量 局部變量聲明： Dim聲明，隨過程的調(diào)用而分配存貯單元，變量的初始化；過程體結(jié)束，變量的內(nèi)容自動(dòng)消失，存貯單元釋放。 Static聲明，每次調(diào)用過程，變量保持原來的值。 聲明形式：Static 變量名 AS 類型 Static Function 函數(shù)過程名(參數(shù)列表) As 類型 Static Sub 子過程名(參數(shù)列表) 過程名前加Stat

17、ic，表示該過程內(nèi)的局部變量都是靜態(tài)變量。 例6.9 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)

18、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,過程的直接調(diào)用,Sub Command1_Click() Call f1(y) End Sub,過程的遞歸調(diào)用,五、遞歸,1.遞歸的概念 用自身的結(jié)構(gòu)來描述自身就稱為“遞歸”。例對階乘的定義：,2. 遞歸過程 過程在自身定義的內(nèi)部調(diào)用自己。 例6.10 編fac(n)=n! 的遞歸函數(shù) Function fac(n As Integer) As Integer If n = 1 Then fac

19、 = 1 Else fac = n * fac(n - 1) End If End Function,Sub Command1_Click() Print “fac(4)=”；fac(4) End Sub 結(jié)果：fac(4)=24,遞推,回歸,在遞歸處理中，用棧來實(shí)現(xiàn)。棧中存放形參、局部變量、返回地址。 遞推過程：每調(diào)用自身，當(dāng)前參數(shù)壓棧，直到達(dá)到遞歸結(jié)束條件。 回歸過程：不斷從棧中彈出當(dāng)前的參數(shù)，直到?？?。 遞歸算法設(shè)計(jì)簡單，但消耗的機(jī)時(shí)和占據(jù)的內(nèi)存空間比非遞歸大。 思考： 若上述fac函數(shù)中： If n = 1 Then fac = 1 即僅有語句： fac = n * fac(n - 1

20、) 或 n=0 程序運(yùn)行將造成何結(jié)果？由此可見構(gòu)成遞歸的結(jié)構(gòu)如下： 遞歸結(jié)束條件及結(jié)束時(shí)的值； 能用遞歸形式表示，并且遞歸向終止條件發(fā)展。,例6.11利用遞歸求最大公約數(shù),Public Function gcd(m As Integer, n As Integer) As Integer If (m Mod n) = 0 Then gcd = n Else gcd = gcd(n, m Mod n) End If End Function Private Sub Form_Click() Print gcd(10, 4) End Sub,分析以下子過程的功能 ，當(dāng)n=100,r=8,結(jié)果是多少

21、？ Public Sub f(ByVal n %, ByVal r %) If n r Then Call f(n r, r) Print n Mod r; End Sub Private Sub Command1_Click() Call f(100, 8) End Sub,顯示結(jié)果 1 4 4,例6.12 打印分形圖,遞歸常見錯(cuò)誤： 1.遞歸調(diào)用出現(xiàn)“棧溢出” 在遞歸調(diào)用時(shí)，其中的參數(shù)要向終止方向收斂。 如下求階乘的遞歸函數(shù)過程： Public Function fac(n As Integer) As Integer If n = 1 Then fac = 1 Else fac = n

22、* fac(n - 1) End If End Function Private Sub Command1_Click() Print “fac(5)=”；fac(5) Print “fac(5)=”；fac(-5) 棧溢出 End Sub,1.數(shù)制轉(zhuǎn)換 例6.13 將一個(gè)十進(jìn)制整數(shù)m轉(zhuǎn)換成 r (216)進(jìn)制字符串。 方法：將m不斷除 r 取余數(shù)，直到商為零，以反序得到結(jié)果。,6.6常用算法(三）,2.例6.14加密和解密 簡單加密的思想是： 將每個(gè)字母C加一序數(shù)K，式子 c=chr(Asc(c)+k), 例如序數(shù)k為5，這時(shí) “A”“F”， “a”“f”，“B”“G” 當(dāng)加序數(shù)后的字母超過

23、“Z”或“z”則 c=hr(Asc(c)+k -26)。 解密為加密的逆過程。,3.查找 (1)順序查找例6.15。 順序查找根據(jù)查找的關(guān)鍵值與數(shù)組中的元素逐一比較.數(shù)組可無序。 Public Sub Search(a() As Variant, ByVal key As Variant, index%) Dim i% For i = LBound(a) To UBound(a) If key = a(i) Then 找到，元素的下標(biāo)在index中，結(jié)束查找 index = i Exit Sub End If Next i index = -1 找不到， index形參的值為-1 End Su

24、b 平均查找次數(shù) n/2,Keya(mid) low=mid+1 查找區(qū)域縮小一半,繼續(xù),直到找到或查找區(qū)域中無元素. 本例用遞歸實(shí)現(xiàn)6.16 Sub birsearch(a(), low%, high%, key , index%),(2)二分法查找 要查找的數(shù)組必須有序。 思想：要查找的關(guān)鍵值Key同數(shù)組的中間mid項(xiàng)元素比較:,444,Key,4.排序 選擇、冒泡、插入法排序等。 前兩種排序欲排序的數(shù)據(jù)全部輸入后，再進(jìn)行排序； 插入法排序每輸入一項(xiàng)，馬上插入到數(shù)組應(yīng)在的位置，數(shù)組始終有序。 例6.17 實(shí)現(xiàn)的步驟： (1)輸入欲排序的數(shù)據(jù)項(xiàng)x；在數(shù)組a中找x應(yīng)所處的位置j; (2)從數(shù)組

25、的最后一個(gè)元素開始到下標(biāo)j依次往后移，使j位置空出； (3)將x放入位置j處，一個(gè)數(shù)據(jù)插入完成； (4)有若干個(gè)數(shù)重復(fù)(1)(3)。,5. 例6.18 高次方程求根 有牛頓迭代法、二分法、弦截法等 （1）牛頓迭代法 迭代公式： 思想： 對方程給定一個(gè)初值x0作為方程的近似根， 利用迭代公式，求得x1, 當(dāng)x1為求得的近似根， 否則x1作為x0再迭代。,(2) 二分法求根 思想：已知求根區(qū)間a,b有一根，每次把求根區(qū)間縮小一半,直到找到解或求根區(qū)間足夠小。 方法：求a,b的中點(diǎn)c，判斷 f(c)=0, c為求得的根，結(jié)束； f(a)與f(c)同號,則a,c無根，代替a； 否則c,b無根，c代替b； 使求根區(qū)間縮小一半，重復(fù)上述步驟，直到區(qū)間小于精度。,Public Function halfRoot(ByVal a!, ByVal b!) Dim c! Do While Abs(b - a) 0.00001 c = (a + b) / 2 If f(c) = 0 Then Exit Do ElseIf f(a) * f(c) 0 Then a = c Else b = c End If Loop