内容发布更新时间 : 2024/7/4 12:09:53星期一 下面是文章的全部内容请认真阅读。

t=0 m=1 sum=0 DO t=t+m sum=sum+t m=______

Loop While m<=39 MsgBox \＆sum End Sub

为保证程序正确完成上述功能，空白处应填入的语句是______。

（分数：2.00） A.m+1 B.m+2 √ C.t+1 D.t+2

解析：[解析] 本题考查VBA中Do…Loop While循环语句的相关知识。该结构先执行。Do后的循环体，然后判断LoopWhile后的条件表达式是否为真，若为真，重复执行循环体，直至条件式值为假，结束循环。根据sum表达式对每次循环计算奇数之和的特点，m的初值为1，后面应每次递增2，以满足奇数的要求，故答案为B。

35.下列程序的功能是返回当前窗体的记录集______。 Sub GetRecNum() Dim rs As Object Set rs=______ MsgBox rs.RecordCount End Sub

为保证程序输出记录集(窗体记录源) 的记录数，空白处应填入的语句是______。

（分数：2.00） A.Recordset B.Me.Recordset √ C.RecordSource D.Me.RecordSource

解析：[解析] 本题考查数据库编程的相关知识。程序的功能是返回当前窗体的记录集，用Me表示当前窗体，记录集用Recordset表示，故答案为B。

二、填空题(总题数：13，分数：30.00)

36.有序线性表能进行二分查找的前提是该线性表必须是 1存储的。

（分数：2.00）

填空项1:__________________ （正确答案：顺序）

解析：[解析] 本题考查的知识点是二分查找法的使用条件。不同的数据结构应采用不同的二分查找法。二分查找只适用于顺序存储的有序表。在此所说的有序表，指线性表中的元素按值非递减排列(即从小到大，但允许相邻元素值相等) 。所以应填顺序。

37.一棵二叉树的中序遍历结果为DBEAFC，前序遍历结果为ABDECF，则后序遍历结果为______。

（分数：2.00）

填空项1:__________________ （正确答案：DEBFCA）

解析：[解析] 本题考查的知识点是二叉树的遍历。前序遍历要求先遍历根节点，再遍历左子树，最后遍历右子树；中序遍历要求先遍历左子树，再遍历根节点，最后遍历右子树；后序遍历要求先遍历左子树，在遍历右子树，最后遍历根节点。由题目可求出该二叉树如图所示，所以该二叉树后序遍历的结果为DEBFCA。 [*]

38.对软件设计的最小单位(模块或程序单元) 进行的测试通常称为______测试。

（分数：2.00）

填空项1:__________________ （正确答案：单元）

解析：[解析] 本题考查的知识点是软件测试的过程。软件测试的过程一般分4个步骤： 单元测试：是对软件设计的最小单位——模块进行正确性检验的测试。

集成测试：是测试和组装软件的过程，主要目的是发现接口有关的错误，其测试依据是概要设计说明书。集成测试的内容包括软件单元的接口测试、全局数据结构测试、边界条件和非法输入的测试。

确认测试：它的任务是用户根据合同进行，确定系统功能和性能的可接受性。对软件进行有效性测试，验证软件是否满足需求规格说明确认的标准。

系统测试：是将软件系统与硬件、外设或其他元素结合在一起，对整个软件系统进行测试。具体实施一般包括功能测试、性能测试、操作测试、配置测试、外部接口测试、安全测试等。 39.实体完整性约束要求关系数据库中元组的 1属性值不能为空。

（分数：2.00）

填空项1:__________________ （正确答案：主键(或主码)）

解析：[解析] 本题考查的知识点是实体完整性约束。每一个关系表都有一个主键用来唯一识别一个元组。实体完整性约束要求关系的主键值不能为空值，这是数据库完整性的最基本要求，因为主键是唯一决定元组的，若为空值则其唯一性就成为不可能的了。

40.在关系A(S，SN，D) 和关系B(D，CN，NM) 中，A的主关键字是S，B的主关键字是D，则称 1是关系A的外码。

（分数：2.00）

填空项1:__________________ （正确答案：D）

解析：[解析] 本题考查的知识点是关系的主码和外码。关系中有若干个键称为关系的候选码或候选键。从关系的所有候选键中选取一个作为用户使用的键称为主键或主码。关系A中的某属性集是关系B的键，则称该属性集为A的外键或外码。

41.在Access查询的条件表达式中要表示任意单个字符，应使用通配符 1。

（分数：2.00）

填空项1:__________________ （正确答案：?）

解析：[解析] 本题考查通配符的知识。Access中的条件表达式设计中经常要用到通配符，常见的通配符有：“*”代表0个或多个任意字符；“?”代表一个任意字符；“#”代表一个任意数字字符；“[]”代表与[]内任意一个字符匹配；“!”代表与任意一个不在方括号内的字符匹配，必须与[]一起使用。 42.在SELECT语句中，HAVING予句必须与 1子句一起使用。

（分数：2.00）

填空项1:__________________ （正确答案：GROUP BY）

解析：[解析] 本题考查SQL SELECT语句的基本语法。GROUP BY子句用于对检索结果进行分组，HAVING必须跟随GROUP BY子句使用，用来限定分组必须满足的条件。 43.若要在宏中打开某个数据表，应使用的宏命令是 1。

（分数：2.00）

填空项1:__________________ （正确答案：OpenTable）

解析：[解析] 本题考查宏操作的知识。Access中提供了50多个可选的宏操作命令，常用的打开操作有：OpenForm用于打开窗体，OpenQuery用于打开查询，OpenTable用于打开一个表，OpenModule则用于打开VBA中的模块，OpenReport用于打开报表。

44.在VBA中要将数值表达式的值转换为字符串，应使用函数 1。

（分数：2.00）

填空项1:__________________ （正确答案：Str）

解析：[解析] 本题考查Str函数的功能。Str函数的功能是将数值表达式转化为字符串。 45.运行下列程序，输入如下两行： Hi， I am here．

弹出的窗体中的显示结果是______。 Private Sub Command11_C1ick() Dim abc As String，sum As string sum=\DO

abc=InputBox(\输入abc\

If Right(abc，1) =\sum=sum+abC Loop MsgBox sum End Sub

（分数：2.00）

填空项1:__________________ （正确答案：Hi，）

解析：[解析] 本题考查循环语句和条件语句的嵌套。变量abc的值为输入的两行字符串，对第一行，其最右边字符为“, ”，不满足Riqht(abc，1)=”.”，因此变量sum的值更新为“Hi,”，对第二行，其最右边字符为“.”，满足Riqht(abc，1) =”．”，则退出循环，因此最终sum的值为“Hi,”。 46.运行下列程序，窗体中的显示结果是：x=______。 Option Compare Database Dim x As Integer

Private Sub Form_Load() x=3 End Sub

Private Sub Command11_C1ick() Static a As Integer Dim b As Integer

b=x^2 fun1 x,b fun1 x,b MsgBox \＆x End Sub

Sub fun1(ByRef Y As Integer，ByVal Z As Integer) y=y+z z=y-Z End Sub

（分数：2.00）

填空项1:__________________ （正确答案：21）

解析：[解析] 本题考查参数传递的相关知识。ByVal表示参数按值传递，过程调用中只是相应位置实参的值“单向”传递给形参处理，而被调用过程内部对形参的任何操作引起的形参值得变化均不会影响实参的值；ByRef表示参数按地址传递，过程调用中是将相应位置实参的地址传递给形参处理，而被调用过程内部对形参的任何操作引起的形参值得变化又会反向影响实参的值，具有“双向性”。在fun1过程中，y为按地址传递，其值随实参而变；z为按值传递，其对应实参值不变。Form Load() 为变量赋初值为3，在Command11_click() 中，b为9，fun1 x，b执行后，x=12，b=9； 第二条fun1 x，b执行后，x=21，b=9，因此窗体中的显示结果为：x=21。

“秒表”窗体中有两个按钮(“开始/停止”按钮bOK，“暂停/继续”按钮bPus) ；一个显示计时的标签1Num；窗体的“计时器间隔”设为100，计时精度为0.1秒。

要求：打开窗体如图1所示；第一次单击“开始停止”按钮，从0开始滚动显示计时(见图2) ；10秒时单击“暂停/继续”按钮，显示暂停(见图3) ，但计时还在继续；若20秒后再次单击“暂停/继续”按钮，计时会从30秒开始继续滚动显示；第二次单击“开始/停止”按钮，计时停止，显示最终时间(见图4) 。若再次单击“开始/停止”按钮可重新从0开始计时。

相关的事件程序如下。请在空白处填入适当的语句，使程序可以完成指定的功能。 Option Compare Database Dim flag，pause As Boolean Private Sub bOK Click() flag= (12) Me!bOK.Enabled=True Me!bPus.Enabled=flag End SUb

Private Sub bPuS CliCk() pauSe=Not pause

Me!bOK.Enabled=NOt Me!bOK.Enabled End SUb

Private Sub Form Open(Cancel As Integer) flag=False pause=False Me!bOK.Enabled=True Me!bPus.Enabled=FalSe End Sub

Private Sub Form Timer() Static count As Single If flag=True Then If pause=False Then