vb應(yīng)用程序由若干個過程組成。過程保存在模塊文件中。有

1、第7章,過程,本章主要內(nèi)容,第7章 過 程,退出,通用過程,參數(shù)傳遞,嵌套調(diào)用,過程、變量的作用域,程序舉例,多窗體與Sub Main過程,Function過程,Sub過程,,前面已經(jīng)使用了很多過程，例如 按鈕事件過程、窗體裝載事件過程等。 過程是完成某種特殊功能的一組獨立的程序代碼。 VB應(yīng)用程序是由過程組成的。兩大類過程：

2、 事件過程 Sub過程 通用過程 Function過程 事件過程是VB應(yīng)用程序的主體 通用過程是獨立于事件過程之外，可供其他過程調(diào)用的程序段,,,Private Sub Command1_Cli

3、ck() …… End Sub,Private Sub Form_Load() …… End Sub,過程有兩個重要作用：一是把一個復(fù)雜的任務(wù)分解為若干個小任務(wù)，可以用過程來表達，從而使任務(wù)更易理解，更易實現(xiàn)，將來更易維護；二是代碼重用，使同一段代碼多次復(fù)用。,過程的作用,過程調(diào)用示例 把相同的任務(wù)編成相對獨立的“子過程” 當(dāng)事件過

4、程需要執(zhí)行這個任務(wù)時，可使用調(diào)用語句(如Call)實行調(diào)用。子過程執(zhí)行完后，會返回事件過程中調(diào)用語句Call的后續(xù)語句繼續(xù)執(zhí)行 通用過程又分為Sub(子程序)過程和Function(函數(shù))過程,7.1 通用過程,例7.1 Sub過程的示例 Private Sub Form_Load() Show Call mysub1(30) Call mysub2

5、 Call mysub2 Call mysub2 Call mysub1(30) End Sub 程序運行結(jié)果,Private Sub mysub1(n) Print String(n, "*")End SubPrivate Sub mysub2() Print "*"; Tab(30); &

6、quot;*"End Sub,7.1.1 Sub過程,例7.1,參數(shù)n,無參數(shù),,1. Sub過程定義格式： [Private｜Public ｜ Static] Sub 過程名([參數(shù)表]) 語句塊 [Exit Sub] End Sub 2. 調(diào)用Sub過程有以下兩種方法： (1) 使用Call語句。格式： Cal

7、l 過程名(［實參表］) (2) 直接使用過程名，格式： 過程名［實參表］ 例如，調(diào)用名為mysub1的過程： Call mysub1(30) mysub1 30,Sub過程的定義和調(diào)用,因為計算5!和10!都要用到階乘n! (n!＝1×2×3×…×n) 所以把計算n!編成Sub過程

8、 采用Print直接在窗體上輸出結(jié)果，程序代碼：Private Sub Form_Load() Show Dim y As Long, s As Long Call Jc(5, y) s = y Call Jc(10, y)Print "5! + 10! ="; s + yEnd Sub程序運行結(jié)果： 5! + 10! ＝ 3628920,Private

9、 Sub Jc(n As Integer, t As Long) Dim i As Integer t = 1 For i = 1 To n t = t * i Next iEnd Sub 注意參數(shù)n及t的調(diào)用情況,例7.2 計算5! + 1

10、0!,例7.2,1. Function過程定義格式：[Private | Public | Static] Function 函數(shù)名([參數(shù)表]) [As 數(shù)據(jù)類型] 語句塊 ［函數(shù)名＝表達式］ ［Exit Function］ End Function 2. Function過程的調(diào)用方法： 一般采用直接調(diào)用的方法 像使用VB內(nèi)部函數(shù)一樣，只需寫出函數(shù)名和相應(yīng)的參數(shù)即可 例如：

11、 s = Max(a, b) Print Max(s, c),7.1.2 Function過程 能從過程中直接返回一個值,Function max(m, n) As Single ……End Function,Function過程,返回值,分析：在前面例7.2中，因為Sub過程名不能返回值，所以需要在形參表中引入另一個參數(shù)t來返回階乘值。如果改成用Function過程實現(xiàn)，則階乘值可

12、由函數(shù)名返回，因此只需要設(shè)置一個參數(shù)n.Private Sub Form_load() Dim s As Long Show s = jc(5) + jc(10) '把函數(shù)作為表達式的一部分進行調(diào)用 Print "5! + 10! ="; sEnd SubFunction jc(n As Integer) As Long '返回

13、值的數(shù)據(jù)類型為Long Dim i As Integer, t As Long t = 1 For i = 1 To n t = t * i Next i jc = t '返回值賦給函數(shù)名End Function 從中可以看到Sub過程與Function過程在定義和調(diào)用上的區(qū)別。,例7.3 將例7.

14、2中的求n!的Sub過程改成Function過程,例7.3,把求兩個數(shù)中的大數(shù)編成Function過程，過程名為Max 本例采用InputBox函數(shù)輸入三個數(shù)，判斷出最大數(shù)后采用Print直接輸出在窗體上。Private Sub Form_Load() Show Dim a As Single, b As Single, c As Single Dim s As Single a =

15、Val(InputBox("輸入第一個數(shù)")) b = Val(InputBox("輸入第二個數(shù)")) c = Val(InputBox("輸入第三個數(shù)")) s = max(a, b) Print "最大數(shù)是:"; max(s, c)End Sub,Function max(m, n) As Single

16、If m > n Then max = m Else max = n End IfEnd Function,例7.4 輸入三個數(shù)，求出它們的最大數(shù),例7.4,調(diào)用,調(diào)用,通用過程(Sub/Function)過程可以保存在兩種模塊中： 窗體模塊(.frm)和標(biāo)準(zhǔn)模塊(.bas) (1) 在窗體模塊中創(chuàng)建

17、通用過程： 可以在代碼窗口中直接鍵入來創(chuàng)建Sub過程 選擇“工具”菜單中的“添加過程”命令 (2) 在標(biāo)準(zhǔn)模塊中創(chuàng)建通用過程： 選擇“工程”菜單中的“添加模塊”命令 保存為一個獨立的“.bas”文件 舉例：把例7.3的函數(shù)max(m, n)存放在模塊文件中,創(chuàng)建通用過程的方法,Private Sub

18、 Form_Load() Show p = 1: m = 5 Call Sub1(p) Call Sub1(m) End Sub Private Sub Sub1(x) If x > 1 Then x = x - 1 x = x * 4 Print x; End Sub A. 4  15  B. 4

19、  16 C. 4  4  D. 4  20,請回答問題：下列程序段的輸出結(jié)果？,想一想,思考題,答案：B,在窗體上已經(jīng)建立了一個文本框Txt1和一個命令按鈕Comd1，運行程序后單擊命令按鈕，則在文本框Txt1中顯示的內(nèi)容是 Dim a As Integer '模塊級變量 Private Sub Comd1_Clic

20、k() Dim b As Integer, c As Integer a = 1: b = 10 Call MySub(b, c) Txt1.Text = a + b + c End Sub Sub MySub(x, y) y = x Mod 7 + a a = 3 End Sub A. 16

21、 B. 17 C. 15 D. 9,請回答問題,想一想,思考題,答案：B,參數(shù)傳遞可以實現(xiàn)調(diào)用過程和被調(diào)過程之間的信息交換 兩種方式：按值傳遞和按地址傳遞7.2.1 形參與實參 形式參數(shù)(簡稱形參) 在被調(diào)過程中的參數(shù)。出現(xiàn)在Sub過程和Function過程中 形式參數(shù)可以是變量名和數(shù)組名 實際參數(shù)(簡稱實參)

22、 在調(diào)用過程中的參數(shù)。過程調(diào)用時實參數(shù)據(jù)會傳遞給形參 形參表和實參表中的對應(yīng)變量名可以不同，但實參和形參的個數(shù)、順序以及數(shù)據(jù)類型必須相同,7.2 參數(shù)傳遞,定義過程和調(diào)用過程的示例：調(diào)用過程：Call Mysub(100, "計算機" ， 1.5)定義過程：Sub Mysub(t As Integer,s As String,y As Single) “

23、形實結(jié)合”是按照位置結(jié)合的，即第一個實參值(100)傳送給第一個形參t，第二個實參值(“計算機”)傳送給第二個形參s，第三個實參值(1.5)傳送給第三個形參y。 數(shù)組可以作為形參出現(xiàn)在過程的形參表中,,,,1. 按地址傳遞：關(guān)鍵字ByRef (或缺省)。形參與實參使用相同的內(nèi)存地址單元，這樣通過過程就可以改變變量本身的值 2. 按值傳遞：按值傳遞(關(guān)鍵字ByVal

24、)。傳遞參數(shù)值而不是傳遞它的地址，在通用過程中對形參的任何操作都不會影響實參,7.2.2 按地址傳遞和按值傳遞,按地址傳遞 t = 10 示例 Call test2(t) Print t ( t 值為5) ……t與s是

25、 Sub test2(s As Integer)同一個變量 s = s - 5 End Sub,調(diào)用時, t 值傳給 s,返回時, s 值傳給 t雙向傳值,按值傳遞 x = 10 示例 Call test1(x)

26、 Print x （x 值為10） ……y與x是 Sub test1(ByVal y As Integer)不同變量 y = y + 5 End Sub,調(diào)用時, x 值

27、傳給 y,返回時, y 值不傳給 x單向傳值,設(shè)置兩個通用過程Test1和Test2，分別按值傳遞和按地址傳遞Private Sub Form_Load() Dim x As Integer Show x = 5 Print "執(zhí)行test1前，x="; x Call test1(x) Print "執(zhí)行test1后，test2前，x=&qu

28、ot;; x Call test2(x) Print "執(zhí)行test2后，x="; xEnd Sub,Sub test1(ByVal t As Integer) t = t + 5End SubSub test2(s As Integer) s = s - 5End Sub,運行結(jié)果執(zhí)行Test1前，x=5執(zhí)行Test1后，Test2前，x=5執(zhí)行Tes

29、t2后，x=0,例7.5 參數(shù)傳遞方式示例,例7.5,按值傳遞,按地址傳遞,在一個過程(Sub過程和Function過程)中調(diào)用另外一個過程。 例7.6 輸入兩個數(shù)n、m，求組合數(shù)Cnm 的值 Cnm =,,n! m!(n-m)!,,7.3 嵌套調(diào)用,例7.6,Private Sub Form_Load() Show

30、 m = Val(InputBox("輸入m的值")) n = Val(InputBox("輸入n的值")) If m > n Then MsgBox "輸入數(shù)據(jù)錯誤", 0, "檢查錯誤" End E

31、nd If Print "組合數(shù)是："; Calcomb(n, m) End Sub Private Function Calcomb(n, m) Calcomb = Jc(n) / (Jc(m) * Jc(n - m)) End Function Private Function Jc(x) t = 1 For i

32、 = 1 To x t = t * i Next i Jc = t End Function,程序中，采用了過程的嵌套調(diào)用方式。在事件過程Form_Load()中調(diào)用了Calcomb過程，而在Calcomb過程中調(diào)用了三次jc過程。,,調(diào)用,,調(diào)用,,過程的嵌套調(diào)用,a=Calcomb(n,m),b=Jc(n),,事件過程Form_Load,Fu

33、nction過程Calcomb(n,m),Function過程Jc(x),,,,,7.4.1 代碼模塊的概念 應(yīng)用程序包括窗體文件(.frm)、模塊文件(.bas)和類模塊(.cls),7.4 過程、變量的作用域,模塊級和全局級。根據(jù)使用的關(guān)鍵字不同，過程有不同的作用域。 （1）模塊級過程。在窗體模塊或標(biāo)準(zhǔn)模塊中用關(guān)鍵字Private

34、定義的過程，其作用域僅僅是其所在的模塊（窗體模塊或標(biāo)準(zhǔn)模塊），在其他模塊中無效。 （2）全局級過程。在窗體模塊或標(biāo)準(zhǔn)模塊中用關(guān)鍵字Public（或省略關(guān)鍵字）定義的過程，其作用域是整個應(yīng)用程序的所有模塊。 當(dāng)全局級過程是在窗體模塊中定義時，在其他模塊中調(diào)用時要指出窗體模塊的名字，即：“窗體模塊名.全局級過程名[(實參表)]”；當(dāng)全局級過程是在標(biāo)準(zhǔn)模塊中定義時，在其他模塊中可以直接調(diào)用，即：“全局級過程名

35、[(實參表)]”。,7.4.2 過程的作用域,局部變量、模塊級變量和全局變量 1. 局部變量 在一個過程內(nèi)部用Dim或Static聲明的變量稱為局部變量。只能在本過程中有效。在一個窗體中，不同過程中定義的局部變量可以同名。例如，在一個窗體中定義 Private Sub Command1_Click() Dim Sum

36、As Integer Sum = 1 . . . End Sub Private Sub Command2_Click() Dim Sum As Single Sum = 1.5 . . .

37、 End Sub,這兩個過程中同名變量Sum沒有任何聯(lián)系,7.4.3 變量的作用域,它們互不相識,模塊級變量可以在一個窗體的不同過程中使用 在窗體模塊的聲明部分中聲明該變量 Dim n As Integer Private Sub Command1_Click() n=1 … End Sub Private Sub Command2_Click()

38、 n=n+1 … End Sub 如果用Private或Dim來聲明，則該變量只能在本窗體(或本模塊)中有效，在其他窗體或模塊中不能引用該變量。 以Public聲明的變量，允許在其他窗體和模塊中引用,如form1.a,2. 模塊級變量,全局變量可以被應(yīng)用程序中任何一個窗體和模塊直接訪問。 全局變量要在標(biāo)準(zhǔn)模塊文件(.bas)中的聲明部分用Global或Public語句來聲

39、明。 格式： Global 變量名 As 數(shù)據(jù)類型 Public 變量名 As 數(shù)據(jù)類型,3. 全局變量,生存期，即變量能夠保持其值的時間 動態(tài)變量和靜態(tài)變量（見書P157） 1. 動態(tài)變量 程序運行進入變量所在的過程時，才為變量分配內(nèi)存單元，退出過程時，該變量占用的內(nèi)存單元自動釋放，其值消失。當(dāng)再次進入

40、該過程時，所有的動態(tài)變量將重新初始化。 使用Dim關(guān)鍵字在過程中聲明的局部變量屬于動態(tài)變量 2. 靜態(tài)變量 退出該過程時變量值被保留，即變量所占的內(nèi)存單元沒有釋放。當(dāng)以后再次進入該過程時，原來的變量值可以繼續(xù)使用 使用Static關(guān)鍵字在過程中聲明的局部變量屬于靜態(tài)變量,7.4.4 變量的生存期,Private Sub …… Dim a As Integer

41、 ‘a(chǎn)是動態(tài)變量 Static b As Integer ‘b是靜態(tài)變量 x = a + 1 ‘每次進入過程時， ‘ a值為0 y = b + 1 ‘每次進入過程時， ‘ b保持上次的值

42、 ……End Sub,Static sub test() private sub c1_click() Dim t as integer call test t=2*t+1 End sub Print tEnd subPrivate sub for

43、m_click() private function fn(t as integer) s=fn(1)+fn(2)+fn(3) static m print s m=m+tEnd sub fn=m

44、 end function,7.5.1 多窗體處理 在多窗體程序中，每個窗體可以有自己的界面和程序代碼，完成不同的操作 1. 添加窗體 通過“工程”菜單中的“添加窗體”命令來實現(xiàn) 2. 刪除窗體 選擇“工程”菜單中的“移除”命令

45、 3. 保存窗體 選擇“文件”菜單中的“保存”或“另存為”命令 4. 設(shè)置啟動窗體 在“工程屬性”對話框中設(shè)置,7.5 多窗體與Sub Main過程,Load語句：把一個窗體裝入內(nèi)存 UnLoad語句：清除內(nèi)存中指定的窗體 Show方法：顯示一個窗體 Hide方法：隱藏窗體。即不在屏幕上顯示，

46、但仍在內(nèi)存中，因此它與UnLoad的作用是不一樣的 例如： Load Form1 Form1.Show 注意：語句和方法的使用格式不同。 調(diào)用對象的方法：對象名.方法名,5. 有關(guān)語句和方法,創(chuàng)建3個窗體和1個標(biāo)準(zhǔn)模塊 (1)

47、主窗體(Form1) 本窗體上建立了“輸入數(shù)據(jù)”(Command11) 、“計算” (Command12)和“結(jié)束”(Command13)三個命令按鈕 設(shè)置為啟動窗體,例7.8 多窗體應(yīng)用示例—— 計算兩數(shù)之和及積,例7.8,啟動窗體,主窗體,輸入兩個數(shù),計算,定義全局變量,Private Sub Command11_Click() ‘主窗體“輸入數(shù)據(jù)”

48、按鈕 ‘單擊后進入“輸入數(shù)據(jù)”窗體 Form1.Hide '隱藏主窗體 Form2.Show

49、 '顯示“輸入數(shù)據(jù)”窗體End SubPrivate Sub Command12_Click() ‘主窗體“計算”按鈕 ‘單擊后進入“計算”窗體 Form1.Hide

50、 '隱藏主窗體 Form3.Show '顯示“計算”窗體End SubPrivate Sub Command13_Click() '主窗體“結(jié)束”按鈕 Unload Form1 Unload Form2 Unload F

51、orm3 EndEnd Sub,先卸載所有已打開的窗體,(2)“輸入數(shù)據(jù)”窗體(Form2) 這是在主窗體上單擊了“輸入數(shù)據(jù)”按鈕后彈出的窗體，用于輸入運算數(shù)x和y。窗體上建立了2個文本框(Text21和Text22)和1個“返回”命令按鈕(Command21) Private Sub Command21_Click() ‘“輸入數(shù)據(jù)”窗體的“返回”按鈕

52、 X = Val(Text21.Text) Y = Val(Text22.Text) Form2.Hide '隱藏“輸入數(shù)據(jù)”窗體 Form1.Show '顯示主窗

53、體 End Sub,(3)“計算”窗體(Form3) 這是在主窗體上單擊了“計算”按鈕后彈出的窗體。窗體上建立了1個文本框和2個命令按鈕。用戶可以單擊“加法”(Command31) 或“乘法”(Command32)命令按鈕，使之按要求進行計算。Private Sub Command31_Click() ‘“計算”窗體的“加法”按鈕 Text31.Text = X

54、+ YEnd SubPrivate Sub Command32_Click() ‘“計算”窗體的“乘法”按鈕 Text31.Text = X * YEnd SubPrivate Sub Command33_Click() '“計算”窗體的“返回”按鈕 Form3.Hide

55、 '隱藏“計算”窗體 Form1.Show '顯示主窗體End Sub,Text31,(4)標(biāo)準(zhǔn)模塊(Modulel) 由于在各窗體之間需要使用公共變量來傳送數(shù)據(jù)，所以建立一個標(biāo)準(zhǔn)模塊Modulel，對用到的全局變量X和Y進行聲明

56、 運行程序后，首先顯示主窗體。在主窗體上，用戶可通過“輸入數(shù)據(jù)”和“計算”兩個按鈕來選擇進入不同的窗體，例如單擊“輸入數(shù)據(jù)”按鈕，則主窗體消失，顯示“輸入數(shù)據(jù)”窗體。在“輸入數(shù)據(jù)”窗體或“計算”窗體上，單擊“返回”按鈕，又可以隱藏當(dāng)前窗體和重現(xiàn)主窗體,程序一般從啟動窗體的Form_Load過程開始執(zhí)行 有時在程序啟動時不加載任何窗體，而是首先

57、執(zhí)行一段程序代碼，此時可把要執(zhí)行的程序代碼放在Sub Main過程中，并指定Sub Main為“啟動對象”。 應(yīng)用程序在運行時會先執(zhí)行Sub Main過程 Sub Main過程存放在標(biāo)準(zhǔn)模塊中。在一個工程中只能有一個Sub Main過程 設(shè)置Sub Main過程為“啟動對象”的方法：在“工程屬性”對話框的“通用”選項卡中，從“啟動對象”

58、下拉列表框中選中“Sub Main”,7.5.2 Sub Main過程,例7.9,例7.10 輸入一個十進制正整數(shù)，將其轉(zhuǎn)換成二進制數(shù)、八進制數(shù)和十六進制數(shù)。 （1）分析：模仿十進制正整數(shù)轉(zhuǎn)換成二進制數(shù)的方法(即“除2取余”)，采用逐次“除r取余”法(r為2，8或16)，即用r去除d(十進制數(shù))取余數(shù)，商賦給d，如此不斷地用r去除d取余數(shù)，直至商為0為止，將每次所得的余數(shù)逆序排列(以最后余數(shù)為最高位)，即得到所轉(zhuǎn)換的r進制數(shù)。

59、 將進制轉(zhuǎn)換處理段定義為Function過程,過程名為fntran，并設(shè)置兩個參數(shù)，將參數(shù)d設(shè)置為按值傳遞(ByVal)方式。,7.6 程序舉例,Private Sub Command1_Click() ‘“轉(zhuǎn)換” Dim d As Long d = Val(Text1.Text) Text2.Text = fntran(d, 2) '調(diào)用函數(shù)fntran，轉(zhuǎn)換為二進制數(shù)

60、 Text3.Text = fntran(d, 8) '調(diào)用函數(shù)fntran，轉(zhuǎn)換為八進制數(shù) Text4.Text = fntran(d, 16) '調(diào)用函數(shù)fntran，轉(zhuǎn)換為十六進制數(shù)End SubFunction fntran(ByVal d As Long, r As Integer) As String Dim t As String, n As Integer

61、t = "" Do While d > 0 '直到商為0 n = d Mod r '取余數(shù) d = d \ r '求商 If n > 9 Then '超過9轉(zhuǎn)換成對應(yīng)的A～F十六進制數(shù)表示形式

62、 t = Chr(n + 55) & t '換碼為字母，反序加入 Else t = n & t '反序加入 End If Loop fntran = tEnd Function,例7.10,例7.11 將判斷一個數(shù)是否為素數(shù)編成一個函數(shù)，然后通過調(diào)用該函數(shù)求500～1000數(shù)中的所有素數(shù)，把這些素

63、數(shù)顯示在列表框中。 (1)分析：素數(shù)也稱質(zhì)數(shù)，就是只能被1和它本身整除，而不能被其他整數(shù)整除的整數(shù)。例如 2，3，5，7 是質(zhì)數(shù)，而 4，6，8，9 則不是。判斷某數(shù)m是否是素數(shù)的算法是：對于m，從k = 2，3，4，……，m-1依次判別能否被k整除，只要有一個能整除，m就不是素數(shù)，否則m是素數(shù)。,例7.11,Function FnPrime(m As Integer) As Boolean Dim k As

64、 Integer, f As Boolean f = True '設(shè)置f來表示判斷狀態(tài)，初值為True For k = 2 To m - 1 '從k = 2，3，4，……，m-1依次判斷 If m Mod k = 0 Then '判m是否能被k(2～m

65、-1中的一個數(shù))整除 f = False '如m能被k整除，則置f為Flase End If Next k FnPrime = f '返回函數(shù)值End FunctionPrivate Sub Command1_Click(

66、) '"求素數(shù)"按鈕 Dim t As Integer List1.Clear '清除列表框中的內(nèi)容 For t = 500 To 1000 If FnPrime(t) Then '調(diào)用函數(shù)，根據(jù)t是否素數(shù)返回函數(shù)值真或假

67、 List1.AddItem t '若是素數(shù)，則存入列表框中 End If Next t Label1.Caption = "500～1000數(shù)中共有" & List1.ListCount & "個素數(shù)"End Sub,分析：為了得到一個圓大小變動的動畫效果，先在某一位置上繪制一個圓，顯示一段時間(延時)后抹除

68、，接著在下一位置上依此處理，直到指定位置為止。 　　 延時：利用 Timer函數(shù)，該函數(shù)返回系統(tǒng)時鐘從午夜開始計算的秒數(shù)(帶兩位小數(shù)) 　　 Private Sub Delay(d) 　　　 ‘功能：延時d秒 t = Timer() + d Do While Timer() < t 　 　'利用空循環(huán)實現(xiàn)延遲 Loop En

69、d Sub,例7.12 繪制一個圓，使之從小變大，再從大變小,例7.12,系統(tǒng)提供的當(dāng)前時間數(shù),設(shè)定的時間數(shù),了解Timer的作用,抹除方法：采用底色(背景色)來掩蓋圖形,采用Circle方法可以畫一個圓,Private Sub Form_Load() Show Form1.BackColor = QBColor(15) '設(shè)置背景顏色 Call Pict(30,

70、1600, 30) '從小變大 Call Pict(1600, 30, -30) '從大變小End SubPrivate Sub Pict(a, b, c) ‘顯示→延遲→抹除 Fo

71、r i = a To b Step c ‘在i位置上處理 Call Plot(i, 4) '顯示圓 Delay 0.1 '延遲0.1秒