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

ACCESS實(shí)例教程,模塊的操作（第8章）,1.模塊的基本概念2.VBA程序設(shè)計(jì)基礎(chǔ)3.VBA函數(shù)的使用4.模塊的建立與使用5.過程與參數(shù)傳遞,本章要點(diǎn)：,VBA(VisualBasicforApplication)是MicrosoftOffice系列軟件的內(nèi)置編程語言;其語法結(jié)構(gòu)與VisualBasic編程語言互相兼容;VB是微軟公司推出的可視化BASIC語言，是一種編程簡單、功能強(qiáng)大的面向?qū)ο箝_發(fā)工具，我們可以像編寫VB程序那樣來編寫VBA程序。采用的是面向?qū)ο蟮木幊虣C(jī)制和可視化的編程環(huán)境。用VBA語言編寫的代碼，將保存在Access中的一個(gè)模塊里，并通過類似在窗體中激發(fā)宏的操作那樣來啟動(dòng)這個(gè)模塊，從而實(shí)現(xiàn)相應(yīng)的功能。,VBA簡介,注意：VB語言開發(fā)系統(tǒng)是獨(dú)立運(yùn)行的開發(fā)環(huán)境，它創(chuàng)建的應(yīng)用程序可以獨(dú)立運(yùn)行在Windows平臺(tái)上；而VBA則不同，其編程環(huán)境和VBA程序都必須依賴Office應(yīng)用程序（如Access、Word、Excel等）。,VBA簡介,VBA編程環(huán)境在Access2003提供的“模塊”數(shù)據(jù)庫對(duì)象中，使用VBA程序設(shè)計(jì)語言，在不同的模塊中實(shí)現(xiàn)VBA代碼設(shè)計(jì)，可以解決實(shí)際開發(fā)中的復(fù)雜應(yīng)用。要用Access2003來完成一個(gè)實(shí)際的數(shù)據(jù)庫應(yīng)用系統(tǒng)，就應(yīng)該掌握VBA。,8.1認(rèn)識(shí)模塊對(duì)象,模塊是由聲明、語句和過程組成的集合，以VBA（VisualBasicforApplication）語言編寫，作為一個(gè)已命名的單元存儲(chǔ)在一起。模塊有2種類型：類模塊和標(biāo)準(zhǔn)模塊。使用模塊可以在實(shí)際開發(fā)中實(shí)現(xiàn)較為復(fù)雜的功能。,（1）模塊：模塊由一個(gè)或多個(gè)過程組成，每個(gè)過程實(shí)現(xiàn)一個(gè)或幾個(gè)功能。模塊的執(zhí)行通過特定事件激發(fā)相應(yīng)的事件過程實(shí)現(xiàn)。（2）事件過程：事件過程是一組代碼，用于響應(yīng)窗體事件或報(bào)表事件。（3）類模塊：類模塊是包含代碼和數(shù)據(jù)的集合，可以看作是沒有物理表示的控件，總是與某一特定的窗體或報(bào)表相關(guān)聯(lián)。窗體模塊和報(bào)表模塊都屬于類模塊。（4）標(biāo)準(zhǔn)模塊：標(biāo)準(zhǔn)模塊是代碼的集合，包含的過程不與任何其他對(duì)象相關(guān)聯(lián)，是數(shù)據(jù)庫對(duì)象使用的公共過程，保存在數(shù)據(jù)庫窗口中。,8.1.1模塊的基本概念,8.1.2啟動(dòng)Access的編程界面,Access的編程界面稱為VBE（VisualBasicEditor），是MicrosoftOffice所有組件公用的程序編輯系統(tǒng)。方法1：在窗體或報(bào)表設(shè)計(jì)視圖中選控件單擊標(biāo)準(zhǔn)工具欄的“生成器”按鈕在“選擇生成器”對(duì)話框中選擇“代碼生成器”。方法2：右擊窗體或報(bào)表設(shè)計(jì)視圖中控件快捷菜單中選“事件生成器”“選擇生成器”對(duì)話框中選擇代碼生成器”。,8.1.3VBE窗口VBE窗口由工具欄、工程資源管理器窗口、屬性窗口、代碼窗口和立即窗口組成。,工程窗口選擇對(duì)象,屬性窗口選擇對(duì)象的屬性,代碼窗口,選擇事件,(1)工程窗口也稱工程資源管理器，一個(gè)數(shù)據(jù)庫應(yīng)用系統(tǒng)就是一個(gè)工程，系統(tǒng)中的所有類模塊及標(biāo)準(zhǔn)模塊對(duì)象都在該窗口中顯示出來。,類模塊,標(biāo)準(zhǔn)模塊,(2)屬性窗口屬性窗口列出了選定對(duì)象的屬性，可以在設(shè)計(jì)時(shí)查看、改變這些屬性。當(dāng)選取了多個(gè)控件時(shí)，屬性窗口會(huì)列出所有控件的共同屬性。,(3)代碼窗口代碼窗口用來顯示、編寫以及修改VBA代碼。實(shí)際操作中，可以打開多個(gè)代碼窗口，查看不同窗體或模塊中的代碼，代碼窗口之間可以進(jìn)行復(fù)制和粘貼。,對(duì)象框,過程框,編寫模塊對(duì)象的代碼在代碼窗口進(jìn)行。（1）窗口頂部有2個(gè)組合框，左邊對(duì)象框顯示所有對(duì)象名稱，右邊過程框顯示當(dāng)前對(duì)象能識(shí)別的所有事件名稱。選定一個(gè)對(duì)象，再選定一個(gè)事件，系統(tǒng)會(huì)自動(dòng)生成相應(yīng)事件過程的起始行與結(jié)束行，只須在兩行中間添加過程代碼即可?！巴ㄓ谩边^程可以被所有控件調(diào)用。某控件的過程只在關(guān)聯(lián)事件中有效。（2）窗口中央代碼區(qū)有聲明區(qū)和過程區(qū)，聲明區(qū)中聲明模塊使用的變量，過程區(qū)顯示一個(gè)或多個(gè)過程，之間用一條灰線分隔。（3）窗口底部有2個(gè)按鈕，單擊“過程視圖”按鈕，只顯示當(dāng)前過程。單擊右邊“完整的模塊視圖”按鈕，窗口顯示全部過程。,8.1.4標(biāo)準(zhǔn)工具欄,例8-1:創(chuàng)建一個(gè)類模塊。1、打開數(shù)據(jù)庫；2、新創(chuàng)建窗體名稱為w1；3、在窗體中添加命令按鈕名字為c1；4、選擇c1打開屬性【單擊】打開【代碼生成器】；,PrivateSubCommand0_Click()DoCmd.CloseEndSub,DoCmd為對(duì)象用來調(diào)用內(nèi)置的方法，Close關(guān)閉窗體,例8-1:創(chuàng)建一個(gè)類模塊。,對(duì)象框,過程框,例8-2:創(chuàng)建一個(gè)標(biāo)準(zhǔn)模塊。,1、打開數(shù)據(jù)庫；2、選擇【模塊】對(duì)象單擊【新建】按鈕；3、在VBE中編輯如下程序；,過程名為aa，x，y為整型變量,z為整型變量，存放x和y的乘積。顯示信息框,例8-2:創(chuàng)建一個(gè)標(biāo)準(zhǔn)模塊。,4、保存模塊名為mj；5、新創(chuàng)建窗體名稱為w2；6、在窗體中添加兩個(gè)文本框名稱分別為t1，t2；7、添加命令按鈕名字為c1；8、選擇c1打開屬性【單擊】打開【代碼生成器】；,調(diào)用過程aa，并將文本框的值傳遞給aa,8.1.7使用提示與幫助,在代碼窗口輸入代碼時(shí)，系統(tǒng)會(huì)自動(dòng)顯示提示信息，包括關(guān)鍵字列表、屬性列表、過程參數(shù)列表等，在列表中選取一項(xiàng)后雙擊鼠標(biāo)，所選值會(huì)自動(dòng)添加到當(dāng)前光標(biāo)處。,8.2VBA程序設(shè)計(jì)基礎(chǔ),8.2.1面向?qū)ο蟮某绦蛟O(shè)計(jì)的基本概念,（1）對(duì)象在自然界中，一個(gè)對(duì)象就是一個(gè)實(shí)體，如一輛汽車就是一個(gè)對(duì)象。在面向?qū)ο蟮某绦蛟O(shè)計(jì)中，對(duì)象代表應(yīng)用程序中的元素，如表、窗體、按鈕等。（2）屬性屬性是對(duì)象的特征。如汽車有顏色和型號(hào)屬性，按鈕有標(biāo)題和名稱屬性。對(duì)象的類別不同，屬性會(huì)有所不同。同類別對(duì)象的不同實(shí)例，屬性也有差異。例如，同是命令按鈕，名稱屬性不允許相同。,（3）事件事件是對(duì)象能夠識(shí)別的動(dòng)作。如按鈕可以識(shí)別單擊事件、雙擊事件等。在類模塊每一個(gè)過程的開始行，都顯示對(duì)象名和事件名。如：PrivateSubc1_Click()。（4）方法方法是對(duì)象能夠執(zhí)行的動(dòng)作，決定了對(duì)象能完成什么事。不同對(duì)象有不同的方法。如close方法能關(guān)閉一個(gè)窗體。,（5）集合集合由許多與對(duì)象有關(guān)的鍵和值組成，其中的鍵和值是配對(duì)的。如一本書是一個(gè)對(duì)象，書的頁碼是鍵，頁碼對(duì)應(yīng)的內(nèi)容是值。所有配對(duì)的頁碼和內(nèi)容組成了書對(duì)象的集合。（6）過程過程是由代碼組成的單元，包含一系列計(jì)算語句和執(zhí)行語句。每一個(gè)過程都有名字，過程名不能與所在模塊的模塊名相同。過程有兩種類型：sub過程（無返回值），function過程（有返回值）。,例8-3：創(chuàng)建一個(gè)類模塊，動(dòng)態(tài)設(shè)置控件屬性,（1）在窗體ct中創(chuàng)建一個(gè)文本框名稱為t1。（2）在窗體ct中創(chuàng)建一個(gè)標(biāo)簽名稱為b1標(biāo)題為“歡迎你！”。（3）在窗體ct中創(chuàng)建三個(gè)命令按鈕名稱分別為c1、c2、c3標(biāo)題分別為“紅色”、“綠色”、“藍(lán)色”。,（4）設(shè)置各按鈕的前景色，在屬性窗口可查看顏色值。,（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í)行結(jié)果：,Docmd是Access的一個(gè)特殊對(duì)象，用來調(diào)用內(nèi)置方法，在程序中實(shí)現(xiàn)對(duì)Access的操作，諸如打開窗口、關(guān)閉窗體、打開報(bào)表、關(guān)閉報(bào)表等。DoCmd對(duì)象的大多數(shù)方法都有參數(shù)，有些參數(shù)是必需的，有些則是可選的。若省略可選參數(shù)，參數(shù)將采用默認(rèn)值。,8.2.2Docmd對(duì)象,（1）用DoCmd對(duì)象打開窗體格式：DoCmd.OpenForm"窗體名"功能：用默認(rèn)形式打開指定窗體。例如：DoCmd.OpenForm"文本框練習(xí)",（2）用DoCmd對(duì)象關(guān)閉窗體格式1：DoCmd.CloseacForm,"窗體名"功能：關(guān)閉指定窗體。例如：DoCmd.CloseacForm,"文本框練習(xí)"格式2：DoCmd.Close功能：關(guān)閉當(dāng)前窗體。（3）用DoCmd對(duì)象打開報(bào)表格式：DoCmd.OpenReport"報(bào)表名",acViewPreview功能：用預(yù)覽形式打開指定報(bào)表。例如：DoCmd.OpenReport"工資報(bào)表",acViewPreview,（4）用DoCmd對(duì)象關(guān)閉報(bào)表格式1：DoCmd.CloseacReport,"報(bào)表名"功能：關(guān)閉指定報(bào)表。例如：DoCmd.CloseacReport,"工資報(bào)表"格式2：DoCmd.Close功能：關(guān)閉當(dāng)前報(bào)表。（5）用DoCmd對(duì)象運(yùn)行宏格式：DoCmd.RunMacro"宏名"功能：運(yùn)行指定宏。例如：DoCmd.RunMacro"宏1"（6）用DoCmd對(duì)象退出Access。格式：DoCmd.Quit功能：關(guān)閉所有Access對(duì)象和Access本身。,（1）在窗體中建立5個(gè)按鈕名稱分別為c1、c2、c3、c4、c5標(biāo)題分別為“打開文本框練習(xí)窗體”、“關(guān)閉文本框練習(xí)窗體”、“打開工資報(bào)表”、“關(guān)閉工資報(bào)表”、“退出Access”。,例8-4：使用DoCmd對(duì)象,（2）c1代碼：DoCmd.OpenForm"文本框練習(xí)"（3）c2代碼：DoCmd.CloseacForm,"文本框練習(xí)"（4）c3代碼：DoCmd.OpenReport"工資報(bào)表",acViewPreview（5）c4代碼：DoCmd.CloseacReport,"工資報(bào)表"（6）c5代碼：DoCmd.Quit,（7）轉(zhuǎn)到窗體視圖單擊不同按鈕執(zhí)行不同操作。,8.2.3數(shù)據(jù)類型與數(shù)據(jù)類型轉(zhuǎn)換,VBA中的基本數(shù)據(jù)類型VBA在數(shù)據(jù)類型和定義方式上均繼承了傳統(tǒng)的Basic語言的特點(diǎn)。Access數(shù)據(jù)表中的字段使用的數(shù)據(jù)（OLE對(duì)象和備注字段數(shù)據(jù)類型除外）在VBA中都有對(duì)應(yīng)的類型。在VBA中，數(shù)據(jù)類型用來決定變量可以保存何種數(shù)據(jù)。VBA支持多種數(shù)據(jù)類型，為用戶編程提供了方便。,8.2.3數(shù)據(jù)類型與數(shù)據(jù)類型轉(zhuǎn)換,（1）標(biāo)準(zhǔn)數(shù)據(jù)類型,1.數(shù)值型數(shù)據(jù)類型包括：Byte、Integer、Long、Single、Double和Currency。(1)Byte以一個(gè)字節(jié)的無符號(hào)二進(jìn)制數(shù)存儲(chǔ)，取值范圍為0255。(2)整數(shù)(integer和Long)整數(shù)是不帶小數(shù)點(diǎn)和指數(shù)符號(hào)的數(shù)，在機(jī)器內(nèi)以二進(jìn)制補(bǔ)碼形式表示。整型(Integer)長整型(Long)例如：345、-345、345%均表示整型數(shù)。345SumEndSub,良好的編程習(xí)慣應(yīng)該是“先聲明變量，后使用變量”，這樣做可以提高程序的效率，同時(shí)也使程序易于調(diào)試。,聲明而未賦值的變量的值為：數(shù)值型變量初始化為0；字符型變量為零長度字符串；變體型變量初始化為Empty。,變量的初始化,（5）一個(gè)特殊的模塊變量本地窗口打開時(shí)，自動(dòng)生成一個(gè)名為“Me”的特殊模塊變量。對(duì)于類模塊，定義為Me。Me是對(duì)象的引用，引用當(dāng)前模塊中當(dāng)前類的實(shí)例。Me變量不需要專門定義，直接使用即可。例如：用代碼定義“學(xué)生信息”窗體中“Lab”標(biāo)簽的標(biāo)題屬性，以下兩種方法效果是一樣的：標(biāo)準(zhǔn)方法：Forms!學(xué)生信息!Lab.Caption="學(xué)生信息瀏覽"常用方法：Me!Lab.Caption="學(xué)生信息瀏覽",8.2.5變量的作用域和生命周期,1變量的作用域變量的作用域是變量在程序中起作用的范圍。分3個(gè)層次，從低到高依次為：局部、模塊、全局。（1）局部變量又稱為本地變量，僅在聲明變量的過程中有效。在過程和函數(shù)內(nèi)部用dim聲明或不用聲明接使用的變量，都是局部變量。局部變量在本地?fù)碛凶罡呒?jí)，當(dāng)存在同名的模塊級(jí)變量時(shí)，模塊級(jí)變量被屏蔽。（2）模塊變量模塊變量在所聲明模塊的所有函數(shù)和所有過程都有效，變量定義在模塊所有過程之外的起始位置，通常是窗體變量或標(biāo)準(zhǔn)模塊變量。（3）全局變量全局變量又稱為公共變量，定義在標(biāo)準(zhǔn)模塊所有過程之外，在所有模塊的所有過程和函數(shù)中都有效。定義格式：public變量名as數(shù)據(jù)類型,變量的生命周期是指變量從首次出現(xiàn)到變量消失的代碼執(zhí)行時(shí)間。變量首次出現(xiàn)是指聲明變量并為其分配存儲(chǔ)空間，變量消失是指變量所在的程序執(zhí)行完畢。局部變量:的生命周期從過程或函數(shù)被調(diào)用到運(yùn)行結(jié)束。全局變量:的生命周期從聲明到Access應(yīng)用程序結(jié)束。過程中用dim定義的變量，每次調(diào)用過程時(shí)都重新開始，過程結(jié)束時(shí)立即消失。用static代替dim定義變量，可以在過程實(shí)例間保留局部變量的值。用static定義的變量稱為靜態(tài)變量，作用范圍與dim相同，在整個(gè)模塊執(zhí)行時(shí)一直存在。,2變量的生命周期,例8-6：用static和dim定義局部變量,（1）在窗體中建立2個(gè)文本框分別命名為t1和t2附加標(biāo)簽的標(biāo)題分別為“靜態(tài)變量”和“局部變量”。（2）在窗體中建立命令按鈕名稱為c1標(biāo)題為“計(jì)算”。,（3）c1的click代碼：StaticxAsIntegerx變量的生命周期為全程DimyAsIntegery變量的生命周期為局部x=x+1：y=y+1t1=x：t2=y,（4）執(zhí)行時(shí)不斷單擊命令按鈕，靜態(tài)變量文本框中的值每次增加1，而局部變量文本框中的值總是1。,1.數(shù)組的概念數(shù)組是由一組具有相同數(shù)據(jù)類型的變量(稱為數(shù)組元素)構(gòu)成的集合。為了識(shí)別數(shù)組中不同的元素，數(shù)組元素可以通過下標(biāo)來訪問，數(shù)組下標(biāo)默認(rèn)從0開始。說明：（1）數(shù)組要先定義后使用，VBA不允許隱式聲明數(shù)組。（2）同一過程中數(shù)組名不能與其他變量重名。,8.2.7數(shù)組,2聲明一維數(shù)組格式1：dim數(shù)組名(下標(biāo)上限)as數(shù)據(jù)類型格式2：dim數(shù)組名(下標(biāo)下限to下標(biāo)上限)as數(shù)據(jù)類型例如：dima(6)asinteger功能：聲明了有7個(gè)元素的數(shù)組a，元素下標(biāo)從0到6，默認(rèn)值均為0。例如：dimb(1to6)asstring功能：聲明了有6個(gè)元素的數(shù)組b，下標(biāo)從1到6，默認(rèn)值均為空串。說明：（1）如果不定義數(shù)組下標(biāo)的下限，默認(rèn)下標(biāo)下限為0。（2）數(shù)組定義中的參數(shù)必須是常數(shù)。（3）如果使用as語句定義數(shù)組類型，同一數(shù)組只能存放相同類型數(shù)據(jù)。,聲明數(shù)組后，每個(gè)數(shù)組元素都被當(dāng)作單個(gè)變量使用。一維數(shù)組元素的引用格式：數(shù)組名（下標(biāo)）數(shù)組賦值與引用：bAge(0)50bAge(1)20bAge(2)70DimsumasByteSum=bAge(0)+bAge(1)+bAge(2),3聲明多維數(shù)組格式：dim數(shù)組名(下標(biāo)上限1，下標(biāo)上限2，)as數(shù)據(jù)類型例如：dimc(3，4)asinteger功能：聲明有20個(gè)元素的數(shù)組c，行下標(biāo)從0到3，列下標(biāo)從0到4。例如：dimd(1to3，2to4)asinteger功能：聲明有9個(gè)元素的數(shù)組d，行下標(biāo)從1到3，列下標(biāo)從2到4。4使用數(shù)組聲明數(shù)組后，每個(gè)數(shù)組元素都被當(dāng)作單個(gè)變量使用。一維數(shù)組元素的引用格式：數(shù)組名（下標(biāo)）二維數(shù)組元素的引用格式：數(shù)組名（下標(biāo)1，下標(biāo)2）,例8-7：使用符號(hào)常量和數(shù)組,（1）在窗體建文本框名稱為t1。（2）在窗體建命令按鈕名稱為c1標(biāo)題為“確定”。（3）命令按鈕c1的單擊事件代碼：,constAA=“歡迎你!”定義符號(hào)常量dimb(1)AsString定義字符串?dāng)?shù)組b(0)=AAb(1)=t1MsgBoxb(0)":bb="標(biāo)點(diǎn)符號(hào)"CaseElse:bb="特殊字符"EndSelectMsgBoxbb,（3）轉(zhuǎn)到窗體視圖文本框中輸入字母單擊按鈕顯示消息框。,8.4.4選擇函數(shù)與計(jì)時(shí)器事件,1iif函數(shù)格式：iif(條件，表達(dá)式1，表達(dá)式2)功能：如果條件為真，函數(shù)值為表達(dá)式1的值，否則，函數(shù)值為表達(dá)式2的值。例：y=iif(a>b，"a大"，"b大")2switch函數(shù)格式：switch(條件1，表達(dá)式1，條件2，表達(dá)式，條件n，表達(dá)式n)功能：從左到右依次判斷，遇到第一個(gè)條件為真時(shí)返回對(duì)應(yīng)表達(dá)式的值。說明：條件與表達(dá)式成對(duì)，當(dāng)多個(gè)條件為真時(shí)，只取第一個(gè)條件的對(duì)應(yīng)表達(dá)式。例：y=switch(x0，1),3choose函數(shù)格式：choose(索引式，值1，值2，值n)功能：根據(jù)索引項(xiàng)的值，返回對(duì)應(yīng)的值。說明：索引項(xiàng)通常是整型變量名，取值范圍1n，超出范圍時(shí)返回NULL。例如：y=choose(x，"優(yōu)秀"，"良好"，"中等"，"及格"，"不及格"),4計(jì)時(shí)器事件VBA沒有直接提供時(shí)間控件，通過timer事件實(shí)現(xiàn)定時(shí)功能。方法：首先設(shè)置窗體的計(jì)時(shí)器間隔屬性TimerInterval，然后給timer事件寫過程代碼。打開窗體時(shí)，每隔一個(gè)時(shí)間間隔激發(fā)一次timer事件，事件的過程就被執(zhí)行一次，從而實(shí)現(xiàn)“定時(shí)”處理功能。計(jì)時(shí)器間隔的時(shí)間單位為毫秒，1000毫秒=1秒。,例8-16:顯示電子表,（1）建立2個(gè)標(biāo)簽名稱為b1和b2標(biāo)題都為數(shù)字1。（2）打開窗體的屬性窗口單擊“事件”選項(xiàng)卡設(shè)置計(jì)時(shí)器間隔屬性為1000。（3）在VBE窗口“通用-聲明”寫代碼：PublicaAsBooleana為邏輯型，默認(rèn)false（4）Form的Timer事件代碼：a=Notab1.Caption=Time()b2.Caption=CInt(b2.Caption)+1b2.ForeColor=IIf(a=True,255,16711680),（5）轉(zhuǎn)到窗體視圖。b1中顯示系統(tǒng)當(dāng)前時(shí)間，b2中的數(shù)字每秒增加1，數(shù)字的顏色紅、藍(lán)交替，每秒換一次。,8.4.5驗(yàn)證函數(shù),VBA的常用驗(yàn)證函數(shù),例8-17:檢驗(yàn)字符串類型,（1）建文本框名稱為t1附加標(biāo)簽標(biāo)題為“輸入年齡：”。（2）建命令按鈕名稱分別為c1標(biāo)題為“驗(yàn)證”。（3）c1的click事件代碼：Ift1=""OrIsNull(t1)ThenMsgBox"不能為空!",vbCritical,"提示"ElseIfIsNumeric(t1)=FalseThenMsgBox"必須是數(shù)字!",vbCritical,"提示"ElseIft1=150ThenMsgBox"超出范圍!",vbCritical,"提示“ElseMsgBox"驗(yàn)證通過!",vbInformation,"提示"EndIf,（4）轉(zhuǎn)到窗體視圖在文本框中輸入一個(gè)字母單擊【驗(yàn)證】按鈕消息框顯示消息“必須是數(shù)字！”。,8.4.6循環(huán)語句,當(dāng)某一程序段需要反復(fù)執(zhí)行，用循環(huán)結(jié)構(gòu)實(shí)現(xiàn)。循環(huán)結(jié)構(gòu)對(duì)應(yīng)兩類循環(huán)語句：先判斷后執(zhí)行的循環(huán)語句（當(dāng)型循環(huán)結(jié)構(gòu)）先執(zhí)行后判斷的循環(huán)語句（直到型循環(huán)結(jié)構(gòu)）,1for-next循環(huán)for-next循環(huán)能使語句序列運(yùn)行指定次數(shù)，循環(huán)中有一個(gè)計(jì)數(shù)器變量，變量的值隨每一次循環(huán)增加或減少。for-next是當(dāng)型循環(huán)結(jié)構(gòu)，先判斷后執(zhí)行。,（1）格式：for循環(huán)變量=初值to終值step步長語句序列next,（2）功能：先將初值賦給循環(huán)變量，再將循環(huán)變量的當(dāng)前值與終值做比較，如果比較結(jié)果為真執(zhí)行語句序列，增加一個(gè)步長，再進(jìn)行比較，如果比較結(jié)果仍為真，繼續(xù)循環(huán)。如果比較結(jié)果為假，結(jié)束循環(huán)。,步長大于0時(shí)判斷循環(huán)變量的當(dāng)前值是否大于終值，步長小于0判斷循環(huán)變量的當(dāng)前值是否小于終值。步長為0時(shí)導(dǎo)致循環(huán)無法結(jié)束，所以步長不要設(shè)置為0。步長可以是整數(shù)或小數(shù)，步長為1時(shí)可以省略。除第一次循環(huán)以外，其他循環(huán)增加一個(gè)步長后與終值比較。for循環(huán)可以嵌套。在for循環(huán)中可以用exitfor語句強(qiáng)行中止循環(huán)。,（3）說明,練習(xí)1：閱讀下面程序段，循環(huán)結(jié)束后，各變量的值是多少？dimsasinteger,iasintegers=0fori=1to10step2s=s+ii=i+2next結(jié)論：循環(huán)結(jié)束后，變量i的值是13，變量s的值是15。,1、i=1s=0+1=1i=1+2=3step2i=i+2=52、i=5s=1+5=6i=5+2=7step2i=i+2=93、i=9s=6+9=15i=9+2=11step2i=i+2=13,步長相當(dāng)于4：fori=1to10step4s=s+inext,練習(xí)2：下面的程序段使得循環(huán)中途退出Dimsasinteger,iasintegerS=0Fori=0to100step2s=s+iifs>=20thenexitfor中途退出循環(huán)Next,分析：i=0s=0+0=0i=i+2=2i=2s=0+2=2i=i+2=4i=4s=2+4=6i=i+2=6,分析：i=6s=6+6=12i=i+2=8i=8s=12+8=20,結(jié)論：循環(huán)結(jié)束后，變量i的值是8，s的值是20。,Dimsasinteger,iasintegerS=0Fori=0to100step2s=s+iNext1100之間的偶數(shù)之和,Dimsasinteger,iasintegerS=0Fori=0to100s=s+iNext1100之間的整數(shù)數(shù)之和,2do-while-loop循環(huán)do-while-loop循環(huán)是當(dāng)型循環(huán)結(jié)構(gòu)，先判斷后執(zhí)行。（1）格式dowhile循環(huán)條件語句序列l(wèi)oop（2）功能先檢查循環(huán)條件是否成立，若條件為真，執(zhí)行語句序列。遇到loop語句時(shí)返回循環(huán)開始處重新判斷，若條件仍然為真，再次執(zhí)行語句序列。當(dāng)條件為假時(shí)退出循環(huán)。,（3）說明可以用exitdo強(qiáng)行中止循環(huán)。要考慮循環(huán)變量賦初值和給循環(huán)變量增加步長的問題。如果將while換成until，當(dāng)條件為真時(shí)循環(huán)結(jié)束。練習(xí)：閱讀下面的程序（注：大寫字母A的ASCII碼是65。）dima(26)asstring,b(26)asinteger字符數(shù)組dimiasintegeri=1給循環(huán)變量賦初值dowhilei<=26a(i)=chr(i+64)將ASCII碼變?yōu)樽帜竍(i)=Lcase(a(i)將大寫字母變?yōu)樾懽帜竔=i+1使循環(huán)變量增加1Loop,該循環(huán)結(jié)構(gòu)循環(huán)26次，每次循環(huán)產(chǎn)生一個(gè)字母（大、小寫），分別存放在a和b數(shù)組中。即：通過循環(huán)產(chǎn)生26個(gè)大小寫的英文字母，分別存放在A、B數(shù)組中。,3do-loop-while循環(huán)是直到型循環(huán)結(jié)構(gòu)，先執(zhí)行后判斷。（1）格式do語句序列Loopwhile循環(huán)條件（2）功能先執(zhí)行語句序列，遇到loop語句時(shí)判斷循環(huán)條件，若條件為真，再次執(zhí)行語句序列。當(dāng)條件為假時(shí)退出循環(huán)。（3）說明可以用exitdo強(qiáng)行中止循環(huán)。要考慮給循環(huán)變量賦初值和給循環(huán)變量增加步長的問題。如果將while換成until，當(dāng)條件為真時(shí)循環(huán)結(jié)束。,4for-each循環(huán)語句foreach循環(huán)用來遍歷數(shù)組或?qū)ο蠹现忻恳粋€(gè)元素，不需要指定循環(huán)次數(shù)，每個(gè)元素只遍歷一次。如果不知道一個(gè)集合有多少個(gè)元素，用foreach循環(huán)非常方便。（1）格式foreach循環(huán)變量in集合或數(shù)組語句序列next（2）功能用循環(huán)變量依次遍歷數(shù)組或?qū)ο蠹现忻恳粋€(gè)元素，直到遍歷結(jié)束。,練習(xí)：閱讀下面程序。dima(50)asinteger,iasinteger,sasintegerfori=1to50給數(shù)組賦值a(i)=inexts=0,foreachiina遍歷a中元素ifimod20i和2進(jìn)行模運(yùn)算結(jié)果不為0thens=s+a(i)計(jì)算奇數(shù)之和next,例8-18：顯示Fibonacci數(shù)列的第15個(gè)元素,（Fibonacci數(shù)列的前兩個(gè)數(shù)都是1，從第3個(gè)數(shù)開始，每個(gè)數(shù)都是前兩個(gè)數(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),8.5過程調(diào)用與參數(shù)傳遞,8.5.1認(rèn)識(shí)過程和參數(shù),1過程過程是用來執(zhí)行特定任務(wù)的一段獨(dú)立的程序代碼，這段代碼能被反復(fù)調(diào)用。VBA的模塊以過程為單元組成。VBA的過程根據(jù)是否返回值分為兩類：Sub過程和Function過程。Sub過程只執(zhí)行操作不返回值，不能用在表達(dá)式中，調(diào)用時(shí)就象使用基本語句一樣。Function過程又稱為用戶自定義函數(shù)，執(zhí)行操作后返回結(jié)果，常用在表達(dá)式中，調(diào)用時(shí)就象使用基本函數(shù)一樣。過程名是標(biāo)識(shí)符，不要與模塊名重名，否則調(diào)用時(shí)會(huì)出現(xiàn)混亂。同一模塊中，Sub過程也不要與Function過程重名。過程不能嵌套定義，但可以嵌套調(diào)用。,2參數(shù)如果在調(diào)用過程中，主調(diào)方（調(diào)用過程的語句）與被調(diào)方（過程）存在數(shù)據(jù)傳遞關(guān)系，表現(xiàn)這種傳遞關(guān)系的數(shù)據(jù)就是參數(shù)。參數(shù)分為形參（形式參數(shù)）和實(shí)參（實(shí)際參數(shù)）。形參用在被調(diào)方，只能是變量名或數(shù)組名。實(shí)參用在主調(diào)方，可以是常量、已賦值的變量、有計(jì)算結(jié)果的表達(dá)式。當(dāng)形參和實(shí)參都是變量時(shí)，存在兩種參數(shù)傳遞方式：值傳遞與地址傳遞。值傳遞只能把實(shí)參的值傳給形參，是“單向傳遞”。地址傳遞能在實(shí)參與形參之間實(shí)現(xiàn)參數(shù)的“雙向傳遞”，不但將實(shí)參的值傳給形參，形參的值也可以傳給實(shí)參。,8.5.2sub過程,sub過程是包含在sub和endsub之間的一組代碼，調(diào)用sub過程時(shí)只執(zhí)行其中的操作，不返回值。1定義sub過程的格式sub過程名（形參1as數(shù)據(jù)類型，形參2as數(shù)據(jù)類型，）語句序列endsub2調(diào)用sub過程格式1：call過程名（實(shí)參1，實(shí)參2，）格式2：過程名實(shí)參1，實(shí)參2，,3說明（1）參數(shù)之間用逗號(hào)分隔，對(duì)應(yīng)的形參與實(shí)參之間要類型匹配。（2）用格式1調(diào)用sub過程必須加括號(hào)，用格式2調(diào)用sub過程不加括號(hào)。（3）用exitsub語句立即從sub過程中退出。（4）定義sub過程時(shí)即使無任何參數(shù)，也必須包含空括號(hào)（）。（5）sub之前可以用public或private或static定義過程作用域。（6）標(biāo)準(zhǔn)模塊中的過程可以被所有對(duì)象調(diào)用，類模塊中的過程只在本模塊中有效。,例8-19：sub過程練習(xí),（1）建2個(gè)文本框名稱分別為t1和t2附加標(biāo)簽標(biāo)題分別為“輸入矩形長：”和“輸入矩形寬：”。（2）建命令按鈕名稱為c1標(biāo)題為“計(jì)算”。（3）建立標(biāo)準(zhǔn)模塊以“過程模塊”為名保存模塊。（4）在“過程模塊”中定義jxmj過程，代碼如下：,PublicSubjxmj(hAsInteger,wAsInteger)DimsAsIntegers=h*w計(jì)算矩形面積MsgBox"矩形面積為:"&s顯示矩形面積EndSub,（5）命令按鈕c1的click事件代碼：Dima1AsInteger,a2AsIntegera1=t1:a2=t2Calljxmj(a1,a2)用格式1調(diào)用sub模塊（6）轉(zhuǎn)到窗體視圖輸入矩形長和寬單擊“計(jì)算”按鈕。,8.5.3function過程,1定義function過程的格式function過程名（形參1，形參2，）as數(shù)據(jù)類型。語句序列過程名=表達(dá)式endfunction2調(diào)用function過程調(diào)用function過程只有一種方式，即直接引用過程名，而且過程名在賦值號(hào)右端或在表達(dá)式中。,3說明（1）參數(shù)之間用逗號(hào)分隔，對(duì)應(yīng)形參與實(shí)參之間要類型匹配。（2）“過程名=表達(dá)式”是function過程中不可缺少的語句。（3）用exitfunction語句立即從function過程中退出。（4）若function過程無任何參數(shù)，也必須包含空括號(hào)（）。（5）function之前可以用public或private或static定義過程的作用域。,例8-20：function過程練習(xí),（1）建文本框名稱為t1。（2）建標(biāo)簽名稱為Lab標(biāo)題為“圓面積=”（3）建命令按鈕名稱為c1標(biāo)題為“計(jì)算”。,（4）在已有的“過程模塊”中添加ymj過程，代碼如下：,（6）轉(zhuǎn)到窗體視圖在文本框中輸入半徑單擊“計(jì)算”按鈕計(jì)算結(jié)果顯示在標(biāo)簽中。,PublicFunctionymj(rAsInteger)AsSingleymj=r*r*3.14EndFunction,（5）命令按鈕c1的click事件代碼：DimaAsIntegera=t1Lab.Caption=Lab.Caption&ymj(a),8.5.4參數(shù)傳遞,當(dāng)實(shí)參是變量名時(shí)，既可以用傳值方式傳遞參數(shù)，也可以用傳地址的方式傳遞參數(shù)。,1參數(shù)的值傳遞如果在過程的形參前加byval說明符，參數(shù)的傳遞方式為“傳值”。值傳遞的含義是指在過程中另外開辟存儲(chǔ)單元存放從實(shí)參傳過來的值，一旦過程結(jié)束，過程中開辟的存儲(chǔ)單元被釋放，該單元數(shù)據(jù)的改變不會(huì)保留下來。,2參數(shù)的地址傳遞如果在過程的形參前加byref說明符，參數(shù)的傳遞方式為“傳地址”，參數(shù)的地址傳遞是默認(rèn)選項(xiàng)，不加任何說明符，默認(rèn)就是傳地址。地址傳遞的含義是指過程中的形參與主調(diào)方的實(shí)參指向同一個(gè)存儲(chǔ)單元，在過程中對(duì)存儲(chǔ)單元所做的修改，當(dāng)過程結(jié)束后成為實(shí)參的當(dāng)前值。地址傳遞通常用在sub過程中。,例8-21：參數(shù)傳遞練習(xí),（1）建立2個(gè)文本框名稱分別為t1和t2。（2）建立命令按鈕名稱為c1標(biāo)題為“調(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）轉(zhuǎn)到窗體視圖在兩個(gè)文本框中都輸入10單擊“調(diào)用過程”按鈕計(jì)算結(jié)果仍顯示在文本框中。,