ACCESS數(shù)據(jù)庫VBA循環(huán)和分支結構練習題

1、ACCESS數(shù)據(jù)庫VBA循環(huán)和分支結構練習題第六章VBA循環(huán)和分支結果練習1.執(zhí)行下面程序,寫出S的值_ n的值_ S=0For n=1 to 15If int(n/3)=n/3 thenS=s+nEndifNextDebug.print s,n2.程序運行結束后，s的值是_ ，j的值是_。s=0p=1j=1do while jif j mod 3=0 thenp=p*jelses=s+pendifj=j+1loopdebug.print j,s3.假定有以下程序段n=0for i=1 to 3for j= -4 to -1n=n+1next jnext i運行完畢后，n的值是（）A）0 B）

2、3 C）4 D）124.打開窗體運行后，單擊窗體，則消息框的輸出內容是（）Private Sub Form_Click( )a = 1For i = 1 To 3Select Case iCase 1, 3a = a + 1Case 2, 4a = a + 2End SelectNext iMsgBox aEnd Sub5.在窗體上添加一個命令按鈕（名為Command1），然后編寫如下事件過程：Private Sub Command1_Click()For i=1 To 4x=4For j=1 To 3x=3For k=1 To2x=x+6Next kNext jNext iMsgBox xE

3、nd Sub打開窗體后，單擊命令按鈕，消息框的輸出結果是A7B15C157D5386.設有如下代碼：x=1dox=x+2loop until _運行程序，要求循環(huán)體執(zhí)行3次后結束循環(huán)，在空白處填入適當語句。7.窗體中有兩個命令按鈕：“顯示”（控件名為cmdDisplay）和“測試”（控件名為cmdTest）。以下事件過程的功能是：單擊“測試”按鈕時，窗體上彈出一個消息框。如果單擊消息框的“確定”按鈕，隱藏窗體上的“顯示”命令按鈕；單擊“取消”按鈕關閉窗體。按照功能要求，將程序補充完整。Private Sub cmdTest_Click()Answer= _（“隱藏按鈕”，vbOKCancel）

4、If Answer=vbOK ThencmdDisplay.Visible= _ElseDocmd.CloseEnd IfEnd Sub8.在窗體上畫一個命令按鈕（名稱為command1）和一個文本框（名稱為text1），然后編寫如下事件過程：Private sub command1_click()Me.text1.setfocusX=val(text1.text) text屬性表示文本框獲得焦點后的值，等同于value屬性Select case xCase 1,3Y=x*xCase is=10,isY=xCase -10 to 10Y= -xEnd selectEnd sub在文本框輸入3，

5、然后單擊命令按鈕，變量y的值變?yōu)開。9.VBA中定義符號常量可以用關鍵字A)Const B)Dim C)Public D)Static10.定義了二維數(shù)組A(2 to 5，5)，則該數(shù)組的元素個數(shù)為A)25 B)36 C)20 D)2411.已知程序段：s=0For i=1 To 10 step 2s=s+1i=i*2Next i當循環(huán)結束后，變量i的值為a，變量s的值為b。A)10 B)11 C)22 D)16A)3 B)4 C)5 D)612.在VBA代碼調試過程中，能夠顯示出所有在當前過程中變量聲明及變量值信息的是A)快速監(jiān)視窗口B)監(jiān)視窗口C)立即窗口D)本地窗口13.閱讀程序，MSG

6、BOX一共彈出了幾次消息（）Sub test()For i = 1 To 10 Step -2MsgBox iNextEnd SubA)0 B)1 C)2 D)報錯14.閱讀程序，MSGBOX一共彈出了幾次消息（）Sub Click()For i = 1 To 10i = i + 2MsgBox iNextEnd SubA)0 B)2 C)4 D)報錯15.閱讀程序，MSGBOX一共彈出了幾次消息（）Sub Click()For i = 1 To 10If i = 2 Then Exit ForMsgBox iNextEnd SubA)0 B)1 C)2 D)316.閱讀程序，MSGBOX一共彈出了幾次消息（）Sub Click()For i = 5 To 1MsgBox iNextEnd SubA)0 B)2 C)4 D)報錯17.閱讀程序，MSGBOX一共彈出了幾次消息（）Sub Click()i = 2DoMsgBox iLoop While i End SubA)1