講義教程成果

2011年9月計(jì)算機(jī)等級考試二級筆試試Access數(shù)據(jù)庫程序設(shè)計(jì)(考試時(shí)間90分鐘，滿分100分A D） 是（。 B）C語言編譯程 D）數(shù)據(jù)庫管理系 D）診斷和改正程序中的錯(cuò) 概念模 D）數(shù)據(jù)模ABCa12b2ABCa12b21c31ABCA12b21ABCc31則由關(guān)系R和S得到關(guān)系T的操作是 自然連 D） 繼 D）逐步求 學(xué)校規(guī)定學(xué)生住宿標(biāo)準(zhǔn)是：本科生4人一間，生2人一間，博士生1人一間，學(xué)生與 C）OLE對象 必須輸入字母或數(shù)

D）D）報(bào)表和字段組成 在SQL語言的SELECT語句中，用于指明檢索結(jié)果排序的子句是 C）GROUP D）ORDER 記錄 D）記錄選擇 Abs([成績 D）Sgn([成績在Access中為窗體上的控件設(shè)置Tab鍵的順序，應(yīng)選擇“屬性”框的 B“ 課程名 D牌微波爐A牌B2SELECT部門號,MAX(單價(jià)*數(shù)量)FROM商品表GROUPBY部門號; 在宏表達(dá)式中要Form1窗體中的txt1控件的值，正確的方法是 Form1! C）Forms!Form1! D）Forms! 由“Fori=1To16Step3”決定的循環(huán)結(jié)構(gòu)被執(zhí)行 A）4 B）5 C）6 D）7st=InputBox("請輸入字符串","字符串框“bbbb， PrivateSubForm_Click()Fori=1To6step3NextiEnd

盤輸入的10個(gè)大于0的整數(shù)，找出其中的最大值和對應(yīng)的輸入位置。PrivateSubCommand32_Click()max=0max_n=0Fori=1T010num=Val(InputBox("請輸入第"&i&"個(gè)大于0的整數(shù) NextiMsgBox("最大值為第"&max_n&"個(gè)輸入的End Subsfun(xAsSingle,yAsSingle)y=tModyEndSubPrivateSubCommand33_Click()DimaAsDimbAsa=5:MsgBoxa＆chr(10)+chr(13)＆bEndSub A）1和 B）1.25和 C）1.25和 D）5和 PrivateSubCommand34_Click()i=0i=iLoopWhilei<10MsgBoxiEnd PrivateSubCommand0_Click()DimIAsInteger,JAsIntegerForI=2To10ForJ=2ToIfImodJ=0ThenExitForNextJIfJ>sqr(I)ThenDebug.PrintI;NextIEndA）157 B）46 C）357 D）235數(shù)據(jù)結(jié)構(gòu)分為線性結(jié)構(gòu)與非線性結(jié)構(gòu)，帶鏈的棧屬于【1】在長度為n的順序的線性表中插入一個(gè)元素，情況下需要移動表中【2】個(gè)元流圖（DFD，則應(yīng)采用【3】方法。數(shù)據(jù)庫系統(tǒng)的是【4】換為【5】。Access數(shù)據(jù)庫中的字節(jié)（Byte）數(shù)值類型在數(shù)據(jù)庫中占【6】字節(jié)。 【7】&"頁"Access數(shù)據(jù)庫中保存的數(shù)據(jù)發(fā)布到網(wǎng)絡(luò)上，可以采用的對象是【8】。Forml，則將該窗體標(biāo)題設(shè)置為“Access窗體”的語句是【9】。l100的累加和。請?jiān)诳瞻滋幪钊脒m當(dāng)?shù)恼Z句，使程序完成指定DimsAsInteger,mAsIntegers=0m=do 【10s=s+mm=m+1下列程序的功能是求算式：1-1/2+1/3-1/4+……30項(xiàng)之和。請?jiān)诳瞻滋幪钊脒m當(dāng)?shù)恼Z句，PrivateSubDimiasinteger,sassingle,fasintegers=0;f=1ForI=1To30s=s+f/f= NextDebug.Print"1-1/2+1/3-1/4+……=";sEndSub碼：”，用于輸入用戶名的文本框名為“UserName”，用于輸入的文本框名為 用!”信息。要求整個(gè)登錄過程要在30秒中完成，如果超過30秒還沒有完成正確的登錄操作，DimSecondAsIntegerPrivateSubForm_Open(CancelAsInteger)Second=0EndPrivateSubForm_Timer()IfSecond>30ThenMe!Tnum=30- 'EndSecond 【12EndIfMe.UserName<>"123"OrMe.UserPassword<>"456"MsgBox"錯(cuò)誤!"+"您還有&30-Second&秒vbCritical,"提示"Me.TimerInterval '終止Timer事件繼續(xù)發(fā)MsgBox歡迎使用!"vbInformation,成功"EndIfEndSub“ 成績×40％，如果學(xué)生平時(shí)成績大于等于60分，則可以參加期末考試(“能否考試”字段“PrivateSubCommand0_Click()DimdbAsDAO.DatabaseDimrsAsDAO.RecordsetDimpszyAsDAO.Field,xcyAsDAO.Field,qzksAsDAO.FieldDimpsAsDAO.Field,ksAsDAO.FieldSetdb=CurrentDb(Setrsdb.OpenRecordset("平時(shí)成績表")Setpszy=rs.Fields("平時(shí)作業(yè)")Setxcy=rs.Fields("小測驗(yàn)")Setqzksrs.Fields("期中考試")