計(jì)算機(jī)2級(jí)access

1、6. 下列選項(xiàng)中不屬于結(jié)構(gòu)化程序設(shè)計(jì)原則的是（     ）。答案 A該圖是(    ).答案 C（16）下列關(guān)于OLE對(duì)象的敘述中，正確的是DA）用于輸入文本數(shù)據(jù)B）用于處理超級(jí)鏈接數(shù)據(jù)C）用于生成自動(dòng)編號(hào)數(shù)據(jù)D）用于鏈接或內(nèi)嵌Windows支持的對(duì)象（17）在關(guān)系窗口中，雙擊兩個(gè)表之間的連接線，會(huì)出現(xiàn)DA）數(shù)據(jù)表分析向?qū)）數(shù)據(jù)關(guān)系圖窗口C）連接線粗細(xì)變化D）編輯關(guān)系對(duì)話框（20）已知“借閱”表中有 “借閱編號(hào)”、“學(xué)號(hào)”和“借閱圖書編號(hào)”等字段，每個(gè)學(xué)生每借閱一本書生成一條記錄，要求按學(xué)生學(xué)號(hào)統(tǒng)計(jì)出每個(gè)學(xué)生的借閱次數(shù)，下

2、列SQL語(yǔ)句中，正確的是BA)Select 學(xué)號(hào), count(學(xué)號(hào)) from 借閱B)Select 學(xué)號(hào), count(學(xué)號(hào)) from 借閱 group by 學(xué)號(hào)C)Select 學(xué)號(hào), sum(學(xué)號(hào)) from 借閱D)select 學(xué)號(hào), sum(學(xué)號(hào)) from 借閱 order by 學(xué)號(hào)   （22）啟動(dòng)窗體時(shí)，系統(tǒng)首先執(zhí)行的事件過(guò)程是AA）LoadB）ClickC）UnloadD）GotFocus  （31）下列數(shù)組聲明語(yǔ)句中，正確的是BA）Dim A 3,4 As IntegerB）Dim A (3,4) As IntegerC）D

3、im A 3;4 As IntegerD）Dim A (3;4) As Integer（32）在窗體中有一個(gè)文本框Test1，編寫事件代碼如下：Private Sub Form_Click()X= val (Inputbox(“輸入x的值”)Y= 1If X<>0 Then Y= 2Text1.Value = YEnd Sub打開(kāi)窗體運(yùn)行后，在輸入框中輸入整數(shù)12，文本框Text1中輸出的結(jié)果是A）1B）2C）3D）4（33）在窗體中有一個(gè)命令按鈕Command1和一個(gè)文本框Test1，編寫事件代碼如下：Private Sub Command1_Click()For I = 1 T

4、o 4x = 3For j = 1 To 3For k = 1 To 2x= x + 3Next kNext jNext IText1.Value = Str(x)End Sub打開(kāi)窗體運(yùn)行后，單擊命令按鈕，文本框Text1中輸出的結(jié)果是A）6B）12C）18D）21  （34）在窗體中有一個(gè)命令按鈕Command1，編寫事件代碼如下：Private Sub Command1_Click()Dim  s  As  Integers = p(1) + p(2) + p(3) + p(4)debug.Print sEnd SubPublic Function

5、 p (N  As  Integer)Dim  Sum  As  IntegerSum = 0For i = 1 To NSum = Sum + 1Next iP = SumEnd Function打開(kāi)窗體運(yùn)行后，單擊命令按鈕，輸出的結(jié)果是A）15B）20C）25D）35（2）程序流程圖中的菱形框表示的是 （實(shí)體聯(lián)系 ）。（7）在一個(gè)查詢集中，要將指定的記錄設(shè)置為當(dāng)前記錄，應(yīng)該使用的宏操作命令是 【7】 。（8）當(dāng)文本框中的內(nèi)容發(fā)生了改變時(shí)，觸發(fā)的事件名稱是 【8】 。（10）要將正實(shí)數(shù)x保留兩位小數(shù)，若采用Int 函數(shù)完成，則表達(dá)式為 （11

6、）在窗體中有兩個(gè)文本框分別為Text1和Text2，一個(gè)命令按鈕Command1,編寫如下兩個(gè)事件過(guò)程：Private Sub Command1_Click( )a = Text1.Value + Text2.ValueMsgBox aEnd SubPrivate Sub Form_Load( )Text1.Value = “”Text2.Value = “”End Sub程序運(yùn)行時(shí)，在文本框Text1中輸入78，在文本框中Text2輸入87，單擊命令按鈕，消息框中輸出的結(jié)果為 【11】 。   （12）某次大獎(jiǎng)賽有7個(gè)評(píng)委同時(shí)為一位選手打分，去掉一個(gè)最高分和一個(gè)最低分，其

7、余5個(gè)分?jǐn)?shù)的平均值為該名參賽者的最后得分。請(qǐng)?zhí)羁胀瓿梢?guī)定的功能。Sub command1_click( )Dim mark!, aver!, i%,max1!,min1!aver = 0For i = 1 To 7Mark = InputBox(“請(qǐng)輸入第”& i & “位評(píng)為的打分”)If i = 1 thenmax1 =mark : min1=markElseIf mark < min1 thenmin1= markElseIf mark> max1 then 【12】 End IfEnd If 【13】 Next iaver = (aver - max1- m

8、in1)/5MsgBox averEnd Sub（13）“學(xué)生成績(jī)”表含有字段（學(xué)號(hào)，姓名，數(shù)學(xué)，外語(yǔ)，專業(yè)，總分）。下列程序的功能是：計(jì)算每名學(xué)生的總分（總分=數(shù)學(xué)+外語(yǔ)+專業(yè)）。請(qǐng)?jiān)诔绦蚩瞻滋幪钊脒m當(dāng)語(yǔ)句，使程序?qū)崿F(xiàn)所需要的功能。Private Sub Command1_Click( )Dim cn  As New ADODB.ConnectionDim rs  As New ADODB.RecordsetDim zongfen  As New ADODB.FileldDim shuxue  As New ADODB. FileldDim waiyu

9、  As New ADODB. FileldDim zhuanye  As New ADODB. FileldDim strSQL  As  StingSet cn = CurrentProject.ConnectionStrSQL = “Select*from成績(jī)表”rs.OpenstrSQL, cn, adOpenDynamic, adLockptimistic, adCmdTextSet zongfen = rs.Filelds(“總分”)Set shuxue = rs.Filelds(“數(shù)學(xué)”)Set waiyu = rs.Filelds(“外語(yǔ)”)Set zhuanye = rs.Filelds(“專業(yè)”)Do while  【14】Zongfen = shuxue + waiyu + zhuanye 【15】 rs.MoveNextLooprs.closecn.closeSet rs = NothingSet cn = NothingEnd Sub參考答案選擇題1-5 CBDAB6-10 ACBCD11-15 BBAAC16-20