带鱼的营养价值

2009年3月全国计算机等级考试二级试卷Access数据库程序  一、选择（每小题2分，共70分）  (1)下面叙述中正确的是 A）栈是“先进先出”的线性表 B）队列是“先进后出”的线性表 C）循环队列是非线性结构 D）有序线性表既可以采用顺序存储结构，也可以采用链式存储结构  （2）支持子程序调用的数据结构是 A）栈 B）树 C）队列 D）二叉树  （3）某二叉树有5个度为2的结点，则该二叉树中的叶子结点数是 A）10 B） 8 C）6 D）4  （4）下列排序方法中，最坏情况下比较次数最少的是 A）冒泡排序 B）简单选择排序 C）直接插入排序 D）堆排序  （5）软件按功能可以分为：应用软件、系统软件和支撑软件（或工具软件）。下面属于应用软件的是 A）编译程序员 B）操作系统 C）教务管理系统 D）汇编程序  （6）下面叙述中错误的是 A）软件测试的目的是发现错误并改正错误 B）对被调试的程序进行“错误定位”是程序调试 C）程序调试通常被称为Debug D）软件测试就严格执行测试，排除测试的随意性 （7）耦合性和内聚性是模块独立性试题的两个标准，下列叙述正确的是 A）提高耦合性降低内聚性有利于提高模块的独立性 B）降低耦合性提高内聚性有利于提高模块独立性 C）耦合性是一个模块内部元素间彼此结合的紧密程序 D）内聚性是指模块可互相连接的紧密程序  （8）数据库应用系统中的核心问题是 A）数据库设计 B）数据库系统设计 C）数据库维护 D）数据库管理员培训 （9）有两个关系R，S如下：            由关系R通过运算得到关系S，则所使用的运算为 A）选择 B）投影 C）插入 D）连接  （10）将E-R图转换为关系模式时，实体和联系都可以表示为 A）属性 B）键 C）关系 D）域  （11）按数据的组织形式，数据库的数据模型可分为三种模型，它们是 A）小开、中开和大型 B）网状、环状和链状 C）层次、网状和关系 D）独享、共享和实时 （12）数据库中有A、B两表，均有相同字段C，在两表中C字段都设为主键，当通过C字段建立两表关系时，则该关系为 A）一对一 B）一对多 C）多对多 D）不能建立关系  （13）如果在创建表中建立字段“性别”，关要用汉字表示，其数据类型应当是 A）是/否 B）数字 C）文本 D）备注  (14)在Access数据库对象中，体现数据库设计目的的对象是 A）报表 B）模块 C）查询 D）表  （15）下列关于空值的叙述中，正确的是 A）空值是双引号中间没有空格的值 B）空值是等于数值 C）空值是使用NULL或空白来表示字段的值 D）空值是用空格表示的值  （16）在定义表中字段属性时，对要求输入相对固定格式的数据，例如电话号码01065971234，应该定义该字段的 A）格式 B）默认值 C）输入掩码 D）有效性规则  （17）在书写查询准则时，日期型数据应该使用适当的分隔符括起来，正确的分隔符是 A）* B）% C）& D）#  （18）下列关于报表的叙述中，正确的是 A）报表只能输入数据 B）报表只能输出数据 C）报表可以输入和输出数据 D）报表不能输入和输出数据 （19）要实现报表按某字段分组统计输出，需要设置的是 A）报表页脚 B）该字段的组页脚 C）主体 D）页面页脚  （20）下列关于SQL语句的说法中，错误的是 A）INSERT语句可以向数据表中追加新的数据记录 B）UPDATE语句可以用来删除数据表中已经存在的数据记录 C）DELETE语句用来删除数据表中的记录 D）CREATE语句用来建立表结构并追加新的记录  （21）在数据访问工具箱中，加了插入一段滚动的文字应该选择的图标是 A）   D）   C）   B）  （22）在运行宏的过程中，宏不能修改的是 A）窗体 B）宏本身 C）表 D）数据库  （23）在设计条件宏时，对于连续重复条件，要代替重复条件表达式可是使用符号 A）… B）: C）: D）=  （24）在宏的参数中，要引用窗体F1上的Text1文本框的值，应该使用的表达式是 A）[Forms]![F1]![Text1] B）Text1 C）[F1].[Text1] D）[Forms]_[F1]_[Text1]  (25)宏操作Quit的功能是 A）关闭表 B）退出宏 C）退出查询 D）退出Access  （26）发生在控件接收焦点之前的事件是 A）Enter B）Exit C）GotFocus D）LostFocus  (27)要想在过程Proc调用后返回形参x和y的变化结果，下列定义语句正确的是 A）Sub Proc (x as Integer, y as Integer) B）Sub Proc(ByVal x as Integer, y as Integer) C）Sub Proc(x as Integer, ByVal y as Integer) D）Sub Proc(ByVal x as Integer, ByVal y as Integer) (28) 要从数据库中删除一个表，应使用的SQL语句是 A）ALTER TABLE B）KILL TABLE C）DELETE TABLE D）DROP TABLE  （29） 在VBA中要打开名为“学生信息录入”的窗体，应使用的语句是 A）DoCmd.OpenForm “学生信息录入” B）OpenForm “学生信息录入” C）DoCmd.OpenWindows “学生信息录入” D）OpenWindows “学生信息录入” （30）要显示当前过程中的所有变量及对象的取值，可以利用的调试窗口是 A）监视窗口 B）调用堆栈 C）立即窗口 D）本地窗口  （31）在VBA中，下列关于过程的描述中正确的是 A）过程的定义可以嵌套，但过程的调用不能嵌套 B）过程的定义不可以嵌套，但过程的调用可以嵌套 C）过程的定义和过程的调用均可以嵌套 D）过程的定义和过程的调用均不能嵌套  （32）能哆实现从指定记录集里检索特定字段的函数是 A）Dcount B）DLookup C）DMax D）DSum  (33)下列四个选项中，不是VBA的条件函数的是 A）Choose B）If C）IIf D）Switch  (34)设有如下过程： x = 1 Do x = x + 2 Loop Until_____ 运行程序，要求循环执行3次后结束循环，空白处应填入的语句是 A）x<=7 B）x<7 C）x>=7 D）x>7  (35)在窗体中添加一个名称为Command1的命令按钮，然后编写如下事件代码： Private Sub Command1_Click( ) MsgBox f(24,18) End Sub Public Function f (m As Integer,n As Integer)As Integer Do While m<>n Do While m>n m = m-n Loop Do While m30 2009年9月全国计算机等级考试二级笔试试卷 Access数据库程序设计  一、选择题（每小题2分，共70分） 1．下列数据结构中，属于非线性结构的是（     ）。 A.     循环队列 B.带链队列C.二叉树  D.带链栈 答案 C 解析 树均是非线性结构 2. 下列数据结构中,能够按照”先进后出”原则存取数据的是（     ）。 A.     循环队列 B.栈  C.队列 D.二叉树 答案 B 解析:栈是先进后出或后进先出的线性表 3. 对于循环队列,下列叙述中正确的是（     ）。 A.队头指针是固定不变的 B.队头指针一定大于队尾指针 C.队头指针一定小于队尾指针 D.队头指针可以大于队尾指针，也可以小于队尾指针答案 D 解析:如果队头指针大于队尾指针说明队列已经循环存放数据了,如果队头指针小于队尾指针说明没有进行循环存放 4. 算法的空间复杂度是指（     ）。 A.算法在执行过程中所需要的计算机存储空间    B.算法所处理的数据量 C.算法程序中的语句或指令条数                       D.算法在执行过程中所需要的临时工作单元数 答案 A 解析:算法的空间复杂度是指执行算法所需要的内存空间,包括算法程序所占空间,输入的初始数据所占空间和执行过程中所需要的额外空间. 5. 软件设计中划分模块的一个准则是（     ）。 A. 低内聚低耦合 B. 高内聚低耦合 C. 低内聚高耦合  D. 高内聚高耦合 答案 B 解析:模块内部各元素之间的联系要紧密,高内聚,模块间的连接的紧密程度要低,低耦合,这样可以提高模块的独立性. 6. 下列选项中不属于结构化程序设计原则的是（     ）。 A.可封装 B.自顶向下 C.模块化 D.逐步求精 答案 A 7.软件详细设计产生的图如下 该图是(    ). A.N-S图 B. PAD图 C. 程序流程图 D.E-R图 答案 C 8.数据库管理系统是（     ）。 A. 操作系统的一部分 B.在操作系统支持下的系统软件 C.一种编译系统 D.一种操作系统  答案 B 9.在E-R图中，用来表示实体联系的图形是（     ）。 A.椭圆形 B.矩形 C.菱形 D .三角形  答案 C  10.有三个关系R,S,T 如下： A B C d 3 2 R S A B C a 1 2 b 2 1 c 3 1 T A B C a 1 2 b 2 1 c 3 1 d 3 2  其中关系T由关系R和S通过某种操作得到，该操作称为（     ）。 A.选择 B.投影  C. 交 D. 并  答案 D 解析:T是由S表或R表中的元素组成的  （11）Access数据库的结构层次是 　　A）数据库管理系统→应用程序→表　B）数据库→数据表→记录→字段 　　C）数据表→记录→数据项→数据　　D）数据表→记录→字段 （12）某宾馆中有单人间和双人间两种客房，按照规定，每位入住该宾馆的客人都要进行身份登记。宾馆数据库中有客房信息表（房间号，……）和客人信息表（身份证号，姓名，来源，……）；为了反映客人入住客房的情况，客房信息表与客人信息表之间的联系应设计为 　　A）一对一联系　　B）一对多联系　　C）多对多联系　　D）无联系 （13）在学生表中要查找所有年龄小于20岁且姓王的男生，应采用的关系运算是 　　A）选择　　B）投影　　C）联接　　D）比较 （14）在Access中，可用于设计输入界面的对象是　　A）窗体　　B）报表　　C）查询　　D）表 （15）下列选项中，不属于Access数据类型的是　　A）数字　　B）文本　　C）报表　　D）时间/日期 （16）下列关于OLE对象的叙述中，正确的是 　　A）用于输入文本数据　　B）用于处理超级链接数据 　　C）用于生成自动编号数据　　D）用于链接或内嵌Windows支持的对象 （17）在关系窗口中，双击两个表之间的连接线，会出现 　　A）数据表分析向导　　B）数据关系图窗口　　C）连接线粗细变化　　D）编辑关系对话框 （18）在设计表时，若输入掩码属性设置为“LLLL“,则能够接收的输入是 　　Ａ）abcd　　Ｂ）1234　　Ｃ）AB+C　　Ｄ）ABa9 （19）在数据表中筛选记录，操作的结果是 　　A）将满足筛选条件的记录存入一个新表中　　B）将满足筛选条件的记录追加到一个表中 　　C）将满足筛选条件的记录显示在屏幕上　　D）用满足筛选条件的记录修改另一个表中已存在的记录 （20）已知“借阅”表中有 “借阅编号”、“学号”和“借阅图书编号”等字段，每个学生每借阅一本书生成一条记录，要求按学生学号统计出每个学生的借阅次数，下列SQL语句中，正确的是 　　A)Select 学号, count(学号) from 借阅　　B)Select 学号, count(学号) from 借阅 group by 学号 　　C)Select 学号, sum(学号) from 借阅 　　D)select 学号, sum(学号) from 借阅 order by 学号  （21）在学生借书数据库中，已有“学生”表和“借阅”表，其中“学生”表含有“学号”、“姓名”等信息，“借阅”表含有“借阅编号”、“学号”等信息。若要找出没有借过书的学生记录，并显示其“学号”和“姓名”，则正确的查询设计是    （22）启动窗体时，系统首先执行的事件过程是 　　A）Load　　B）Click　　C）Unload　　D）GotFocus 　（23）在设计报表的过程中，如果要进行强制分页，应使用的工具图标是 　 INCLUDEPICTURE "http://www.ncre100.com/upload_files/30/IeJox__20099224085.gif" \* MERGEFORMATINET INCLUDEPICTURE "http://www.ncre100.com/upload_files/30/IeJox__20099224085.gif" \* MERGEFORMATINET INCLUDEPICTURE "http://www.ncre100.com/upload_files/30/IeJox__20099224085.gif" \* MERGEFORMATINET 　　（24）下列操作中，适合使用宏的是 　　A）修改数据表结构　　B）创建自定义过程　　C）打开或关闭报表对象　　D）处理报表中错误 　　（25）执行语句：MsgBox ”AAAA”, vbOKCancel+vbQuetion, “BBBB”之后，弹出的信息框 　　A）标题为“BBBB”、框内提示符为“惊叹号”、提示

内容

财务内部控制制度的内容财务内部控制制度的内容人员招聘与配置的内容项目成本控制的内容消防安全演练内容

为“AAAA” 　　B）标题为“AAAA”、框内提示符为“惊叹号”、提示内容为“BBBB” 　　C）标题为“BBBB”、框内提示符为“问号”、提示内容为“AAAA” 　　D）标题为“AAAA”、框内提示符为“问号”、提示内容为“BBBB”   （26）窗体中有3个命令按钮，分别命名为Command1、Command2和 Command3。当单击Command1按钮时，Command2按钮变为可用，Command3按钮变为不可见。下列Command1的单击事件过程中，正确的是 　　Ａ）private sub Command1_Click() 　　Command2.Visible = true 　　Command3.Visible = false 　　Ｂ）private sub Command1_Click() 　　Command2.Enable = true 　　Command3.Enable = false 　　Ｃ）private sub Command1_Click() 　　Command2.Enable = true 　　Command3.Visible = false 　　Ｄ）private sub Command1_Click() 　　Command2.Visible = true 　　Command3.Enable = false 　　　　（27）用于获得字符串S最左边4个字符的函数是 　　A）Left(S,  4)　　B）Left(S,  1,  4)　　C）Leftstr(S,  4)　　D）Leftstr(S,  1,  4) 　　　　（28）窗体Caption属性的作用是 　　A）确定窗体的标题　　B）确定窗体的名称　　C）确定窗体的边界类型　　D）确定窗体的字体 　　　　（29）下列叙述中，错误的是。 　　A）宏能够一次完成多个操作　　B）可以将多个宏组成一个宏组 　　C）可以用编程的方法来实现宏　　D）宏命令一般由动作名和操作参数组成 　　（30）下列程数据类型中，不属于VBA的是 　　Ａ）长整型　　Ｂ）布尔型　　Ｃ）变体型　　Ｄ）指针型  （31）下列数组声明语句中，正确的是 　　A）Dim A [3,4] As Integer　　B）Dim A (3,4) As Integer　C）Dim A [3;4] As Integer　　D）Dim A (3;4) As Integer 　（32）在窗体中有一个文本框Test1，编写事件代码如下： 　　Private Sub Form_Click() 　　X= val (Inputbox(“输入x的值”)) 　　Y= 1 　　If X<>0 Then Y= 2 　　Text1.Value = Y 　　End Sub 　　打开窗体运行后，在输入框中输入整数12，文本框Text1中输出的结果是 　　A）1　　B）2　　C）3　　D）4 　（33）在窗体中有一个命令按钮Command1和一个文本框Test1，编写事件代码如下： 　　Private Sub Command1_Click() 　　For I = 1 To 4 　　x = 3 　　For j = 1 To 3 　　For k = 1 To 2 　　x= x + 3 　　Next k 　　Next j 　　Next I 　　Text1.Value = Str(x) 　　End Sub 　　打开窗体运行后，单击命令按钮，文本框Text1中输出的结果是 　　A）6　　B）12　　C）18　　D）21   （34）在窗体中有一个命令按钮Command1，编写事件代码如下： 　　Private Sub Command1_Click() 　　Dim  s  As  Integer 　　s = p(1) + p(2) + p(3) + p(4) 　　debug.Print s 　　End Sub 　　Public Function p (N  As  Integer) 　　Dim  Sum  As  Integer 　　Sum = 0 　　For i = 1 To N 　　Sum = Sum + 1 　　Next i 　　P = Sum 　　End Function 　　打开窗体运行后，单击命令按钮，输出的结果是 　　A）15　　B）20　　C）25　　D）35 　（35）下列过程的功能是：通过对象变量返回当前窗体的Recordset属性记录集引用，消息框中输出记录集的记录（即窗体记录源）个数。 　　Sub GetRecNum( ) 　　Dim rs As Object 　　Set rs = Me.Recordset 　　MsgBox----- 　　End Sub 　　程序空白处应填写的是 　　A）Count　　B）rs.Count　　C）RecordCount　　D）rs. RecordCount 二、填空题（每空2分，共30分） 　　（1）某二叉树由5个度为2的结点以及3个度为1的结点，则该二叉树中共有 【1】 个结点。 　　（2）程序流程图中的菱形框表示的是 【２】 。 　（3）软件开发过程主要分为需求分析、设计、编码与测试四个阶段，其中 【３】 阶段产生“软件需求规格

说明书

房屋状态说明书下载罗氏说明书下载焊机说明书下载罗氏说明书下载GGD说明书下载

“。 　　（4）在数据库技术中，实体集之间的联系可以是一对一或一对多的，那么“学生“和”可选课程“的联系为 【４】　。 　　（5）人员基本信息一般包括：身份证号、姓名、性别、年龄等。其中可以做主关键字的是 【５】　。 　　（6）Access中若要将数据库中的数据发布到网上，应采用的对象是 【6】 。 　　（7）在一个查询集中，要将指定的记录设置为当前记录，应该使用的宏操作命令是 【7】 。 　　（8）当文本框中的内容发生了改变时，触发的事件名称是 【8】 。 　　（9）在VBA中求字符串的长度可以使用函数 【9】 。 　　（10）要将正实数x保留两位小数，若采用Int 函数完成，则表达式为 【10】 。 　　（11）在窗体中有两个文本框分别为Text1和Text2，一个命令按钮Command1,编写如下两个事件过程： 　　Private Sub Command1_Click( ) 　　a = Text1.Value + Text2.Value 　　MsgBox a 　　End Sub 　　Private Sub Form_Load( ) 　　Text1.Value = “” 　　Text2.Value = “” 　　End Sub 　　程序运行时，在文本框Text1中输入78，在文本框中Text2输入87，单击命令按钮，消息框中输出的结果为 【11】 。    （12）某次大奖赛有7个评委同时为一位选手打分，去掉一个最高分和一个最低分，其余5个分数的平均值为该名参赛者的最后得分。请填空完成规定的功能。 　　Sub command1_click( ) 　　Dim mark!, aver!, i%,max1!,min1! 　　aver = 0 　　For i = 1 To 7 　　Mark = InputBox(“请输入第”& i & “位评为的打分”) 　　If i = 1 then 　　max1 =mark : min1=mark 　　Else 　　If mark < min1 then 　　min1= mark 　　ElseIf mark> max1 then 　　 【12】 　　End If 　　End If 　　 【13】 　　Next i 　　aver = (aver - max1- min1)/5 　　MsgBox aver 　　End Sub 　　（13）“学生成绩”表含有字段（学号，姓名，数学，外语，专业，总分）。下列程序的功能是：计算每名学生的总分（总分=数学+外语+专业）。请在程序空白处填入适当语句，使程序实现所需要的功能。 　　Private Sub Command1_Click( ) 　　Dim cn  As New ADODB.Connection 　　Dim rs  As New ADODB.Recordset 　　Dim zongfen  As New ADODB.Fileld 　　Dim shuxue  As New ADODB. Fileld 　　Dim waiyu  As New ADODB. Fileld 　　Dim zhuanye  As New ADODB. Fileld 　　Dim strSQL  As  Sting 　　Set cn = CurrentProject.Connection 　　StrSQL = “Select*from成绩表” 　　rs.OpenstrSQL, cn, adOpenDynamic, adLockptimistic, adCmdText 　　Set zongfen = rs.Filelds(“总分”) 　　Set shuxue = rs.Filelds(“数学”) 　　Set waiyu = rs.Filelds(“外语”) 　　Set zhuanye = rs.Filelds(“专业”) 　　Do while  【14】 　　Zongfen = shuxue + waiyu + zhuanye 　　 【15】 　　rs.MoveNext 　　Loop 　　rs.close 　　cn.close 　　Set rs = Nothing 　　Set cn = Nothing 　　End Sub 参考答案 选择题1-5 CBDAB 6-10 ACBCD 11-15 BBAAC 16-20 DDACB 21-25 AADCC 26-30 CAAAD 31-35 BBDBD 填空题 1 14 2 逻辑分析 3 需求分析 4 多对多 5 身份证号 6 数据访问页 7 GOTO RECORD 8 CHARGE 9 Len 10 Int(x*100)/100 11 7887 12 max1=mark 13 aver=aver+mark 14 not rs.EOF 15 rs.UPDATE 2010年3月全国计算机等级考试二级试卷Access数据库程序设计 一、选择题（每小题2分，共70分） 　　（1）下列叙述中，正确的是 　　A）对长度为n的有序链表进行查找，最坏情况下需要的比较次数为n 　　B）对长度为n的有序链表进行对分查找，最坏情况下需要的比较次数为（n/2） 　　C）对长度为n的有序链表进行对分查找，最坏情况下需要的比较次数为（log2n） 　　D）对长度为n的有序链表进行对分查找，最坏情况下需要的比较次数为（nlog2n） 　　（2）算法的时间复杂度是指 　　A）算法的执行时间　　B）算法所处理的数据量　　C）算法程序中的语句或指令条数 　　D）算法在执行过程中所需要的基本运算次数 　　（3）软件按功能可以分为：应用软件、系统软件和支撑软件（或工具软件）。下面属于系统  软件的是 　　A）编辑软件　　B）操作系统　　C）教务管理系统　　D）浏览器 　　（4）软件（程序）调试的任务是 　　A）诊断和改正程序中的错误    B）尽可能多地发现程序中的错误 　　C）发现并改正程序中的所有错误    D）确定程序中错误的性质 　　（5）数据流程图（DFD图）是 　　A）软件概要设计的工具　 　B）软件详细设计的工具 　　C）结构化方法的需求分析工具　　D）面向对象方法的需求分析工具 　　（6）软件生命周期可分为定义阶段，开发阶段和维护阶段。详细设计属于 　　A）定义阶段　　B）开发阶段　　C）维护阶段　　D）上述三个阶段 （7）数据库管理系统中负责数据模式定义的语言是 　　A）数据定义语言　　B）数据管理语言　　C）数据操纵语言　　D）数据控制语言 （8）在学生管理的关系数据库中，存取一个学生信息的数据单位是 　　A）文件　　B）数据库　　C）字段　　D）记录 　　（9）数据库设计中，用E-R图来描述信息结构但不涉及信息在计算机中的表示，它属于数据库设计的 　　A）需求分析阶段　　B）逻辑设计阶段　　C）概念设计阶段　　D）物理设计阶段 　　（10）有两个关系R和T如下： 　　则由关系R得到关系T的操作是 　　A）选择　　B）投影　　C）交　　D）并 　　（11）下列关于关系数据库中数据表的描述，正确的是 A）数据表相互之间存在联系，但用独立的文件名保存　　B）数据表相互之间存在联系，是用表名表示相互间的联系 　　C）数据表相互之间不存在联系，完全独立　 　D）数据表既相对独立，又相互联系 　　（12)下列对数据输入无法起到约束作用的是 　　A）输入掩码　　B）有效性规则　　C）字段名称 　（13）Access中，设置为主键的字段 　　A）不能设置索引　　B）可设置为“有（有重复）”索引　　C）系统自动设置索引　　D）可设置为“无”索引 　　（14）输入掩码字符“＆”的含义是 　　A）必须输入字母或数字　 　B）可以选择输入字母或数字 　　C）必须输入一个任意的字符或一个空格　　D）可以选择输入任意的字符或一个空格 　　（15）在Access中，如果不想显示数据表中的某些字段，可以使用的命令是 　　A）隐藏　　B）删除　　C）冻结　　D）筛选 　　（16）通配符“#”的含义是 　A）通配任意个数的字符　　B）通配任何单个字符　　C）通配任意个数的数字字符　　D）通配任何单个数字字符 　　（17）若要求在文本框中输入文本时达到密码“*”的显示效果，则应该设置的属性是 　　A）默认值　　B）有效性文本　　C）输入掩码　　D）密码 　（18）假设“公司”表中有编号、名称、法人等字段，查找公司名称中有“网络”二字的公司信息，正确的命令是 　　A）SELECT * FROM公司FOR名称 = " *网络* "　　B）SELECT * FROM公司FOR名称LIKE "*网络*" 　　C）SELECT * FROM公司WHERE名称="*网络*"　　D）SELECT * FROM公司WHERE名称LIKE"*网络*" 　　（19）利用对话框提示用户输入查询条件，这样的查询属于 　　A）选择查询　　B）参数查询　　C）操作查询　　D）SQL查询 　　（20）在SQL查询中“GROUP BY”的含义是 　　A）选择行条件　　B）对查询进行排序　　C）选择列字段　　D）对查询进行分组 （21）在调试VBA程序时，能自动被检查出来的错误是 　　A）语法错误　　B）逻辑错误　　C）运行错误　　D）语法错误和逻辑错误 　　（22）为窗体或报表的控件设置属性值的正确宏操作命令是 　　A）Set　　B）SetData　　C）SetValue　　D）SetWarnings 　　（23）在已建窗体中有一命令按钮（名为Commandl），该按钮的单击事件对应的VBA代码为： 　　Private Sub Commandl_Click() 　　    subT.Form.RecordSource = "select * from雇员" 　　End Sub 　　单击该按钮实现的功能是 　　A）使用select命令查找“雇员”表中的所有记录　　B）使用select命令查找并显示“雇员”表中的所有记录 　　C）将subT窗体的数据来源设置为一个字符串　　D）将subT窗体的数据来源设置为“雇员”表 　　（24）在报表设计过程中，不适合添加的控件是 　　A）标签控件　　B）图形控件　　C）文本框控件　　D）选项组控件 　　（25）下列关于对象“更新前”事件的叙述中，正确的是 　　A）在控件或记录的数据变化后发生的事件　　B）在控件或记录的数据变化前发生的事件 　　C）当窗体或控件接收到焦点时发生的事件　　D）当窗体或控件失去了焦点时发生的事件 　　（26）下列属于通知或警告用户的命令是 　　A）PrintOut　　B）OutputTo　　C）MsgBox　　D）RunWarnings 　　（27）能够实现从指定记录集里检索特定字段值的函数是 　　A）Nz　　B）Find　　C）Lookup　　D）DLookup    （28）如果X是一个正的实数，保留两位小数、将千分位四舍五入的表达式是 　　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”语句，然后定义二维数组A(2 to 5,5)，则该数组的元素个数为 　　A）20　　B）24　　C）25　　D）36 　　（30）由“For i=1 To 9 Step -3”决定的循环结构，其循环体将被执行 　　A）0次　　B）1次　　C）4次　　D）5次 　　（31）在窗体上有一个命令按钮Commandl和一个文本框Textl，编写事件代码如下： 　　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 　　打开窗体运行后，单击命令按钮，文本框中显示的结果是 　　A）1　　B）7　　C）17　　D）400 　　（32）在窗体上有一个命令按钮Commandl，编写事件代码如下： 　　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 　　打开窗体运行后，单击命令按钮，依次输入10、37、50、55、64、20、28、19、-19、0，立即窗口上输出的结果是 　　A）37  55  64  28  19  19　　B）10  50  20　　C）10  50  20  0　　D）37  55  64  28  19 （33）在窗体上有一个命令按钮Command 1，编写事件代码如下： 　　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 　　打开窗体运行后，单击命令按钮，立即窗口上输出的结果是 　　A）2  32　　B）12  3　　C）2  2　　D）12  32 　　34）在窗体上有一个命令按钮Commandl，编写事件代码如下： 　　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 　　打开窗体运行后，单击命令按钮，消息框中输出的结果是 　　A）1　　B）2　　C）10　　D）11 　　（35）下列程序段的功能是实现“学生”表中“年龄”字段值加1 　　Dim Str As String 　　  Str="           " 　　Docmd.RunSQL Str 　　空白处应填入的程序代码是 　　A）年龄=年龄+1　　B）Update学生 Set 年龄=年龄+1 　　C）Set 年龄=年龄+1　　D）Edit 学生 年龄=年龄+l 　二、填空题请将每一个空的正确答案写在答题卡【l】~【15】序号的横线上，答在试卷上不得分。 　（1）一个队列的初始状态为空。现将元素A,B,C,D,E,F,5,4,3,2,1依次入队，然后再依次退队，则元素退队的顺序为 【l】 。 　　（2）设某循环队列的容量为50，如果头指针front=45（指向队头元素的前一位置），尾指针rear=10（指向队尾元素），则该循环队列中共有【2】个元素。 　　（3）设二叉树如下： 　　对该二叉树进行后序遍历的结果为【3】。 　　（4）软件是【4】、数据和文档的集合。 　　（5）有一个学生选课的关系，其中学生的关系模式为：学生（学号，姓名，班级，年龄），课程的关系模式为：课程（课号，课程名，学时），其中两个关系模式的键分别是学号和课号，则关系模式选课可定义为：选课（学号，【5】，成绩）。 　（6）下图所示的窗体上有一个命令按钮（名称为Command1）和一个选项组（名称为Framel），选项组上显示“Framel”文本的标签控件名称为Labell，若将选项组上显示文本“Frame1”改为汉字“性别”，应使用的语句是【6】。 　　（7）在当前窗体上，若要实现将焦点移动到指定控件，应使用的宏操作命令是【7】。 　　（8）使用向导创建数据访问页时，在确定分组级别步骤中最多可设置【8】个分组字段。 　　（9）在窗体文本框Text l中输入“456AbC”后，立即窗口上输出的结果是【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）在窗体上有一个命令按钮Commandl，编写事件代码如下： 　　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 　　打开窗体运行后，单击命令按钮，消息框中输出的结果是【10】。 　　（11）下列程序的功能是找出被5、7除，余数为1的最小的5个正整数。请在程序空白处填入适当的语句，使程序可以完成指定的功能。 　　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之间所有的素数，并统计输出素数的个数。请在程序空白处填入适当的语句，使程序可以完成指定的功能。 　　Private Sub Command2_Click() 　　Dim i%, j%, k%, t %   ‘t 为统计素数的个数 　　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）数据库中有工资表，包括“姓名”、“工资”和“职称”等字段，现要对不同职称的职工增加工资，规定教授职称增加15%，副教授职称增加10%，其他人员增加5%。下列程序的功能是按照上述规定调整每位职工的工资，并显示所涨工资之总和。请在空白处填入适当的语句，使程序可以完成指定的功能。 　　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("职称") 　　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 "涨工资总计:" & sum 　　End Sub VBA语句 1. 条件语句 根据条件表达式的值来选择程序运行语句。 ① If … then … end if 语句 （1） 单路分支语句 格式： If 条件式 then 语句 End If 1-1 求绝对值： 在窗体中添加一个命令按钮，和一个名称为t1的文本框，然后编写如下事件代码： Dim x As Integer x = Val(InputBox("请输入数字")) If x < 0 Then x = -x End If t1 = x 1-2 在窗体中添加一个名称为command1的命令按钮，然后编写如下事件代码： Private sub command1-click() a=75 If a>60 then k=1 If a>70 then k=2 If a>80 then k=3 If a>90 then k=4 Msgbox k End Sub 问：消息框输出结果是什么？ （2） 双路分支语句 格式： If 条件式 then 语句 1 Else 语句 2 End If 2-1 比较AB大小： 在窗体中添加一个命令按钮，和一个名称为t1的文本框，然后编写如下事件代码： 程序1 Dim a, b, c As Integer a = Val(InputBox("请输入数字")) b = Val(InputBox("请输入数字")) If a > b Then c = a Else c = b End If t1 = c 程序2 Dim a, b As Integer a = Val(InputBox("请输入数字")) b = Val(InputBox("请输入数字")) If a > b Then t1= a Else t1= b End If （3） 多路分支语句 格式： If 条件式1 then 语句 1 ElseIf 条件式2 then 语句2 ElseIf 条件式3 then 语句3 … … ElseIf 条件式n then 语句n Else 语句n+1 EndIf 注意：If …ElseIf…EndIf语句（我们要把它看成是一个整体，相当于一条语句）结构，If后面的分支具有互斥性，从上面的If分支一直到下面的ElseIf分支，只要有一个满足条件，后面即使再有满足条件的分支，也不会判断和执行。 3-1成绩判断： 在窗体中添加一个名称为command1的命令按钮，然后编写如下事件代码： Dim x As Integer x = Val(InputBox("请输入成绩")) If x >= 85 Then MsgBox "优秀" ElseIf x >= 70 Then MsgBox "中等" ElseIf x >= 60 Then MsgBox "及格" Else MsgBox "不及格" End If （若将成绩分值由60-70-80书写，结果会怎样？） 3-2 成绩判断： 在窗体中添加一个名称为command1的命令按钮，然后编写如下事件代码： Dim x As Integer x = Val(InputBox("请输入成绩")) If x >= 60 Then MsgBox "及格" ElseIf x >= 70 Then MsgBox "中等" ElseIf x >= 85 Then MsgBox "优秀" Else MsgBox "不及格" End If 2 Select Case …… End Select 语句 当条件项较多时，使用If…ThenIf 控制结构可能会使得程序变得很复杂，因为要使用If…ThenIf控制结构就必须依据多重嵌套。使用VBA提供的Select Case ……End Select 语句结构就可以解决这类问题。 使用格式：Select Case 表达式 Case 表达式1 (表达式值与表达式1值相等时执行的语句序列) Case 表达式2 To 表达式3 （表达式值介于表达式2值和表达式值3之间时执行的语句序列） Case Is 关系运算符 表达式4 （表达式值与表达式4值之间满足关系运算为真时执行的语句序列） Case Else (上面的情况均不符合时执行的语句序列) End Select 1 开根号 0 绝对值 x>0 y=x开根号 x=0 y=0 x<0 y=x的绝对值 在窗体中添加一个名称为t1的命令按钮，然后编写如下事件代码： Dim x As Integer x = Val(InputBox("请输入数字")) Select Case x Case Is > 0 t1 = Sqr(x) Case 0 t1 = 0 Case Is < 0 t1 = Abs(x) End Select 2. 循环语句 循环结构是指程序执行在某个范围内循环往复，执行若干次的语句结构。VBA的循环结构又以下表现形式： （1） For … Next结构 For … Next结构语句能重复执行程序代码区域特定次数，使用格式如下： For 循环变量=初值 To 终值 [Step 步长] 循环体 [ 条件语句序列 Exit For 结束条件语句序列 ] Next [循环变量值] 执行步骤如下： 1 循环变量取初值； 2 循环变量与终值比较时，确定循环是否进行： 步长>0，循环变量值<=终值,循环继续，执行③；若循环变量值>终值,循环结束，推出循环。 步长=0，循环变量值<=终值, 死循环；若循环变量值>终值,一次也不执行循环。 步长<0，循环变量值>=终值,循环继续，执行③；若循环变量值<终值,循环结束，推出循环。 3 执行循环体； 4 循环变量值增加步长（循环变量=循环变量+步长），程序跳至步骤②。 提示：若For…Next语句中没有给出步长，那默认步长为1。 1 1+2+3+……+10的和。 在窗体中添加一个命令按钮，和一个名称为t1的文本框，然后编写如下事件代码： Dim s,i as Integer s=0 For i=1 to 10 s=s+i Next t1=s 3 在窗体中添加一个命令按钮，和一个名称为t1的文本框，然后编写如下事件代码： Dim s, j as Integer s=0 For j=1 to 10 step 2 s=s+j Next t1=s 6 分析循环结构,共循环几次？ For k=5 to 10 step 2 K=2*K Next K 7 在窗体中添加一个名称为 command的命令按钮,然后编写如下事件代码： Private Sub command_click() Dim b,k For k=1to 6 b=23+k Next k MsgBox b+k EndSub 打开窗体后，单击命令按钮，消息框的输出结果是什么？ （2） Do While ( 或Until ) … Loop结构 ① Do While … Loop语句使用格式如下： Do While 条件式 循环体 [ 条件语句序列 Exit Do 结束条件语句序列 ] Loop 这个循环结构是条件式结果为真时，执行循环体，并持续到条件式为假或执行到选择Exit Do语句而退出循环。 例 用Do While … Loop 语句计算1+2+3+……+100的和。 i=1 s=0 Do While i<=100 s=s+i i=i+1 Loop ② Do Until … Loop语句使用格式如下： Do Until 条件式 循环体 [ 条件语句序列 Exit Do 结束条件语句序列 ] Loop 这个循环结构是条件式结果为假时，执行循环体，并持续到条件式为真或执行到选择Exit Do语句而退出循环（与Do While … Loop语句功能刚好相反）。 例 用Do Unile … Loop 语句计算1+2+3+……+100的和。 i=1 s=0 Do Unile i>100 s=s+i i=i+1 Loop （3） Do … Loop While ( 或Until )结构 ① Do … Loop While语句使用格式如下： Do 循环体 [ 条件语句序列 Exit Do 结束条件语句序列 ] Loop While 条件式 这个循环结构是先执行循环体，再来判断条件式的结果，若为真时，继续执行循环体，并持续到条件式结果为假或执行到选择Exit Do语句而退出循环。 例 用Do … Loop While 语句计算1+2+3+……+100的和。 i=1 s=0 Do s=s+i i=i+1 Loop While i<=100 ② Do … Loop Until语句使用格式如下： Do 循环体 [ 条件语句序列 Exit Do 结束条件语句序列 ] Loop Until 条件式 这个循环结构是先执行循环体，再来判断条件式的结果，若为假时，继续执行循环体，并持续到条件式结果为真或执行到选择Exit Do语句而退出循环。 例 用Do … Loop Until 语句计算1+2+3+……+100的和。 i=1 s=0 Do s=s+i i=i+1 Loop Until i>100 （4） While … Wend结构 While … Wend循环与Do While … Loop结构类似，但不能在While … Wend循环中使用Exit Do语句。 While … Wend语句使用格式如下： While 条件式 循环体 Wend 例 用While … Wend 语句计算1+2+3+……+100的和。 i=1 s=0 While i<=100 s=s+i i=i+1 Wend 循环结构的类型变化多，应用的范围广，是VBA中的一个重要控制结构。关于循环使用还需要注意： 1. For … Next 循环结构的执行流程应熟练掌握。尤其循环终止条件的判断要准确。 2. Do … Loop结构4种形式的用法差异要了解。掌握While后条件为“真”，循环执行，条件式为“假”，循环终止；Until后条件为“假”，循环执行，条件式为“真”，循环终止。 3. While … Wend结构是为兼容QBasic和QuickBASIC而提供的。VBA中已有Do While … Loop循环结构相对应，While … Wend结构一般不使用。 4. 在For … Next 循环结构的循环体内使用语句Exit For或者在Do … Loop结构的循环体内使用语句Exit Do可以提前终止循环的进行并退出循环执行循环的下一条语句。 5. 循环结构设计可以嵌套但不能交叉。嵌套的多重循环执行过程同单重循环。 6. 循环结构常应用于数组的操作中。一般单重循环操作一维数组，双重循环执行过程同单重循环。 7. 程序调试运行过程中，出现“死循环”时，系统会处于在一个等待或无休止的处理状态。这时，可以通过按键盘组合键Ctrl+Break来强行中止程序运行，进入到调试状态。 PAGE