Access-2010課件項(xiàng)目八--創(chuàng)建模塊

1、ACECSS項(xiàng)目8 創(chuàng)建模塊對(duì)象任務(wù)說(shuō)明：創(chuàng)建模塊與創(chuàng)建其他對(duì)象類(lèi)似只是不同類(lèi)的模塊創(chuàng)建的方法不同，本任務(wù)將創(chuàng)建簡(jiǎn)單模塊，讓學(xué)生學(xué)會(huì)創(chuàng)建模塊并掌握與模塊相關(guān)的基礎(chǔ)知識(shí)。任務(wù)目標(biāo)：創(chuàng)建和認(rèn)識(shí)簡(jiǎn)單模塊。任務(wù)8.1 創(chuàng)建和認(rèn)識(shí)模塊案例811創(chuàng)建標(biāo)準(zhǔn)模塊，用于顯示任意輸入的一個(gè)整數(shù)的相反數(shù)。案例分析：這是一個(gè)與窗體或報(bào)表的控件無(wú)關(guān)的模塊，即標(biāo)準(zhǔn)模塊，與創(chuàng)建其他對(duì)象的方法一樣。需要先打開(kāi)VBA編輯器，再輸入相關(guān)代碼。任務(wù)8.1 創(chuàng)建和認(rèn)識(shí)模塊案例812創(chuàng)建類(lèi)模塊實(shí)現(xiàn)與上一案例同樣的功能，并在事件過(guò)程通過(guò)使用代碼來(lái)設(shè)置必要屬性，讓窗體不顯示記錄選擇器、導(dǎo)航按鈕和分隔線(xiàn)。案例分析：創(chuàng)建類(lèi)模塊通常要先創(chuàng)建一個(gè)

2、窗體，再在窗體上添加控件進(jìn)行數(shù)據(jù)輸入，通過(guò)某些控件(如命令按鈕)打開(kāi)代碼編寫(xiě)窗口編寫(xiě)事件過(guò)程。任務(wù)8.1 創(chuàng)建和認(rèn)識(shí)模塊案例813將宏轉(zhuǎn)換為模塊將項(xiàng)目7中創(chuàng)建的條件宏“打開(kāi)指定表”轉(zhuǎn)換為VBA程序模塊。案例分析：宏對(duì)象的執(zhí)行效率較低，若將宏轉(zhuǎn)換為VBA程序模塊，運(yùn)行代碼就可以提高執(zhí)行效率，本案例介紹利用相關(guān)命令將宏轉(zhuǎn)換為VBA過(guò)程的方法。任務(wù)8.1 創(chuàng)建和認(rèn)識(shí)模塊一、認(rèn)識(shí)模塊模塊是存儲(chǔ)在一個(gè)單元中的VBA聲明和過(guò)程的集合。Access的編程功能就是通過(guò)“模塊”來(lái)實(shí)現(xiàn)的。模塊以VBA(Visual Basic For Application)語(yǔ)言來(lái)編寫(xiě)。模塊包括一個(gè)或多個(gè)過(guò)程組成，每個(gè)過(guò)程實(shí)現(xiàn)一

3、個(gè)或幾個(gè)功能。知識(shí)寶庫(kù)模塊有2種類(lèi)型：類(lèi)模塊和標(biāo)準(zhǔn)模塊類(lèi)模塊(即綁定型模塊)類(lèi)模塊是包含代碼和數(shù)據(jù)的事件過(guò)程的集合，是與某一特定的窗體或窗體控件相關(guān)聯(lián)的模塊都屬于類(lèi)模塊。類(lèi)模塊的執(zhí)行要通過(guò)控件的特定事件激發(fā)相應(yīng)的事件過(guò)程實(shí)現(xiàn)。知識(shí)寶庫(kù)標(biāo)準(zhǔn)模塊(即獨(dú)立型模塊)標(biāo)準(zhǔn)模塊是與其他對(duì)象都無(wú)關(guān)的代碼過(guò)程的集合，包含的過(guò)程不與任何其他數(shù)據(jù)庫(kù)對(duì)象相關(guān)聯(lián)，是數(shù)據(jù)庫(kù)對(duì)象使用的公共過(guò)程，保存在數(shù)據(jù)庫(kù)窗口中。標(biāo)準(zhǔn)模塊通常在VBE窗口窗口中執(zhí)行。知識(shí)寶庫(kù)打開(kāi)VBE(即VBA編輯器)窗口(一)創(chuàng)建標(biāo)準(zhǔn)模塊啟動(dòng)VBE窗口在數(shù)據(jù)庫(kù)窗口中，單擊功能區(qū)“創(chuàng)建”選項(xiàng)卡中“宏與代碼”命令組的“模塊”命令。知識(shí)寶庫(kù)(二)打開(kāi)已經(jīng)創(chuàng)建

4、的標(biāo)準(zhǔn)模塊的VBE窗口方法一：在Access 2010的導(dǎo)航窗格中右擊某類(lèi)模塊，在彈出的快捷菜單中單擊“設(shè)計(jì)視圖”命令。方法二：在Access 2010的導(dǎo)航窗格中雙擊某類(lèi)模塊。知識(shí)寶庫(kù)(三)創(chuàng)建類(lèi)模塊切換到VBE窗口方法一：選擇要編寫(xiě)事件過(guò)程的控件，再單擊上下文選項(xiàng)卡“窗體設(shè)計(jì)工具/設(shè)計(jì)”中“工具”命令組的“查看代碼”按鈕。方法二：右擊要編寫(xiě)事件過(guò)程的控件，再在彈出的快捷菜單中單擊“事件生成器”命令，打開(kāi)“選擇生成器”對(duì)話(huà)框，選擇“代碼生成器”后單擊“確定”按鈕。知識(shí)寶庫(kù)(四)Access與VBE窗口進(jìn)行切換可以按組合鍵ALT+F11。知識(shí)寶庫(kù)VBE窗口中通常包括多個(gè)窗口，一般第一次打開(kāi)VB

5、E窗口，窗口中只顯示工程窗口、代碼窗口和屬性窗口，還可以顯示立即窗口、監(jiān)視窗口、本地窗口等知識(shí)寶庫(kù)(一)工程窗口該窗口中列出了本數(shù)據(jù)庫(kù)中的所有模塊及類(lèi)對(duì)象，單擊該窗口中的“查看代碼”按鈕 ，可以顯示對(duì)應(yīng)的模塊代碼窗口。知識(shí)寶庫(kù)(二)代碼窗口主要用于編寫(xiě)、顯示和編輯VBA代碼組成的過(guò)程，可以同時(shí)打開(kāi)多個(gè)代碼窗口來(lái)查看多個(gè)模塊的代碼。代碼窗口又由兩個(gè)組合框和代碼編輯區(qū)組成知識(shí)寶庫(kù)(三)屬性窗口屬性窗口中列出了所選對(duì)象的屬性，可以在該窗口中查看和修改當(dāng)前選中的對(duì)象的屬性，包括按“按字母序”和“按分類(lèi)序”兩方式查看屬性項(xiàng)知識(shí)寶庫(kù)(四)立即窗口在立即窗口中可以顯示程序運(yùn)行結(jié)果，也可以在立即窗口中直接輸入

6、VBA語(yǔ)句或命令后回車(chē)立即執(zhí)行或顯示結(jié)果，例如輸入 ? 25 mod 7后回車(chē)就可以顯示結(jié)果知識(shí)寶庫(kù)(五)監(jiān)視窗口用于顯示工程中定義的監(jiān)視表達(dá)式的值，若工程中定義了的監(jiān)視表達(dá)式，監(jiān)視窗口應(yīng)付自動(dòng)出現(xiàn)。(六)本地窗口本地窗口主要用于顯示在當(dāng)前過(guò)程在執(zhí)行過(guò)程中的變量聲明和變量值。知識(shí)寶庫(kù)認(rèn)識(shí)、定義和使用表達(dá)式在VBA過(guò)程中經(jīng)常用表達(dá)式進(jìn)行計(jì)算、比較和判斷，所以我們必須理解表達(dá)式的概念，并能正確聲明和使用表達(dá)式。表達(dá)式是可以是變量、常量、函數(shù)，較復(fù)雜的表達(dá)式是用運(yùn)算符將變量、常量和函數(shù)連接起來(lái)的式子。知識(shí)寶庫(kù)知識(shí)寶庫(kù)VBA類(lèi)型符號(hào)字段類(lèi)型取值范圍字節(jié)數(shù)Byte字節(jié)0255之間的整數(shù)1Integer%

7、整型-3276832767之間的整數(shù)2Long&長(zhǎng)整型-21474836482147483647之間的整數(shù)4Single!單精度負(fù)數(shù)：-3402823E38-1401298E-45正數(shù)：1401298E-453402823E384Double#雙精度負(fù)數(shù)：-179769313486232E308-494065645841247E-324正數(shù)：494065645841247E-324179769313486232E3088Currency貨幣-922337203685477580892233720368547758078String$文本065535個(gè)字符Boolean是/否True或False

8、1Date日期/時(shí)間January 1,100到December 31,99998Variant變體型VBA中的數(shù)據(jù)類(lèi)型表：符號(hào)常量用符號(hào)常量表示在編程中反復(fù)使用的相同值。符號(hào)常量名一般用大寫(xiě)字母，以便與變量名區(qū)分。定義格式：Const 符號(hào)常量名=常量值知識(shí)寶庫(kù)變量變量是指程序運(yùn)行時(shí)值可以發(fā)生變化的數(shù)據(jù)。系統(tǒng)會(huì)按照變量的數(shù)據(jù)類(lèi)型在內(nèi)存中為變量分配一定數(shù)量的存儲(chǔ)單元，程序中用變量名調(diào)用存儲(chǔ)的數(shù)據(jù)。知識(shí)寶庫(kù)變量、常量和數(shù)組的命名規(guī)則：由字母、數(shù)字、下劃線(xiàn)組成，用英文字母開(kāi)頭。不能包含空格、句點(diǎn)、嘆號(hào)、&、$、#以及除下劃線(xiàn)之外的標(biāo)點(diǎn)符號(hào)。不能用VBA的關(guān)鍵字(如：Dim)和保留字(如：Str)。

9、字符個(gè)數(shù)不得多于255個(gè)，不能在同一個(gè)過(guò)程中不允許兩個(gè)變量同名。變量名不區(qū)分大小寫(xiě)。知識(shí)寶庫(kù)聲明變量格式： Dim|Private|Public|Static 變量名類(lèi)型符 | As 類(lèi)型說(shuō)明：如果不用As定義類(lèi)型，則變量為變體類(lèi)型。變體類(lèi)型變量,比其他類(lèi)型變量占用更多的內(nèi)存資源?？梢酝瑫r(shí)定義多個(gè)變量，多個(gè)變量之間用英文逗號(hào)分隔。知識(shí)寶庫(kù)可用Dim和Static 在過(guò)程內(nèi)聲明過(guò)程級(jí)變量，這種變量只能在所在的過(guò)程中使用和修改，Static聲明的是靜態(tài)變量,即其值可以被保留；可用Dim和Private在通用聲明區(qū)域定義模塊級(jí)變量，這種變量可以在模塊內(nèi)的任何過(guò)程中使用和修改；可用Public在通用聲

10、明區(qū)域定義全局變量，這種變量可以在整個(gè)數(shù)據(jù)庫(kù)的任何模塊的任何過(guò)程中使用和修改。一般多用Dim定義過(guò)程級(jí)變量。知識(shí)寶庫(kù)一個(gè)特殊的模塊變量本地窗口打開(kāi)時(shí)，自動(dòng)生成一個(gè)名為“Me”的特殊模塊變量。對(duì)于類(lèi)模塊，定義為Me。Me是對(duì)象的引用，引用當(dāng)前模塊中當(dāng)前類(lèi)的實(shí)例。Me變量不需要專(zhuān)門(mén)定義，直接使用即可。知識(shí)寶庫(kù)(3)變量賦值格式：變量名=表達(dá)式注：一個(gè)賦值語(yǔ)句只能給左邊的一個(gè)變量、元素或?qū)ο髮傩詫傩再x值。如執(zhí)行X=Y=1不是將1賦給變量X和Y兩個(gè)變量，而是將表達(dá)式Y(jié)=1的計(jì)算結(jié)果賦給變量X。右邊的表達(dá)式的值的類(lèi)型和范圍與左邊被賦值的變量、數(shù)組元素或控件屬性的值類(lèi)型和范圍要一致知識(shí)寶庫(kù)數(shù)組(1)數(shù)組的

11、概念VBA中的數(shù)組是一組具有相同數(shù)據(jù)類(lèi)型、同一名字、不同下標(biāo)的變量集合。數(shù)組變量由變量名和數(shù)據(jù)下標(biāo)組成，數(shù)組下標(biāo)用圓括號(hào)括起來(lái)。說(shuō)明：數(shù)組要先定義后使用,VBA不允許隱式聲明數(shù)組同一過(guò)程中數(shù)組名不能與其他變量重名。 知識(shí)寶庫(kù)(2)聲明一維數(shù)組(只有一個(gè)下標(biāo))格式1：Dim 數(shù)組名(下標(biāo)) As 數(shù)據(jù)類(lèi)型格式2：Dim 數(shù)組名(下標(biāo)下限 To 下標(biāo)上限) As 數(shù)據(jù)類(lèi)型。說(shuō)明：如果不定義數(shù)組下標(biāo)的下限，默認(rèn)下標(biāo)下限為0。數(shù)組定義中的參數(shù)必須是常數(shù)。如果使用As語(yǔ)句定義數(shù)組類(lèi)型，同一數(shù)組只能存放相同類(lèi)型數(shù)據(jù)。知識(shí)寶庫(kù)(3)聲明二維數(shù)組(有兩個(gè)下標(biāo))格式：Dim 數(shù)組名(行標(biāo)，列標(biāo)) As 數(shù)據(jù)類(lèi)型

12、另外，還可以定義三維及以上的數(shù)組，如E(2 to 5,4,-2 To 3)數(shù)組的元素個(gè)數(shù)是4行、5列、6級(jí)共120個(gè)元素。知識(shí)寶庫(kù)函數(shù)函數(shù)是進(jìn)行特定操作的程序段，VBA系統(tǒng)提供了近百個(gè)內(nèi)置的標(biāo)準(zhǔn)函數(shù)，用戶(hù)還可以根據(jù)需要自己定義函數(shù)。標(biāo)準(zhǔn)函數(shù)用于表達(dá)式中時(shí)的格式是：函數(shù)名(參數(shù)列表)參數(shù)可以是一個(gè)或多個(gè)，可以是常量、變量或表達(dá)式，也有少數(shù)函數(shù)沒(méi)有參數(shù)。知識(shí)寶庫(kù)(1)數(shù)字函數(shù)特點(diǎn)：參數(shù)和返回值都是數(shù)字型數(shù)據(jù)求絕對(duì)值函數(shù)：ABS(數(shù)字表達(dá)式)數(shù)字型數(shù)據(jù)例：ABS(-34)的值為34ABS(18-70)的值是52知識(shí)寶庫(kù)取整函數(shù)格式：INT(數(shù)字表達(dá)式)數(shù)字型數(shù)據(jù)說(shuō)明：取不超過(guò)參數(shù)值的整數(shù)例：INT(

13、481)的值是4INT(-481)的值是-5知識(shí)寶庫(kù)強(qiáng)行取整函數(shù)格式：FIX(數(shù)字表達(dá)式)數(shù)字型數(shù)據(jù)例：FIX(481)的值是4FIX(-481)的值是-4知識(shí)寶庫(kù)求平方根函數(shù)格式：SQR(數(shù)字表達(dá)式)數(shù)字型數(shù)據(jù)例：SQR(36)的值是64SQR(009+007)的值是04知識(shí)寶庫(kù)四舍五入函數(shù)格式：ROUND(數(shù)字表達(dá)式)數(shù)字型數(shù)據(jù)例：ROUND(56645，2)的值是5666ROUND(48549，0)的值是49知識(shí)寶庫(kù)產(chǎn)生隨機(jī)數(shù)函數(shù)格式：RND()01之間的一個(gè)隨機(jī)數(shù)，無(wú)限接近1但不會(huì)達(dá)到1。例：RND()*100的功能是產(chǎn)生一個(gè)0100之間的隨機(jī)數(shù)。INT(RND()*100)產(chǎn)生一個(gè)0

14、99間的隨機(jī)整數(shù)INT(RND()*100+1)產(chǎn)生一個(gè)0100間的隨機(jī)整數(shù)知識(shí)寶庫(kù)字符型函數(shù)特點(diǎn)：參數(shù)和返回值主要是字符型數(shù)據(jù)知識(shí)寶庫(kù)求子串的起始位置格式 ：INSTR(位置，父串，子串)整數(shù)例：INSTR(“Access數(shù)據(jù)庫(kù)”，“數(shù)據(jù)”)的值是7INSTR(7, “ Access數(shù)據(jù)庫(kù)”, “數(shù)據(jù)”)0知識(shí)寶庫(kù)測(cè)試字符串長(zhǎng)度函數(shù)格式：LEN(字符串)整數(shù)例：LEN(“Access數(shù)據(jù)庫(kù)”)的值是9知識(shí)寶庫(kù)左子串截取函數(shù)格式：LEFT(字符串，子串長(zhǎng)度)字符串例：LEFT(“Access數(shù)據(jù)庫(kù)”，3)的值是“Acc”知識(shí)寶庫(kù)右子串截取函數(shù)格式：RIGHT(字符串，子串長(zhǎng)度)字符串例:RIG

15、HT(“Access數(shù)據(jù)庫(kù)”，3)的值是“數(shù)據(jù)庫(kù)”截取指定位置和指定長(zhǎng)度子串的函數(shù)：MID(字符串,起始位置N，取字符個(gè)數(shù)N)字符串例：MID(“Access數(shù)據(jù)庫(kù)”,3,4)的值是“Cess”知識(shí)寶庫(kù)去掉空格函數(shù)去掉左端空格：LTRIM(字符串)字符串去掉右端空格：RTRIM(字符串)字符串去掉左端和右端的空格：TRIM(字符串)字符串知識(shí)寶庫(kù)轉(zhuǎn)換和其他函數(shù)字符串轉(zhuǎn)換為數(shù)字型函數(shù)格式 ：VAL(字符串)數(shù)字型說(shuō)明：從左到右遇到第一個(gè)無(wú)法轉(zhuǎn)換的就停止轉(zhuǎn)換例：VAL(21*3-3)的值是21 VAL(“X2Y”)的值是0知識(shí)寶庫(kù)將數(shù)字型轉(zhuǎn)換為文本型格式：STR(數(shù)值表達(dá)式)字符串例：STR(25

16、78-3)的值是 “2278”將首字符轉(zhuǎn)換為ASCII碼格式：ASC(字符串)整數(shù)例：ASC(“ABCD”)的值是65知識(shí)寶庫(kù)ASCII碼轉(zhuǎn)換為字符格式：CHR(字符串)字符例：CHAR(97)的值是“A”知識(shí)寶庫(kù)條件判斷函數(shù)格式：IIF(條件表達(dá)式，表達(dá)式1，表達(dá)式2)條件成立時(shí)，表達(dá)式1的值作為函數(shù)值，否則將表達(dá)式2作為函數(shù)值，是IF。Else的簡(jiǎn)寫(xiě)函數(shù)表現(xiàn)。例：IIF(1/31/2，1，2)的值是2知識(shí)寶庫(kù)輸入數(shù)據(jù)函數(shù)格式：Inputbox(提示文字，標(biāo)題，默認(rèn)值)作用：出現(xiàn)一個(gè)輸入對(duì)話(huà)框，能獲得用戶(hù)的輸入信息。知識(shí)寶庫(kù)輸出函數(shù)Msgbox格式：Msgbox(提示文字,按鈕圖標(biāo),標(biāo)題)作

17、用：給用戶(hù)彈出一個(gè)對(duì)話(huà)框,進(jìn)行信息提示，能讓用戶(hù)對(duì)某些事件進(jìn)行判斷處理，能記錄用戶(hù)點(diǎn)擊的對(duì)話(huà)框按鈕。它是VBA中最常用的系統(tǒng)函數(shù)，系統(tǒng)中大量提示信息都是通過(guò)Msgbox實(shí)現(xiàn)知識(shí)寶庫(kù)測(cè)試數(shù)組的最小下標(biāo)LBOUND整數(shù)格式：LBOUND(數(shù)據(jù)名,維數(shù))測(cè)試數(shù)組的最小下標(biāo)UBOUND整數(shù)格式：UBOUND(數(shù)據(jù)名,維數(shù))例：DIM A(5)MSGBOX LBOUND(A，1) 顯示0MSGBOX UBOUND(A，1) 顯示5知識(shí)寶庫(kù)VBA運(yùn)算符VBA中常用的運(yùn)算符有4種：算術(shù)運(yùn)算符、關(guān)系運(yùn)算符、邏輯運(yùn)算符、連接運(yùn)算符。知識(shí)寶庫(kù)(1)算術(shù)運(yùn)算符(按優(yōu)先順序)：乘冪()、乘法(*)、除法(/)、 整數(shù)

18、除法()、求模(Mod)、加法(+)、減法(-)。(2)關(guān)系運(yùn)算符：相等=、不相等、大于、大于等于=、小于、小于等于算術(shù)運(yùn)算符連接運(yùn)算符關(guān)系運(yùn)算符邏輯運(yùn)算符。優(yōu)先級(jí)相同時(shí)，運(yùn)算順序從左到右。知識(shí)寶庫(kù)提示：要直接查看某表達(dá)式的計(jì)算結(jié)果，可以在VBE編輯器窗口中按組合鍵Ctrl+G打開(kāi)“立即窗口”，在立即窗口中用 ?或Print命令顯示表達(dá)式的值,如下圖：知識(shí)寶庫(kù)四、引用對(duì)象的屬性和方法Access是一種面向?qū)ο蟮拈_(kāi)發(fā)環(huán)境，VBA采用的是目前較基礎(chǔ)的面向?qū)ο蟮目梢暬幊誊浖Ｃ嫦驅(qū)ο蟾拍钪饕蓄?lèi)、對(duì)象、屬性、方法和事件。要編寫(xiě)VBA過(guò)程，必須先了解VBA的一些基本概念。知識(shí)寶庫(kù)（一）了解VBA相關(guān)

19、概念1對(duì)象在自然界中，一個(gè)對(duì)象就是一個(gè)實(shí)體，如一個(gè)人就是一個(gè)對(duì)象。在面向?qū)ο蟮某绦蛟O(shè)計(jì)中，對(duì)象則表示應(yīng)用程序中的表、窗體、按鈕等元素。知識(shí)寶庫(kù)2屬性屬性是對(duì)象的特征。如為有姓名、性別等屬性，按鈕有標(biāo)題和名稱(chēng)等屬性。對(duì)象的類(lèi)別不同，屬性會(huì)有所不同。同類(lèi)別對(duì)象的不同實(shí)例，屬性也有差異。例如，同是命令按鈕，名稱(chēng)屬性不允許相同。知識(shí)寶庫(kù)3事件事件是對(duì)象能夠識(shí)別的動(dòng)作。如按鈕可以識(shí)別單擊事件、雙擊事件等。在類(lèi)模塊每一個(gè)過(guò)程的開(kāi)始行，都顯示對(duì)象名和事件名。如：Private Sub COMMAND1_Click（）。4方法方法是對(duì)象能夠執(zhí)行的動(dòng)作，決定了對(duì)象能完成什么事。不同對(duì)象有不同的方法。知識(shí)寶庫(kù)（二

20、）引用對(duì)象、屬性和方法1引用對(duì)象格式：父對(duì)象類(lèi)名！子對(duì)象名例 Forms! 綜合窗體!Text1 用于：引用“綜合窗體”中的Text1文本框知識(shí)寶庫(kù)2引用屬性格式：對(duì)象屬性名例： Me!Text1Fontname=“黑體” 用于將本窗體中文本框的字體設(shè)置為“黑體”知識(shí)寶庫(kù)3引用方法格式：對(duì)象方法名例：DOCMD.CLOSE 用于關(guān)閉當(dāng)前窗口注：（1）對(duì)象名中包含空格或標(biāo)點(diǎn)符號(hào)，則需要用方括號(hào)括起來(lái)。（2） Me可用于代表當(dāng)前窗體。知識(shí)寶庫(kù)4Docmd對(duì)象的常用方法Docmd是Access的一個(gè)特殊對(duì)象，在程序中，可以調(diào)用ACCESS內(nèi)置方法，實(shí)現(xiàn)特定操作，如：打開(kāi)窗口、關(guān)閉窗體、打開(kāi)窗體、關(guān)閉

21、窗體等。Docmd 對(duì)象的大多數(shù)方法都有參數(shù)，有些參數(shù)是必需的，有些則是可選的。若省略可選參數(shù)，參數(shù)將采用默認(rèn)值。知識(shí)寶庫(kù)（1） 用Docmd 對(duì)象打開(kāi)表格式：DocmdOpentable “表名”功能：用于打開(kāi)指定表。例如：DocmdOpentable “學(xué)生檔案” 用于打開(kāi)“學(xué)生檔案”表知識(shí)寶庫(kù)（2）用Docmd 對(duì)象打開(kāi)查詢(xún) 格式：DocmdOpenquery “查詢(xún)名” 功能：用默認(rèn)形式打開(kāi)指定查詢(xún)。 例如：DocmdOpenquery “查看各班人數(shù)” 用于打開(kāi)“查看各班人數(shù)”查詢(xún)知識(shí)寶庫(kù)（3）用Docmd 對(duì)象打開(kāi)窗體 格式：DocmdOpenform “窗體名” 功能：用默認(rèn)形式

22、打開(kāi)指定窗體。 例如： DocmdOpenform “編輯指定表” 用于運(yùn)行“編輯指定表”窗體知識(shí)寶庫(kù)（4）用Docmd 對(duì)象關(guān)閉窗體格式1：DocmdClose Acreport, “窗體名”功能：關(guān)閉指定窗體。例如：DocmdClose Acreport, “編輯指定表”用于關(guān)閉“編輯指定表”窗體格式2：DocmdClose 功能：關(guān)閉當(dāng)前窗體。知識(shí)寶庫(kù)3事件事件是對(duì)象能夠識(shí)別的動(dòng)作。如按鈕可以識(shí)別單擊事件、雙擊事件等。在類(lèi)模塊每一個(gè)過(guò)程的開(kāi)始行，都顯示對(duì)象名和事件名。如：Private Sub COMMAND1_Click（）。4方法方法是對(duì)象能夠執(zhí)行的動(dòng)作，決定了對(duì)象能完成什么事。不同

23、對(duì)象有不同的方法。知識(shí)寶庫(kù)3事件事件是對(duì)象能夠識(shí)別的動(dòng)作。如按鈕可以識(shí)別單擊事件、雙擊事件等。在類(lèi)模塊每一個(gè)過(guò)程的開(kāi)始行，都顯示對(duì)象名和事件名。如：Private Sub COMMAND1_Click（）。4方法方法是對(duì)象能夠執(zhí)行的動(dòng)作，決定了對(duì)象能完成什么事。不同對(duì)象有不同的方法。知識(shí)寶庫(kù)（5）用Docmd 對(duì)象打開(kāi)報(bào)表格式：DocmdOpenreport “報(bào)表名 _ ”,Acviewpreview功能：用預(yù)覽形式打開(kāi)指定報(bào)表。例如：DocmdOpenreport “學(xué)生檔案卡_ ”,Acviewpreview知識(shí)寶庫(kù)（6）用Docmd 對(duì)象運(yùn)行宏 格式：DocmdRunmacro “宏名

24、” 功能：運(yùn)行指定宏。 例如：DocmdRunmacro “瀏覽表”知識(shí)寶庫(kù)（7） 用Docmd 對(duì)象切換當(dāng)前記錄例如：DocmdGotorecord , , Acfirst 用于將第一條記錄設(shè)置為當(dāng)前記錄若將Acfirst改為 Acprevious 則用于將上一條記錄設(shè)置為當(dāng)前記錄；改為Acnext 則用于將下一條記錄設(shè)置為當(dāng)前記錄；改為 Aclast則用于將最后一條記錄設(shè)置為當(dāng)前記錄知識(shí)寶庫(kù)（8）用Docmd 對(duì)象最大化如可用DocmdMaximize來(lái)最大化當(dāng)前窗口（9）用Docmd 對(duì)象最小化如可用DocmdMinimize來(lái)最大化當(dāng)前窗口（10）用Docmd 對(duì)象退出Access。如

25、可用DocmdQuit 來(lái)關(guān)閉所有Access對(duì)象和Access本身知識(shí)寶庫(kù)五、過(guò)程過(guò)程是由代碼組成的基本單位由一系列可以完成某項(xiàng)指定的操作或計(jì)算機(jī)的語(yǔ)句和方法組成。每一個(gè)過(guò)程都有一個(gè)過(guò)程名，過(guò)程名不能與所在模塊的同名。過(guò)程有兩種類(lèi)型：SUB子過(guò)程（無(wú)返回值）和Function函數(shù)（有返回值）過(guò)程知識(shí)寶庫(kù)（一）Sub子過(guò)程Sub子過(guò)程是一組完成特定操作任務(wù)的VBA語(yǔ)句的集合。以Sub開(kāi)頭，End Sub結(jié)束。1創(chuàng)建Sub子過(guò)程格式：Public |PrivateStatic Sub 子過(guò)程名 （Byref | Byval 形參 As數(shù)據(jù)類(lèi)型, ） 子過(guò)程語(yǔ)句組 End Sub知識(shí)寶庫(kù)說(shuō)明：（1

26、）Public或Private用于定義過(guò)程是“公有的”還是“私有的”。如果為Public，則該過(guò)程在整個(gè)的程序范圍內(nèi)被調(diào)用，如果為Private，則該過(guò)程只能被本窗體或本工作表中的過(guò)程所調(diào)用。當(dāng)省略時(shí)過(guò)程被默認(rèn)為Public。（2）Static為可選，如果使用Static聲明過(guò)程，則該子過(guò)程中的所有變量為靜態(tài)變量，其值將被保存下來(lái)。（3）參數(shù)為可選，代表一系列變量并用逗號(hào)分隔，這些變量接受傳遞到子過(guò)程中的參數(shù)值。如果沒(méi)有參數(shù)，則為空括號(hào)。知識(shí)寶庫(kù)（4）形參前加Byref | Byval表示指定參數(shù)傳遞方式, Byref表示地址傳遞方式（雙向,實(shí)參傳遞給形參,形參值改變后要改變對(duì)應(yīng)（單獨(dú)一個(gè)變量

27、的）實(shí)參）, Byval表示值傳遞方式（單向,實(shí)參傳遞給形參,形參值改變后不會(huì)改變對(duì)應(yīng)的實(shí)參），實(shí)參是單一變量是默認(rèn)的是地址傳遞方式，實(shí)參是數(shù)組時(shí)只能以地址傳遞方式傳遞，實(shí)參是非單一變量或數(shù)組時(shí)只能以值傳遞方式傳遞。知識(shí)寶庫(kù)2子過(guò)程的調(diào)用：調(diào)用語(yǔ)句的格式Call 子過(guò)程名（ ）子過(guò)程名（ ）Call 子過(guò)程（實(shí)參列表）或者子過(guò)程（實(shí)參列表）知識(shí)寶庫(kù)例：利用子程序來(lái)交換任意輸入的兩個(gè)整數(shù)的值Sub Ma（ ）Dim X %,Y%X=Val(Inputbox“X=“）Y= Val（Input box(“Y=“) Msgbox “X=“ & X & “,Y=“ & Y通過(guò)CALL來(lái)調(diào)用子過(guò)程SCal

28、l S（X,Y） Msgbox “X=“ & X & “,Y=“ & YEnd Sub知識(shí)寶庫(kù)Sub S（A,B） 定義被調(diào)用的子過(guò)程S T=A本語(yǔ)句起三個(gè)語(yǔ)句用來(lái)交換A和B的值 A=BB=TEND SUB若將Sub S（A,B）改為Sub S（Byval A, Byval B）則A和B的傳遞方式是值傳遞，其結(jié)果不會(huì)改變X和Y的值（二）Function過(guò)程。 Function函數(shù)過(guò)程是自定義的一組完成特定計(jì)算功能的相關(guān)語(yǔ)句和表達(dá)式的集合。1定義函數(shù)過(guò)程的語(yǔ)句格式如下：Public |PrivateStatic Function 函數(shù)過(guò)程名（形參）AS 數(shù)據(jù)類(lèi)型函數(shù)中的語(yǔ)句組函數(shù)名表達(dá)式End

29、Function知識(shí)寶庫(kù)說(shuō)明：（1）與Sub過(guò)程很類(lèi)似，但函數(shù)通常都要返回一個(gè)函數(shù)值。（2）Static：定義靜態(tài)函數(shù)，函數(shù)中定義的值一直保存。（3）As 數(shù)據(jù)類(lèi)型：定義函數(shù)返回值類(lèi)型。知識(shí)寶庫(kù)2調(diào)用函數(shù)調(diào)用函數(shù)的方法與使用標(biāo)準(zhǔn)函數(shù)的方法一樣其格式為：函數(shù)名（實(shí)參列表）知識(shí)寶庫(kù)例：求任意輸入的兩個(gè)整數(shù)的平方和的主程序和函數(shù)如下Sub MA1（）Dim X%, Y%, S%X = Val（Inputbox（“請(qǐng)輸入整數(shù)X的值：”）Y = Val（Inputbox（“請(qǐng)輸入整數(shù)Y的值：”）S = PFH（X, Y） 調(diào)用函數(shù)求X和Y的平方和Msgbox “*” & SEnd SubFunction

30、 PFH（A, B） As Integer 定義函數(shù)PFH = A 2 + B 2End Function知識(shí)寶庫(kù)（三）運(yùn)行過(guò)程運(yùn)行過(guò)程有以下幾種方法方法1：?jiǎn)螕鬡BE窗口工具欄的運(yùn)行按鈕方法2：按F5鍵運(yùn)行過(guò)程方法3：在VBE窗口中，單擊“運(yùn)行”菜單中的“運(yùn)行子過(guò)程/用戶(hù)窗體”命令知識(shí)寶庫(kù)六、VBA語(yǔ)句（一）作用及組成VBA語(yǔ)句是用于完成某種特定操作的一條完整命令，語(yǔ)句可以包含關(guān)鍵字和表達(dá)式。一個(gè)過(guò)程就是由若干個(gè)命令語(yǔ)句組成的。知識(shí)寶庫(kù)（二）規(guī)則VBA語(yǔ)句要遵守如下規(guī)則，否則可能出錯(cuò)：1.語(yǔ)句中的標(biāo)點(diǎn)均用半角英文標(biāo)點(diǎn)；2.不區(qū)分大小寫(xiě)；3.一條語(yǔ)句要換行須在換行前加上空格和下劃線(xiàn)；4.多個(gè)語(yǔ)

31、句可以寫(xiě)在一行，但必須用冒號(hào)隔開(kāi)；5.書(shū)寫(xiě)正確的關(guān)鍵字會(huì)自動(dòng)變?yōu)樗{(lán)色。知識(shí)寶庫(kù)（一）聲明語(yǔ)句用來(lái)定義變量、常量、過(guò)程的名稱(chēng)和類(lèi)型。主要有Dim、Public、 Private、和Static,具體含義和用法已在前面介紹。知識(shí)寶庫(kù)（二）賦值語(yǔ)句用來(lái)給變量、數(shù)組元素或控件屬性指定一個(gè)表達(dá)式值。格式：變量名|數(shù)組元素|對(duì)象屬性引用=表達(dá)式關(guān)于賦值語(yǔ)句前面介紹變量時(shí)已經(jīng)講過(guò)其用法。知識(shí)寶庫(kù)（三）執(zhí)行語(yǔ)句用于在過(guò)程中選擇執(zhí)行路徑、控制重復(fù)執(zhí)行某些語(yǔ)句組，也可以用來(lái)調(diào)用子過(guò)程、函數(shù)過(guò)程或執(zhí)行方法。知識(shí)寶庫(kù)（四）注釋語(yǔ)句用來(lái)說(shuō)明一條語(yǔ)句或一個(gè)語(yǔ)句組的功能和作用，這樣可以提高語(yǔ)句的可讀性。常用單引號(hào)和Rem作

32、注釋語(yǔ)句，其中單引號(hào)用來(lái)放在語(yǔ)句行后面為所在行進(jìn)行說(shuō)明，而Rem語(yǔ)句要單獨(dú)占一行，為一個(gè)語(yǔ)句組進(jìn)行注釋?zhuān)琑em語(yǔ)句不能放在語(yǔ)句行后面。過(guò)程內(nèi)按順序一般包括聲明語(yǔ)句、賦值語(yǔ)句、執(zhí)行語(yǔ)句和顯示語(yǔ)句。知識(shí)寶庫(kù)任務(wù)說(shuō)明：在過(guò)程中經(jīng)常遇到要根據(jù)條件選擇執(zhí)行的路徑，這就需要使用分支語(yǔ)句，用分支條件來(lái)控制掃行哪個(gè)分支的語(yǔ)句組。本任務(wù)將讓學(xué)生掌握單分支、雙分支和多分支語(yǔ)句的語(yǔ)句格式、執(zhí)行流程，再通過(guò)典型的例子來(lái)運(yùn)用分支語(yǔ)句解決實(shí)際問(wèn)題。任務(wù)目標(biāo)：在過(guò)程中，會(huì)運(yùn)用單分支、雙分支和多分支語(yǔ)句解決具體問(wèn)題。任務(wù)82 在過(guò)程中運(yùn)用分支語(yǔ)句任務(wù)內(nèi)容：案例821用單分支語(yǔ)句判斷任意輸入的語(yǔ)文成績(jī)是否及格，及格則在消息框中

33、顯示“語(yǔ)文及格”。案例分析：本案例只考慮條件成立（即語(yǔ)文在60分以上）時(shí)做什么，適合用單分支結(jié)構(gòu)解決，單分支是最簡(jiǎn)單的分支結(jié)構(gòu)。任務(wù)82 在過(guò)程中運(yùn)用分支語(yǔ)句實(shí)現(xiàn)步驟：一、新建模塊二、輸入代碼：任務(wù)82 在過(guò)程中運(yùn)用分支語(yǔ)句三、按F5鍵運(yùn)行該過(guò)程單分支選擇語(yǔ)句一、特點(diǎn)：只考慮條件滿(mǎn)足時(shí)要完成的操作。二、格式及說(shuō)明1格式一：If 條件表達(dá)式 Then 語(yǔ)句組End If知識(shí)寶庫(kù)：2說(shuō)明：（1）其運(yùn)行流程是：若分支條件成立（即分支條件表達(dá)式的值為T(mén)rue時(shí)）則執(zhí)行分支語(yǔ)句內(nèi)的語(yǔ)句組，然后后再執(zhí)行End If后的語(yǔ)句，否則條件為False時(shí)則跳分支內(nèi)的語(yǔ)句組，直接執(zhí)行End If后的語(yǔ)句。（2）如果

34、分支內(nèi)的語(yǔ)句組中只包含一個(gè)語(yǔ)句，則可以將單分支語(yǔ)句寫(xiě)在一行，此時(shí)不用End If知識(shí)寶庫(kù)：案例822 用雙分支語(yǔ)句判斷任意輸入的語(yǔ)文成績(jī)是否及格，及格則在消息框中顯示“語(yǔ)文及格”，否則提示不及格。案例分析：本案例要考慮語(yǔ)文及格和不及格兩種情況下的顯示結(jié)果，即要在條件成立（即語(yǔ)文及格）和條件不成立（即語(yǔ)文不及格）分別顯示相應(yīng)的結(jié)果提示，用雙分支結(jié)構(gòu)更容易解決此類(lèi)問(wèn)題。任務(wù)82 在過(guò)程中運(yùn)用分支語(yǔ)句代碼窗口中，再定義過(guò)程如下：任務(wù)82 在過(guò)程中運(yùn)用分支語(yǔ)句雙分支選擇結(jié)構(gòu)一、特點(diǎn)：能保證兩分支中至少有一個(gè)分支被執(zhí)行二、語(yǔ)句格式及說(shuō)明格式一：If 條件表達(dá)式 Then 語(yǔ)句組1Else 語(yǔ)句組2End

35、 If知識(shí)寶庫(kù)說(shuō)明：（1）If 與End If必須成對(duì)出現(xiàn)。（2）當(dāng)條件表達(dá)式的值為真時(shí)，就執(zhí)行語(yǔ)句組1，執(zhí)行完后跳到End If后，否執(zhí)行語(yǔ)句組2，執(zhí)行完后跳到End If后。（3）若語(yǔ)句組1和語(yǔ)句組2都只能一條語(yǔ)句，則可以將單分支語(yǔ)句寫(xiě)在一行，且不用End If，但這樣寫(xiě)語(yǔ)句會(huì)太長(zhǎng)知識(shí)寶庫(kù)格式二：If 條件表達(dá)式 Then 語(yǔ)句組1 Else 語(yǔ)句組2如案例821中單分支內(nèi)只有一條語(yǔ)句，所以其分支結(jié)構(gòu)可以寫(xiě)成：If X = 60 Then MsgBox 語(yǔ)文及格! Else MsgBox 語(yǔ)文不及格!知識(shí)寶庫(kù)案例823用多分支語(yǔ)句實(shí)現(xiàn)：根據(jù)任意輸入的語(yǔ)文成績(jī)判斷確定評(píng)定等級(jí)，標(biāo)準(zhǔn)如下：不及

36、格（60以下）；及格（6079）；良好（8089）；優(yōu)秀（90分以上）。 案例分析：本案例要要求語(yǔ)文成績(jī)所處的分?jǐn)?shù)段不同來(lái)確定其等級(jí)，即要考慮多種情況，采用多分支結(jié)構(gòu)來(lái)解決此類(lèi)問(wèn)題會(huì)更簡(jiǎn)單。任務(wù)82 在過(guò)程中運(yùn)用分支語(yǔ)句定義過(guò)程如下圖所示任務(wù)82 在過(guò)程中運(yùn)用分支語(yǔ)句多分支選擇結(jié)構(gòu)一、特點(diǎn)：使用Select Case分支語(yǔ)句可以在兩個(gè)及以上的分支路徑中，最多可以選擇一條路徑即一個(gè)分支中的語(yǔ)句組來(lái)執(zhí)行。知識(shí)寶庫(kù)（一）格式一：Select Case測(cè)試表達(dá)式Case 表達(dá)式值列表1語(yǔ)句組1Case 表達(dá)式值列表2語(yǔ)句組2Case Else語(yǔ)句組N1End Select知識(shí)寶庫(kù)說(shuō)明：（1）變量或表達(dá)

37、式，可以是數(shù)值型或字符串型。Case 表達(dá)式與 Select Case 變量或表達(dá)式的類(lèi)型必須相同。（2）Case表達(dá)式可以是下列幾種格式：?jiǎn)我粩?shù)值或一行并列數(shù)值（用,隔開(kāi)）如判斷測(cè)試表達(dá)式是否是60或78或92用:CASE 60,78,92用關(guān)鍵字To分割開(kāi)的兩個(gè)數(shù)值或表達(dá)式之間的范圍。如0到10之間用CASE 0 TO 10表示。用Is關(guān)系運(yùn)算符表達(dá)式,如判斷測(cè)試表達(dá)式是否大于60用 CASE :IS 60多種情況直接列出,如CASE 1,2,5 TO 10知識(shí)寶庫(kù)（3）執(zhí)行流程：將測(cè)試表達(dá)式的值與結(jié)構(gòu)中每個(gè)CASE中的值依次進(jìn)行比較，若有相匹配的，則執(zhí)行對(duì)應(yīng)的語(yǔ)句組后跳到END SELE

38、CT之后，不匹配則繼續(xù)比較，均不相等則執(zhí)行CASE ELSE后的語(yǔ)句組；均不匹配且無(wú)CASE ELSE則多分支語(yǔ)句的每個(gè)分支都不執(zhí)行，有多處匹配的執(zhí)行第一個(gè)匹配的分支中對(duì)應(yīng)的語(yǔ)句。（4）多分支結(jié)構(gòu)也可以用嵌套的If語(yǔ)句實(shí)現(xiàn)。知識(shí)寶庫(kù)格式二：If 條件表達(dá)式1 Then 語(yǔ)句組1Else If 條件表達(dá)式2 Then 語(yǔ)句組2Else If 條件表達(dá)式n Then 語(yǔ)句組nElse 語(yǔ)句組n+1End If知識(shí)寶庫(kù)如案例823的多分支結(jié)構(gòu)可以改為：If X 60 Then ST = 語(yǔ)文不及格!ElseIf X = 79 Then ST = 語(yǔ)文及格!ElseIf X 0可改為Do Until

39、則條件應(yīng)寫(xiě)成X = 0 C = C + 1 X = Val(InputBox(請(qǐng)輸一整數(shù)（輸入0或負(fù)數(shù)結(jié)束）：)LoopMsgBox 輸入的正整數(shù)個(gè)數(shù)有： & CEnd Sub任務(wù)83 在過(guò)程中運(yùn)用循環(huán)語(yǔ)句用循環(huán)條件控制循環(huán)是最靈活的循環(huán)，只要While條件為真或Until條件為假繼續(xù)執(zhí)行循環(huán)體內(nèi)的語(yǔ)句組，否則結(jié)束循環(huán)，他的通用性強(qiáng)，所有的循環(huán)都可以用此類(lèi)循環(huán)來(lái)控制執(zhí)行。與For循環(huán)一樣，條件控制循環(huán)也通常使用循環(huán)變量來(lái)控制循環(huán)的執(zhí)行，區(qū)別是條件循環(huán)中循環(huán)變量必須在循環(huán)體前指定初值，在循環(huán)體內(nèi)通過(guò)賦值語(yǔ)句來(lái)改變循環(huán)變量。知識(shí)寶庫(kù)條件控制循環(huán)的格式有幾種：一、Do While|Until Loo

40、p循環(huán)這種循環(huán)先判斷循環(huán)條件，符合要求則進(jìn)入循環(huán)執(zhí)行循環(huán)體的語(yǔ)句組。（一）格式： Do While|Until 循環(huán)條件循環(huán)體Loop 知識(shí)寶庫(kù)說(shuō)明：1運(yùn)行流程：（1）當(dāng)型循環(huán)（即Do While 循環(huán)條件）條件為真則執(zhí)行循環(huán)體的語(yǔ)句組，遇到Loop則返回循環(huán)開(kāi)始語(yǔ)句Do While 再次判斷循環(huán)條件是否為真，不為真則結(jié)束循環(huán)執(zhí)行Loop后的語(yǔ)句，為真則繼續(xù)執(zhí)行循環(huán)體。（2）直到型循環(huán)（Do Until 循環(huán)條件）條件為假則執(zhí)行循環(huán)體的語(yǔ)句組，遇到Loop則返回循環(huán)開(kāi)始語(yǔ)句Do Until 再次判斷循環(huán)條件是否為真，為真則結(jié)束循環(huán)執(zhí)行Loop后的語(yǔ)句，為假則繼續(xù)執(zhí)行循環(huán)體。知識(shí)寶庫(kù)2若當(dāng)型循環(huán)

41、（While 循環(huán)條件）的第一次條件就為假，或直到型循環(huán)（Until 循環(huán)條件）的第一次條件就為真則循環(huán)體執(zhí)行0次。3若當(dāng)型循環(huán)的循環(huán)條件恒為真（True），直到型循環(huán)的循環(huán)條件恒為假（False）時(shí)，則循環(huán)體內(nèi)必須要有Exit Do語(yǔ)句，否則就會(huì)形成死循環(huán)。知識(shí)寶庫(kù)例如，案例832中的過(guò)程可以改為：Sub Dowhile計(jì)數(shù)2()Dim X%, C%Do While True 或Do Until False X=Val(InputBox(請(qǐng)輸一整數(shù)(輸入0或負(fù)數(shù)結(jié)束):) If X=0 Then Exit DoC = C + 1LoopMsgBox 輸入的正整數(shù)個(gè)數(shù)有： & CEnd Sub

42、知識(shí)寶庫(kù)二、DO LOOP WHILE|Until循環(huán)這種格式的循環(huán)語(yǔ)句無(wú)條件地先執(zhí)行循環(huán)體的語(yǔ)句組，遇到Loop時(shí)再判斷循環(huán)條件決定是否再次執(zhí)行循環(huán)體。（一）格式： DO 語(yǔ)句組（循環(huán)體）LOOP WHILE|Until 循環(huán)條件知識(shí)寶庫(kù)（二）說(shuō)明：1第一次遇到DO直接進(jìn)入循環(huán)體執(zhí)行語(yǔ)句組，所以循環(huán)體至少會(huì)執(zhí)行一次。2執(zhí)行一次循環(huán)體后，判斷LOOP后的循環(huán)條件，WHILE條件為真（或Until 循環(huán)條件為假）時(shí)，繼續(xù)執(zhí)行循環(huán)體的語(yǔ)句組，遇到LOOP再次判斷循環(huán)條件。否則，WHILE條件為假（或Until 循環(huán)條件為真）時(shí)結(jié)束循環(huán)。知識(shí)寶庫(kù)如案例831的過(guò)程可以改為Private Sub Do

43、循環(huán)求1到50和()Dim S%, i%S = 0i = 0 循環(huán)變量賦初值Do S = S + i i = i + 1 改變循環(huán)變量，使循環(huán)條件最終不成立而結(jié)束循環(huán)Loop While i 0或改為L(zhǎng)oop Until X = 0MsgBox 輸入的正整數(shù)個(gè)數(shù)有： & CEnd Sub知識(shí)寶庫(kù)三、While Wend 循環(huán)這種條件循環(huán)語(yǔ)句的格式更為簡(jiǎn)單。（一）格式：While 循環(huán)條件語(yǔ)句組（循環(huán)體）Wend任務(wù)83 在過(guò)程中運(yùn)用循環(huán)語(yǔ)句案例831的過(guò)程可以改為：Private Sub While循環(huán)求1到50和()Dim S%, i% S=0：i=0While i= 1 SU = Mid(X, I, 1) C = C + SU If SU = a And SU y, X, y) B = IIf(X y, X, y) r = A Mod B Do While r 0 A = B B = r r = A Mod BLoopMsgBox X & “,” & y & “最大公約數(shù)是: & B & 最小公倍數(shù)是: & X * y / BEnd Sub任務(wù)84 運(yùn)用嵌套的語(yǔ)句解決較復(fù)雜的問(wèn)題案例843設(shè)計(jì)一個(gè)登錄窗體界面，檢測(cè)用戶(hù)輸入的密碼的合法性，最多可以提供三次機(jī)會(huì)。案例分析：在窗體中輸入登錄密碼，密碼不能顯示真實(shí)內(nèi)容，所以需要設(shè)置其“輸入掩碼”。判斷