9月全國(guó)計(jì)算機(jī)等級(jí)考試二級(jí)access真題及答案

#/18i2i2/i8D)DimA(3;4)AsInteger(32)在窗體中有一個(gè)文本框Testi,編寫事件代碼如下：PrivateSubForm_Click()X=val(Inputbox("輸入x的值”))Y=1IfX<>0ThenY=2Text1.Value=YEndSub打開窗體運(yùn)行后，在輸入框中輸入整數(shù)12,文本框Texti中輸出的結(jié)果是A)1B)2C)3D)4(33)在窗體中有一個(gè)命令按鈕Commandl和一個(gè)文本框Testi,編寫事件代碼如下：PrivateSubCommand1_Click()ForI=iTo4x=3Forj=iTo3Fork=iTo2x=x+3NextkNextjNextITexti.Value=Str(x)EndSub打開窗體運(yùn)行后，單擊命令按鈕，文本框Texti中輸出的結(jié)果是A)6B)12C)18D)21(34)在窗體中有一個(gè)命令按鈕Commandl,編寫事件代碼如下:PrivateSubCommand1_Click()DimsAsIntegers=p(1)+p(2)+p(3)+p(4)debug.PrintsEndSubPublicFunctionp(NAsInteger)DimSumAsIntegerSum=0Fori=1ToNSum=Sum+1NextiP=SumEndFunction打開窗體運(yùn)行后，單擊命令按鈕，輸出的結(jié)果是A)15B)20C)25D)35(35)下列過程的功能是：通過對(duì)象變量返回當(dāng)前窗體的Recordset屬性記錄集引用，消息框中輸出記錄集的記錄(即窗體記錄源)個(gè)數(shù).SubGetRecNum()DimrsAsObjectSetrs=Me.RecordsetMsgBox EndSub程序空白處應(yīng)填寫的是A)CountB)rs.CountC)RecordCountD)rs.RecordCount二、填空題(每空2分，共30分)(1)某二叉樹由5個(gè)度為2的結(jié)點(diǎn)以及3個(gè)度為1的結(jié)點(diǎn)，則該二叉樹中共有【1】個(gè)結(jié)點(diǎn).(2)程序流程圖中的菱形框表示的是【2】.(3)軟件開發(fā)過程主要分為需求分析、設(shè)計(jì)、編碼與測(cè)試四個(gè)階段，其中q】階段產(chǎn)生“軟件需求規(guī)格說明書“.(4)在數(shù)據(jù)庫(kù)技術(shù)中，實(shí)體集之間的聯(lián)系可以是一對(duì)一或一對(duì)多的，那么“學(xué)生“和”可選課程"的聯(lián)系為【4】.(5)人員基本信息一般包括：身份證號(hào)、姓名、性別、年齡等.其中可以做主關(guān)鍵字的是【5】.)Access中若要將數(shù)據(jù)庫(kù)中的數(shù)據(jù)發(fā)布到網(wǎng)上，應(yīng)采用的對(duì)象是【6】（7）在一個(gè)查詢集中，要將指定的記錄設(shè)置為當(dāng)前記錄，應(yīng)該使用的宏操作命令是【7】.（8）當(dāng)文本框中的內(nèi)容發(fā)生了改變時(shí)，觸發(fā)的事件名稱是_【8】.（9）在VBA中求字符串的長(zhǎng)度可以使用函數(shù)上文.（10）要將正實(shí)數(shù)x保留兩位小數(shù)，若采用Int函數(shù)完成，則表達(dá)式為【10】.（11）在窗體中有兩個(gè)文本框分別為Textl和Text2,一個(gè)命令按鈕Command1,編寫如下兩個(gè)事件過程：PrivateSubCommand1_Click（）a=Text1.Value+Text2.ValueMsgBoxaEndSubPrivateSubForm_Load（）Text1.Value=“”Text2.Value=“”EndSub程序運(yùn)行時(shí)，在文本框Text1中輸入78,在文本框中Text2輸入87,單擊命令按鈕，消息框中輸出的結(jié)果為【11】.（12）某次大獎(jiǎng)賽有7個(gè)評(píng)委同時(shí)為一位選手打分，去掉一個(gè)最高分和一個(gè)最低分,其余5個(gè)分?jǐn)?shù)的平均值為該名參賽者的最后得分.請(qǐng)?zhí)羁胀瓿梢?guī)定的功能.Subcommand1_click（）Dimmark!,aver!,i%,max1!,min1!aver=0Fori=1To7Mark=InputBox（“請(qǐng)輸入第”&i&“位評(píng)為的打分”）Ifi=1thenmax1=mark:min1=markElseIfmark<min1thenmin1=markElseIfmark>max1then【12】EndIfEndIf【13】Nextiaver=（aver-max1-min1）/5MsgBoxaverEndSub（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)所需要的功能.PrivateSubCommand1_Click（）DimcnAsNewADODB.ConnectionDimrsAsNewADODB.RecordsetDimzongfenAsNewADODB.FileldDimshuxueAsNewADODB.FileldDimwaiyuAsNewADODB.FileldDimzhuanyeAsNewADODB.FileldDimstrSQLAsStingSetcn=CurrentProject.ConnectionStrSQL=“Select*from成績(jī)表”rs.OpenstrSQL,cn,adOpenDynamic,adLockptimistic,adCmdTextSetzongfen=rs.Filelds（“總分”）Setshuxue=rs.Filelds（“數(shù)學(xué)”）Setwaiyu=rs.Filelds（“外語(yǔ)”）Setzhuanye=rs.Filelds（“專業(yè)”）Dowhile【14】Zongfen=shuxue+waiyu+zhuanye【15】rs.MoveNextLooprs.closecn.closeSetrs=NothingSetcn=NothingEndSub2009年9月全國(guó)計(jì)算機(jī)等級(jí)考試二級(jí)Access筆試題參考答案、選擇題（1）（2）（3）（4）（5）（6）（7）（8）（9）（10）（11）B（12）B（13）A（14）A（15）C（16）D（17）D（18）A（19）C（20）B（21）A（22）A（23）D（24）C（25）C（26）C（27）A（28）A（29）A（30）D（31）