國(guó)家二級(jí)ACCESS機(jī)試(選擇題)模擬試卷334(題后含答案及解析)

國(guó)家二級(jí)ACCESS機(jī)試（選擇題）模擬試卷334(題后含答案及解析)題型有：1.選擇題選擇題1．如果變量A是Boolean型，則下列賦值語(yǔ)句中，正確的是()。A．A=＂No＂B．A=．No．C．A=#TURE#D．A=2＜10正確答案：D解析：Boolean類(lèi)型變量的取值只能取true或false，其中選項(xiàng)A是字符型常量；選項(xiàng)B寫(xiě)法有誤；選項(xiàng)C可以在數(shù)據(jù)庫(kù)查詢(xún)中作為查詢(xún)條件使用；選項(xiàng)D是將一個(gè)表達(dá)式的值賦給Boolean型變量A，選項(xiàng)中2＜10為真，所以A取值為true。故選擇D選項(xiàng)。2．下列選項(xiàng)中，與VBA語(yǔ)句:DimNew％，sum!等價(jià)的是()。A．DimNewAsInteger，sumAsSingleB．DimNewAsInteger，sumAsDoubleC．DimNewAsDouble，sumAsSingleD．DimNewAsDouble，sumAsInteger正確答案：A解析：題中VBA語(yǔ)句：DimNew％，sum!的功能是定義一個(gè)整數(shù)New和一個(gè)單精度數(shù)sumo在VBA數(shù)據(jù)類(lèi)型中，符號(hào)“％”表示整數(shù)，符號(hào)“!”表示單精度數(shù)，符號(hào)“@”表示貨幣，符號(hào)“$”表示字符串。與本題等價(jià)的聲明語(yǔ)句為：DimNewAsInteger，sumAsSingle，故選擇A選項(xiàng)。3．下列程序段運(yùn)行結(jié)束后，變量c的值是()。a=24b=328selecteaseb＼lOcase0c=a*10+bcaselto9c=a*100+bcase10to99c=a*1000+bendselectA．537B．2427C．24328D．240328正確答案：C解析：整數(shù)除法“＼”是對(duì)兩個(gè)操作題做樹(shù)法并返回一個(gè)整數(shù)。程序中SelectCase語(yǔ)句中b＼10的值為32，程序執(zhí)行Case10to99后邊的c=a*1000+b語(yǔ)句，即c=24*1000+328=24328。故選擇C選項(xiàng)。4．窗體上有命令按鈕commandl，對(duì)應(yīng)的Click事件過(guò)程如下：PrivateSubCommandl_Cliek()DimxAsIntegerx=InputBox(＂請(qǐng)輸入x的值＂)，SelectCasexCase1，2，4，10CaseElseDebug．Print＂A＂Debug．Print＂D＂Case5To9Debug．Print＂B＂CaseIs=3Debug．Print＂C＂EndSelectEndSub窗體打開(kāi)運(yùn)行，單擊命令按鈕，在彈出的輸入框中輸入3，則立即窗口上顯示的內(nèi)容是()。A．CB．AC．BD．D正確答案：A解析：在SelectCase語(yǔ)句中，Case表達(dá)式可以是下列4種格式之一。①單一數(shù)值或一行并列的數(shù)值，用來(lái)與“表達(dá)式”的值進(jìn)行比較，成員之間以逗號(hào)隔開(kāi)。②由關(guān)鍵字To分割開(kāi)的兩個(gè)數(shù)值或表達(dá)式之間的范圍。③關(guān)鍵字Is接關(guān)系運(yùn)算符，如＜＞、＜、＜=、=、＞=或＞，后面再接變量或精確的值。④關(guān)鍵字CaseElse后的表達(dá)式，是在前面的Case條件都不滿(mǎn)足時(shí)執(zhí)行。本題中輸入“3”，與第三個(gè)Case語(yǔ)句匹配，程序輸出字符“C”，故選擇A選項(xiàng)。5．下列If語(yǔ)句的功能是統(tǒng)計(jì)性別為男、職稱(chēng)為副教授以上且年齡小于40歲的人數(shù)，錯(cuò)誤的語(yǔ)句是()。A．Ifsex=＂男＂Andage＜40InStr(duty，＂教授＂)＞0Thenn=n+1B．Ifsex=＂男“Andage＜40lnStr(duty=＂教授＂orduty=＂副教授＂)＞0Then13=13+1C．Ifsex=＂男＂Andage＜40Right(duty，2)=＂教授＂Thenn=13．+1D．Ifsex=＂男＂Andage＜40And(duty=＂教授＂Orduty=＂副教授＂)Thenn=n+1正確答案：D解析：選項(xiàng)A、B、C均在第二個(gè)條件age<40后面缺少And關(guān)鍵字進(jìn)行與第三個(gè)條件的連接，語(yǔ)法結(jié)構(gòu)錯(cuò)誤。故選擇D選項(xiàng)。6．由“Fori=lTo16Step3＂決定的循環(huán)結(jié)構(gòu)被執(zhí)行()。A．4次B．5次C．6次D．7次正確答案：C解析：題目考查的是For循環(huán)結(jié)構(gòu)，循環(huán)初值i為1，終值為16，每次執(zhí)行循環(huán)i依次加3，則i分別為1、4、7、10、13、16，則循環(huán)執(zhí)行6次。故選擇C選項(xiàng)。7．要求循環(huán)執(zhí)行2次后結(jié)束循環(huán)，【】處應(yīng)填入的語(yǔ)句是()。x=1Dox=x+2LoopUntil【】A．x＜=5B．x＜5C．x＞=5D．x＞5正確答案：C解析：本題考查Do…LoopUntil循環(huán)控制結(jié)構(gòu)的用法。該結(jié)構(gòu)的特點(diǎn)是先執(zhí)行，后判斷，循環(huán)語(yǔ)句至少執(zhí)行一次。Until當(dāng)條件為假時(shí)，執(zhí)行循環(huán)體內(nèi)的語(yǔ)句。題目要求循環(huán)執(zhí)行2次。第一次執(zhí)行x=3，第二次執(zhí)行x=5，然后條件為真，結(jié)束循環(huán)。故條件為真時(shí)x至少要等于5。故選擇C選項(xiàng)。8．運(yùn)行下列程序，結(jié)果是()。PrivateSubCommand32_Click()fO=1：fl=1：k=l=5f=f0+flf0=flfl=fk=k+lLoopMsgBox＂f=＂&fEndSubDoWhilek＜A．f=5B．f=7C．f=8D．f：13正確答案：D解析：本題考查DoWhile循環(huán)語(yǔ)句：k=1時(shí)，f=l+1=2，f0=1，fl=2，k=1+l=2；k=2時(shí)，f=3，f0=2，fl=3，k=2+1=3；k=3時(shí)，f=5，f0=3，fl=5，k=3+1=4；k=4時(shí)，f=8，f0=5，fl=8，k=4+l=5；k=5時(shí)，f=13，f0=8，fl=13，k=6，不再滿(mǎn)足循環(huán)條件跳出循環(huán)，此時(shí)f=13。故選擇D選項(xiàng)。9．有如下事件程序，運(yùn)行該程序后輸出結(jié)果是()。PrivateSubCommand33_Click()DimxAsInteger，yAsIntegerx=1：y=0DoUntily＜=25y=y+x*xx=x+1LoopMsgBox＂x=＂&x&＂．y=＂&YEndSubA．x=1，y=0B．x=4，y=25C．x=5，y=30D．輸出其他結(jié)果正確答案：A解析：Dountil循環(huán)采用的是先判斷條件后執(zhí)行循環(huán)體的做法，如果條件為T(mén)rue，則循環(huán)體一次都不執(zhí)行。否則進(jìn)入循環(huán)體執(zhí)行。本題中的循環(huán)停止條件是y＜=25，而y=0，滿(mǎn)足條件表達(dá)式，則不進(jìn)入循環(huán)體，x、y的值不變，仍為1、0。故選擇A選項(xiàng)。10．窗體中有文本框?yàn)門(mén)extl和Text2。運(yùn)行程序時(shí)單擊“運(yùn)行”按鈕Commandl，在Textl中輸入整數(shù)m(m＞0)，在Text2中顯示輸出m的全部除1和自身之外的因子。例如，20的因子有2，4，5，10，輸出結(jié)果為“2，4，5，10”；16的因子為2，4，8，輸出結(jié)果為“2，4，8”。事件代碼如下：PrivateSubCommandl_Click()m=Val(Me!Textl)resule=＂＂k=2DoIfmModk=0Thenresult=result&k&＂．＂k=k+1LoopWhile【】Me!Text2=resultEndSub程序【】處應(yīng)填寫(xiě)的語(yǔ)句是()A．k＞mB．k＜mC．k＞=mD．k＜=m正確答案：B解析：Do循環(huán)是查找m的因子，循環(huán)的條件是因子k小于m，因子k初始值為2，循環(huán)結(jié)束的條件是k增加到m一1結(jié)束，即k＜m。故選擇B選項(xiàng)。11．窗體中有文本框Textl。運(yùn)行程序，輸入大于0的整數(shù)m，單擊按鈕Commandl，程序顯示由星號(hào)組成的高度和上底均為m的等腰梯形形。例如，當(dāng)m=5時(shí)，顯示圖形如下。*********************************************事件代碼如下。PrivateSubCommandl_Click()m=Val(Me!Textl)result=””Fork=1TomForn=lTo【】Ifn＜m—k+lThenresult=result&””Elseresuh=result&”*”EndIfNextnresult=result+Chr(13)NextkMsgBoxresult，，”運(yùn)行結(jié)果”EndSub程序【】處應(yīng)填寫(xiě)的語(yǔ)句是()。A．k+2*m一2B．k+2*mC．k+m一1D．k+m正確答案：A解析：本題考查的是for循環(huán)執(zhí)行過(guò)程，通過(guò)for循環(huán)輸出等腰梯形。第一個(gè)循環(huán)用于控制輸出的行數(shù)，第二個(gè)for循環(huán)用于控制每行輸出的字符數(shù)。從圖中可看出，第l行，4個(gè)空格，5個(gè)*字符；第2行，3個(gè)空格，7個(gè)*字符；第3行，2個(gè)空格，9個(gè)*字符；第4行，1個(gè)空格，11個(gè)*字符；第5行，0個(gè)空格，13個(gè)*字符；可看出行號(hào)與輸出空格關(guān)系，假定有輸入的為整數(shù)m，第k行，應(yīng)輸出m—k個(gè)空格；同理，第k行，應(yīng)輸出k+2*m一2個(gè)*號(hào)字符。故選擇A選項(xiàng)。12．有Click事件對(duì)應(yīng)的程序如下：PrivateSubCommandl_Click()DimsumAsDouble．xAsDoublesum=0n=0Fori=1To5x=n／in=n+1sum=sum+XNextiEndSub該程序通過(guò)For循環(huán)計(jì)算一個(gè)表達(dá)式的值，該表達(dá)式是()。A．1+1／2+2／3+3／4+4／5B．1／2+2／3+3／4+4／5C．1+1／2+1／3+1／4+1／5D．1／2+1／3+1／4+1／5正確答案：B解析：本題考查了For循環(huán)控制結(jié)構(gòu)的應(yīng)用，本題中循環(huán)共執(zhí)行了5次，每次各變量賦值情況如下表所示：ixnsum10／11021／221／232／331／2+2／343／441／2+2／3+3／454／551／2+2／3+3／4+4／5循環(huán)結(jié)束后，sum最后的值為1／2+2／3+3／4+4／5，故選擇B選項(xiàng)。13．下列四種形式的循環(huán)設(shè)計(jì)中，循環(huán)次數(shù)最少的是()。A．a(chǎn)=5：b=8DoUntila＜bb=b+lLoopB．a(chǎn)=5：b=8DDa=a+1LoopWhilea＜bC．a(chǎn)=5：b=8Doa=a+1LoopUntila＜bD．a(chǎn)=5：b=8DoUntila＞ba=a+lLoop正確答案：A解析：本題考查循環(huán)結(jié)構(gòu)的使用，Do…LoopUntil和DoUntil…Loop都是當(dāng)條件為假時(shí)，重復(fù)執(zhí)行循環(huán)體，直到條件為真或遇到ExitDo才結(jié)束循環(huán)；Do…LoopWhile循環(huán)當(dāng)條件為真時(shí)，執(zhí)行循環(huán)體，當(dāng)條件為假時(shí)，結(jié)束循環(huán)，選項(xiàng)A條件為真，循環(huán)一次也不執(zhí)行；選項(xiàng)B循環(huán)執(zhí)行3次；選項(xiàng)C循環(huán)執(zhí)行1次；選項(xiàng)D循環(huán)執(zhí)行4次。故選擇A選項(xiàng)。14．下列不屬于VBA函數(shù)的是()。A．ChooseB．IfC．IIfD．Switch正確答案：B解析：IIf函數(shù)、Switch函數(shù)和Choose函數(shù)是VBA提供的3個(gè)條件函數(shù)，而If是程序流程控件的條件語(yǔ)句，不是函數(shù)。故選擇B選項(xiàng)。15．在VBA中，下列關(guān)于過(guò)程的描述中正確的是()。A．過(guò)程的定義可以嵌套，但過(guò)程的調(diào)用不能嵌套B．過(guò)程的定義不可以嵌套，但過(guò)程的調(diào)用可以嵌套C．過(guò)程的定義和過(guò)程的調(diào)用均可以嵌套D．過(guò)程的定義和過(guò)程的調(diào)用均不能嵌套正確答案：B解析：在VBA中過(guò)程不可以嵌套定義，即不可以在一個(gè)過(guò)程中定義另一個(gè)過(guò)程，但是過(guò)程可以嵌套調(diào)用。故選擇B選項(xiàng)。16．在窗體上有一個(gè)命令按鈕Commandl，編寫(xiě)事件代碼如下：PrivateSubCommandl_Click()DimxAsInteger，yAsIntegerX=12：y=32CallProc(x，y)Debug．Printx；yEndSubPublicSubProc(nAsInteger，ByValmAsInteger)n=nMod10m=mMod10EndSub打開(kāi)窗體運(yùn)行后，單擊命令按鈕，立即窗口上輸出的結(jié)果是()。A．232B．123C．22D．1232正確答案：A解析：參數(shù)有兩種傳遞方式：傳址傳遞ByRef和傳值傳遞ByVal。如果沒(méi)有說(shuō)明傳遞類(lèi)型，則默認(rèn)為傳址傳遞。在函數(shù)Proc(nAsInteger,ByValmAsInteger)參數(shù)中，形參n默認(rèn)為傳址傳遞，形參的變化將會(huì)返回到實(shí)參，即形參nmod10(12mod10)得到的結(jié)果2將返回給實(shí)參x，即x=2；而y為傳值類(lèi)型，不因形參的變化而變化，所以輸出的x和Y應(yīng)為2和32。故選擇A選項(xiàng)。17．假定有以下兩個(gè)過(guò)程：Subsl(ByValxAsInteger，ByValyAsInteger)DimtAsIntegert=xX=yy=tEndSubSubS2(xAsInteger，yAsInteger)下列說(shuō)法正確的是()。DimtAsIntegert=x：x=y：y=tEndSubA．用過(guò)程Sl可以實(shí)現(xiàn)交換兩個(gè)變量的值的操作,S2不能實(shí)現(xiàn)B．用過(guò)程S2可以實(shí)現(xiàn)交換兩個(gè)變量的值的操作,Sl不能實(shí)現(xiàn)C．用過(guò)程S1和S2都可以實(shí)現(xiàn)交換兩個(gè)變量的值的操作D．用過(guò)程S1和S2都不可以實(shí)現(xiàn)交換兩個(gè)變量的值的操作正確答案：B解析：VBA中定義過(guò)程時(shí)如果省略傳值方式則默認(rèn)為按地址傳遞，過(guò)程S2中省略了參數(shù)傳遞方式說(shuō)明，因此，參數(shù)將按傳址調(diào)用，而過(guò)程S1由于聲明為按值傳遞(ByVal)，所以會(huì)按傳值調(diào)用參數(shù)。而在過(guò)程調(diào)用時(shí)，如果按傳值調(diào)用，實(shí)參只是把值傳給了形參，在過(guò)程內(nèi)部對(duì)形參值進(jìn)行改變不會(huì)影響實(shí)參變量，按址調(diào)用卻不同，這種方式是把實(shí)參的地址傳給了形參，在過(guò)程中對(duì)形參值進(jìn)行改變也會(huì)影響實(shí)參的值。因此，過(guò)程S2能夠交換兩個(gè)變量的值，而s1不能實(shí)現(xiàn)。故選擇B選項(xiàng)。18．窗體中有命令按鈕Commandl和文本框Textl，事件過(guò)程如下：Functionresult(ByValxAsInteger)AsBooleanIfXMod2=0Thenresult=TrueElseresult=FalseEndIfEndFunctionPrivateSubCommandl_Click()x=Val(1nputBox(”請(qǐng)輸入一個(gè)整數(shù)”))If【】ThenTextl=Str(X)&”是偶數(shù)．”ElseTextl=Str(x)&”是奇數(shù)．”EndIfEndSub運(yùn)行程序，單擊命令按鈕，輸入19，在Textl中會(huì)顯示“19是奇數(shù)”。那么在程序的括號(hào)內(nèi)應(yīng)填寫(xiě)()。A．NOTresult(x)B．result(x)C．result(x)=”奇數(shù)”D．result(x)=”偶數(shù)”正確答案：B解析：本題程序是判斷奇偶性的程序，函數(shù)Result用來(lái)判斷x是否是偶數(shù)，如果x是偶數(shù)，那么ResuIt的返回值為真，否則返回值為假，單擊命令按鈕時(shí)執(zhí)行的過(guò)程是輸入整數(shù)x，然后調(diào)用Result函數(shù)，如果值為真，文本框會(huì)顯示輸入的值是偶數(shù)，否則顯示輸入的值為奇數(shù)。調(diào)用Result函數(shù)且Result函數(shù)值為真時(shí)的表達(dá)式為：Result(X)。故選擇B選項(xiàng)。19．窗體中有一個(gè)命令按鈕“Commandl”和一個(gè)文本框“Textl”，編寫(xiě)如下程序：Functionresult(xAsInteger)AsBooleanIf【】Thenresult=TrueElseresu]t=FalseEndIfEndFunctionPrivateSubCommandl_Click()x=Val(InputBox(”請(qǐng)輸入一個(gè)整數(shù)”))IfNotresult(x)ThenTextl=Str(x)&”是奇數(shù)．”ElseTextl=Str(x)&”是偶數(shù)．”EndIfEndSub程序運(yùn)行后單擊命令按鈕，在輸入對(duì)話(huà)框中輸入121，則“Textl”中顯示“121是奇數(shù)”。那么程序的【】處應(yīng)填寫(xiě)A．xMod2=1B．xMod2==lC．xMod2==0D．XMod2=0正確答案：D解析：result函數(shù)返回的是布爾值：true或false，根據(jù)主調(diào)過(guò)程Commandl—Click中條件判斷語(yǔ)句：IfNotresult(x)ThenTextl=Str(x)&”是奇數(shù)．”ElseTextl=Str(x)&”是偶數(shù)．”EndIf可知，當(dāng)“result(x)”返回值是true時(shí)，顯示“是偶數(shù)”；當(dāng)“result(x)”返回值是false時(shí)，顯示“是奇數(shù)”，所以程序中的【】處，應(yīng)該是判斷變量“x”的奇偶性，如果是偶數(shù)，則返回“true”，否則返回“false”，故本題應(yīng)該填入語(yǔ)句“xMod2=0”。故選擇D選項(xiàng)。20．窗體中有文本框Textl、Text2和Text3。運(yùn)行時(shí)在Textl中輸入整數(shù)m，在Text2中輸入整數(shù)n(m＜n)，單擊按鈕Commandl，計(jì)算m到n之間(含m和n)全部奇數(shù)之和，然后在Text3中輸出結(jié)果。事件代碼如下：PrivateSubCommand1_Click()m=Val(Me!Textl)n=Val(Me!Text2)sum=0For【】TonStep2sum=sum+kNextkMe!Text3=sumEndSub程序【】處應(yīng)填寫(xiě)的語(yǔ)句是()。A．k=IIf(mMod2=1，m，m+1)B．k=IIf(mMod2＜＞l，m，m+1)C．k=IIf(mMod2＞1，In，m+1)D．k=IIf(mMod2＜1，m，m+1)正確答案：A解析：本題考查的是for循環(huán)的初始條件。題目要求輸出m和n的所有奇數(shù)之和，因此初始條件應(yīng)該是一個(gè)奇數(shù)，即大于或等于m的最小奇數(shù)。本題mmod2=l，說(shuō)明m為奇數(shù)，則表達(dá)式返回m值，即k=m，否則mmod2=0；m為偶數(shù)，則m+1為奇數(shù)，返回m+1。故選擇A選項(xiàng)。21．能夠?qū)崿F(xiàn)從指定記錄集里檢索特定字段值的函數(shù)是()。A．NzB．FindC．LookupD．DLookup正確答案：D解析：DLookup函數(shù)是從指定記錄集里檢索特定字段的值，可以直接在VBA、宏、查詢(xún)表達(dá)式或計(jì)算控件使用，而且主要用于檢索來(lái)自外部表字段中的數(shù)據(jù)。故選擇D選項(xiàng)。22．下列代碼實(shí)現(xiàn)的功能是：窗體中一個(gè)名為tNum的文本框，運(yùn)行時(shí)在其中輸入課程編號(hào)，程序在“課程表”中查詢(xún)，找到對(duì)應(yīng)的“課程名稱(chēng)”顯示在另一個(gè)名為tName文本框中。PrivateSubtNum_AfierUpdate()Me!tName=【】EndSub要使程序可以正確運(yùn)行，【】處應(yīng)該填寫(xiě)的是()。A．DLookup(＂課程名稱(chēng)＂，＂課程表＂，＂課程編號(hào)=＂&Me!tNum&＂＂)B．DLookup(＂課程表＂，＂課程名稱(chēng)＂，＂課程編號(hào)=＂&Me!tNum&＂＂)C．DLookup(＂課程表＂，＂課程編號(hào)=“&Me!tNum&＂＂，＂課程名稱(chēng)＂)D．DLookup(＂課程名稱(chēng)＂，＂課程編號(hào)=“&Me!tNum&＂＂，＂課程表”)正確答案：A解析：根據(jù)題意，【】處的代碼應(yīng)實(shí)現(xiàn)的功能是在“課程表”中查詢(xún)出“課程編號(hào)”等于tNum文本框中數(shù)據(jù)的“課程名稱(chēng)”，需要使用DLookup函數(shù)。DLookup函數(shù)的格式為：DLookup(表達(dá)式，記錄集[，條件式])。其中表達(dá)式用來(lái)指定要查詢(xún)的字段，即題中的“課程名稱(chēng)”。記錄集用來(lái)指定要查詢(xún)的范圍，即題中的“課程表”。條件式用來(lái)指定查詢(xún)條件，即題中的“課程編號(hào)=’”&Me!tNum&”“＇”，故選擇A選項(xiàng)。23．已知“產(chǎn)品表”(產(chǎn)品編碼，產(chǎn)品名稱(chēng)，單價(jià))，另有“新產(chǎn)品表”(產(chǎn)品編碼，產(chǎn)品名稱(chēng)，單價(jià))。如果根據(jù)產(chǎn)品編碼，一件產(chǎn)品只在“新產(chǎn)品表”中出現(xiàn)，則要將該產(chǎn)品追加到“產(chǎn)品表”中；如果一件產(chǎn)品在“產(chǎn)品表”和“新產(chǎn)品表”中同時(shí)出現(xiàn)，則用“新產(chǎn)品表”中的單價(jià)修改“產(chǎn)品表”中相應(yīng)產(chǎn)品的單價(jià)。為實(shí)現(xiàn)上述功能要求，應(yīng)使用的方法是()。A．更新查詢(xún)B．追加查詢(xún)C．生成表查詢(xún)D．編VBA程序正確答案：D解析：根據(jù)題目描述，若產(chǎn)品編碼只在“新產(chǎn)品表”中出現(xiàn)，需要追加至“產(chǎn)品表”，可用追加查詢(xún)；若產(chǎn)品編碼在“產(chǎn)品表”和“新產(chǎn)品表”中同時(shí)出現(xiàn)，需要修改“產(chǎn)品表”中相應(yīng)產(chǎn)品的單價(jià)，可用更新查詢(xún)。為了同時(shí)滿(mǎn)足上述功能要求，應(yīng)編寫(xiě)VBA程序進(jìn)行判斷后執(zhí)行相應(yīng)操作。故選擇D選項(xiàng)。24．為使窗體每隔0．5秒鐘激發(fā)一次計(jì)時(shí)器事件(timer事件)，則應(yīng)將其Interval屬性值設(shè)置為()。A．5000B．500C．5D．0．5正確答案：B解析：窗體的計(jì)時(shí)器事件發(fā)生間隔由Interval屬性設(shè)定，該屬性值以毫秒為單位，1000毫秒為1秒，0．5秒即500毫秒，因此，應(yīng)將Interval值設(shè)置為500。故選擇B選項(xiàng)。25．窗體中有一個(gè)名稱(chēng)為tText文本框和一個(gè)名為bCommand命令按鈕，并編寫(xiě)了相應(yīng)的事件過(guò)程。運(yùn)行此窗體，在文本框中輸入一個(gè)字符，則命令按鈕上的標(biāo)題變?yōu)椤罢f(shuō)明”。以下能夠?qū)崿F(xiàn)上述功能的事件過(guò)程是()。A．PrivateSubtText_Change()bCommand．Caption=＂說(shuō)明＂EndSubB．PrivateSubbCommand_Click()Caption=＂說(shuō)明＂EndSubC．PrivateSubtText_Click()bCommand．Caption=＂說(shuō)明＂EndSubD．PrivateSubbCommand_Change()Caption=＂說(shuō)明＂EndSub正確答案：A解析：本題考查控件的基本屬性和事件過(guò)程，題目要求通過(guò)在文本框中輸入一個(gè)字符來(lái)觸發(fā)事件，而能觸發(fā)的只有tText的Change事件，另外，在給某個(gè)控件的屬性賦值時(shí)，不可省略控件名，命令按鈕控件的標(biāo)題屬性為“Caption”，故選擇A選項(xiàng)。26．ADO對(duì)象模型中有5個(gè)主要對(duì)象，他們是Connection、Command、RecordSet、Error和()。A．DatabaseB．WorkspaceC．FieldD．DBEngine正確答案：C解析：在VBA中提拱了Active數(shù)據(jù)對(duì)象(ADO)作為數(shù)據(jù)庫(kù)的訪(fǎng)問(wèn)接口，ADO對(duì)象模型中包括5個(gè)主要對(duì)象，即Connection連接，代表到數(shù)據(jù)庫(kù)的連接；Recordset記錄集，代表數(shù)據(jù)庫(kù)記錄的一個(gè)集合；Command命令，代表一個(gè)SQL命令；Error錯(cuò)誤，代表數(shù)據(jù)庫(kù)訪(fǎng)問(wèn)中產(chǎn)生的意外；Field字段，代表記錄集中的字段數(shù)據(jù)信息。故選擇C選項(xiàng)。27．ADO對(duì)象模型中可以打開(kāi)并返回RecordSet對(duì)象的是()。A．只能是Connection對(duì)象B．只能是Command對(duì)象C．可以是Connection對(duì)象和Command對(duì)象D．不存在正確答案：C解析：Recordset對(duì)象只代表一個(gè)記錄集，這個(gè)記錄集是一個(gè)連接的數(shù)據(jù)庫(kù)中的表或者是Command對(duì)象的執(zhí)行結(jié)果返回的記錄集。Connection對(duì)象用于建立與數(shù)據(jù)庫(kù)的連接，通過(guò)連接可從應(yīng)用程序訪(fǎng)問(wèn)數(shù)據(jù)源，因此，可以打開(kāi)和返回RecordSet對(duì)象。Command對(duì)象在建立Connection后，可以發(fā)出命令操作數(shù)據(jù)源，也可以打開(kāi)并返回RecordSet對(duì)象。故選擇C選項(xiàng)。28．下列程序的功能是返回當(dāng)前窗體的記錄集：SubGetRecNum()DimrsAsObjectSetrs=【】MsgBoxrs．RecordCountEndSub為保證程序輸出記錄集(窗體記錄源)的記錄數(shù)，括號(hào)內(nèi)應(yīng)填入的語(yǔ)句是()。A．Me．RecordsetB．Me．RecordLocksC．Me．RecordSourceD．Me．RecordSelectors正確答案：A解析：程序中rs是對(duì)象變量，指代窗體對(duì)象，set語(yǔ)句是將當(dāng)前窗體中的記錄集對(duì)象賦給rs對(duì)象，Me表示當(dāng)前窗體，用Me指明記錄集來(lái)自于窗體，Recordset屬性設(shè)置窗體、報(bào)表、列表框控件或組合框控件的記錄源，用Me．Recordset代表指定窗體的記錄源，即記錄源來(lái)自于窗體。而RecordSourse屬性用來(lái)設(shè)置數(shù)據(jù)源，格式為RecordSourse=數(shù)據(jù)源。因此題目空缺處應(yīng)填Me．RecordSet。故選擇A選項(xiàng)。29．在VBA代碼調(diào)試過(guò)程中，能夠顯示出所有在當(dāng)前過(guò)程中的變量聲明及變量值信息的是()。A．快速監(jiān)視窗口B．監(jiān)視窗口C．立即窗口D．本地窗口正確答案：D解析：本地窗口內(nèi)部自動(dòng)顯示出所有在當(dāng)前過(guò)程中的變量聲明及變量值。本地窗口打開(kāi)后，列表中的第一項(xiàng)內(nèi)容是一個(gè)特殊的模塊變量。對(duì)于類(lèi)模塊，定義為Me。Me是對(duì)當(dāng)前模塊定義的當(dāng)前實(shí)例的引用。由于它是對(duì)象引用，因而可以展開(kāi)顯示當(dāng)前實(shí)例的全部屬性和數(shù)據(jù)成員。30．采用ADO對(duì)“職工管理．a(chǎn)ccdb”文件中“職工表”的字段“退休年齡”加5。SubSetAgePlus()DimcnAsNewADODB．Connection’連接對(duì)象DimrsAsNewADODB．Recordset’記錄集對(duì)象DimfdAsADODB．Field’字段對(duì)象DimstrConnectAsString’連接字符串DimstrSQLAsString’查詢(xún)字符串Setcn=CurrentProject．ConnectionstrSQL=＂Select退休年齡from職工表＂rs．OpenstrSQL，cn，adOpenDynamic，adLockOptimistic，adCmdTextSetfd=rs．Fields(＂退休年齡＂)DoWhileNotrs．EOF。fd=fd+5【】rs．MoveNextLooprs．Closecn．CloseSetrs=NothingSetcn=NothingEndSub程序【】處應(yīng)填寫(xiě)的語(yǔ)句是()。A．rs．Ed