ACCESS實例教程(第8章).ppt

《ACCESS實例教程(第8章).ppt》由會員分享，可在線閱讀，更多相關《ACCESS實例教程(第8章).ppt（102頁珍藏版）》請在裝配圖網(wǎng)上搜索。

Access實例教程,潘明寒趙義霞主編中國水利水電出版社,ACCESS實例教程,——模塊的操作（第8章）,1，模塊的基本概念2，VBA程序設計基礎3，VBA函數(shù)的使用4，模塊的建立與使用5，過程與參數(shù)傳遞,本章要點：,8.1認識模塊對象,模塊是由聲明、語句和過程組成的集合，以VBA（VisualBasicforApplication）語言編寫，作為一個已命名的單元存儲在一起。模塊有2種類型：類模塊和標準模塊。使用模塊可以在實際開發(fā)中實現(xiàn)較為復雜的功能。,（1）模塊模塊由一個或多個過程組成，每個過程實現(xiàn)一個或幾個功能。模塊的執(zhí)行通過特定事件激發(fā)相應的事件過程實現(xiàn)。（2）事件過程事件過程是一組代碼，用于響應窗體事件或報表事件。（3）類模塊類模塊是包含代碼和數(shù)據(jù)的集合，可以看作是沒有物理表示的控件，總是與某一特定的窗體或報表相關聯(lián)。窗體模塊和報表模塊都屬于類模塊。（4）標準模塊標準模塊是代碼的集合，包含的過程不與任何其他對象相關聯(lián)，是數(shù)據(jù)庫對象使用的公共過程，保存在數(shù)據(jù)庫窗口中。,8.1.1模塊的基本概念,8.1.2啟動Access的編程界面,Access的編程界面稱為VBE（VisualBasicEditor），是MicrosoftOffice所有組件公用的程序編輯系統(tǒng)。方法1：在窗體或報表設計視圖中選控件→單擊標準工具欄的“生成器”按鈕→在“選擇生成器”對話框中選擇“代碼生成器”。方法2：右擊窗體或報表設計視圖中控件→快捷菜單中選“事件生成器”→“選擇生成器”對話框中選擇代碼生成器”。,8.1.3VBE窗口,編寫模塊對象的代碼在代碼窗口進行。（1）窗口頂部有2個組合框，左邊對象框顯示所有對象名稱，右邊過程框顯示當前對象能識別的所有事件名稱。選定一個對象，再選定一個事件，系統(tǒng)會自動生成相應事件過程的起始行與結束行，只須在兩行中間添加過程代碼即可。“通用”過程可以被所有控件調(diào)用。某控件的過程只在關聯(lián)事件中有效。（2）窗口中央代碼區(qū)有聲明區(qū)和過程區(qū)，聲明區(qū)中聲明模塊使用的變量，過程區(qū)顯示一個或多個過程，之間用一條灰線分隔。（3）窗口底部有2個按鈕，單擊“過程視圖”按鈕，只顯示當前過程。單擊右邊“完整的模塊視圖”按鈕，窗口顯示全部過程。,8.1.4標準工具欄,例:一個類模塊,例:一個標準模塊,8.1.7使用提示與幫助,在代碼窗口輸入代碼時，系統(tǒng)會自動顯示提示信息，包括關鍵字列表、屬性列表、過程參數(shù)列表等，在列表中選取一項后雙擊鼠標，所選值會自動添加到當前光標處。,8.2VBA程序設計基礎,8.2.1面向對象的程序設計的基本概念,（1）對象在自然界中，一個對象就是一個實體，如一輛汽車就是一個對象。在面向對象的程序設計中，對象代表應用程序中的元素，如表、窗體、按鈕等。（2）屬性屬性是對象的特征。如汽車有顏色和型號屬性，按鈕有標題和名稱屬性。對象的類別不同，屬性會有所不同。同類別對象的不同實例，屬性也有差異。例如，同是命令按鈕，名稱屬性不允許相同。,（3）事件事件是對象能夠識別的動作。如按鈕可以識別單擊事件、雙擊事件等。在類模塊每一個過程的開始行，都顯示對象名和事件名。如：PrivateSubc1_Click()。（4）方法方法是對象能夠執(zhí)行的動作，決定了對象能完成什么事。不同對象有不同的方法。如close方法能關閉一個窗體。（5）集合集合由許多與對象有關的鍵和值組成，其中的鍵和值是配對的。如一本書是一個對象，書的頁碼是鍵，頁碼對應的內(nèi)容是值。所有配對的頁碼和內(nèi)容組成了書對象的集合。,（6）過程過程是由代碼組成的單元，包含一系列計算語句和執(zhí)行語句。每一個過程都有名字，過程名不能與所在模塊的模塊名相同。過程有兩種類型：sub過程（無返回值），function過程（有返回值）。,例：動態(tài)設置控件屬性,（1）在窗體中建1個文本框→名稱為t1。（2）在窗體中建1個標簽→名稱為b1→標題為“新年好！”。（3）在窗體中建3個命令按鈕→名稱分別為c1、c2、c3→標題分別為“紅色”、“綠色”、“藍色”。,（4）設置各按鈕的前景色，在屬性窗口可查看顏色值。,（5）c1的click事件代碼：t1.BackColor=255b1.ForeColor=255,（6）c2的click事件代碼：t1.BackColor=33792b1.ForeColor=33792（7）c3的click事件代碼：t1.BackColor=16711680b1.ForeColor=16711680,執(zhí)行結果：,Docmd是Access的一個特殊對象，用來調(diào)用內(nèi)置方法，在程序中實現(xiàn)對Access的操作，諸如打開窗口、關閉窗體、打開報表、關閉報表等。DoCmd對象的大多數(shù)方法都有參數(shù)，有些參數(shù)是必需的，有些則是可選的。若省略可選參數(shù)，參數(shù)將采用默認值。,8.2.2Docmd對象,（1）用DoCmd對象打開窗體格式：DoCmd.OpenForm"窗體名"功能：用默認形式打開指定窗體。例如：DoCmd.OpenForm"文本框練習",（2）用DoCmd對象關閉窗體格式1：DoCmd.CloseacForm,"窗體名"功能：關閉指定窗體。例如：DoCmd.CloseacForm,"文本框練習"格式2：DoCmd.Close功能：關閉當前窗體。（3）用DoCmd對象打開報表格式：DoCmd.OpenReport"報表名",acViewPreview功能：用預覽形式打開指定報表。例如：DoCmd.OpenReport"工資報表",acViewPreview,（4）用DoCmd對象關閉報表格式1：DoCmd.CloseacReport,"報表名"功能：關閉指定報表。例如：DoCmd.CloseacReport,"工資報表"格式2：DoCmd.Close功能：關閉當前報表。（5）用DoCmd對象運行宏格式：DoCmd.RunMacro"宏名"功能：運行指定宏。例如：DoCmd.RunMacro"宏1"（6）用DoCmd對象退出Access。格式：DoCmd.Quit功能：關閉所有Access對象和Access本身。,（1）在窗體中建立5個按鈕→名稱分別為c1、c2、c3、c4、c5→標題分別為“打開文本框練習窗體”、“關閉文本框練習窗體”、“打開工資報表”、“關閉工資報表”、“退出Access”。,例：使用DoCmd對象,（2）c1代碼：DoCmd.OpenForm"文本框練習"（3）c2代碼：DoCmd.CloseacForm,"文本框練習"（4）c3代碼：DoCmd.OpenReport"工資報表",acViewPreview（5）c4代碼：DoCmd.CloseacReport,"工資報表"（6）c5代碼：DoCmd.Quit,（7）轉到窗體視圖→單擊不同按鈕執(zhí)行不同操作。,8.2.3數(shù)據(jù)類型與數(shù)據(jù)類型轉換,（1）標準數(shù)據(jù)類型,（2）數(shù)據(jù)類型轉換函數(shù),例：在立即窗口中計算函數(shù)值（1）在VBE界面→“視圖”菜單→“立即窗口”，顯示立即窗口。（2）輸入表達式x=“true”→回車→輸入表達式y(tǒng)=“false”→回車→輸入表達式?x+y→回車，顯示結果為：truefalse。（3）輸入表達式?cbool(x)+cbool(y)→回車，顯示結果為：-1。說明：每行寫完后必須回車才能生效。問號與print語句相同，在立即窗口顯示計算結果。,,（3）用戶定義的數(shù)據(jù)類型,定義格式：type數(shù)據(jù)類型名域名1as數(shù)據(jù)類型域名2as數(shù)據(jù)類型…endtype例如：typestudentxhasstring*6xmasstringxbasstring*1nlasintegerendtype,8.2.4變量,變量是指程序運行時值會發(fā)生變化的數(shù)據(jù)。系統(tǒng)會按照變量的數(shù)據(jù)類型在內(nèi)存中為變量分配一定數(shù)量的存儲單元，程序中用變量名調(diào)用存儲的數(shù)據(jù)。所以，變量實際上是一個符號地址，代表了命名的存儲位置。（1）變量命名規(guī)則由字母、數(shù)字、下劃線組成，用英文字母開頭。不能包含空格以及除下劃線之外的標點符號。不能用VBA的關鍵字（如：dim）和保留字（如：str）。字符個數(shù)不得多于255個。變量名不區(qū)分大小寫。,格式：dim變量名as類型說明：如果不用as定義類型，則變量為變體類型。變體類型變量比其他類型變量占用更多的內(nèi)存資源?？梢杂胐im同時定義多個變量，變量之間用西文逗號分隔，每一個變量都應該用as聲明類型。例如：dima1asinteger，a2asboolean用dim定義的變量是局部變量，會按照數(shù)據(jù)類型自動設置默認值。,（2）用dim語句聲明變量,（3）用類型說明符聲明變量類型,在變量名后加VBA的類型說明符，隱式的聲明了變量類型。例如：b1%=125變量b1是整型，值是125。既沒有顯式聲明，也沒有加類型說明符，隱式聲明了變體型變量。例如：c1=125變量c1是變體型，值是125。,圖1-15層次模型,（4）一個特殊的模塊變量本地窗口打開時，自動生成一個名為“Me”的特殊模塊變量。對于類模塊，定義為Me。Me是對象的引用，引用當前模塊中當前類的實例。Me變量不需要專門定義，直接使用即可。例如，用代碼定義“學生信息”窗體中“Lab”標簽的標題屬性，以下兩種方法效果是一樣的：標準方法：Forms!學生信息!Lab.Caption="學生信息瀏覽"常用方法：Me!Lab.Caption="學生信息瀏覽",8.2.5變量的作用域和生命周期,1．變量的作用域變量的作用域是變量在程序中起作用的范圍。分3個層次，從低到高依次為：局部、模塊、全局。（1）局部變量又稱為本地變量，僅在聲明變量的過程中有效。在過程和函數(shù)內(nèi)部用dim聲明或不用聲明接使用的變量，都是局部變量。局部變量在本地擁有最高級，當存在同名的模塊級變量時，模塊級變量被屏蔽。（2）模塊變量模塊變量在所聲明模塊的所有函數(shù)和所有過程都有效，變量定義在模塊所有過程之外的起始位置，通常是窗體變量或標準模塊變量。（3）全局變量全局變量又稱為公共變量，定義在標準模塊所有過程之外，在所有模塊的所有過程和函數(shù)中都有效。定義格式：public變量名as數(shù)據(jù)類型,變量的生命周期是指變量從首次出現(xiàn)到變量消失的代碼執(zhí)行時間。變量首次出現(xiàn)是指聲明變量并為其分配存儲空間，變量消失是指變量所在的程序執(zhí)行完畢。局部變量的生命周期從過程或函數(shù)被調(diào)用到運行結束。全局變量的生命周期從聲明到Access應用程序結束。過程中用dim定義的變量，每次調(diào)用過程時都重新開始，過程結束時立即消失。用static代替dim定義變量，可以在過程實例間保留局部變量的值。用static定義的變量稱為靜態(tài)變量，作用范圍與dim相同，在整個模塊執(zhí)行時一直存在。,2．變量的生命周期,例：用static和dim定義局部變量,（1）在窗體中建立2個文本框→分別命名為t1和t2→附加標簽的標題分別為“靜態(tài)變量”和“局部變量”。（2）在窗體中建立命令按鈕→名稱為c1→標題為“計算”。,（3）c1的click代碼：StaticxAsIntegerDimyAsIntegerx=x+1：y=y+1t1=x：t2=y,（4）執(zhí)行時不斷單擊命令按鈕，靜態(tài)變量文本框中的值每次增加1，而局部變量文本框中的值總是1。,8.2.6常量,常量是在程序運行過程中其值不能改變的量，如數(shù)字常量123、字符串常量"abc"、日期常量#2008-8-8#等。這樣的常量是直接常量，也稱為字面常量。系統(tǒng)還提供3種常量：符號常量、系統(tǒng)常量、內(nèi)部常量。,1．符號常量用符號常量表示在編程中反復使用的相同值。符號常量名一般用大寫字母，以便與變量名區(qū)分。定義格式：Const符號常量名=常量值說明：（1）如果符號常量定義在模塊聲明區(qū)，所有模塊的過程都能使用該變量，通常在前面加上Global或Public。如：PublicConstPI=3.14（2）如果符號常量定義在事件的過程中，該符號常量只在本過程中可用。（3）符號常量定義時不用指明數(shù)據(jù)類型。,2．系統(tǒng)常量系統(tǒng)常量是Access啟動時就建立的常量，可以在所有程序編碼時直接使用。系統(tǒng)常量有：true、false、yes、no、on、off、null。3．內(nèi)部常量內(nèi)部常量又稱為固有常量，是VBA提供的一些預定義的內(nèi)部符號常量，主要用來作為DoCmd對象的參數(shù)。內(nèi)部常量用前兩個字母指明該常量的對象庫：以ac開頭的是Access的庫常量，以vb開頭的是VBA的庫常量，以db開頭的是DAO的庫常量，以ad開頭的ADO的庫常量。這些內(nèi)部常量名不能作為用戶自定義的變量名或符號常量名。,1．數(shù)組的概念VBA中的數(shù)組是一組具有相同數(shù)據(jù)類型、同一名字、不同下標的變量集合。數(shù)組變量由變量名和數(shù)據(jù)下標組成，數(shù)組下標用圓括號括起來。說明：（1）數(shù)組要先定義后使用，VBA不允許隱式聲明數(shù)組。（2）同一過程中數(shù)組名不能與其他變量重名。,8.2.7數(shù)組,2．聲明一維數(shù)組格式1：dim數(shù)組名(下標上限)as數(shù)據(jù)類型格式2：dim數(shù)組名(下標下限to下標上限)as數(shù)據(jù)類型例如：dima(6)asinteger功能：聲明了有7個元素的數(shù)組a，元素下標從0到6，默認值均為0。例如：dimb(1to6)asstring功能：聲明了有6個元素的數(shù)組b，下標從1到6，默認值均為空串。說明：（1）如果不定義數(shù)組下標的下限，默認下標下限為0。（2）數(shù)組定義中的參數(shù)必須是常數(shù)。（3）如果使用as語句定義數(shù)組類型，同一數(shù)組只能存放相同類型數(shù)據(jù)。,3．聲明多維數(shù)組格式：dim數(shù)組名(下標上限1，下標上限2，…)as數(shù)據(jù)類型例如：dimc(3，4)asinteger功能：聲明有20個元素的數(shù)組c，行下標從0到3，列下標從0到4。例如：dimd(1to3，2to4)asinteger功能：聲明有9個元素的數(shù)組d，行下標從1到3，列下標從2到4。4．使用數(shù)組聲明數(shù)組后，每個數(shù)組元素都被當作單個變量使用。一維數(shù)組元素的引用格式：數(shù)組名（下標）二維數(shù)組元素的引用格式：數(shù)組名（下標1，下標2）,例：使用符號常量和數(shù)組,（1）在窗體建文本框→名稱為t1。（2）在窗體建命令按鈕→名稱為c1→標題為“確定”。（3）c1的代碼：,constAA=“歡迎你!”‘定義符號常量dimb(1)AsString‘定義數(shù)組b(0)=AAb(1)=t1MsgBoxb(0)":bb="標點符號"CaseElse:bb="特殊字符"EndSelectMsgBoxbb,（3）轉到窗體視圖→文本框中輸入字母→單擊按鈕顯示消息框。,8.4.4選擇函數(shù)與計時器事件,1．iif函數(shù)格式：iif(條件，表達式1，表達式2)功能：如果條件為真，函數(shù)值為表達式1的值，否則，函數(shù)值為表達式2的值。例：y=iif(a>b，"a大"，"b大")2．switch函數(shù)格式：switch(條件1，表達式1，條件2，表達式，…，條件n，表達式n)功能：從左到右依次判斷，遇到第一個條件為真時返回對應表達式的值。說明：條件與表達式成對，當多個條件為真時，只取第一個條件的對應表達式。例：y=switch(x0，1),3．choose函數(shù)格式：choose(索引式，值1，值2，…，值n)功能：根據(jù)索引項的值，返回對應的值。說明：索引項通常是整型變量名，取值范圍1～n，超出范圍時返回NULL。例如：y=choose(x，"優(yōu)秀"，"良好"，"中等"，"及格"，"不及格"),4．計時器事件VBA沒有直接提供時間控件，通過timer事件實現(xiàn)定時功能。方法：首先設置窗體的計時器間隔屬性TimerInterval，然后給timer事件寫過程代碼。打開窗體時，每隔一個時間間隔激發(fā)一次timer事件，事件的過程就被執(zhí)行一次，從而實現(xiàn)“定時”處理功能。計時器間隔的時間單位為毫秒，1000毫秒=1秒。,例:顯示電子表,（1）建立2個標簽→名稱為b1和b2→標題都為數(shù)字1。（2）打開窗體的屬性窗口→單擊“事件”選項卡→設置計時器間隔屬性為1000。（3）在VBE窗口“通用-聲明”寫代碼：PublicaAsBooleana為邏輯型，默認false（4）Form的Timer事件代碼：a=Notab1.Caption=Time()b2.Caption=CInt(b2.Caption)+1b2.ForeColor=IIf(a=True,255,16711680),（5）轉到窗體視圖。b1中顯示系統(tǒng)當前時間，b2中的數(shù)字每秒增加1，數(shù)字的顏色紅、藍交替，每秒換一次。,8.4.5驗證函數(shù),VBA的常用驗證函數(shù),例:檢驗字符串類型,（1）建文本框→名稱為t1→附加標簽標題為“輸入年齡：”。（2）建命令按鈕→名稱分別為c1→標題為“驗證”。（3）c1的click事件代碼：Ift1=""OrIsNull(t1)ThenMsgBox"不能為空!",vbCritical,"提示"ElseIfIsNumeric(t1)=FalseThenMsgBox"必須是數(shù)字!",vbCritical,"提示"ElseIft1=150ThenMsgBox"超出范圍!",vbCritical,"提示"ElseMsgBox"驗證通過!",vbInformation,"提示"EndIf,（4）轉到窗體視圖→在文本框中輸入一個字母→單擊“驗證”按鈕→消息框顯示消息“必須是數(shù)字！”。,8.4.6循環(huán)語句,當某一程序段需要反復執(zhí)行，用循環(huán)結構實現(xiàn)。循環(huán)結構對應兩類循環(huán)語句：先判斷后執(zhí)行的循環(huán)語句（當型循環(huán)結構）先執(zhí)行后判斷的循環(huán)語句（直到型循環(huán)結構）,1．for-next循環(huán)for-next循環(huán)能使語句序列運行指定次數(shù)，循環(huán)中有一個計數(shù)器變量，變量的值隨每一次循環(huán)增加或減少。for-next是當型循環(huán)結構，先判斷后執(zhí)行。（1）格式：for循環(huán)變量=初值to終值step步長語句序列next（2）功能先將初值賦給循環(huán)變量，再將循環(huán)變量的當前值與終值做比較，如果比較結果為真執(zhí)行語句序列，增加一個步長，再進行比較，如果比較結果仍為真，繼續(xù)循環(huán)……。如果比較結果為假，結束循環(huán)。,（3）說明步長大于0時判斷循環(huán)變量的當前值是否大于終值，步長小于0判斷循環(huán)變量的當前值是否小于終值。步長為0時導致循環(huán)無法結束，所以步長不要設置為0。步長可以是整數(shù)或小數(shù)，步長為1時可以省略。除第一次循環(huán)以外，其他循環(huán)增加一個步長后與終值比較。for循環(huán)可以嵌套。在for循環(huán)中可以用exitfor語句強行中止循環(huán)。,練習：閱讀下面程序段，循環(huán)結束后，各變量的值是多少？dimsasinteger,iasintegers=0fori=1to10step2s=s+ii=i+2next結論：循環(huán)結束后，變量i的值是13，變量s的值是15。,例：顯示Fibonacci數(shù)列的第15個元素,（Fibonacci數(shù)列的前兩個數(shù)都是1，從第3個數(shù)開始，每個數(shù)都是前兩個數(shù)之和。）,（1）建立文本框→名稱為t1→建立命令按鈕→名稱為c1。（2）c1的click事件代碼：Dimf(15)AsIntegerf(1)=1：f(2)=1Fori=3To15f(i)=f(i-1)+f(i-2)Nextt1=f(15),2．do-while-loop循環(huán)do-while-loop循環(huán)是當型循環(huán)結構，先判斷后執(zhí)行。（1）格式dowhile循環(huán)條件語句序列l(wèi)oop（2）功能先檢查循環(huán)條件是否成立，若條件為真，執(zhí)行語句序列。遇到loop語句時返回循環(huán)開始處重新判斷，若條件仍然為真，再次執(zhí)行語句序列……。當條件為假時退出循環(huán)。,（3）說明可以用exitdo強行中止循環(huán)。要考慮循環(huán)變量賦初值和給循環(huán)變量增加步長的問題。如果將while換成until，當條件為真時循環(huán)結束。練習：閱讀下面的程序（注：大寫字母A的ASCII碼是65。）dima(26)asstring,b(26)asinteger,dimiasintegeri=1給循環(huán)變量賦初值dowhilei<=26a(i)=chr(i+64)將ASCII碼變?yōu)樽帜竍(i)=Lcase(a(i))將大寫字母變?yōu)樾懽帜竔=i+1使循環(huán)變量增加1loop,3．do-loop-while循環(huán)是直到型循環(huán)結構，先執(zhí)行后判斷。（1）格式do語句序列Loopwhile循環(huán)條件（2）功能先執(zhí)行語句序列，遇到loop語句時判斷循環(huán)條件，若條件為真，再次執(zhí)行語句序列……。當條件為假時退出循環(huán)。（3）說明可以用exitdo強行中止循環(huán)。要考慮給循環(huán)變量賦初值和給循環(huán)變量增加步長的問題。如果將while換成until，當條件為真時循環(huán)結束。,4．for-each循環(huán)語句foreach循環(huán)用來遍歷數(shù)組或對象集合中每一個元素，不需要指定循環(huán)次數(shù)，每個元素只遍歷一次。如果不知道一個集合有多少個元素，用foreach循環(huán)非常方便。（1）格式foreach循環(huán)變量in集合或數(shù)組語句序列next（2）功能用循環(huán)變量依次遍歷數(shù)組或對象集合中每一個元素，直到遍歷結束。,練習：閱讀下面程序。dima(50)asinteger,iasinteger,sasintegerfori=1to50給數(shù)組賦值a(i)=inexts=0foreachiina遍歷a中元素ifimod20thens=s+i計算奇數(shù)之和next,8.5過程調(diào)用與參數(shù)傳遞,8.5.1認識過程和參數(shù),1．過程過程是用來執(zhí)行特定任務的一段獨立的程序代碼，這段代碼能被反復調(diào)用。VBA的模塊以過程為單元組成。VBA的過程根據(jù)是否返回值分為兩類：Sub過程和Function過程。Sub過程只執(zhí)行操作不返回值，不能用在表達式中，調(diào)用時就象使用基本語句一樣。Function過程又稱為用戶自定義函數(shù)，執(zhí)行操作后返回結果，常用在表達式中，調(diào)用時就象使用基本函數(shù)一樣。過程名是標識符，不要與模塊名重名，否則調(diào)用時會出現(xiàn)混亂。同一模塊中，Sub過程也不要與Function過程重名。過程不能嵌套定義，但可以嵌套調(diào)用。,2．參數(shù)如果在調(diào)用過程中，主調(diào)方（調(diào)用過程的語句）與被調(diào)方（過程）存在數(shù)據(jù)傳遞關系，表現(xiàn)這種傳遞關系的數(shù)據(jù)就是參數(shù)。參數(shù)分為形參（形式參數(shù)）和實參（實際參數(shù)）。形參用在被調(diào)方，只能是變量名或數(shù)組名。實參用在主調(diào)方，可以是常量、已賦值的變量、有計算結果的表達式。當形參和實參都是變量時，存在兩種參數(shù)傳遞方式：值傳遞與地址傳遞。值傳遞只能把實參的值傳給形參，是“單向傳遞”。地址傳遞能在實參與形參之間實現(xiàn)參數(shù)的“雙向傳遞”，不但將實參的值傳給形參，形參的值也可以傳給實參。,8.5.2sub過程,sub過程是包含在sub和endsub之間的一組代碼，調(diào)用sub過程時只執(zhí)行其中的操作，不返回值。1．定義sub過程的格式sub過程名（形參1as數(shù)據(jù)類型，形參2as數(shù)據(jù)類型，…）語句序列endsub2．調(diào)用sub過程格式1：call過程名（實參1，實參2，…）格式2：過程名實參1，實參2，…,3．說明（1）參數(shù)之間用逗號分隔，對應的形參與實參之間要類型匹配。（2）用格式1調(diào)用sub過程必須加括號，用格式2調(diào)用sub過程不加括號。（3）用exitsub語句立即從sub過程中退出。（4）定義sub過程時即使無任何參數(shù)，也必須包含空括號（）。（5）sub之前可以用public或private或static定義過程作用域。（6）標準模塊中的過程可以被所有對象調(diào)用，類模塊中的過程只在本模塊中有效。,例：sub過程練習,（1）建2個文本框→名稱分別為t1和t2→附加標簽標題分別為“輸入矩形長：”和“輸入矩形寬：”。（2）建命令按鈕→名稱為c1→標題為“計算”。（3）建立標準模塊→以“過程模塊”為名保存模塊。（4）在“過程模塊”中定義jxmj過程，代碼如下：PublicSubjxmj(hAsInteger,wAsInteger)DimsAsIntegers=h*w計算矩形面積MsgBox"矩形面積為:"&s顯示矩形面積EndSub,（5）命令按鈕c1的click事件代碼：Dima1AsInteger,a2AsIntegera1=t1:a2=t2Calljxmj(a1,a2)用格式1調(diào)用sub模塊（6）轉到窗體視圖→輸入矩形長和寬→單擊“計算”按鈕。,8.5.3function過程,1．定義function過程的格式function過程名（形參1，形參2，…）as數(shù)據(jù)類型語句序列過程名=表達式……endfunction2．調(diào)用function過程調(diào)用function過程只有一種方式，即直接引用過程名，而且過程名在賦值號右端或在表達式中。,3．說明（1）參數(shù)之間用逗號分隔，對應形參與實參之間要類型匹配。（2）“過程名=表達式”是function過程中不可缺少的語句。（3）用exitfunction語句立即從function過程中退出。（4）若function過程無任何參數(shù)，也必須包含空括號（）。（5）function之前可以用public或private或static定義過程的作用域。,例：function過程練習,（1）建文本框→名稱為t1。（2）建標簽→名稱為Lab→標題為“圓面積=”（3）建命令按鈕→名稱為c1→標題為“計算”。,（4）在已有的“過程模塊”中添加ymj過程，代碼如下：PublicFunctionymj(rAsInteger)AsSingleymj=r*r*3.14EndFunction（5）命令按鈕c1的click事件代碼：DimaAsIntegera=t1Lab.Caption=Lab.Caption&ymj(a),（6）轉到窗體視圖→在文本框中輸入半徑→單擊“計算”按鈕→計算結果顯示在標簽中。,8.5.4參數(shù)傳遞,當實參是變量名時，既可以用傳值方式傳遞參數(shù)，也可以用傳地址的方式傳遞參數(shù)。,1．參數(shù)的值傳遞如果在過程的形參前加byval說明符，參數(shù)的傳遞方式為“傳值”。值傳遞的含義是指在過程中另外開辟存儲單元存放從實參傳過來的值，一旦過程結束，過程中開辟的存儲單元被釋放，該單元數(shù)據(jù)的改變不會保留下來。,2．參數(shù)的地址傳遞如果在過程的形參前加byref說明符，參數(shù)的傳遞方式為“傳地址”，參數(shù)的地址傳遞是默認選項，不加任何說明符，默認就是傳地址。地址傳遞的含義是指過程中的形參與主調(diào)方的實參指向同一個存儲單元，在過程中對存儲單元所做的修改，當過程結束后成為實參的當前值。地址傳遞通常用在sub過程中。,例：參數(shù)傳遞練習,（1）建立2個文本框→名稱分別為t1和t2。（2）建立命令按鈕→名稱為c1→標題為“調(diào)用過程”。（3）在已有的“過程模塊”中添加cscd過程，代碼如下：PublicSubcscd(ByRefaAsInteger,ByValbAsInteger)a=a+10b=b+10EndSub,（4）命令按鈕c1的click事件代碼：DimxAsInteger,yAsIntegerx=t1:y=t2cscdx,y用格式2調(diào)用sub過程t1=x:t2=y（5）轉到窗體視圖→在兩個文本框中都輸入10→單擊“調(diào)用過程”按鈕→計算結果仍顯示在文本框中。,