2010年9月計(jì)算機(jī)等級(jí)考試二級(jí)Access試試題

    則由關(guān)系R得到關(guān)系T的操作是
    A)選擇
    B)投影
    C)交
    D)并
    (11)下列關(guān)于關(guān)系數(shù)據(jù)庫(kù)中數(shù)據(jù)表的描述，正確的是
    A)數(shù)據(jù)表相互之間存在聯(lián)系，但用獨(dú)立的文件名保存
    B)數(shù)據(jù)表相互之間存在聯(lián)系，是用表名表示相互間的聯(lián)系
    C)數(shù)據(jù)表相互之間不存在聯(lián)系，完全獨(dú)立
    D)數(shù)據(jù)表既相對(duì)獨(dú)立，又相互聯(lián)系
    (12)下列對(duì)數(shù)據(jù)輸入無(wú)法起到約束作用的是
    A)輸入掩碼
    B)有效性規(guī)則
    C)字段名稱(chēng)
    D)數(shù)據(jù)類(lèi)型
    (13)Access中，設(shè)置為主鍵的字段
    A)不能設(shè)置索引
    B)可設(shè)置為“有(有重復(fù))”索引
    C)系統(tǒng)自動(dòng)設(shè)置索引
    D)可設(shè)置為“無(wú)”索引
    (14)輸入掩碼字符“&”的含義是
    A)必須輸入字母或數(shù)字
    B)可以選擇輸入字母或數(shù)字
    C)必須輸入一個(gè)任意的字符或一個(gè)空格
    D)可以選擇輸入任意的字符或一個(gè)空格
    (15)在A(yíng)ccess中，如果不想顯示數(shù)據(jù)表中的某些字段，可以使用的命令是
    A)隱藏
    B)刪除
    C)凍結(jié)
    D)篩選
    (16)通配符“#”的含義是
    A)通配任意個(gè)數(shù)的字符
    B)通配任何單個(gè)字符
    C)通配任意個(gè)數(shù)的數(shù)字字符
    D)通配任何單個(gè)數(shù)字字符
    (17)若要求在文本框中輸入文本時(shí)達(dá)到密碼“*”的顯示效果，則應(yīng)該設(shè)置的屬性是
    A)默認(rèn)值
    B)有效性文本
    C)輸入掩碼
    D)密碼
    (18)假設(shè)“公司”表中有編號(hào)、名稱(chēng)、法人等字段，查找公司名稱(chēng)中有“網(wǎng)絡(luò)”二字的公司信息，正確的命令是
    A)SELECT * FROM公司FOR名稱(chēng) = " *網(wǎng)絡(luò)* "
    B)SELECT * FROM公司FOR名稱(chēng)LIKE "*網(wǎng)絡(luò)*"
    C)SELECT * FROM公司W(wǎng)HERE名稱(chēng)="*網(wǎng)絡(luò)*"
    D)SELECT * FROM公司W(wǎng)HERE名稱(chēng)LIKE"*網(wǎng)絡(luò)*"
    (19)利用對(duì)話(huà)框提示用戶(hù)輸入查詢(xún)條件，這樣的查詢(xún)屬于
    A)選擇查詢(xún)
    B)參數(shù)查詢(xún)
    C)操作查詢(xún)
    D)SQL查詢(xún)
    (20)在SQL查詢(xún)中“GROUP BY”的含義是
    A)選擇行條件
    B)對(duì)查詢(xún)進(jìn)行排序
    C)選擇列字段
    D)對(duì)查詢(xún)進(jìn)行分組
    (21)在調(diào)試VBA程序時(shí)，能自動(dòng)被檢查出來(lái)的錯(cuò)誤是
    A)語(yǔ)法錯(cuò)誤
    B)邏輯錯(cuò)誤
    C)運(yùn)行錯(cuò)誤
    D)語(yǔ)法錯(cuò)誤和邏輯錯(cuò)誤
    (22)為窗體或報(bào)表的控件設(shè)置屬性值的正確宏操作命令是
    A)Set
    B)SetData
    C)SetValue
    D)SetWarnings
    (23)在已建窗體中有一命令按鈕(名為Commandl)，該按鈕的單擊事件對(duì)應(yīng)的VBA代碼為：
    Private Sub Commandl_Click()
    subT.Form.RecordSource = "select * from雇員"
    End Sub
    單擊該按鈕實(shí)現(xiàn)的功能是
    A)使用select命令查找“雇員”表中的所有記錄
    B)使用select命令查找并顯示“雇員”表中的所有記錄
    C)將subT窗體的數(shù)據(jù)來(lái)源設(shè)置為一個(gè)字符串
    D)將subT窗體的數(shù)據(jù)來(lái)源設(shè)置為“雇員”表
    (24)在報(bào)表設(shè)計(jì)過(guò)程中，不適合添加的控件是
    A)標(biāo)簽控件
    B)圖形控件
    C)文本框控件
    D)選項(xiàng)組控件
    (25)下列關(guān)于對(duì)象“更新前”事件的敘述中，正確的是
    A)在控件或記錄的數(shù)據(jù)變化后發(fā)生的事件
    B)在控件或記錄的數(shù)據(jù)變化前發(fā)生的事件
    C)當(dāng)窗體或控件接收到焦點(diǎn)時(shí)發(fā)生的事件
    D)當(dāng)窗體或控件失去了焦點(diǎn)時(shí)發(fā)生的事件
    (26)下列屬于通知或警告用戶(hù)的命令是
    A)PrintOut
    B)OutputTo
    C)MsgBox
    D)RunWarnings
    (27)能夠?qū)崿F(xiàn)從指定記錄集里檢索特定字段值的函數(shù)是
    A)Nz
    B)Find
    C)Lookup
    D)DLookup
    (28)如果X是一個(gè)正的實(shí)數(shù)，保留兩位小數(shù)、將千分位四舍五入的表達(dá)式是
    A)0.01*Int(x+0.05)
    B)0.01*Int(100*(X+0.005))
    C)0.01*Int(x+0.005)
    D)0.01*Int(100*(X+0.05))
    (29)在模塊的聲明部分使用“Option Base 1”語(yǔ)句，然后定義二維數(shù)組A(2 to 5,5)，則該數(shù)組的元素個(gè)數(shù)為
    A)20
    B)24
    C)25
    D)36
    (30)由“For i=1 To 9 Step -3”決定的循環(huán)結(jié)構(gòu)，其循環(huán)體將被執(zhí)行
    A)0次
    B)1次
    C)4次
    D)5次
    (31)在窗體上有一個(gè)命令按鈕Commandl和一個(gè)文本框Textl，編寫(xiě)事件代碼如下：
    Private Sub Command1_Click()
    Dim i,j,x
    For i = 1 To 20 step 2
    x = 0
    For j = To 20 step 3
    x = x + 1
    Next j
    Next i
    Textl.Value=Str(x)
    End Sub
    打開(kāi)窗體運(yùn)行后，單擊命令按鈕，文本框中顯示的結(jié)果是
    A)1
    B)7
    C)17
    D)400
    (32)在窗體上有一個(gè)命令按鈕Commandl，編寫(xiě)事件代碼如下：
    Private Sub Commandl_Click()
    Dim y As Integer
    y = 0
    Do
    y = InputBox("y=")
    If (y Mod 10) + Int(y / 10) = 10 Then Debug.Print y;
    Loop Until y = 0
    End Sub
    打開(kāi)窗體運(yùn)行后，單擊命令按鈕，依次輸入10、37、50、55、64、20、28、19、-19、0，立即窗口上輸出的結(jié)果是
    A)37 55 64 28 19 19
    B)10 50 20
    C)10 50 20 0
    D)37 55 64 28 19
    (33)在窗體上有一個(gè)命令按鈕Commandl，編寫(xiě)事件代碼如下：
    Private Sub Command1_Click()
    Dim x As Integer, y As Integer
    x = 12: y = 32
    Call Proc(x, y)
    Debug.Print x; y
    End Sub
    Public Sub Proc(n As Integer, ByVal m As Integer)
    n = n Mod 10
    m = m Mod 10
    End Sub
    打開(kāi)窗體運(yùn)行后，單擊命令按鈕，立即窗口上輸出的結(jié)果是
    A)2 32
    B)12 3
    C)2 2
    D)12 32
    34)在窗體上有一個(gè)命令按鈕Commandl，編寫(xiě)事件代碼如下：
    Private Sub Commandl_Click()
    Dim d1 As Date
    Dim d2 As Date
    dl = #12/25/2009#
    d2 = #1/5/2010#
    MsgBox DateDiff(” ww”, d1, d2)
    End Sub
    打開(kāi)窗體運(yùn)行后，單擊命令按鈕，消息框中輸出的結(jié)果是
    A)1
    B)2
    C)10
    D)11
    (35)下列程序段的功能是實(shí)現(xiàn)“學(xué)生”表中“年齡”字段值加1
    Dim Str As String
    Str=" "
    Docmd.RunSQL Str
    空白處應(yīng)填入的程序代碼是
    A)年齡=年齡+1
    B)Update學(xué)生 Set 年齡=年齡+1
    C)Set 年齡=年齡+1
    D)Edit 學(xué)生 年齡=年齡+l
    　二、填空題(每空2分，共30分)
    請(qǐng)將每一個(gè)空的正確答案寫(xiě)在答題卡【l】~【15】序號(hào)的橫線(xiàn)上，答在試卷上不得分。
    (1)一個(gè)隊(duì)列的初始狀態(tài)為空?，F(xiàn)將元素A,B,C,D,E,F,5,4,3,2,1依次入隊(duì)，然后再依次退隊(duì)，則元素退隊(duì)的順序?yàn)?【1】 。
    (2)設(shè)某循環(huán)隊(duì)列的容量為50，如果頭指針front=45(指向隊(duì)頭元素的前一位置)，尾指針rear=10(指向隊(duì)尾元素)，則該循環(huán)隊(duì)列中共有 【2】 個(gè)元素。
    (3)設(shè)二叉樹(shù)如下：
    

    對(duì)該二叉樹(shù)進(jìn)行后序遍歷的結(jié)果為 【3】 。
    (4)軟件是 【4】 、數(shù)據(jù)和文檔的集合。
    (5)有一個(gè)學(xué)生選課的關(guān)系，其中學(xué)生的關(guān)系模式為：學(xué)生(學(xué)號(hào)，姓名，班級(jí)，年齡)，課程的關(guān)系模式為：課程(課號(hào)，課程名，學(xué)時(shí))，其中兩個(gè)關(guān)系模式的鍵分別是學(xué)號(hào)和課號(hào)，則關(guān)系模式選課可定義為：選課(學(xué)號(hào)， 【5】 ，成績(jī))。
    (6)下圖所示的窗體上有一個(gè)命令按鈕(名稱(chēng)為Command1)和一個(gè)選項(xiàng)組(名稱(chēng)為Framel)，選項(xiàng)組上顯示“Framel”文本的標(biāo)簽控件名稱(chēng)為L(zhǎng)abell，若將選項(xiàng)組上顯示文本“Frame1”改為漢字“性別”，應(yīng)使用的語(yǔ)句是【6】。
    

    (7)在當(dāng)前窗體上，若要實(shí)現(xiàn)將焦點(diǎn)移動(dòng)到指定控件，應(yīng)使用的宏操作命令是【7】。
    (8)使用向?qū)?chuàng)建數(shù)據(jù)訪(fǎng)問(wèn)頁(yè)時(shí)，在確定分組級(jí)別步驟中多可設(shè)置【8】個(gè)分組字段。
    (9)在窗體文本框Text l中輸入“456AbC”后，立即窗口上輸出的結(jié)果是【9】。
    Private Sub Textl_KeyPress(KeyAscii As Integer)
    Select Case DeyAscii
    Case 97 To 122
    Debug.Print Ucase(Chr(KeyAscii));
    Case 65 To 90
    Debug.Print Lcase(Chr(KeyAscii));
    Case 48 To 57
    Debug.Print Chr(KeyAscii);
    Case Else
    KeyAscii = 0
    End Select
    End Sub
    (10)在窗體上有一個(gè)命令按鈕Commandl，編寫(xiě)事件代碼如下：
    Private Sub Command1_Click()
    Dim a(10), p(3) As Integer
    k = 5
    For i = 1 To 10
    a(i) = i * i
    Next i
    For i = 1 To 3
    p(i) = a(i * i)
    Next i
    For i = 1 To 3
    k = k + p(i) *2
    Next i
    MsgBox k
    End Sub
    打開(kāi)窗體運(yùn)行后，單擊命令按鈕，消息框中輸出的結(jié)果是【10】。
    (11)下列程序的功能是找出被5、7除，余數(shù)為1的小的5個(gè)正整數(shù)。請(qǐng)?jiān)诔绦蚩瞻滋幪钊脒m當(dāng)?shù)恼Z(yǔ)句，使程序可以完成指定的功能。
    Private Sub Form_Click()
    Dim Ncount %, n%
    n = n + 1
    If 【11】 Then
    Debug.Print n
    Ncount =Ncount + 1
    End If
    Loop Until Ncont = 5
    End Sub
    (12)以下程序的功能是在立即窗口中輸出100到200之間所有的素?cái)?shù)，并統(tǒng)計(jì)輸出素?cái)?shù)的個(gè)數(shù)。請(qǐng)?jiān)诔绦蚩瞻滋幪钊脒m當(dāng)?shù)恼Z(yǔ)句，使程序可以完成指定的功能。
    Private Sub Command2_Click()
    Dim i%, j%, k%, t % ‘t 為統(tǒng)計(jì)素?cái)?shù)的個(gè)數(shù)
    Dim b As Boolean
    For i = 100 To 200
    b = True
    k = 2
    j = Int(Sqr(i))
    Do While k <= j And b
    If I Mod k = 0 Then
    b = 【12】
    End If
    k = 【13】
    Loop
    If b = True Then
    t = t + 1
    Debug.Print i
    End If
    Next i
    Debug.Print "t="; t
    End Sub
    (13)數(shù)據(jù)庫(kù)中有工資表，包括“姓名”、“工資”和“職稱(chēng)”等字段，現(xiàn)要對(duì)不同職稱(chēng)的職工增加工資，規(guī)定教授職稱(chēng)增加15%，副教授職稱(chēng)增加10%，其他人員增加5%。下列程序的功能是按照上述規(guī)定調(diào)整每位職工的工資，并顯示所漲工資之總和。請(qǐng)?jiān)诳瞻滋幪钊脒m當(dāng)?shù)恼Z(yǔ)句，使程序可以完成指定的功能。
    Private Sub Command5_Click()
    Dim ws As DAO.Workspace
    Dim db As DAO.Database
    Dim rs As DAO.Recordset
    Dim gz As DAO.Field
    Dim zc As DAO.Field
    Dim sum As Currency
    Dim rate As Single
    Set db = CurrentDb()
    Set rs = db.OpenRecordset("工資表")
    Set gz = rs.Fields("工資")
    Set zc = rs.Fields("職稱(chēng)")
    sum = 0
    Do While Not 【14】
    rs.Edit
    Select Case zc
    Case Is = "教授"
    rate = 0.15
    Case Is = "副教授"
    rate = 0.1
    Case Else
    rate = 0.05
    End Select
    sum = sum + gz * rate
    gz = gz + gz * rate
    【15】
    rs.MoveNext
    Loop
    rs.Close
    db.Close
    Set rs = Nothing
    Set db = Nothing
    MsgBox "漲工資總計(jì):" & sum
    End Sub