Access2010《數(shù)據(jù)庫(kù)基礎(chǔ)與應(yīng)用》期末綜合練習(xí)題

1、Access2010數(shù)據(jù)庫(kù)基礎(chǔ)與應(yīng)用期末綜合練習(xí)題(注意！宏的概念、作用可以在課本P193找到，也可以打開(kāi)宏的操作，在目錄查看其作用)第1 題: (單選題, 1 分) 在 Access2010 中的 VBA 過(guò)程里，要運(yùn)行宏可以使用 DoCmd 對(duì)象的 _方法。 AOpen BRunMacro CClose DQueryA選AB選BC選CD選D答案: B 第2 題: (單選題, 1 分) 在宏中，OpenReport 操作可用來(lái)打開(kāi)指定的_。 A查詢 B狀態(tài)欄 C 窗體 D報(bào)表A選AB選BC選CD選D答案: D 第3 題: (單選題, 1 分) 關(guān)于宏的執(zhí)行，以下說(shuō)法不正確的是_。 A在“導(dǎo)航

2、窗格”，選擇“宏”對(duì)象列表中的某個(gè)宏名并雙擊，可以直接運(yùn)行該宏中的第一個(gè)子宏的所有宏操作 B在“導(dǎo)航窗格”，選擇“宏”對(duì)象列表中的某個(gè)宏名并雙擊，可以直接運(yùn)行該宏中的第二個(gè)子宏的所有宏操作 C可以在一個(gè)宏中運(yùn)行另一個(gè)宏 D在一個(gè)宏中可以含有IF邏輯塊A選AB選BC選CD選D答案: B 第4 題: (單選題, 1 分)在宏中，用于顯示所有記錄的宏命令是_。 AMsgboxAllRecords BShowAllRecords CSetProperty DSaveRecordsA選AB選BC選CD選D答案: B 第5 題: (單選題, 1 分) 在 VBA 中，表達(dá)式 (52 Mod 8) = 4

3、的值是_?！居昧⒓创翱谒恪?ATrue BFalse CAnd D. OrA選AB選BC選CD選D答案: B 第6 題: (單選題, 1 分) 表達(dá)式 IIf(23 5.5 = 6, 68, 176) 的結(jié)果是_。 A5 B6 C68 D176A選AB選BC選CD選D答案: C 第7 題: (單選題, 1 分)執(zhí)行下列程序段后，變量 P 的值是_。 Dim W As Single Dim P As Single W = 68.5 If W = 50 Then P = W * 4 Else P = W * 2 End If A. 68.5 B. 137 C. 205.5 D. 275A選AB選B

4、C選CD選D答案: B 第8 題: (單選題, 1 分)【如何調(diào)試？我的結(jié)果是4？】設(shè) x=9，執(zhí)行下列程序段后，變量 t 的值是_。 y = x4 +24 If y30 Then x = x + y t = x Mod 12 A. 1 B. 2 C. 3 D. 4第8題Private Sub Command0_Click() x = 9 y = x 4 + 2 4 If y 30 Then x = x + y t = x Mod 12MsgBox tEnd Sub （增加一個(gè)條件語(yǔ)句：x=9，還有msgbox）A選AB選BC選CD選D答案: C 第9 題: (單選題, 1 分) 在 VBA

5、中，聲明函數(shù)過(guò)程的關(guān)鍵字是_。 ADim BConst CFunction DSubA選AB選BC選CD選D答案: C 第10 題: (單選題, 1 分) 對(duì) VBA 中的邏輯值進(jìn)行算術(shù)運(yùn)算時(shí)，True 值被當(dāng)做 -1，F(xiàn)alse 當(dāng)做_。 A1 B2 C0 D3A選AB選BC選CD選D答案: C 第11 題: (單選題, 1 分)【課本P223頁(yè)】 在 VBA 中，類型說(shuō)明符 # 表示的數(shù)據(jù)類型是_。 A整型 B長(zhǎng)整型 C單精度型 D雙精度A選AB選BC選CD選D答案: D 第12 題: (單選題, 1 分)【課本P216217】下列語(yǔ)句中，定義窗體的加載事件過(guò)程的頭語(yǔ)句是_。 APriva

6、te Sub Form_Chang() BPrivate Sub Form_LostFocus() CPrivate Sub Form_Load() DPrivate Sub Form_Open()A選AB選BC選CD選D答案: C 第13 題: (單選題, 1 分) 現(xiàn)有一個(gè)已經(jīng)建好的窗體，窗體中有一個(gè)命令按鈕，單擊此按鈕，將打開(kāi)“產(chǎn)品數(shù)量統(tǒng)計(jì)”報(bào)表，如果采用VBA 代碼完成，下面語(yǔ)句正確的是_。 ADocmd.OpenForm 產(chǎn)品數(shù)量統(tǒng)計(jì) BDocmd.OpenView 產(chǎn)品數(shù)量統(tǒng)計(jì) CDocmd.OpenTable 產(chǎn)品數(shù)量統(tǒng)計(jì) DDocmd.OpenReport 產(chǎn)品數(shù)量統(tǒng)計(jì)A選AB

7、選BC選CD選D答案: D 第14 題: (單選題, 1 分) 表達(dá)式 IIf(7 Mod 5 3, 60, IIf(23 28, 80, 100) 的運(yùn)算結(jié)果是_。 A60 B80 C100 D160A選AB選BC選CD選D答案: C 第15 題: (單選題, 1 分) 在 VBA 中，變量聲明語(yǔ)句“ Dim a!, b AS integer”中的變量 a 的類型是_。 A整型 B單精度型 C長(zhǎng)整型 D變體型A選AB選BC選CD選D答案: B 第16 題: (單選題, 1 分)【課本P227概念知識(shí)】 在 VBA 中，“ Dim a(3,3) AS Boolean”語(yǔ)句定義了一個(gè)數(shù)組，該數(shù)組

8、中的全部元素都初始化為_(kāi)。 ATrue BFalse C-1 D1A選AB選BC選CD選D答案: B 第17 題: (單選題, 1 分)【數(shù)組的概念】 在 VBA 某個(gè)模塊中，有如下聲明語(yǔ)句 Dim a(6,10) AS integer那么數(shù)組 a(6,10) 總共有_個(gè)元素。 A16 B60 C70 D77A選AB選BC選CD選D答案: D 第18 題: (單選題, 1 分) 以下 VBA 程序段運(yùn)行后，變量 j 的值是_。 k = 10 j = 0 Do k = k + 10 j = j + 1 Loop Until k 20 A1 B2 C4 D10A選AB選BC選CD選D答案: B 第

9、19 題: (單選題, 1 分) 以下 VBA 程序段運(yùn)行后，變量 j 的值是_。 y = 89 j = 不及格 Do While y 60 j = IIf(y 70, 及格, IIf(y 80 A60 B140 C142 D160 A選AB選BC選CD選D答案: C 第21 題: (單選題, 1 分)以下 VBA 代碼程序運(yùn)行結(jié)束后，數(shù)組元素 a(12) 的值是_。 Dim a(12) As Long, i As Long i=0 Do Until i12 a(i)=i2 - i i=i+1 Loop A1 B128 C132 D144A選AB選BC選CD選D答案: C 問(wèn)第22 題: (單

10、選題, 1 分)【對(duì)過(guò)程調(diào)試不熟】假定有如下的 Function 過(guò)程： Function ppfun(x As Single, y As Single) ppfun=x3-y2 End Function在窗體上添加一個(gè)命令按鈕（名為 cmd10）,然后編寫(xiě)如下事件過(guò)程： Private Sub cmd10_Click() Dim a As Single, b As Single a = 5 b = 4 MsgBox ppfun(a,b) mod 50 End Sub打開(kāi)窗體運(yùn)行后，單擊命令按鈕，消息框中的輸出內(nèi)容是_。 A50 B25 C9 D109第22題Private Sub Comma

11、nd0_Click() Dim a As Single, b As Single a = 5 b = 4 MsgBox ppfun(a, b) Mod 50End Sub Function ppfun(x As Single, y As Single) ppfun = x 3 - y 2 End Function （過(guò)程寫(xiě)在程序的外面）A選AB選BC選CD選D答案: C 第23 題: (單選題, 1 分)在窗體上添加一個(gè)命令按鈕（名為 cmd2）,然后編寫(xiě)如下事件過(guò)程： Private Sub cmd2_Click() Dim pi As Single, n As Integer pi = 3

12、.14 n = Len(Str(pi) & Space(2) & 是本字符串長(zhǎng)度) MsgBox n End Sub打開(kāi)窗體運(yùn)行后，單擊命令按鈕，消息框中的輸出內(nèi)容是_。 A11 B12 C13 D14第23題 Private Sub Command0_Click() Dim pi As Single, n As Integer pi = 3.14 n = Len(Str(pi) & Space(2) & 是本字符串長(zhǎng)度)MsgBox nEnd SubA選AB選BC選CD選D答案: D 第24 題: (單選題, 1 分)在窗體上添加一個(gè)命令按鈕（名為 cmd13）,然后編寫(xiě)如下事件過(guò)程： Pr

13、ivate Sub cmd13_Click() Dim x As String, y As String x = 龍洞華美路中山大學(xué)新華學(xué)院法學(xué)院 y = 2006級(jí)法學(xué)專業(yè)學(xué)生 MsgBox Mid(x,6,4) & Right(x,3) & Left(y,9) End Sub打開(kāi)窗體運(yùn)行后，單擊命令按鈕，消息框中的輸出內(nèi)容是_。 A龍洞華美路中山大學(xué)新華學(xué)院法學(xué)院2006級(jí)法學(xué)專業(yè)學(xué)生 B中山大學(xué)新華學(xué)院法學(xué)院2006級(jí)法學(xué)專業(yè)學(xué)生 C中山大學(xué)法學(xué)院2006級(jí)法學(xué)專業(yè)學(xué)生 D中山大學(xué)法學(xué)院2006級(jí)法學(xué)專業(yè)A選AB選BC選CD選D答案: D 問(wèn)第25 題: (單選題, 1 分) 下列程序段

14、,建立如圖所示的數(shù)組d（下標(biāo)從1開(kāi)始），填寫(xiě)所缺部分： 1 2 3 4 5 6 2 1 2 3 4 5 3 2 1 2 3 4 4 3 2 1 2 3 5 4 3 2 1 2 6 5 4 3 2 1 Dim d(1 To 6, 1 To 6) For j = 1 To 6 For k = 1 To 6 d(j,k) = Abs( _ ) + 1 選答案 Next k Next j Aj Bj-k+1 Cj-k D2*j-k第25題Private Sub Command0_Click() Dim d(1 To 6, 1 To 6) For j = 1 To 6 For k = 1 To 6 d(

15、j, k) = Abs(j - k) + 1Text1 = Text1 & d(j, k) Next k Next jEnd Sub （此題需建立文本框與按鈕兩個(gè)控件）A選AB選BC選CD選D答案: C 第26 題: (多選題, 1 分)【關(guān)于合法變量名】下面_是合法的變量名。 ASTR-NAME BCase CFOR_99 Dabc2006 E6AA選AB選BC選CD選DE選E答案: CD 第27 題: (多選題, 1 分)【P258頁(yè)，聲明參數(shù)傳遞方式的關(guān)鍵字】 在 VBA 中，對(duì)于 Sub (或 Function) 過(guò)程中的每一個(gè)形參,可用于聲明其參數(shù)傳遞方式的關(guān)鍵字包括_。 AByMe

16、 BByVal CByRef DByVBA EBySubA選AB選BC選CD選DE選E答案: BC 問(wèn)第28 題: (單選題, 1 分) 在窗體上添加一個(gè)命令按鈕（名為 cmd），然后編寫(xiě)如下事件過(guò)程。單擊該命令按鈕，便將數(shù)組 p(6,8)中各個(gè)元素都賦予其對(duì)應(yīng)的兩個(gè)下標(biāo)值平方之和，請(qǐng)完善程序。 Private Sub cmd_Click() Dim p(6,8) As integer, i As integer, j As integer For i=0 To 6 For j=0 To 8 p(i,j) = _ 選答案 Next j Next i End Sub A. (i+j)2 B. i

17、2+j C. i+j2 D. i2+j2第28題下標(biāo)值平方之和，即求i的平方與j的平方相加后的值，運(yùn)算式子為：i2+j2。（下標(biāo)即分別為i與j）A選AB選BC選CD選D答案: D 問(wèn)第29 題: (單選題, 1 分) 在窗體上已經(jīng)建立1個(gè)文本框控件txt1和1個(gè)命令按鈕控件cmd1。請(qǐng)完善程序，使之完成以下操作： 程序運(yùn)行時(shí)，文本框上顯示“VBA程序設(shè)計(jì)”，命令按鈕的標(biāo)題上顯示“隱藏”； 單擊命令按鈕時(shí)文本框消失； 單擊窗體時(shí)顯示出文本框。 Private Sub cmd1_Clic() txt1.Visible = False End Sub Private Sub Form_Click()

18、 txt1._ = True 選答案 End Sub Private Sub Form_Load() txt1.Value = VBA程序設(shè)計(jì) txt1.Visible = True cmd1.Caption = 隱藏 End Sub A. Enable B. Value C. Visible D. CaptionA選AB選BC選CD選D答案: C 第30 題: (單選題, 1 分)【caption？】第30題將程序復(fù)制到“代碼生成器”窗口，然后在橫線部分將答案一個(gè)個(gè)代進(jìn)去驗(yàn)算即可 在窗體上已經(jīng)建立1個(gè)標(biāo)簽控件lab1和1個(gè)命令按鈕控件cmd1。請(qǐng)完善程序，使之完成以下操作： 打開(kāi)窗體后單擊命

19、令按鈕，則通過(guò)輸入對(duì)話框分別輸入3個(gè)數(shù)值，然后求出其中最大的數(shù)，并將最大的數(shù)顯示在標(biāo)簽lab1中。 Private Sub cmd1_Click() Dim a As Single, b As Single, c As Single Dim k As Single a = Val(InputBox(輸入第一個(gè)數(shù)) b = Val(InputBox(輸入第二個(gè)數(shù)) c = Val(InputBox(輸入第三個(gè)數(shù)) If ab Then k = b Else k = a End If If kc Then k = c End If _ 選答案 End Sub A. lab1.Value = a B. lab1.Value = b C. lab1.Caption = c D. lab1.Caption = kA選AB選BC選CD選D答案: D 第31 題: (填空題, 2 分) 7 2 Mod 11 + 7 4 * 9 / 5 Mod 6 上述表達(dá)式的值是_。_ 答案:Lower