Access2010《數(shù)據(jù)庫(kù)基礎(chǔ)與應(yīng)用》期末綜合練習(xí)題PAGE15Access2010《數(shù)據(jù)庫(kù)基礎(chǔ)與應(yīng)用》期末綜合練習(xí)題PAGE15/15Access2010《數(shù)據(jù)庫(kù)基礎(chǔ)與應(yīng)用》期末綜合練習(xí)題(注意！宏的概念、作用可以在課本P193找到，也可以打開(kāi)宏的操作，在目錄查看其作用)第1題:(單選題,1分)在Access2010中的VBA過(guò)程里，要運(yùn)行宏可以使用DoCmd對(duì)象的 方法。A．Open B．RunMacro C．Close [AABCD答案:B第2題:(單選題,1分)在宏中，OpenReport操作可用來(lái)打開(kāi)指定的 。A．查詢(xún) B．狀態(tài)欄 C．窗體 D．報(bào)[A]選ABCD答案:D第3題:(單選題,1分)關(guān)于宏的執(zhí)行，以下說(shuō)法不正確的是 ?？梢灾苯舆\(yùn)行該宏中的第一個(gè)子宏的所有宏操作可以直接運(yùn)行該宏中的第二個(gè)子宏的所有宏操作可以在一個(gè)宏中運(yùn)行另一個(gè)宏DIFABCD答案:B第4題:(單選題,1分)在宏中，用于顯示所有記錄的宏命令是 。A．MsgboxAllRecordsB．ShowAllRecordsC．SetPropertyD．SaveRecordsABCD答案:B第5題:(單選題,1分)在VBA中，表達(dá)式(5^2Mod8)>=4的值是 ?！居昧⒓创翱谒恪緼．True B．False C．And D.[AABCD答案:B第6題:(單選題,1分)表達(dá)式IIf(23\5.5<=3Or5>=6,68,176)的結(jié)果是 。A．5 B．6 C．68 [AABCD答案:C第7題:(單選題,1分)執(zhí)行下列程序段后，變量P的值是 。DimWAsSingleDimPAsSingleW=68.5IfW<=50ThenP=W*4ElseP=W*2EndIfA.68.5 B.137 C.205.5 D.[AABCD答案:B第8題:(單選題,1分)【如何調(diào)試？我的結(jié)果是4？設(shè)x=9，執(zhí)行下列程序段后，變量t的值是 。y=x\4+2^4Ify<>30Thenx=x+t=xMod12A.1 B.2 C.3 D.4第8題第8題PrivateSubCommand0_Click()x=9y=x\4+2^4Ify<>30Thenx=x+yt=xMod12MsgBoxtdb（）BCD答案:C第9題:(單選題,1分)在VBA中，聲明函數(shù)過(guò)程的關(guān)鍵字是 。A．Dim B．Const C．Function [AABCD答案:C第10題:(單選題,1分)對(duì)VBA中的邏輯值進(jìn)行算術(shù)運(yùn)算時(shí)，True值被當(dāng)做-1，F(xiàn)alse當(dāng)做 。A．1 B．2 C．0 [AABCD答案:C第11題:(單選題,1分)【課本P223頁(yè)】在VBA中，類(lèi)型說(shuō)明符#表示的數(shù)據(jù)類(lèi)型是 。A．整型 B．長(zhǎng)整型 C．單精度型 D．雙精度ABCD答案:D12題:12題:下列語(yǔ)句中，定義窗體的加載事件過(guò)程的頭語(yǔ)句是 。A．PrivateSubForm_Chang()B．PrivateSubForm LostFocus()C．PrivateSubForm_Load()D．PrivateSubForm_Open()ABCD答案:C第13題:(單選題,1分)現(xiàn)有一個(gè)已經(jīng)建好的窗體，窗體中有一個(gè)命令按鈕，單擊此按鈕，將打開(kāi)“產(chǎn)品數(shù)量統(tǒng)計(jì)”報(bào)表，如果采用VBA代碼完成，下面語(yǔ)句正確是 。Docmd.OpenForm"產(chǎn)品數(shù)量統(tǒng)計(jì)"Docmd.OpenView"產(chǎn)品數(shù)量統(tǒng)計(jì)"C．Docmd.OpenTable"產(chǎn)品數(shù)量統(tǒng)計(jì)"D．Docmd.OpenReportABCD答案:D第14題:(單選題,1分)表達(dá)式IIf(7Mod5>3,60,IIf(2^3>28,80,100))的運(yùn)算結(jié)果是 。A．60 B．80 C．100 [AABCD答案:C15題:15題:在VBA中，變量聲明語(yǔ)句“Dima!,bASinteger”中的變量a類(lèi)型是 。A．整型 B．單精度型 C．長(zhǎng)整型 D．變體型ABCD答案:B16題:16題:在VBA中，“Dima(3,3)ASBoolean”語(yǔ)句定義了一個(gè)數(shù)組，該組中的全部元素都初始化為 。A．True B．False C．-1 D．1ABCD答案:B17題:(單選題,1VBA某個(gè)模塊中，有如下聲明語(yǔ)句Dima(6,10)ASinteger那么數(shù)組a(6,10)總共有 個(gè)元素。A．16 B．60 C．70 [AABCD答案:D第18題:(單選題,1分)以下VBA程序段運(yùn)行后，變量j的值是 。kj=10=0Dok=k+10j=j+1LoopUntilk>20A．1 B．2 C．4 D．10ABCD答案:B第19題:(單選題,1分)以下VBA程序段運(yùn)行后，變量j的值是 。y=89j="不及格"DoWhiley>60j=IIf(y<70,"及格",IIf(y<90,"良好","優(yōu)秀"))y=y-50LoopA．"不及格" B．"及格" C．"良好" D．"優(yōu)秀[A]選ABCD答案:C第20題:(單選題,1分)以下VBA代碼程序運(yùn)行結(jié)束后，變量a的值是 。a=0b=101Dob=b-20a=a+bLoopWhileb>80A．60 B．140 C．142 [AABCD答案:C第21題:(單選題,1分)以下VBA代碼程序運(yùn)行結(jié)束后，數(shù)組元素a(12)的值是 。Dima(12)AsLong,iAsLongi=0Do Until a(i)=i^2-ii=i+1LoopA．1 B．128 C．132 [AABCD答案:C問(wèn)問(wèn)22題:假定有如下的Function過(guò)程：Functionppfun(xAsSingle,yAsSingle)ppfun=x^3-y^2EndFunction在窗體上添加一個(gè)命令按鈕（名為cmd10）,然后編寫(xiě)如下事件過(guò)程：PrivateSubcmd10_Click()DimaAsSingle,bAsa=5b=4MsgBox ppfun(a,b)modEndSub打開(kāi)窗體運(yùn)行后，單擊命令按鈕，消息框中的輸出內(nèi)容是 。第22題PrivateSubCommand0_Click()DimaAsSingle,bAsSinglea=第22題PrivateSubCommand0_Click()DimaAsSingle,bAsSinglea=5b=4MsgBoxppfun(a,b)Mod50EndSubFunctionppfun(xAsSingle,yAsSingle)ppfun=x^3-y^2EndFunction （過(guò)程寫(xiě)在程序的外面）BCD答案:C第23題:(單選題,1分)在窗體上添加一個(gè)命令按鈕（名為cmd2）,然后編寫(xiě)如下事件過(guò)程：PrivateSubcmd2_Click()DimpiAsSingle,nAspi=3.14n=Len(Str(pi)&Space(2)&MsgBoxnEndSub打開(kāi)窗體運(yùn)行后，單擊命令按鈕，消息框中的輸出內(nèi)容是 。第23題PrivateSubCommand0_Click()DimpiAsSingle,nAsIntegerpi=3.14n=Len(Str(pi)&Space(2)&"第23題PrivateSubCommand0_Click()DimpiAsSingle,nAsIntegerpi=3.14n=Len(Str(pi)&Space(2)&"是本字符串長(zhǎng)度")MsgBoxnEndSubBCD答案:D第24題:(單選題,1分)在窗體上添加一個(gè)命令按鈕（名為cmd13）,然后編寫(xiě)如下事件過(guò)程：PrivateSubcmd13_Click()DimxAsString,yAsStringx="龍洞華美路中ft大學(xué)新華學(xué)院法學(xué)院"y="2006級(jí)法學(xué)專(zhuān)業(yè)學(xué)生"MsgBoxMid(x,6,4)&Right(x,3)&Left(y,9)EndSub打開(kāi)窗體運(yùn)行后，單擊命令按鈕，消息框中的輸出內(nèi)容是 A．龍洞華美路中ft大學(xué)新華學(xué)院法學(xué)院2006級(jí)法學(xué)專(zhuān)業(yè)學(xué)B．中ft大學(xué)新華學(xué)院法學(xué)院2006級(jí)法學(xué)專(zhuān)業(yè)學(xué)生C．中ft大學(xué)法學(xué)院2006級(jí)法學(xué)專(zhuān)業(yè)學(xué)生D．中ft2006[AABCD答案:D問(wèn)第25題:(單選題,1分)下列程序段,建立如圖所示的數(shù)組d（下標(biāo)從1開(kāi)始），填寫(xiě)所缺部分1 2 3 4 5 62 1 2 3 4 53 2 1 2 3 44 3 2 1 2 35 4 3 2 1 26 5 4 3 2 1Dimd(1To6,1To6)Forj=1To6Fork=1To6d(j,k)=Abs( )+1 NextkNextj第25題PrivateSubCommand0_Click()Dimd(1To6,1To6)Forj=1To6Fork=1To6第25題PrivateSubCommand0_Click()Dimd(1To6,1To6)Forj=1To6Fork=1To6d(j,k)=Abs(j-k)+1Text1=Text1 & d(j,k)NextkNextjEndSub （兩個(gè)控件）BCD答案:C26題:(多選題,1分)【關(guān)于合法變量名26題:下面 是合法的變量名。A．STR-NAME B．Case C．FOR_99 D．a(chǎn)bc2006 [AABCDE答案:CD27題:(多選題,1分)【P258頁(yè)27題:在VBA中，對(duì)于Sub(或Function)過(guò)程中的每一個(gè)形參,可用于明其參數(shù)傳遞方式的關(guān)鍵字包括 。ByMeByValC．ByRefD．ByVBAE．BySub[A]選ABCDE答案:BC問(wèn)問(wèn)28題:在窗體上添加一個(gè)命令按鈕（名為cmd），然后編寫(xiě)如下事件過(guò)程。單擊該命令按鈕，便將數(shù)組p(6,8)中各個(gè)元素都賦予其對(duì)應(yīng)的兩個(gè)下標(biāo)值平方之和，請(qǐng)完善程序。PrivateSubcmd_Click()Dimp(6,8)Asinteger,iAsinteger,jAsintegerFori=0To6Forj=0To8p(i,j) = NextNextiEndSub

'選答案第28題下標(biāo)值平方之和，即求i的平方與第28題下標(biāo)值平方之和，即求i的平方與j式子為：i^2+j^2。（下標(biāo)即分別為ij）BCD答案:D問(wèn)問(wèn)29題:(單選題,1分)1txt11cmd1。請(qǐng)完善程序，使之完成以下操作：程序運(yùn)行時(shí)，文本框上顯示“VBA程序設(shè)計(jì)”，命令按鈕的標(biāo)題上顯示“隱藏”；單擊命令按鈕時(shí)文本框消失；單擊窗體時(shí)顯示出文本框。PrivateSubcmd1_Clic()txt1.Visible=FalseEndSubPrivateSubForm_Click()txt1. =True EndSubPrivateSubForm_Load()txt1.Value="VBAtxt1.Visible=Truecmd1.Caption="隱藏"EndSubA.Enable B.Value C.Visible D.[AABCD答案:C第30題:(單選題,1分)【caption？】1lab11cmd1。請(qǐng)完善程序，使之完成以下操作：打開(kāi)窗體后單擊命令按鈕，則通過(guò)輸入對(duì)話(huà)框分別輸入3個(gè)數(shù)值，然lab1PrivateSubcmd1_Click()第30第30題然后在橫線(xiàn)部分將答案一個(gè)個(gè)代進(jìn)去驗(yàn)算即可a=Val(InputBox("輸入第一個(gè)數(shù)"))b=Val(InputBox("輸入第二個(gè)數(shù)"))c=Val(InputBox("輸入第三個(gè)數(shù)"))Ifa<bThenk=bElsek=aEndIfIfk<cThenk=cEndIf EndSublab1.Value=alab1.Value=blab1.Caption=clab1.Caption=[AABCD答案:D第31題:(填空題,2分)7^2Mod11+7\4*9/5Mod6上述表達(dá)式的值是 。<空1> 答案:Lower(Trim(GetFill(1)))="6"32題:(填空題,2分)通過(guò)編程求出結(jié)果。把9786表示為兩個(gè)加數(shù)之和，使其中