1、Access2010數(shù)據(jù)庫基礎與應用期末綜合練習題 9 / 9數(shù)據(jù)庫基礎與應用期末綜合練習題（2014-6-16）(共有 33 題; 滿分: 36 分; 總時; 0 分鐘)一、單選題（每小題1分)1、在 Access2010 中的 VBA 過程里，要運行宏可以使用 DoCmd 對象的_方法。 AOpen BRunMacro CClose DQuery答案: B 2、在宏中，OpenReport 操作可用來打開指定的_。 A查詢 B狀態(tài)欄 C 窗體 D報表答案: D 3、關于宏的執(zhí)行，以下說法不正確的是_。 A在“導航窗格”，選擇“宏”對象列表中的某個宏名并雙擊，可以直接運行該宏中的第一個子宏的

2、所有宏操作 B在“導航窗格”，選擇“宏”對象列表中的某個宏名并雙擊，可以直接運行該宏中的第二個子宏的所有宏操作 C可以在一個宏中運行另一個宏 D在一個宏中可以含有IF邏輯塊答案: B 4、在宏中，用于顯示所有記錄的宏命令是_。 AMsgboxAllRecords BShowAllRecords CSetProperty DSaveRecords答案: B 5、在 VBA 中，表達式 (52 Mod 8) >= 4 的值是_。 ATrue BFalse CAnd D. Or答案: B 6、表達式 IIf(23 5.5 <= 3 Or 5 >= 6, 68, 176) 的結果是_

3、。 A5 B6 C68 D176 注意：執(zhí)行整除之前，要先把除數(shù)四舍五入。 請另外試試表達式 IIf(23 5.4 <= 3 Or 5 >= 6, 68, 176) 的結果。答案: C 7、執(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. 275答案: B 8、設 x=9，執(zhí)行下列程序段后，變量 t 的值是_。 y = x4 +24 If y<>

4、30 Then x = x + y t = x Mod 12 A. 1 B. 2 C. 3 D. 4答案: C 9、 在 VBA 中，聲明函數(shù)過程的關鍵字是_。 ADim BConst CFunction DSub答案: C 10、對 VBA 中的邏輯值進行算術運算時，True 值被當做 -1，F(xiàn)alse 當做_。 A1 B2 C0 D3答案: C 11、在 VBA 中，類型說明符 # 表示的數(shù)據(jù)類型是_。 A整型 B長整型 C單精度型 D雙精度答案: D 12、下列語句中，定義窗體的加載事件過程的頭語句是_。 APrivate Sub Form_Chang() BPrivate Sub Fo

5、rm_LostFocus() CPrivate Sub Form_Load() DPrivate Sub Form_Open()答案: C 13、現(xiàn)有一個已經建好的窗體，窗體中有一個命令按鈕，單擊此按鈕，將打開“產品數(shù)量統(tǒng)計”報表，如果采用VBA 代碼完成，下面語句正確的是_。 ADocmd.OpenForm "產品數(shù)量統(tǒng)計" BDocmd.OpenView "產品數(shù)量統(tǒng)計" CDocmd.OpenTable "產品數(shù)量統(tǒng)計" DDocmd.OpenReport "產品數(shù)量統(tǒng)計"答案: D 14、表達式 IIf(7

6、 Mod 5 > 3, 60, IIf(23 > 28, 80, 100) 的運算結果是_。 A60 B80 C100 D160答案: C 15、在 VBA 中，變量聲明語句“ Dim a!, b AS integer”中的變量 a 的類型是_。 A整型 B單精度型 C長整型 D變體型答案: B 16、在 VBA 中，“ Dim a(3,3) AS Boolean”語句定義了一個數(shù)組，該數(shù)組中的全部元素都初始化為_。 ATrue BFalse C-1 D1答案: B 17、在 VBA 某個模塊中，有如下聲明語句 Dim a(6,10) AS integer 那么數(shù)組 a(6,10)

7、 總共有_個元素。 A16 B60 C70 D77答案: D 18、以下 VBA 程序段運行后，變量 j 的值是_。 k = 10 j = 0 Do k = k + 10 j = j + 1 Loop Until k > 20 A1 B2 C4 D10答案: B 19、以下 VBA 程序段運行后，變量 j 的值是_。 y = 89 j = "不及格" Do While y > 60 j = IIf(y < 70, "及格", IIf(y < 90, "良好", "優(yōu)秀") y = y - 5

8、0 Loop A"不及格" B"及格" C"良好" D"優(yōu)秀"答案: C 20、以下 VBA 代碼程序運行結束后，變量 a 的值是_。 a=0 b=101 Do b=b-20 a=a+b Loop While b>80 A60 B140 C142 D160 答案: C 21、以下 VBA 代碼程序運行結束后，數(shù)組元素 a(12) 的值是_。 Dim a(12) As Long, i As Long i=0 Do Until i>12 a(i)=i2 - i i=i+1 Loop A1 B128 C132

9、 D144答案: C 22、假定有如下的 Function 過程： Function ppfun(x As Single, y As Single) ppfun=x3-y2 End Function在窗體上添加一個命令按鈕（名為 cmd10）,然后編寫如下事件過程： Private Sub cmd10_Click() Dim a As Single, b As Single a = 5 b = 4 MsgBox ppfun(a,b) mod 50 End Sub打開窗體運行后，單擊命令按鈕，消息框中的輸出內容是_。 A50 B25 C9 D109答案: C 23、在窗體上添加一個命令按鈕（名為

10、 cmd2）,然后編寫如下事件過程： Private Sub cmd2_Click() Dim pi As Single, n As Integer pi = 3.14 n = Len(Str(pi) & Space(2) & "是本字符串長度") MsgBox n End Sub打開窗體運行后，單擊命令按鈕，消息框中的輸出內容是_。 A11 B12 C13 D14答案: D 24、在窗體上添加一個命令按鈕（名為 cmd13）,然后編寫如下事件過程： Private Sub cmd13_Click() Dim x As String, y As String

11、 x = "龍洞華美路中山大學新華學院法學院" y = "2006級法學專業(yè)學生" MsgBox Mid(x,6,4) & Right(x,3) & Left(y,9) End Sub打開窗體運行后，單擊命令按鈕，消息框中的輸出內容是_。 A龍洞華美路中山大學新華學院法學院2006級法學專業(yè)學生 B中山大學新華學院法學院2006級法學專業(yè)學生 C中山大學法學院2006級法學專業(yè)學生 D中山大學法學院2006級法學專業(yè)答案: D 25、下列程序段,建立如圖所示的數(shù)組d（下標從1開始），填寫所缺部分： 1 2 3 4 5 6 2 1 2 3

12、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答案: C 28、在窗體上添加一個命令按鈕（名為 cmd），然后編寫如下事件過程。單擊該命令按鈕，便將數(shù)組 p(6,8)中各個元素都賦予其對應的兩個下標值平方之和，請完善程序。 Private Sub cmd_Click() Dim p(6,8) As int

13、eger, 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. i2+j C. i+j2 D. i2+j2答案: D 29、在窗體上已經建立1個文本框控件txt1和1個命令按鈕控件cmd1。請完善程序，使之完成以下操作： 程序運行時，文本框上顯示“VBA程序設計”，命令按鈕的標題上顯示“隱藏”； 單擊命令按鈕時文本框消失； 單擊窗體時顯示出文本框。 Private Sub cmd1_Clic() txt1.Visible = Fal

14、se End Sub Private Sub Form_Click() txt1._ = True '選答案 End Sub Private Sub Form_Load() txt1.Value = "VBA程序設計" txt1.Visible = True cmd1.Caption = "隱藏" End Sub A. Enable B. Value C. Visible D. Caption答案: C 30、在窗體上已經建立1個標簽控件lab1和1個命令按鈕控件cmd1。請完善程序，使之完成以下操作： 打開窗體后單擊命令按鈕，則通過輸入對話框分

15、別輸入3個數(shù)值，然后求出其中最大的數(shù)，并將最大的數(shù)顯示在標簽lab1中。 Private Sub cmd1_Click() Dim a As Single, b As Single, c As Single Dim k As Single a = Val(InputBox("輸入第一個數(shù)") b = Val(InputBox("輸入第二個數(shù)") c = Val(InputBox("輸入第三個數(shù)") If a<b Then k = b Else k = a End If If k<c Then k = c End If _

16、'選答案 End Sub A. lab1.Value = aB. lab1.Value = b C. lab1.Caption = cD. lab1.Caption = k答案: D 二、多選題(每小題1分)26、下面_是合法的變量名。 ASTR-NAME BCase CFOR_99 Dabc2006 E6A答案: CD 27、在 VBA 中，對于 Sub (或 Function) 過程中的每一個形參,可用于聲明其參數(shù)傳遞方式的關鍵字包括_。 AByMeBByValCByRef DByVBAEBySub答案: BC 三、填空題（每小題2分）31、 7 2 Mod 11 + 7 4 *

17、9 / 5 Mod 6 上述表達式的值是_。答案: 632、通過編程求出結果。 把 9786 表示為兩個加數(shù)之和，使其中一個加數(shù)能被91整除，而另一個加數(shù)能被87整除。請求出：在這兩個加數(shù)中，能被91整除的加數(shù)等于多少？程序：方法1：Private Sub Cmd1_Click() Dim i As Integer, j As Integer, k As Integer k = 9786 For i = 87 To k Step 87 For j = 91 To k Step 91 If i + j = k Then MsgBox "能被91整除的加數(shù)是： " &

18、j Exit For End If Next j Next iEnd Sub答題：4914程序：方法2：Private Sub Cmd1_Click() Dim i As Integer, j As Integer, k As Integer k = 9786 For i = 87 To k Step 87 j = k - i If j Mod 91 = 0 Then Exit For Next i MsgBox "能被91整除的加數(shù)是： " & j & " 能被87整除的加數(shù)是： " & iEnd Sub答題：491433、通過編程求出結果。 求 S = 1/5 + 1/10 + 1/15 + 1/20 + 1/25 + + 1/(5*n) + 的前 n 項之和，當 S 第一次大于或等