讲义教程成果

2011年9月计算机等级考试二级笔试试Access数据库程序设计(考试时间90分钟，满分100分A D） 是（。 B）C语言编译程 D）数据库管理系 D）诊断和改正程序中的错 概念模 D）数据模ABCa12b2ABCa12b21c31ABCA12b21ABCc31则由关系R和S得到关系T的操作是 自然连 D） 继 D）逐步求 学校规定学生住宿标准是：本科生4人一间，生2人一间，博士生1人一间，学生与 C）OLE对象 必须输入字母或数

D）D）报表和字段组成 在SQL语言的SELECT语句中，用于指明检索结果排序的子句是 C）GROUP D）ORDER 记录 D）记录选择 Abs([成绩 D）Sgn([成绩在Access中为窗体上的控件设置Tab键的顺序，应选择“属性”框的 B“ 课程名 D牌微波炉A牌B2SELECT部门号,MAX(单价*数量)FROM商品表GROUPBY部门号; 在宏表达式中要Form1窗体中的txt1控件的值，正确的方法是 Form1! C）Forms!Form1! D）Forms! 由“Fori=1To16Step3”决定的循环结构被执行 A）4 B）5 C）6 D）7st=InputBox("请输入字符串","字符串框“bbbb， PrivateSubForm_Click()Fori=1To6step3NextiEnd

盘输入的10个大于0的整数，找出其中的最大值和对应的输入位置。PrivateSubCommand32_Click()max=0max_n=0Fori=1T010num=Val(InputBox("请输入第"&i&"个大于0的整数 NextiMsgBox("最大值为第"&max_n&"个输入的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数据结构分为线性结构与非线性结构，带链的栈属于【1】在长度为n的顺序的线性表中插入一个元素，情况下需要移动表中【2】个元流图（DFD，则应采用【3】方法。数据库系统的是【4】换为【5】。Access数据库中的字节（Byte）数值类型在数据库中占【6】字节。 【7】&"页"Access数据库中保存的数据发布到网络上，可以采用的对象是【8】。Forml，则将该窗体标题设置为“Access窗体”的语句是【9】。l100的累加和。请在空白处填入适当的语句，使程序完成指定DimsAsInteger,mAsIntegers=0m=do 【10s=s+mm=m+1下列程序的功能是求算式：1-1/2+1/3-1/4+……30项之和。请在空白处填入适当的语句，PrivateSubDimiasinteger,sassingle,fasintegers=0;f=1ForI=1To30s=s+f/f= NextDebug.Print"1-1/2+1/3-1/4+……=";sEndSub码：”，用于输入用户名的文本框名为“UserName”，用于输入的文本框名为 用!”信息。要求整个登录过程要在30秒中完成，如果超过30秒还没有完成正确的登录操作，DimSecondAsIntegerPrivateSubForm_Open(CancelAsInteger)Second=0EndPrivateSubForm_Timer()IfSecond>30ThenMe!Tnum=30- 'EndSecond 【12EndIfMe.UserName<>"123"OrMe.UserPassword<>"456"MsgBox"错误!"+"您还有&30-Second&秒vbCritical,"提示"Me.TimerInterval '终止Timer事件继续发MsgBox欢迎使用!"vbInformation,成功"EndIfEndSub“ 成绩×40％，如果学生平时成绩大于等于60分，则可以参加期末考试(“能否考试”字段“PrivateSubCommand0_Click()DimdbAsDAO.DatabaseDimrsAsDAO.RecordsetDimpszyAsDAO.Field,xcyAsDAO.Field,qzksAsDAO.FieldDimpsAsDAO.Field,ksAsDAO.FieldSetdb=CurrentDb(Setrsdb.OpenRecordset("平时成绩表")Setpszy=rs.Fields("平时作业")Setxcy=rs.Fields("小测验")Setqzksrs.Fields("期中考试")