一、選擇題1．窗體模塊和報表模塊都屬于（ ）A．標準模塊 B． 類模塊 C．過程模塊 D．函數(shù)模塊2．模塊是存儲代碼的容器，其中窗體就是一種（ ）A．類模塊 B．標準模塊 C．子過程 D．函數(shù)過程3．以下關(guān)于模塊的說法，不正確的是（ ）A．窗體模塊和報表模塊屬于類模塊，它們從屬于各自的窗體和報表B．窗體模塊和報表模塊屬于局部特性，其作用范圍局限在所屬窗體或報表內(nèi)部C．窗體模塊和報表模塊中的過程可以調(diào)用標準模塊中已經(jīng)定義好的過程D．窗體模塊和報表模塊生命周期是伴隨著應用程序的打開而開始、關(guān)閉而結(jié)束4．以下關(guān)于標準模塊的說法，不正確的是（ ）A．標準模塊一般用于存放其他Access數(shù)據(jù)對象使用的公共過程B．Access系統(tǒng)中可以通過創(chuàng)建新的模塊對象而進入其代碼設計環(huán)境C．標準模塊所有的變量函數(shù)都具有全局特性，是公共的D．標準模塊的生命周期是伴隨著應用程序的打開而開始、關(guān)閉而結(jié)束5．在模塊中執(zhí)行宏Macro1的格式為（ ）A．Functio.Runmacro B．Docmd.Runmcro C．Sub.RunmcroMacro D．RunmcroMacro6．以下關(guān)于變量的敘述，錯誤的是（ ）A．變量名的命名同字段命名一樣，但變量命名不能包含有空格或除了下劃線符號外的任何其他的標點符號B．變量名不能使用VBA的關(guān)鍵字C．VBA中對變量名的大小寫敏感，變量名“NewYear”和“newyear”代表的是兩不同的變量D．根據(jù)變量直接定義與否，將變量劃分為隱含型變量和顯式變量7.變量聲明語句Dimma，表示變量a是（ ）A．整型 B．雙精度型 C．字符型 D．變體型8．可以判定某個日期表達式能否轉(zhuǎn)換為日期或時間的函數(shù)是（ ）A．CDate B．IsDate C．Date D．IsText9．定義了10個整型構(gòu)成的數(shù)組，數(shù)組元素為NewArray（1）至NewArray（10）的選項是（ ）A．DimNewArray（10）AsInterger B．DimNewArray（1To10）AsIntergerC．DimNewArray（10）Interger D．DimNewArray（1To10）Interger10．定義了三維數(shù)組A（5，5，5），則該數(shù)組的元素個數(shù)為（ ）A． 15 B．25 C． 125 D．21611．以下有關(guān)優(yōu)先級的比較，正確的是（ ）A．算術(shù)運算符>關(guān)系運算符>連接運算符 B．算術(shù)運算符>連接運算符>邏輯運算符 C．連接運算符>算術(shù)運算符>關(guān)系運算符 D．邏輯運算符>關(guān)系運算符>算術(shù)運算符12．VBA中定義符號常量可以用關(guān)鍵字（ ）A．Const B．Dim C．Public D．Static13．VBA中定義局部變量可以用關(guān)鍵字（ ）A．Const B．Dim C．Public D．Static14．以下內(nèi)容中不屬于VBA提供的數(shù)據(jù)驗證函數(shù)是（ ）A．IsText B．IsDate C．IsNumeric D．IsNull15．VBA的邏輯值進行進行算術(shù)運算時，True值被當做（ ）A．0 B．-1 C． 1 D．任意值16．以下可以得到“2+6=8”的結(jié)果的VBA表達式是（ ）A．“2+6”&“=”& 2+6 B．“2+6”+“=”+2+6 C．2+6&“=”&2+6 D．2+6+“=”+2+617．表達式“13+4”&“=”&（13+4）的運算結(jié)果為（ ）A．13+4 B．&13+4 C．（13+4）& D．13+4=1718．VBA表達式Chr（Asc（Ucase（‘a(chǎn)bodefg’）））返回的值是（ ）A．A B．97 C．a(chǎn) D．6519．表達式“10.2\5”返回的值是（ ）A．0 B．1 C．2 D．2.0420．VBA表達式Iif（0，20，30）的值為（ ）A．20 B．30 C．25 D．1021．函數(shù)Len（“Access數(shù)據(jù)庫”）的值是（ ）A．9 B．12 C．15 D．1822．函數(shù)Right（Left（Mid（“Access_DateBase”，10，3），2），1）的值是（ ）A．a(chǎn) B．B C．t D．空格23．表達式“教授”<“助教”返回的值是（ ）A．True B．False C．1 D．024．在下列邏輯表達式中，能正確表示條件“m和n至少有一個為偶數(shù)”的是（）A．mMOD2=1OrnMOD2=1 B．mMOD2=1AndnMOD2=1 C．mMOD2=0OrnMOD2=0 D．mMOD2=0AndnMOD2=025．VBA程序中，可以實現(xiàn)代碼注釋功能的是（ ）A．方括號[] B．單引號’ C．雙引號”” D．冒號：26．以下程序段運行后，消息框的輸出結(jié)果是（ ）a=sqr(5)b=sqr(4)c=a>bMsgboxc+2A．-1 B．1 C．2 D．出錯27．語句SelectCaseX中，X為一整型變量，下列Case語句中，表達式錯誤的是（ ）A．CaseIs>20 B．Case1To10 C．Case2,4,6 D．CaseX>1028．假定有以下循環(huán)結(jié)構(gòu)：DoUntil條件 循環(huán)體Loop則正確的敘述是（ ）A．如果條件值為0，則一次循環(huán)體也不執(zhí)行B．如果條件值為0，則至少執(zhí)行一次循環(huán)體C．如果條件值不為0，則至少執(zhí)行一次循環(huán)體D．不論條件是否為0，至少要執(zhí)行一次循環(huán)體29．程序段：ForS=5To1S=2*SNextS該循環(huán)執(zhí)行的次數(shù)為（ ）A．1 B．3 C．5 D．030．程序段D=#2013-12-21#T=#10：09：11#M=Month（D）S=Second（T）M和S的返回值分別是（ ）A．2013，12 B．12，11 C．21，12 D．8，931．程序段：Str=“計算機科學技術(shù)”Str=Mid（Str，5）A．計算機科學 B．機科學技術(shù) C．計算 D．學技術(shù)32．在VBE的立即窗口輸入如下命令，輸出結(jié)果是（ ）X=4=5?XA．True B．False C．4=5 D．語句出錯33．VBA定時操作中，需要創(chuàng)建窗體的“計時器間隔”屬性值，其計量單位是（ ）A． 微秒 B．毫秒 C．秒 D．分鐘34．在VBA中，過程參數(shù)的傳遞方式有傳值和（ ）兩種。A．傳語句 B．傳循環(huán) C．傳址 D．傳聲明35．在定義有參函數(shù)時，要想實現(xiàn)某個參數(shù)的雙向傳遞，就應當說明該形參為傳址調(diào)用形式，設置選項是（）A．BYvalB．ByRefC．Optional D．Paramarray36．Sub過程和function過程最根本的區(qū)別是（）A．Sub過程的過程名不能返回值，而funtion過程能通過過程名返回值B．Sub過程可以使用call語句或直接便用過程名，而function過程不能C．兩種過程的傳遞方式不同D．Function過程可以有參數(shù)，Sub過程不能有參數(shù)37．VBA中用實參X和Y調(diào)用有參過程PPSSUM(a,b)的正確形式是（）A．PPSSUMA,B B．PPSSUMX,YC．CallPPSSUM(A,B) D．CallPPSSUMX,Y38．要想在過程Proc調(diào)用后返回形參x和y的變化結(jié)果，下列定義的語句正確的是（ ）A．SubProc(XAsInteger,YAsInteger)B．SubProc(ByvalXAsInteger,YAsInteger)C．SubProc(XAsInteger,ByvalYAsInteger)D．SubProc(ByvalXAsInteger,ByvalYAsInteger)39．在Access中，如果變量定義在模塊的過程內(nèi)部，當過程代碼執(zhí)行時才可見，則這種變量使用域為（ ）A．程序范圍B．全局范圍C．模塊范圍 D．局部范圍 40．執(zhí)行下列VBA語句后，變量A的值是()A=1：B=3：C=4*A–BIFA*2–1<=BTHENB=2*B+CIFB–A>CTHENA=A+1：C=C-1Else A=A-1ENDIFA．0B．1 C．2 D．341．假定有以下函數(shù)過程：Funtionfun(SAsstring)AsstringDimSlAsstringForI=1toLen（S）Sl=Ucase(Mid(S,I,1))+SlNextIFun=SlEndFunction那函數(shù)Fun（“abcdefg“）的輸出結(jié)果為（ ）A．a(chǎn)bcdefg B．ABCDEFG C．gfedcba D．GFEDCBA42．執(zhí)行下列VBA語句后，變量n的值是（ ）n=0Fork=8to0step-3n=n+1NextkA．1 B．2 C．3 D．843．下面過程運行之后，則變量J的值為（）PrivateSubFun()DimJAsIntegerJ=2DOJ=J*3LoopWhileJ<15EndSubA．2 B．6 C．15 D．1844．下面的過程執(zhí)行之后，則變量j的值為（ ）PrivateSubFun（）DimJAsIntegerJ=5DoJ=J+2LoopWhileJ>10EndSubA．5 B．7 C．15 D．1145．假定有以下程序段：N=0Fora=1to5Forb=2to10step2 N=N+1NextbNexta運行完畢后，n的值是（）A．0 B．1 C．10 D．2546．假定有以下程序段：Fori=1to3N=0Forj=-4to-1N=N+1NextjNexti運行完畢后n的值是（）A．0 B．3 C．4 D．1247．在窗體上添加一個命令按鈕（名為Command1），然后編寫如下事件過程：PrivateSubCommand1_Click()ForI=1To4X=4ForJ=1To3X=3ForK=1To2X=X+6NextKNextJNextIMsgboxXEndSub打開窗體后，單擊命令按鈕，消息框輸入的結(jié)果是( )A．7 B．15 C．157 D．53848．下面Main過程運行之后，則變量J的值為（ ）PrivateSubMainsub（）DimJAsIntergerJ=5CallGetDate（J）EndSubPrivateSubGetDate（ByReffAsInteger）f=f*2+sgn(-1)EndSubA． 5 B．7 C．9 D．1049．在代碼中定義了一個子過程：SubP（a,b）…EndSub下列調(diào)用該過程的形式中，正確的是（ ）A．CallP B．CallP（10，20） C．P（10，20） D．CallP10，2050．在窗體中有一個名為Command1的命令按鈕，事件代碼如下：PrivateSubCommand1_Click（）Dimm(10)Fork=1To10 m(k)=11-kNextkX=6MsgBoxm2+m(X)EndSub打開窗體，單擊命令按鈕，消息框的輸出結(jié)果是（ ）A．2 B．4 C．3 D．551．在窗體中有一個名為Run34的命令按鈕，事件代碼如下：PrivateSubRun34_Click（）F1=1F2=1Forn=3To7 F=F1+F2 F1=F2 F2=FNextnMsgboxFEndSub打開窗體，單擊命令按鈕，消息框的輸出結(jié)果是（ ）A．13 B．8 C．21 D．其他結(jié)果52．在窗體中有一個命令按鈕Command1，編寫事件代碼如下：PrivateSubCommand1_Click（）DimsAsIntegerS=P(1)+P(2)+P(3)+P(4)Debug．PrintsEndSubPrivateFunctionP(NASInteger)DimSumAsIntegerSum=0ForI=1ToN Sum=Sum+INextIP=SumEndFunction打開窗體運行后，單擊命令按鈕，輸出的結(jié)果是（ ）A．15 B．20 C．25 D．3553．假設有如下Sub過程：SubSfun（XAsSingle，YAsSingle）T=XX=T/YY=TMODYEndSub在窗體中添加一個命令按鈕（名為Command1），編寫如下事件過程：PrivateSubCommand1_Click（）DimAAsSingleDimBAsSingleA=5B=4CALLSfun(A，B)MsgboxA&Chr（10）+Chr（13）&BEndSub打開窗體運行后，單擊命令按鈕，消息框中有兩行輸出，內(nèi)容分別為（ ）1和1 B．1.25和1 C． 1.25和4 D．5和454．有如下VBA程序段：Sum=0N=0Fori=1to5 X=N/i N=N+1 Sum=Sum+XNexti以上For循環(huán)計算Sum，完成的表達式是（ ）A．1+1/1+2/3+3/4+4/5 B．1+1/2+1/3+1/4+1/5C．1/2+2/3+3/4+4/5 D．1/2+1/3+1/4+1/555．在窗體中有一個命令按鈕Command1，對應的事件代碼如下：PrivateSubCommand1_Click()Dimnum%r，a%，b%，i%Fori=1To10 Num=Inputbox(“請輸入數(shù)據(jù)：”，“輸入”，1) IfInt(num/2)=num/2Then a=a+1 Else b=b+1 EndIfNextiMsgbox(“運行結(jié)果：a=”&Str(a)&“，b=”&Str(b))EndSub運行以上事件過程所完成的功能是（ ）A． 對輸入的10個數(shù)求累加和 B． 對輸入的10個數(shù)求各自的余數(shù)，然后再進行累加C． 對輸入的10個數(shù)據(jù)分別統(tǒng)計整數(shù)和非整數(shù)的個數(shù)D． 對輸入的10個數(shù)據(jù)分別統(tǒng)計偶數(shù)和奇數(shù)的個數(shù)56．下列過程的功能是：通過對象變量返回當前窗體RecordSet屬性記錄集引用，消息框中輸出記錄集的記錄（即窗體記錄源）個數(shù)SubGetRecNum（）DimRsAsObjectSetRs=Me.RecordSetMsgboxEndSub程序空白處應填寫的是（ ）A． Country B．Rs.Count C． RecordCount D． Rs.RecordCount57．在窗體中有一個名稱為Command1的命令按鈕，單擊該按鈕從鍵盤接收學生成績表，如果輸入的成績不在0到100分之間，則要求重新輸入；如果輸入的成績正確，則進入后續(xù)程序處理。Command1命令按鈕的Click事件代碼如下：PrivateSubCommand1_Click()DimFlagAsBooleanResult=0Flag=TrueDoWhileFlag Result=Val(Inputbox(“請輸入學生成績：”，”輸入”)) IfResult>=0AndResult<=100Then Else Msgbox“成績輸入錯誤，請重新輸入！” EndIf Loop Rem成績輸入正確后的程序代碼略EndSub程序中有一空白處，需要填入一條語句使程序完成其功能。下列選項中錯誤的語句是（ ）A．Flag=False B．Flag=NotFlag C．Flag=True D．ExitDo58．ADO的含義是（ ）A．開放數(shù)據(jù)庫互連應用編程接口 B．數(shù)據(jù)庫訪問對象C．動態(tài)鏈接庫 D．Active數(shù)據(jù)對象59．在For循環(huán)體一定的條件下要提前退出循環(huán)可以通過（ ）語句A． Exit B．ExitDo C．ExitFor D．Quit60．用于打開“XS”窗體的語句正確的是（ ）A．DoCMD.OpenFormXs B．DoCMD.OpenForm“Xs”C．OpenFormXs D．OpenForm“Xs”61．下面程序段的功能是實現(xiàn)“學生”表中“年齡”字段值加1DimStrAsStringStr=””Docmd.RunSQLStr空白處應填入的程序代碼是（ ）A．年齡=年齡+1 B．Update學生Set年齡=年齡+1C．Set年齡=年齡+1 D．Edit年齡=年齡+162．窗體上添加有3個命令按鈕，分別命名為Command1、Command2和Command3。編寫Command1的單擊事件過程，完成的功能為：當單擊按鈕Command1時，按鈕Command2可用，按鈕Command3不可見，正確的程序代碼是（ ）A．PrivateSubCommand1_Click()Command2.Visible=TrueCommand3.Visible=FalseEndSubB．PrivateSubCommand1_Click()Command2.Enabled=TrueCommand3.Enabled=FalseEndSubC．PrivateSubCommand1_Click()Command2.Enabled=TrueCommand3.Visible=FalseEndSubD．PrivateSubCommand1_Click()Command2.Visible=TrueCommand3.Enabled=FalseEndSub63．程序調(diào)試的目的在于（ ）A． 驗證程序代碼的正確性 B．執(zhí)行程序代碼C．查看程序代碼的變量 D．查找和解決程序代碼的錯誤64．在代碼調(diào)試時，使用Debug.Print語句顯示指定變量結(jié)果的窗口是（ ）A．屬性窗口 B．本地窗口 C．立即窗口 D．監(jiān)視窗口65．在標準模塊中，按組合鍵（ ）可以運行當前子過程A．Alt+F5 B．F5 C．Ctrl+F5 D．Shift+F5二、填空題1．與窗體或報表中的控件有關(guān)的模塊叫模塊。2．模塊是由VBA聲明和組成的單元。3．定義了數(shù)組A（2To5，5），則該數(shù)組的元素個數(shù)為。4．在VBA中雙精度的類型標識是。5．VBA的邏輯值在表達式當中進行算術(shù)運算時，True值被當作，F(xiàn)alse值被當作處理。6．在VBA中，要得到[24，68]區(qū)間的隨機整數(shù)，可用表達式表示。7．VBA中變量作用域分為3個層次，這3個層次的變量是、和。8．在模塊的說明區(qū)域中，用關(guān)鍵字說明的變量是全局范圍的變量，而用或關(guān)鍵字說明的變量是屬于模塊范圍的變量。9．要在程序或函數(shù)的實例間保留局部變更的值，可以用關(guān)鍵字代替Dim。10．VBA語言中，函數(shù)Inputbox輸入的數(shù)據(jù)的數(shù)據(jù)類型是。11．VBA的3種流程控制結(jié)構(gòu)是、和。12．VBA的有參過程定義，形參用說明，表明該形參為傳值調(diào)用；形參用Byref說明，表明該形參為。13．設有如下代碼：X=1Do X=X+2LoopUntil運行程序，要求循環(huán)體執(zhí)行3次后結(jié)束循環(huán)，在空白處填入適當語句。14．有如下VBA代碼，運行結(jié)束后，變量N的值是，變量I的值是。N=0ForI=1To3 ForJ=-4To-1 N=N+1 NextJNextI15．設有以下窗體單擊事件過程：PrivateSubForm_Click()A=1ForI=1to3 SelectCaseI Case1,3 A=A+1 Case2,4 A=A+2 EndSelectNextIMsgboxAEndSub打開窗體運行后，單擊窗體，則消息框的輸出內(nèi)容是。16．調(diào)用子過程GetABS后，消息框中顯示的內(nèi)容為。SubGetABs()DimXX=-5IfX>0Then X=XElse X=-XEndIfMsgboxXEndSub17．運行子過程TestParm，在立即窗口中的輸出結(jié)果為。SubTestParm（）DimStrASStringStr=“中國”CallSubParm（Str）Debug.PrintStrEndSubSubSubParm（ByRefPstrAsString）Pstr=“China”EndSub18．在窗體中添加一個命令按鈕Command1和在窗體中添加一個命令按鈕Command1和一個文本框Text1,編寫事件代碼如下：Privatesubcommand1_click()DimaAsInteger,yAsInteger,zAsIntegerX=5：y=7：z=0Me!Text1=””Callpl(x,y,z)Me!Text1=zEndSubSubpl(aAsinteger,bAsInteger,CAsInteger)C=a+bEndSub打開窗體后，單擊命令按鈕，文本框中顯示的內(nèi)容是______。19．在窗體中有命令按鈕Command1,編寫其Click事件代碼，實現(xiàn)的功能是接收從鍵盤輸入的10個大于0的整數(shù)，找出其中的最大值和對應的輸入位置。請依據(jù)上述功能要求將程序補充完整。PrivateSubCommand1_Click()max=0max_n=0ForI=1To10Num=Val(InPutBox(“請輸入第”&I&“個大于0的整數(shù)：“))Ifnum﹥maxThen___________Max_n=________EndIfNextIMsgBox(“最大值為第”&max_n&“個輸入的”&max)EndSub20.窗體中有一個名為Command1的命令按鈕和一個名為Text1的文本框，事件代碼如下：Privatesubcommand1_click()Dima(10)AsInteger,b(10)AsIntegern=3Fori=1To5a(i)=ib(n)=2*n+1NextiMe!Text1=a(n)+b(n)EndSub打開窗體，單擊命令按鈕，文本框Text1中顯示的內(nèi)容是_______。21．在窗體上有一個名為num2的文本框和run11的命令按鈕，事件代碼如下：PrivateSubruln11_click()SelectCasenum2Case>=60Result=”及格”Case60To84Result=”通過”CaseIs﹥=85Result=”優(yōu)秀”CaseElseResult=“不合格”EndSelectMsgBoxresultEndSub打開窗體，在文