Access基礎教程（第四版）長春師范大學計算機科學與技術學院9.1程序流程控制9.2文件9.3過程調用9.4計時器Timer9.5ADO數據庫編程實例第9章VBA應用實例本章是對第8章所涉及到的部分基礎內容在實際應用角度的延伸。把握VBA的語法結構和應用技巧與掌握高級語言的方法大體一致，最重要的一點就是具備程序的分析和設計能力，也就是說針對給定的程序我們要能夠讀懂其功能；而針對給定的應用問題我們要能夠運用所掌握的知識予以實現。本章將VBA的應用問題分為了程序流程控制、文件、過程調用、計時器Timer和ADO數據庫編程實例五個部分，從分析和設計兩個方面針對具體的實例加以闡述，主要介紹分析的重點和設計的思路，希望能夠對讀者在Access數據庫較為復雜的應用方面給予幫助。第9章VBA應用實例9.1.1選擇結構例1：窗體中有一名為Command1的命令按鈕，其單擊事件過程如下所示，試分析單擊該命令按鈕后消息框中的顯示內容。PrivateSubCommand1_Click（）a=75Ifa>60Then k=1ElseIfa>70Then k=2ElseIfa>80Then k=3ElseIfa>90Then k=4EndIfMsgBoxkEndSub9.1程序流程控制本例是塊If語句的應用，執行的過程是：按條件出現的順序依次判斷每一個條件，發現第一個成立的條件后，則立即執行與該條件相對應的語句組，然后跳出該條件語句，去執行EndIf后的第一條語句。因為a=75，滿足a>60的條件，所以k=1，EndIf后的第一條語句為MsgBoxk，所以消息框中顯示的結果為1。例2：窗體中有一名為Command1的命令按鈕，其單擊事件過程如下所示，試分析單擊該命令按鈕后消息框中的顯示內容。PrivateSubCommand1_Click（）A=75IfA>60ThenI=1IfA>70ThenI=2IfA>80ThenI=3IfA>90ThenI=4MsgBoxIEndSub9.1程序流程控制本例是四個行If語句的順序結構。與標準的If…Then…EndIf結構相比較，缺少了EndIf，但這在VBA中是允許的，所以判斷的過程也應該是順序的，執行過程應該是A=75，A大于60所以I=1；A大于70所以I=2；A不大于80，所以I值不發生變化；A值不大于90，所以I值不發生變化；最終消息框中顯示的結果應為I的最后值2。例3：分析如下窗體單擊事件過程的顯示結果。PrivateSubForm_Click（）

a=1

Fori=3To1Step-1 SelectCaseiCase1,3

a=a+1

Case2,4

a=a+2

EndSelect

NextiMsgBoxaEndSub9.1程序流程控制本例是SelectCase選擇結構和For循環結構的應用集合，分析的重點在于SelectCase的選擇分支，分支一Case1,3，也就是說當i值為1或3時執行的操作為a=a+1；分支二Case2,4，也就是說當i值為2或4時執行的操作為a=a+2。a的初值為1，循環變量i的變化過程是由3到1，那么在整個循環過程中，要執行兩次a=a+1的操作和一次a=a+2的操作，所以最終消息框顯示的結果為5。例4：試用If…Then…EndIf選擇結構實現三個數由大到小的順序排列。要求在如圖9.1所示的“排序”窗體中名為“text1”、“text2”和“text3”的三個文本框中輸入三個數，單擊“排序”（名為Command1）按鈕后，三個數按由大到小的順序排列；單擊“重新輸入”（名為Command2）按鈕后，清空文本框，以便于重新輸入。單擊“排序”按鈕后的結果如圖9.2所示。解題思路：要想將三個數進行排序，首先要將這三個數中任意兩個數進行比較，如果比較過程中較大數在較小數之前，則不需要改變它們的順序，否則需要將兩個數的位置進行交換。對于三個數排序要進行（3×2）/（2×1）次比較。排序（見示例數據庫）9.1程序流程控制例5：試用SelectCase選擇結構實現一個收取貨物運費的程序。要求：在固定兩地之間，收取貨物運費的原則是：10噸以內（不含10噸）的貨物，每噸收取運費100元；10噸至50噸（不含50噸）的貨物，每噸收取運費70元；50噸以上的貨物，每噸收取運費50元。在如圖9.3所示的“計算運輸費用”窗體中“Weight”文本框（關聯標簽為“貨物重量”）內輸入貨物重量后，單擊Command1（標題為“計算”）按鈕，在“Cost”文本框（關聯標簽為“運輸費用”）中顯示出運輸費用，如圖9.4所示；單擊Command2（標題為“清除”）按鈕，清空兩個文本框。解題思路：這是一個最為簡單的多路分支選擇結構實例，只需要根據貨物重量的不同，選擇不同運費計算公式即可。計算運輸費用（見示例數據庫）9.1程序流程控制9.1.2循環結構例6：窗體中有一名為Command1的命令按鈕，其單擊事件過程如下所示，試分析單擊該命令按鈕后sum的值。PrivateSubCommand1_Click（）DimsumAsDouble,jAsDoublesum=0n=0Fori=1To5

j=n/i

n=n+1

sum=sum+jNextiEndSub9.1程序流程控制本例是For循環語句的應用，循環變量i的取值為1到5。當i值為1時，x的值為0，n值1，sum值為0（注意賦值語句的順序結構）；當i值為2時，x值為1/2，n值為2，sum值為1/2；當i值為3時，x值為2/3，n值為3，sum值為1/2+2/3；以此類推，當循環結束之后sum的值為1/2+2/3+3/4+4/5。例7：窗體中有一名為Command1的命令按鈕，其單擊事件過程如下所示，試分析單擊該命令按鈕后消息框中的顯示內容。PrivateSubCommand1_Cllick（） DimM（10）AsInteger Fork=1to10 M（k）=12-k Nextk x=6 MsgBoxM（2+M（x））EndSub9.1程序流程控制本例是For循環語句和數組的集合應用，一維數組M的下限為0、上限為10，循環變量k的取值為1到10。For循環的作用在本例中是為數據M中的元素賦值，下標為k的元素其值為12-k，如：M（1）值為11，M（10）值為2。消息框中顯示的消息為M（2+M（x）），首先要計算出M（x）的值，x=6，所以M（x）=6；因此M（2+M（x））實際上是M（8），所以最終消息框的顯示結果為4。例8：試分析如下程序運行結束之后變量K的值。PrivateSubFun（） DimJAsInteger J=10 Do J=J+3 LoopWhileJ<19EndSub9.1程序流程控制本例是Do…LoopWhile循環結構的應用，分析的重點在于條件式J<19和其位置。當J<19時執行循環體中的語句；另外需要注意的是條件式在Loop后，循環體至少要執行一次，它決定了是否回到循環體起始處。循環體中的語句為J=J+3，也就是說每執行一次循環J的值要加3。當執行兩次循環體操作后J=16，仍然滿足J<19的條件，所以還要執行第三次循環；而當第三次循環結束后J=19，已經不滿足J<19的條件，所以循環終止。最終J的值為19。例9：試分析內層n循環的執行次數。Form=0To7Step3 Forn=m-2Tom+2 NextnNextm9.1程序流程控制本例是For循環的嵌套，分析的重點在于內層循環變量n的初始值和終止值。無論m的值為多少，內層循環變量n的值都只有五個m-2、m-1、m、m+1和m+2，也就是說每執行一次m循環就要執行五次n循環。而m=0To7Step3，外層m循環要執行3次，所以內層n循環的次數為15。例10：試分析如下程序運行結束之后變量K的值。K=0ForI=1To3 ForJ=1ToI K=K+J NextJNextI9.1程序流程控制本例是For循環的嵌套，分析的重點在于內層J循環的終止值為I，由于外層循環變量I值的變化，使得內層J循環的次數是不固定。當I=1時，J=1To1，K=K+1=1；當I=2時，J=1To2，K=K+1+2=4；當I=3時，J=1To3，K=K+1+2+3=10。所以當程序運行結束之后K的值為10。（注意K值的累加過程）例11：試分析如下程序運行結束之后變量x的值。x=1y=1z=1

Fork=1To3

Ifj=1Then

x=x+y+z

ElseIfj=2Then

x=2*x+2*y+2*z

Else

x=3*x+3*y+3*z

EndIf

Nextk9.1程序流程控制本例是For循環結構和塊If語句的應用集合，分析的重點在于塊If的選擇分支，分支一為當K=1時，x=x+y+z；分支二為當K=2時，x=2*x+2*y+2*z；分支三為當K=3時，x=3*x+3*y+3*z。與選擇結構的例3相比較，本例中賦值語句右端的變化是在變量參與運算后才進行賦值的。循環共執行3次，當K=1時，x=1+1+1=3；當K=2時，x=2*3+2*1+2*1=10；當K=3時，x=3*10+3*1+3*1=36。所以當程序運行結束之后x的值為36。例12：窗體中有一名為Command1的命令按鈕，其單擊事件過程如下所示，試分析單擊該命令按鈕后消息框中的顯示內容。PrivatesubCommand1_Click（）Fori=1To4

x=3

Forj=1To3

x=4

Fork=1To2

x=x+5

NextkNextjNextiMsgBoxxEndSub9.1程序流程控制本例是For循環的嵌套，分析的重點在于i循環中的賦值語句x=3和j循環中的賦值語句x=4。它們的位置決定了，只要進入i循環，那么x的值就為3；而進入j循環后，x又被重新賦值為4。所以最終的結果由以下語句決定：x=4Fork=1To2x=x+5Nextk當程序運行結束之后，x的值為14。例13：試分析如下程序運行結束之后變量k的值。Dimi,j,kAsIntegeri=1DoForj=1ToiStep2

k=k+jNextji=i+2LoopUntili>89.1程序流程控制本例是Do…LoopUntil循環結構和For循環的嵌套，分析的重點在于變量i值的變化過程，它即是For循環的終止值，又控制了Do…LoopUntil循環的條件。i值的變化在Do…LoopUntil循環中由i=i+2賦值語句來進行，當i>8時程序運行結束，所以i可能的值為1、3、5、7。For循環中步長為2，當i=1時，k=k+1=1；當i=3時，k=k+1+3=5；當i=5時，k=k+1+3+5=14；當i=7時，k=k+1+3+5+7=30。當循環結束之后k的值為30。例14：試分析如下程序運行結束之后消息框中顯示的內容.Dimstr1,str2AsStringDimIAsIntegerstr1=”abcdef”Fori=1ToLen(str1)Step2 str2=UCase(Mid(str1,i,1))+str2NextiMsgBoxstr29.1程序流程控制本例中使用了字符串函數Len（）、Mid（）和大小寫轉換函數Ucase（）。由于字符串str1的值不發生變化，所以Len（str1）的值固定為6。因此For循環變量i的取值為1、3和5（步長為2），Ucase（Mid（str1,i,1））實際上就是取str1中第i個字符然后再轉換為大寫字母，當i=1時，str2=A；當i=3時，str2=CA；當i=5時，str2=ECA。當程序運行結束之后，消息框中顯示的內容為ECA。例15：窗體中有一名為Command1的命令按鈕，其單擊事件過程如下所示，試分析當單擊該命令按鈕后消息框中顯示的內容。PrivateSubCommand1_Click（）Dima(10,10)Form=2To4

Forn=4To5

a(m,n)=m*n

NextnNextmMsgBoxa(2,5)+a(3,4)+a(4,5)EndSub9.1程序流程控制本例是For循環嵌套和二維數組的應用。For循環的作用在于為數組元素賦值a（m,n）=m*n，因此需要考慮的是循環過程中，數組元素a(2,5)、a(3,4)和a(4,5)是否已經賦值，由于m為2~4，n為4~5，三者都在范圍內，所以a(2,5)=10、a(3,4)=12、a(4,5)=20，因此a(2,5)+a(3,4)+a(4,5)=42。當程序運行結束之后消息框中顯示的內容為42。例16：計算

要求：在如圖9.5所示的“計算”窗體中有一名為Text1（關聯標簽為“請輸入N值”）的文本框和一名為Command1（標題為“計算”）的命令按鈕，在文本框中輸入一個正整數，單擊Comman1后在消息框中顯示計算結果，如圖9.6所示。解題思路：該表達式每一項均是一個求

的多項式。每個多項式有相同的特點：從1不斷除到某一個數。（或者理解為：分母都是從1一直累乘到某一個數）這樣，表達式中的每一項就都可以通過一個相同的求值過程來完成。需要注意的是終止值是不斷變化到n的。計算（見示例數據庫）9.1程序流程控制例17：在如圖9.7所示的“質數”窗體中有一標題為“篩選”的命令按鈕（名稱為Command1）和一名為Label1的標簽控件。要求：單擊“篩選”按鈕后，在標簽框中顯示出50～100之間的所有質數。試用循環結構和If…Then…Else…EndIf選擇結構實現。解題思路：首先，應該清楚怎樣判斷一個數是否是質數。作為質數，除了1和它本身之外，不能再被其他數整除。那么只需判斷該數是否存在1和它本身之外的因子，如果存在，這兩個因子必然是一個大于或等于該數的平方根，另一個小于或等于該數的平方根，并且這兩個因子是成對出現的。所以只要找出其中較小的一個因子即可認為該數不是質數，否則，該數就是質數。然后，依次判斷其他的數是否是質數。質數（見示例數據庫）9.1程序流程控制例18：試用For循環結構實現一個用“*”在消息框中打印矩形的程序。要求：在如圖9.8所示的“打印矩形”窗體中關聯標簽為“個數”（名稱為Text1）的文本框內輸入一個數字N，單擊標題為“顯示結果”（名稱為Command1）的命令按鈕后，在消息框中顯示由“*”構成的N行N列矩形。在文本框中輸入“5”，單擊“顯示結果”按鈕后的結果如圖9.9所示。解題思路：首先，應該考慮由“*”組成的矩形是由行和列構成的，行數和列數由用戶輸入的數字N（取值于文本框控件Text1）來決定，因此要用For循環的嵌套來實現，并且終止值都為N；其次，結果要在循環結束之后顯示，因此在每行結束之后都要加上回車符Chr（13）和換行符Chr（10）。

打印矩形（見示例數據庫）9.1程序流程控制例19：通過文件的應用破解Access密碼。（聲明：編寫這段程序的目的僅僅是為了教學，讓讀者更加深刻地理解文件的應用）解題思路：Access在加密中引入了該文件的創建日期。所以，第一步，調整系統時間后新建一個Access文件，使得新建的文件和要破解密碼的文件，在創建日期上是相同的。第二步，需要知道Access密碼存放在文件的什么位置。對一個Access文件，它的密碼存放的位置的偏移地址是H43。第三步，需要知道的是，Access文件的密碼在存儲中與實際輸入的密碼字符之間的關系是什么。實際上，Access密碼在存儲中是經過異或運算得到的。異或運算具有如下特點：如果AXorB=C，那么AXorC=B和CXorB=A都成立。由上述已知條件，就不難編寫該解密程序。9.2文件PrivateSubCommand1_Click()Constoft=&H43 Dima(1To2)AsByte Dimb(1To2)AsByte DimiAsIntegerDimpasswordAsString Open"c:\wq.mdb"ForBinaryAs#1 Open"c:\Q.mdb"ForBinaryAs#2Seek#1,oft Seek#2,oft 9.2文件Fori=1To20 Get#1,,aGet#2,,bIf(a(1)Xorb(1))<>0Thenpassword=password+Chr$(a(1)Xorb(1))NextiCloseMe.text1.SetFocusMe.text1.Text=passwordEndSub其中Command1和Text1為用戶新建數據庫文件Q中某窗體內的命令按鈕控件和文本框控件的名稱。

9.2文件例20：在如圖9.10所示的窗體“過程調用1”中有一名為Command1的命令按鈕（標題為“顯示結果”）和一名為Text1文本框（標題為“顯示結果”），命令按鈕的單擊事件過程如下所示，試分析單擊Command1命令按鈕后文本框Text1中的顯示內容。本例是過程調用的應用，要求形參和實參的數據類型及數量一致。子過程pl定義了整型形參a、b和c，命令按鈕Command1的單擊事件過程中定義了整型實參x、y和z，也就是說a、b、c分別對應x、y、z。缺省的參數傳遞方式為ByRef，為“雙向作用”，實參和形參可以互相影響。因此，單擊Command1命令按鈕后文本框Text1中的顯示內容為12，如圖9.11所示。過程調用1（見示例數據庫）9.3過程調用PrivateSubCommand1_Click（） DimxAsInteger,yAsInteger,zAsInteger x=5:y=7:z=0 Me!Text1=”” Callp1(x,y,z) Me!Text1=zEndSubSubp1(aAsInteger,bAsInteger,cAsInteger) c=a+bEndSub9.3過程調用例21：在如圖9.12所示的“過程調用2”窗體中有一名稱為Command1（標題為“顯示結果”）的命令按鈕，其單擊事件過程如下所示，試分析單擊Command1命令按鈕后消息框中的顯示內容。本例是過程調用的應用，分析的重點在于參數的傳遞方式：ByVal為“單向作用”，形參的值不會影響實參。因此，調用前實參i的值為3，調用后實參i的值仍然為3，所以單擊Command1命令按鈕后消息框的顯示內容為3，如圖9.13所示。過程調用2（見示例數據庫）9.3過程調用PrivateSubs（ByValpAsInteger） p=p*3EndSubPrivateSubCommand1_Click（） DimIAsInteger i=3 s(i) Ifi>10Theni=i^3 EndIf MsgBoxiEndSub9.3過程調用例22：在如圖9.14所示的“過程調用3”窗體有一名稱為Command1（標題為“顯示結果”）的命令按鈕，其單擊事件過程如下所示，試分析單擊Command1命令按鈕后消息框中的顯示內容。本例是過程調用的應用，分析的重點在于變量x的作用域。PublicxAsInteger聲明在所有過程之外的起始位置，作用域為模塊范圍，運行時在模塊所包含的所有子過程和函數過程中可見；而子過程s1中的DimxAsInteger，定義在過程內部，其作用域為局部范圍，只有執行該過程時才可見，并且其值不會傳回。命令按鈕的單擊事件過程中調用了子過程s1和s2，實際上影響最終顯示結果的只有s2，所以結果為30，結果如圖9.15所示。

過程調用3（見示例數據庫）9.3過程調用PublicxAsIntegerPrivateSubCommand1_Click（） x=10 Calls1 Calls2 MsgBoxxEndSubPrivateSubs1（） DimxAsInteger x=x*2EndSub9.3過程調用PrivateSubs2（） x=x*3EndSub例23：求表達式(1+2+3)+(1+2+3+4)+…+(1+2+3+…+n)之和。（n≥4）要求：編寫一個計算1+2+…+n的子過程a，并在命令按鈕Command1的單擊事件過程中調用，根據用戶輸入的n值求解(1+2+3)+(1+2+3+4)+…+(1+2+3+…+n)。說明：在如圖9.16所示的“計算結果”窗體中有一名為Command1（標題為“計算”）的命令按鈕和名為Text1（關聯標簽為“請輸入N值”）、Text2（關聯標簽為“結果”）的兩個文本框控件，要求在Text1中輸入n值，單擊“計算”命令按鈕后，在Text2中顯示計算結果，如圖9.17所示。9.3過程調用解題思路：該表達式每一項均是一個完成累加求和的多項式。每個多項式有相同的特點：都是從1一直累加到某一個數。這樣，表達式中的每一項就都可以通過一個相同的求值過程來完成。通過調用Sub子程序可以完成這一過程，當然終止值要考慮是不斷變化到n的。計算結果（見示例數據庫）9.3過程調用主過程如下：PrivateSubCommand1_Click()Me.text1.SetFocusn=Val(text1.Text)Fori=3Ton Calla(s,i) sum=sum+sNextiMe.text2.SetFocusText2.Text=LTrim(Str(sum))EndSub9.3過程調用子過程如下：PrivateSuba(s,n)s=0Fori=1Tons=s+iNextiEndSub例24：在如圖9.18所示的“判定奇偶數”窗體中有一個名為Command1（標題為“判定”）的命令按鈕和一個名為Text1（關聯標簽為“請輸入一個數字”）的文本框，且文本框的內容為空，要求：編寫一個判定奇偶數的函數過程，并在命令按鈕的單擊事件過程中作為IIf函數的條件式引用，最終在消息框中顯示判定結果，如圖9.19所示。解題思路：奇偶數的判定可以通過求模（Mod）2來實現，結果為0是偶數，否則是奇數。IIf函數有三個參數，第一個參數為條件表達式，第二、三個參數是返回值，如果條件式為真返回第二個參數；條件式為假返回第三個參數。判定奇偶數（見示例數據庫）9.3過程調用子函數如下：PrivateFunctionf（xAsLong）AsBoolean

IfxMod2=0Then

f=True

Else

f=False

EndIfEndFunction9.3過程調用主過程如下：PrivateSubCommand1_Click（）

DimnAsLong

n=Val（Me!text1）

p=IIf（f（n）,”偶數”,”奇數”）

MsgBoxn&“是”&pEndSub例25：試用窗體的計時器觸發事件設計一個如圖9.20所示的登錄窗體，要求：打開該窗體后輸入用戶名和密碼，登錄操作要求在20秒內完成（以單擊“登錄”命令按鈕為截止時間），如果在20秒內沒有完成登錄操作則倒計時達到0秒時自動關閉登錄窗體。說明：登錄窗體中有名為Text1（關聯標簽為“用戶名”）和Text2（關聯標簽為“密碼”）的兩個文本框，名為Login（標題為“登錄”）的一個命令按鈕，名為Label1（用來顯示倒計時時間）的一個標簽。9.4計時器Timer解題思路：VBA中通過設置窗體的“計時器間隔”（TimerInterval）屬性與添加“計時器觸發”（Timer）事件來完成“定時”功能，“計時器間隔”屬性值以毫秒為單位，1000表示間隔為1秒。另外，需要考慮定義一個邏輯變量，用它來控制當單擊“登錄”命令按鈕后停止倒計時。登錄（見示例數據庫）9.4計時器TimerDimflagAsBooleanDimIAsIntegerPrivateSubForm_Load（）

flag=True

Me.TimerInterval=1000

i=0EndSubPrivateSubForm_Timer（）

Ifflag=TrueAndi<20Then

Me!Label1.Caption=20-i

i=i+19.4計時器TimerElse

DoCmd.CloseEndIfEndSubPrivateSubLogin_Click（）flag=false‘代碼略EndSub例26：試用ADO實現在表中添加記錄的應用。要求：當前工程數據庫中表“Stud”用來存儲學生的基本信息，包括：學號、姓名、性別和院系，在如圖9.21所示的“學生_添加記錄”窗體中有名為tNo、tName、tSex和tDept四個文本框分別與之相對應。當單擊窗體中的“添加”命令按鈕（名稱為Command1）時，首先判斷學號是否存在，如果不存在則向“Stud”表中添加學生記錄；如果學號存在，則給出提示信息。9.5ADO數據庫編程實例解題思路：ADO是基于組件的數據庫編程接口，包含了Connection、Command、RecordSet、Field和Error五個對象，執行SQL語句要用到Connection對象的Execute方法；獲取記錄集要用到RecordSet對象的Open方法。本例應先以用戶輸入的學號為條件使用RecordSet對象的Open方法在數據源表中查找相關記錄，如果找到表示學號存在，給出錯誤提示；否則，使用Connection對象的Execute方法將用戶輸入的內容添加到Stud表中。學生_添加記錄（見示例數據庫）9.5ADO數據庫編程實例PrivateSubCommand1_Click（） DimcnAsNewADODB.Connection DimrsAsNewADODB.RecordSet DimstrSQLAsString

Setcn=CurrentProject.Connection strSQL=”Select學號FromStudWhere學號=’”+tNo+”’”

rs.Open strSQL,cn,adOpenDynamic,adLockOptimistic,adCmdText IfNotrs.EofThen MsgBox“學號已存在，請重新輸入！” Else9.5ADO數據庫編程實