第9章-模塊與VBA編程基礎(chǔ)課件

數(shù)據(jù)庫(kù)技術(shù)與應(yīng)用基礎(chǔ)

——Access第9章模塊與VBA編程基礎(chǔ)6/7/2023熟悉VBA的編程環(huán)境掌握VBA的基本語(yǔ)法和程序結(jié)構(gòu)熟悉Access對(duì)象模型掌握VBA基于面向?qū)ο蟮木幊讨饕蝿?wù)第9章模塊與VBA編程基礎(chǔ)6/7/20239.1模塊的基本概念 9.1.1類模塊 9.1.2標(biāo)準(zhǔn)模塊 9.2創(chuàng)建模塊 9.2.1在模塊中加入過(guò)程 9.2.2在模塊中執(zhí)行宏 9.3VBA程序設(shè)計(jì)基礎(chǔ) 9.3.1面向?qū)ο蟪绦蛟O(shè)計(jì)的基本概念 9.3.2VisualBasic編輯環(huán)境 9.3.3VisualBasic數(shù)據(jù)類型和數(shù)據(jù)庫(kù)對(duì)象 9.3.4變量與常量 9.3.5程序語(yǔ)句書(shū)寫(xiě)原則 9.3.6運(yùn)算符與表達(dá)式 9.3.7常用標(biāo)準(zhǔn)函數(shù) 9.4VBA流程控制語(yǔ)句 9.4.1順序結(jié)構(gòu) 9.4.2選擇結(jié)構(gòu) 9.4.3循環(huán)結(jié)構(gòu) 9.4.4常用事件程序的設(shè)計(jì) 9.5宏與VBA 9.5.1 將宏轉(zhuǎn)換為VisualBasic代碼 9.5.2 將窗體或報(bào)表中的宏轉(zhuǎn)換為VisualBasic代碼 9.5.3 將宏轉(zhuǎn)換為模塊 9.5.4 在VBA過(guò)程中實(shí)現(xiàn)宏操作 主要內(nèi)容第9章模塊與VBA編程基礎(chǔ)6/7/20239.1模塊的基本概念

模塊是VBA代碼組織形式，在Access中模塊可分為兩類：

◆類模塊

◆標(biāo)準(zhǔn)模塊。窗體和報(bào)表模塊都是類模塊，而且它們各自與對(duì)應(yīng)的窗體或報(bào)表相關(guān)聯(lián)。窗體或報(bào)表模塊通常都含有事件過(guò)程，當(dāng)它們創(chuàng)建第一個(gè)事件過(guò)程時(shí)，Access將自動(dòng)創(chuàng)建與窗體或報(bào)表對(duì)象相關(guān)聯(lián)的類模塊。與類模塊不同，標(biāo)準(zhǔn)模塊不與任何對(duì)象相關(guān)聯(lián)。標(biāo)準(zhǔn)模塊中的程序是通用的，可以在數(shù)據(jù)庫(kù)的位置被調(diào)用執(zhí)行。

6/7/20239.1.1類模塊

類模塊分為：獨(dú)立類模塊、窗體模塊和報(bào)表模塊。獨(dú)立類模塊不依附于窗體和報(bào)表而獨(dú)立存在，用該類模塊能創(chuàng)建自定義對(duì)象，可以為這些對(duì)象定義屬性、方法和事件。窗體模塊和報(bào)表模塊都屬于類模塊，它們從屬于各自的窗體或報(bào)表。6/7/20239.1.2標(biāo)準(zhǔn)模塊

標(biāo)準(zhǔn)模塊是指存放整個(gè)數(shù)據(jù)庫(kù)可用的函數(shù)和過(guò)程的模塊。標(biāo)準(zhǔn)模塊屬于數(shù)據(jù)庫(kù)對(duì)象，用戶可以像創(chuàng)建其他數(shù)據(jù)庫(kù)對(duì)象一樣創(chuàng)建包含VBA代碼的標(biāo)準(zhǔn)模塊。模塊內(nèi)包含了Sub過(guò)程和Function函數(shù)過(guò)程。6/7/20239.2創(chuàng)建模塊

過(guò)程是模塊的單元組成，由VBA代碼編寫(xiě)而成。過(guò)程分兩種類型：Sub子過(guò)程和Function

函數(shù)過(guò)程。6/7/20239.1.2在模塊中加入過(guò)程模塊是裝著VBA代碼的容器。在窗體或報(bào)表的設(shè)計(jì)視圖里，單擊工具欄“代碼”按鈕或者創(chuàng)建窗體或報(bào)表的事件過(guò)程可以進(jìn)入類模塊的設(shè)計(jì)和編輯窗口；單擊數(shù)據(jù)庫(kù)窗體中的“模塊”對(duì)象標(biāo)簽，然后單擊“新建”按鈕即可進(jìn)入標(biāo)準(zhǔn)模塊的設(shè)計(jì)和編輯窗口。

一個(gè)模塊包含一個(gè)聲明區(qū)域，且可以包含一個(gè)或多個(gè)子過(guò)程（以Sub開(kāi)頭）或函數(shù)過(guò)程（以Function開(kāi)頭）。模塊的聲明區(qū)域是用來(lái)聲明模塊使用的變量等項(xiàng)目。

6/7/2023例9．1創(chuàng)建一個(gè)名為Welcome的模塊，其功能是用來(lái)顯示歡迎消息框。操作步驟：（1）選擇數(shù)據(jù)庫(kù)窗口中的“模塊”對(duì)象，單擊“新建”按鈕，打開(kāi)VBA編輯界面。（2）執(zhí)行“插入”｜“過(guò)程”菜單命令。在彈出的“添加過(guò)程”對(duì)話框中填寫(xiě)過(guò)程的名稱、選擇過(guò)程類型和范圍，單擊“確定”按鈕后，出現(xiàn)Welcome過(guò)程的編寫(xiě)窗口。6/7/2023（3）編寫(xiě)過(guò)程代碼。（4）單擊工具欄上的“運(yùn)行子過(guò)程/用戶窗體”按鈕。（5）以Welcome為模塊名保存該模塊。6/7/20239.2.2在模塊中執(zhí)行宏在模塊的過(guò)程定義中，使用Docmd

對(duì)象的RunMacro

方法，可以執(zhí)行設(shè)計(jì)好的宏。其調(diào)用格式為：

Docmd.RunMacro

MacroName[,RepeatCount][,RepeatExpression]其中，MaoroName

表示當(dāng)前數(shù)據(jù)庫(kù)中宏的有效名稱；RepeatCount

川可選項(xiàng)，用于計(jì)算宏運(yùn)行次數(shù)的整數(shù)值；RepeatExpression可選項(xiàng)，數(shù)值表達(dá)式，在每一次運(yùn)行宏時(shí)進(jìn)行計(jì)算，結(jié)果為false時(shí)，停止運(yùn)行宏。

6/7/2023VisualBasic是微軟公司推出的可視化應(yīng)用程序開(kāi)發(fā)語(yǔ)言，簡(jiǎn)稱VB。由于VB功能強(qiáng)大且編程簡(jiǎn)單易學(xué)，因此微軟公司將它的一部分代碼結(jié)合到office中，形成了VBA。VBA語(yǔ)法與VisualBasic編程語(yǔ)言互相兼容。在Access程序設(shè)計(jì)中，當(dāng)某些操作不能用其他Access對(duì)象實(shí)現(xiàn)，或者實(shí)現(xiàn)起來(lái)很困難時(shí)，就可以利用VBA語(yǔ)言編寫(xiě)代碼，完成這些復(fù)雜任務(wù)。9.3VBA程序設(shè)計(jì)基礎(chǔ)

6/7/20239.3.1面向?qū)ο蟪绦蛟O(shè)計(jì)的基本概念對(duì)象和集合屬性和方法事件和事件過(guò)程6/7/2023VisualBasic編輯器（VBE,VisualBasicEditor）是編輯VBA代碼時(shí)使用的界面。VBE編輯器提供了完整的開(kāi)發(fā)和調(diào)試工具。啟動(dòng)方式有如幾種：①執(zhí)行“工具”|“宏”|“VisualBasic編輯器”命令。②新建模塊對(duì)象后，自動(dòng)打開(kāi)VisualBasic編輯器。③執(zhí)行“插入”|“模塊”命令或執(zhí)行“插入”|“類模塊”命令。④在模塊對(duì)象的數(shù)據(jù)庫(kù)窗口中，雙擊已有模塊。⑤打開(kāi)窗體或報(bào)表的設(shè)計(jì)視圖，執(zhí)行“視圖”|“代碼窗口”命令。

9.3.2VisualBasic編輯環(huán)境6/7/2023⑥打開(kāi)窗體或報(bào)表的設(shè)計(jì)視圖，在需要編寫(xiě)代碼的控件上右擊，從彈出的快捷菜單中選擇“事件生成器”命令。⑦在窗體或報(bào)表上的控件上右擊，從彈出的快捷菜單中執(zhí)行“屬性”|“事件”菜單命令，單擊任何事件單元格右側(cè)的下拉箭頭，從下拉列表框中選擇“事件過(guò)程”。窗口主要由標(biāo)準(zhǔn)工具欄、工程窗口、屬性窗口和代碼窗口等組成。

6/7/2023例9．2新建窗體并在其上放置一個(gè)命令按鈕，然后創(chuàng)建該命令按鈕的“單擊”事件響應(yīng)過(guò)程。操作步驟：（1）進(jìn)入Access的窗體“設(shè)計(jì)”視圖，在新建窗體上添加一個(gè)命令按鈕并命名為“cmdTest”。

（2）選擇“Test”命令按鈕，單擊右鍵打開(kāi)屬性窗體，單擊“事件”卡片并設(shè)置“單擊”屬性為“（事件過(guò)程）”選項(xiàng)。

6/7/2023（3）單擊屬性欄右旁的“

…”按鈕，即進(jìn)入新建窗體的類模塊代碼編輯區(qū)。在打開(kāi)的代碼編輯區(qū)里，可以看見(jiàn)系統(tǒng)已經(jīng)為該命令按鈕的“單擊”事件自動(dòng)創(chuàng)建了事件過(guò)程的模板。此時(shí)，只需在模板中添加VBA程序代碼，這個(gè)事件過(guò)程即作為命令按鈕的“單擊”事件響應(yīng)代碼，這里，僅給出了一條語(yǔ)句：

MsgBox“測(cè)試完畢！”，vbInformation,“title”。（4）按Alt+F11組合鍵回到窗體“設(shè)計(jì)”視圖，運(yùn)行窗體，單擊“test”命令按鈕即激活命令按鈕“單擊”事件，系統(tǒng)會(huì)調(diào)用設(shè)計(jì)好的事件過(guò)程來(lái)響應(yīng)“單擊”事件的發(fā)生，彈出“測(cè)試完畢！”消息框。6/7/2023標(biāo)準(zhǔn)數(shù)據(jù)類型用戶定義的數(shù)據(jù)類型數(shù)據(jù)庫(kù)對(duì)象9.3.3VisualBasic數(shù)據(jù)類型和數(shù)據(jù)庫(kù)對(duì)象

6/7/2023常量常量是指在程序運(yùn)行過(guò)程中值不變的量。常量的使用能夠增加代碼的可讀性，并且使代碼易于維護(hù)。在VBA中有3種常量：直接常量、符號(hào)常量和系統(tǒng)常量。變量變量是指程序運(yùn)行時(shí)值會(huì)發(fā)生變化的數(shù)據(jù)。變量名的命名，同字段命名一樣，變量命名不能包含有空格或除了下劃線字符（_）外的任何其他的標(biāo)點(diǎn)符號(hào)，其長(zhǎng)度不得超過(guò)255個(gè)字符。9.3.4變量與常量

6/7/2023語(yǔ)句書(shū)寫(xiě)規(guī)定

注釋語(yǔ)句

采用縮進(jìn)格式書(shū)寫(xiě)格式

9.3.5程序語(yǔ)句書(shū)寫(xiě)原則

6/7/2023算術(shù)運(yùn)算符與表達(dá)式關(guān)系運(yùn)算符與表達(dá)式

邏輯運(yùn)算符與表達(dá)式

字符串運(yùn)算符與表達(dá)式

9.3.6運(yùn)算符與表達(dá)式

6/7/2023在VBA中，除模塊創(chuàng)建中可以定義子過(guò)程與函數(shù)過(guò)程完成特定功能外，還提供了近百個(gè)內(nèi)置的標(biāo)準(zhǔn)函數(shù)，可以方便地完成許多操作。標(biāo)準(zhǔn)函數(shù)一般用于表達(dá)式中，有的能和語(yǔ)句一樣使用。其使用形式如下：函數(shù)名（＜參數(shù)1><，參數(shù)2＞＝[，參數(shù)3]［，參數(shù)4］［，參數(shù)5］…）其中，函數(shù)名必不可少，函數(shù)的參數(shù)放在函數(shù)名后的圓括號(hào)中，參數(shù)可以是常量、變量或表達(dá)式，可以有一個(gè)或多個(gè)，少數(shù)函數(shù)為無(wú)參函數(shù)。每個(gè)函數(shù)被調(diào)用時(shí)，都會(huì)返回一個(gè)返回值。需要指出的是：函數(shù)的參數(shù)和返回值都有特定的數(shù)據(jù)類型對(duì)應(yīng)。

9.3.7常用標(biāo)準(zhǔn)函數(shù)

6/7/2023數(shù)學(xué)函數(shù)字符函數(shù)日期時(shí)間函數(shù)合計(jì)函數(shù)6/7/2023VBA程序設(shè)計(jì)有三種基本控制結(jié)構(gòu)：順序結(jié)構(gòu)、選擇結(jié)構(gòu)和循環(huán)結(jié)構(gòu)。所有程序都由這三種基本控制結(jié)構(gòu)組成。順序結(jié)構(gòu)是程序流程中最簡(jiǎn)單的控制結(jié)構(gòu)，如果編寫(xiě)較為復(fù)雜的程序需要使用選擇結(jié)構(gòu)和循環(huán)結(jié)構(gòu)語(yǔ)句來(lái)對(duì)程序進(jìn)行流程控制。順序結(jié)構(gòu)順序結(jié)構(gòu)就是按照程序代碼編寫(xiě)的順序依次執(zhí)行。順序結(jié)構(gòu)主要介紹賦值語(yǔ)句和輸入輸出語(yǔ)句。

9.4VBA流程控制語(yǔ)句

6/7/20231、賦值語(yǔ)句賦值語(yǔ)句可以將常量或常量表達(dá)式的值賦給變量或?qū)ο蟮膶傩?，一般格式為?/p>

<變量名>=<表達(dá)式>

或

[<對(duì)象名>.]<屬性名>=<表達(dá)式>（1）<變量名>應(yīng)符合變量的命名規(guī)則，<對(duì)象名>缺少時(shí)為當(dāng)前窗體或報(bào)表。（2）首先計(jì)算“=”（賦值運(yùn)算符）右邊表達(dá)式的值，將此值賦給“=”左邊的變量或?qū)ο髮傩浴?/7/20232．Print方法在VBA中可以使用Print方法在窗體、立即窗口及打印機(jī)上輸出文本數(shù)據(jù)或表達(dá)式的值。一般格式為：[對(duì)象名].Print表達(dá)式3．InputBox函數(shù)

InputBox函數(shù)可以產(chǎn)生一個(gè)輸入對(duì)話框，等待用戶輸入數(shù)據(jù)并返回所輸入的內(nèi)容。一般格式為：

InputBox（提示字符串[,對(duì)話框標(biāo)題字符串][,默認(rèn)輸入數(shù)據(jù)]）6/7/20234．MsgBox函數(shù)和MsgBox語(yǔ)句

MsgBox函數(shù)或語(yǔ)句可以產(chǎn)生一個(gè)消息框，消息框中給出提示信息，用戶可以根據(jù)提示信息選擇后面的操作。函數(shù)格式為：

MsgBox（消息字符串[，按鈕與圖標(biāo)樣式][，對(duì)話框標(biāo)題字符串]）語(yǔ)句格式為：

MsgBox

消息字符串[，按鈕與圖標(biāo)樣式][，對(duì)話框標(biāo)題字符串]兩種格式的區(qū)別是，MsgBox函數(shù)會(huì)產(chǎn)生一個(gè)返回值，用戶需要將返回值賦給一個(gè)變量。MsgBox語(yǔ)句無(wú)返回值，僅是單純的信息顯示。6/7/2023例9．4創(chuàng)建Area過(guò)程，其功能是，計(jì)算圓的面積，半徑值從鍵盤(pán)隨機(jī)輸入。操作步驟：①進(jìn)入Access數(shù)據(jù)庫(kù)中的模塊，新建模塊進(jìn)入VBA的編輯器。②選擇“插入”|“過(guò)程”，輸入過(guò)程名。③確定后，輸入過(guò)程代碼。④選擇“運(yùn)行”|“運(yùn)行子過(guò)程/用戶窗體”命令，彈出輸入對(duì)話框輸入任意半徑值后，單擊“確定”按鈕，彈出消息框顯示面積值。6/7/2023例9．5創(chuàng)建一個(gè)圓的面積的窗體，通過(guò)在文本框中輸入的半徑值，點(diǎn)擊計(jì)算按鈕得到計(jì)算結(jié)果。操作步驟：①進(jìn)入Access數(shù)據(jù)庫(kù)中的窗體，添加標(biāo)簽、文本框和命令按鈕，新建命令按鈕的單擊事件代碼，進(jìn)入VBA的編輯器，輸入代碼。②選擇“運(yùn)行窗體”命令，輸入任意半徑值后，單擊“計(jì)算”按鈕，彈出消息框顯示面積值。6/7/2023選擇結(jié)構(gòu)又稱為分支結(jié)構(gòu)，根據(jù)條件表達(dá)式的值執(zhí)行相應(yīng)的操作。選擇結(jié)構(gòu)可分為單分支選擇結(jié)構(gòu)、雙分支選擇結(jié)構(gòu)和多分支選擇結(jié)構(gòu)。

1．單分支If語(yǔ)句格式：

If<條件表達(dá)式>Then<語(yǔ)句>EndIf說(shuō)明：計(jì)算條件表達(dá)式的值，若值為“真”（Ture）則執(zhí)行Then后面的語(yǔ)句，若值為“假”（False）則退出If語(yǔ)句繼續(xù)執(zhí)行下面的程序。9.4.2選擇結(jié)構(gòu)

6/7/2023例9．6創(chuàng)建一個(gè)求絕對(duì)值的過(guò)程，其功能是，通過(guò)輸入一個(gè)整數(shù)，輸入這個(gè)數(shù)的絕對(duì)值。操作步驟：①進(jìn)入Access數(shù)據(jù)庫(kù)中的模塊，新建模塊進(jìn)入VBA的編輯器。②選擇“插入”|“過(guò)程”，輸入過(guò)程名，這里輸入絕對(duì)值。③確定后，輸入過(guò)程代碼。④選擇“運(yùn)行”|“運(yùn)行子過(guò)程/用戶窗體”命令，彈出輸入對(duì)話框，輸入任意值后，單擊“確定”按鈕，彈出消息框顯示其絕對(duì)值。

6/7/20232．雙分支If語(yǔ)句格式：

If<條件表達(dá)式>Then<語(yǔ)句1>Else<語(yǔ)句2>EndIf說(shuō)明：計(jì)算條件表達(dá)式的值，若值為“真”（True）則執(zhí)行語(yǔ)句1，否則執(zhí)行語(yǔ)句2。6/7/2023例9．7創(chuàng)建一個(gè)判斷奇偶數(shù)的窗體，其功能是，通過(guò)輸入一個(gè)非零的整數(shù)，判斷是奇數(shù)還是偶數(shù)。操作步驟：①進(jìn)入Access數(shù)據(jù)庫(kù)中的窗體，添加標(biāo)簽、文本框和命令按鈕，新建命令按鈕的單擊事件代碼，進(jìn)入VBA的編輯器，輸入代碼。

②選擇“運(yùn)行窗體”命令，彈出窗體，輸入任意非零的值后，單擊“判斷奇偶”按鈕，彈出消息框顯示。6/7/20233．多分支If語(yǔ)句格式：

If<條件表達(dá)式1>Then<語(yǔ)句1>ElseIf<條件表達(dá)式2>Then<語(yǔ)句2>┇ElseIf<條件表達(dá)式n>Then<語(yǔ)句n>Else<語(yǔ)句n+1>EndIf說(shuō)明：計(jì)算條件表達(dá)式1的值，若值為“真”（True）則執(zhí)行語(yǔ)句1，否則計(jì)算條件表達(dá)式2的值，若值為“真”（True）則執(zhí)行語(yǔ)句2，重復(fù)上述操作。當(dāng)全部條件表達(dá)式的值都不為“真”（True）則執(zhí)行語(yǔ)句n+1。6/7/2023例9．8創(chuàng)建一個(gè)名為Grade的過(guò)程，其功能是，判斷輸入的分?jǐn)?shù)等級(jí)（優(yōu)秀、良好、中等、及格、不及格共5個(gè)等級(jí)）。操作步驟：創(chuàng)建過(guò)程的方法如上面的例子所示。選擇“運(yùn)行過(guò)程”命令。6/7/20234．多分支SelectCase語(yǔ)句格式：

SelectCase<測(cè)試變量或表達(dá)式>Case<表達(dá)式1><語(yǔ)句1>Case<表達(dá)式2><語(yǔ)句2>┇Case<表達(dá)式n><語(yǔ)句n>[CaseElse<語(yǔ)句n+1>]EndSelect說(shuō)明：SelectCase語(yǔ)句在執(zhí)行時(shí)，先計(jì)算測(cè)試變量或表達(dá)式的值，然后尋找該值與哪一個(gè)Case子句的表達(dá)式值匹配，找到后則執(zhí)行該Case語(yǔ)句，之后退出Select結(jié)構(gòu)；如果測(cè)試變量或表達(dá)式的值與全部Case子句的表達(dá)式值不匹配，則執(zhí)行CaseElse語(yǔ)句，之后退出Select結(jié)構(gòu)。6/7/2023例9．9創(chuàng)建一個(gè)判斷將英文星期轉(zhuǎn)換成中文星期的窗體，通過(guò)在文本框中輸入一個(gè)英文的星期，單擊轉(zhuǎn)換按鈕，顯示中文星期。操作步驟：①進(jìn)入Access數(shù)據(jù)庫(kù)中的窗體，添加標(biāo)簽、文本框和命令按鈕。

②在“轉(zhuǎn)換為中文”的命令按鈕中寫(xiě)單擊事件代碼。③選擇“運(yùn)行窗體”命令，彈出窗體輸入任意星期的英文后或隨便輸入一個(gè)單詞，單擊“轉(zhuǎn)換為中文”按鈕。6/7/2023在實(shí)際使用中，有些循環(huán)的次數(shù)可以事先確定，而有些循環(huán)不能確定。VBA中有三種形式的循環(huán)語(yǔ)句；For循環(huán)、While循環(huán)和Do循環(huán)。其中For循環(huán)多用于已知循環(huán)次數(shù)的情況下，While循環(huán)和Do循環(huán)多用于不確定循環(huán)資料的情況下。下面重點(diǎn)介紹For循環(huán)語(yǔ)句和Do循環(huán)語(yǔ)句。

9.4.3循環(huán)結(jié)構(gòu)

6/7/20231．For循環(huán)語(yǔ)句格式：

For<循環(huán)變量=初值>To<終值>[step步長(zhǎng)]<循環(huán)體>Next[循環(huán)變量]說(shuō)明：For循環(huán)的執(zhí)行過(guò)程：首先把初值賦給循環(huán)變量，接著判斷循環(huán)變量的值是否超過(guò)終值，如果超過(guò)就不執(zhí)行循環(huán)體，直接跳出For循環(huán)，執(zhí)行Next后面的語(yǔ)句；否則執(zhí)行循環(huán)體，之后將循環(huán)體變量增加步長(zhǎng)值后再賦給循環(huán)變量，繼續(xù)判斷循環(huán)變量的值是否超過(guò)終值，重復(fù)上述步驟直到For循環(huán)正常結(jié)束。6/7/2023說(shuō)明：①循環(huán)變量必須為數(shù)值型。②循環(huán)的初值、終值和步長(zhǎng)都是數(shù)值表達(dá)式。其中，增量參數(shù)可正可負(fù)。如果沒(méi)有設(shè)置step，則增量默認(rèn)為1。③Next是循環(huán)終端語(yǔ)句，在Next后面的循環(huán)變量與For中的循環(huán)變量必須相同。當(dāng)只有單層循環(huán)（沒(méi)有嵌套）時(shí)，Next后面的循環(huán)變量可以省略。④當(dāng)初值等于終值時(shí)，不管步長(zhǎng)是正數(shù)還是負(fù)數(shù)，都執(zhí)行一次循環(huán)體。⑤循環(huán)次數(shù)由初值、終值和步長(zhǎng)決定，計(jì)算公式為：循環(huán)次數(shù)=Int(（終值-初值）/步長(zhǎng)+1)除了For語(yǔ)句以計(jì)數(shù)值來(lái)判斷循環(huán)是否結(jié)束之外，還可以用ExitFor語(yǔ)句強(qiáng)制結(jié)束循環(huán)。通過(guò)ExitFor語(yǔ)句和If語(yǔ)句配合使用，代表在某種特定情況下，循環(huán)中的程序不再繼續(xù)執(zhí)行。6/7/2023例9．10創(chuàng)建一個(gè)名為sum的過(guò)程，其功能是：計(jì)算100以內(nèi)的奇數(shù)和。操作步驟：①創(chuàng)建過(guò)程的方法如上面的例子所示。②選擇“運(yùn)行過(guò)程”命令。6/7/2023例9．11創(chuàng)建一個(gè)求奇數(shù)和，偶數(shù)和的窗體，其功能是：通過(guò)輸入一個(gè)起始數(shù)和一個(gè)終止數(shù)，分別求出這二個(gè)數(shù)之間的奇數(shù)之和，偶數(shù)之和。操作步驟：①進(jìn)入Access數(shù)據(jù)庫(kù)中的窗體，添加標(biāo)簽、文本框和命令按鈕。②新建奇數(shù)、偶數(shù)和命令按鈕的單擊事件代碼，進(jìn)入VBA的編輯器，輸入代碼。

③選擇“運(yùn)行窗體”命令。6/7/2023例9．12創(chuàng)建一個(gè)名為水仙花數(shù)的過(guò)程，其功能是：統(tǒng)計(jì)水仙花數(shù)的個(gè)數(shù)。（水仙花數(shù)是：一個(gè)三位數(shù)，并且這個(gè)數(shù)中各位數(shù)字的立方和等于這個(gè)數(shù)本身）操作步驟：①創(chuàng)建過(guò)程的方法如上面的例子所示。6/7/2023例9．13創(chuàng)建一個(gè)名為求最大值最小值的過(guò)程，其功能是：從鍵盤(pán)輸入10個(gè)隨機(jī)值，用數(shù)組變量存放，找出其中最大值和最小值。操作步驟：①創(chuàng)建過(guò)程的方法如上面的例子所示。②選擇“運(yùn)行過(guò)程”命令，彈出窗口要求輸入數(shù)據(jù)，輸入十次后會(huì)顯示最大值和最小值。6/7/20232．Do循環(huán)語(yǔ)句

Do┅Loop循環(huán)用于事先不知道循環(huán)次數(shù)的循環(huán)結(jié)構(gòu)。此循環(huán)語(yǔ)句共有4種語(yǔ)法格式：DoWhile┅Loop語(yǔ)句、Do┅LoopWhile語(yǔ)句、DoUntil┅Loop語(yǔ)句和Do┅LoopUntil語(yǔ)句。前兩種格式當(dāng)循環(huán)條件為真時(shí)執(zhí)行循環(huán)體語(yǔ)句，后兩種當(dāng)循環(huán)條件為假時(shí)執(zhí)行循環(huán)體語(yǔ)句。（1）DoWhile|Until┅Loop語(yǔ)句格式：

DoWhile|Until<條件表達(dá)式><循環(huán)體>[ExitDo]<循環(huán)體>Loop說(shuō)明：①條件表達(dá)式的值應(yīng)是邏輯型。②DoWhile和Loop應(yīng)成對(duì)出現(xiàn)。③循環(huán)體中要有控制循環(huán)次數(shù)的語(yǔ)句，以避免出現(xiàn)死循環(huán)。④由于該循環(huán)的特點(diǎn)是先判斷條件，然后再?zèng)Q定是否要執(zhí)行循環(huán)體中的語(yǔ)句。所以，這種循環(huán)，可以一次也不執(zhí)行循環(huán)體。⑤ExitDo表示當(dāng)遇到該語(yǔ)句時(shí)，強(qiáng)制退出循環(huán)，執(zhí)行Loop后的下一條語(yǔ)句。6/7/20