2022年Access数据库程序设计知识点分析 .pdf

名师精编优秀资料Access数据库程序设计知识点分析Access数据库程序设计1. 具有数据库系统的基础知识。2. 基本了解面向对象的概念。3. 掌握关系数据库的基本原理。4. 掌握数据库程序设计方法。5. 能使用 Access 建立一个小型数据库应用系统 。考试内容x 一、数据库基础知识1. 基本概念：数据库，数据模型，数据库管理系统，类和对象，事件。2. 关系数据库基本概念：关系模型 （实体的完整性，参照的完整性， 用户定义的完整性），关系模式，关系，元组，属性，字段，域，值，主关键字等。3. 关系运算基本概念：选择运算，投影运算，连接运算。4. SQL 基本命令：查询命令，操作命令。5. Access 系统简介：（1） Access 系统的基本特点。（2） 基本对象：表，查询，窗体，报表，页，宏，模块。习题解析：（1）下列关于Access 数据库特点的叙述中，错误的是（）2011.9 答案： DA)可以支持Internet/Intranet 应用B)可以保存多种类型的数据，包括多媒体数据C)可以通过编写应用程序来操作数据库中的数据D) 可以作为网状型数据库支持客户机/服务器应用系统（ 2）在进行关系数据库的逻辑设计时，E-R 图中的属性常被转换为关系中的属性，联系通常被转换为5 。2011.9 答案：关系（3） Access 数据库最基础的对象是（）2010.9 答案： AA)表B)宏C)报表D)查询二、数据库和表的基本操作1. 创建数据库：（1） 创建空数据库。（2） 使用向导创建数据库。2. 表的建立：（1） 建立表结构：使用向导，使用表设计器，使用数据表。（2） 设置字段属性。（3） 输入数据：直接输入数据，获取外部数据。3. 表间关系的建立与修改：（1） 表间关系的概念：一对一，一对多。（2） 建立表间关系。（3） 设置参照完整性。4. 表的维护：（1） 修改表结构：添加字段，修改字段，删除字段，重新设置主关键字。（2） 编辑表内容：添加记录，修改记录，删除记录，复制记录。（3） 调整表外观。5. 表的其他操作：（1） 查找数据。（2） 替换数据。（3） 排序记录。（ 4） 筛选记录。习题解析：（1）在 Access数据库中，表是由（）2011.9 答案： AA) 字段和记录组成B)查询和字段组成C)记录和窗体组成D)报表和字段组成（2）可以插入图片的字段类型是（）2011.9 答案： CA) 文本B)备注C)OLE 对象D)超链接（3）输入掩码字符“C”的含义是（）2011.9 答案： DA) 必须输入字母或数字B)可以选择输入字母或数字C)必须输入一个任意的字符或一个空格D)可以选择输入任意的字符或一个空格（4） Access 数据库中的字节（Byte）数值类型在数据库中占6 字节。 2011.9 答案： 1 名师归纳总结 精品学习资料 - - - - - - - - - - - - - - -精心整理归纳 精选学习资料 - - - - - - - - - - - - - - - 第 1 页，共 21 页 - - - - - - - - - 名师精编优秀资料（5）定义无符号整数类为UInt ，下面可以作为类UInt 实例化值的是（）2011.3 答案： BA)-369 B)369 C)0.369 D)整数集合 1 ，2，3，4，5 （6）下列关于货币数据类型的叙述中，错误的是（）2010.9答案： CA) 货币型字段在数据表中占8个字节的存储空间B)货币型字段可以与数字型数据混合计算，结果为货币型C)向货币型字段输入数据时，系统自动将其设置为4位小数（7）若将文本型字段的输入掩码设置为# #，则正确的输入数据是（）2010.9答案： BA)0755 abcdef B)07712345 C)a cd123456 D)# # （8）学校规定学生住宿标准是：本科生4 人一间，硕士生2 人一间，博士生1 人一间，学生与宿舍之间形成了住宿关系，这种住宿关系是（） 2011.9 答案： C A) 一对一联系B) 一对四联系C)一对多联系D)多对多联系（9）下列可以建立索引的数据类型是（）2011.3答案： AA) 文本B)超级链接C)备注D)OLE 对象（10）下列关于字段属性的叙述中，正确的是（）2011.3答案： DA) 可对任意类型的字段设置默认值 属性B)定义字段默认值的含义是该字段值不允许为空C)只有 文本 型数据能够使用输入掩码向导 D) 有效性规则 属性只允许定义一个条件表达式（11）查询 书名 字段中包含 等级考试 字样的记录，应该使用的条件是（）2011.3 答案： DA)Like 等级考试 B)Like *等级考试 C)Like 等级考试 * D)Like *等级考试 * （12）在Access中对表进行 筛选 操作的结果是（）2011.3答案： AA)从数据中挑选出满足条件的记录B)从数据中挑选出满足条件的记录并生成一个新表C)从数据中挑选出满足条件的记录并输出到一个报表中D)从数据中挑选出满足条件的记录并显示在一个窗体中（18）在数据表视图中，不能进行的操作是（）2011.3 答案： BA)删除一条记录 B)修改字段的类型 C)删除一个字段 D)修改字段的名称三、查询的基本操作1. 查询分类：（1） 选择查询（2） 参数查询（3） 交叉表查询（4） 操作查询（ 5） SQL 查询2. 查询准则：（1） 运算符（2） 函数（3） 表达式。3. 创建查询：（1） 使用向导创建查询（2） 使用设计器创建查询（3） 在查询中计算4. 操作已创建的查询：（1） 运行已创建的查询（2） 编辑查询中的字段（3） 编辑查询中的数据源（4） 排序查询的结果习题解析：（1）或在查询条件中使用了通配符“！” ，它的含义是（） 2011.9 答案： BA)通配任意长度的字符B) 通配不在括号内的任意字符C)通配方括号内列出的任一单个字符D)错误的使用方法（2）在 SQL 语言的 SELECT 语句中，用于指明检索结果排序的子句是（） 2011.9 答案： DA)FROM B)WHILE C) GROUP BY D)ORDER BY （3） 要将“选课成绩”表中学生的“成绩”取整，可以使用的函数是（） 2011.9 答案： BA)Abs （ 成绩 ）B)Int( 成绩 ) C)Sqr(成绩 ) D)Sgn( 成绩 ) （4）有商品表内容如下：名师归纳总结 精品学习资料 - - - - - - - - - - - - - - -精心整理归纳 精选学习资料 - - - - - - - - - - - - - - - 第 2 页，共 21 页 - - - - - - - - - 名师精编优秀资料执行 SQL 命令： SELECT 部门号 ,MAX( 单价 * 数量 ) FROM 商品表GROUP BY 部门号 ; 查询结果的记录数是（） 2011.9 答案： BA)1 B)3 C)4 D)10 （5）若要将 产品 表中所有供货商是ABC的产品单价下调50，则正确的 SQL 语句是（） 2011.3答案： BA)UPDATE 产品 SET 单价 =50 WHERE 供货商 =ABC B)UPDATE 产品 SET 单价 =单价 -50 WHERE 供货商 =ABC C)UPDATE FROM产品 SET 单价 =50 WHERE 供贷商 =ABC D)UPDATE FROM产品 SET 单价 =单价 -50 WHERE 供货商 =ABC（6）若查询的设计如下，则查询的功能是（）2011.3 答案： CA)设计尚未完成，无法进行统计B)统计班级信息仅含Null( 空) 值的记录个数C)统计班级信息不包括Null( 空) 值的记录个数D)统计班级信息包括Null( 空) 值全部记录个数（7）在Access查询的条件表达式中要表示任意单个字符，应使用通配符【6】。2011.3 ？（7）在 SELECT 语句中， HAVING 子句必须与【7】子句一起使用。2011.3 group by （8）如果在查询条件中使用通配符，其含义是（）2010.9 答案： DA)错误的使用方法 B) 通配不在括号内的任意字符C)通配任意长度的字符 D) 通配方括号内任一单个字符（9）在 SQL 语言的 SELECT 语句中，用于实现选择运算的子句是（）2010.9 答案： DA)FOR B)IF C)WHILE D)WHERE （10）在成绩中要查找成绩80且成绩 90的学生，正确的条件表达式是（）2010.9 答案： AA)成绩 Between 80 And 90 B)成绩 Between 80 To 90 C)成绩 Between 79 And 91 D)成绩 Between 79 TO 91 （11） 学生表 中有 学号 、 姓名 、 性别 和 入学成绩 等字段。执行如下 SQL命令后的结果是 （）2010.9 Select avg(入学成绩 )From学生表 Group by 性别答案： DA)计算并显示所有学生的平均入学成绩 B)计算并显示所有学生的性别和平均入学成绩C)按性别顺序计算并显示所有学生的平均入学成绩 D) 按性别分组计算并显示不同性别学生的平均入学成绩（12）若在 销售总数 窗体中有 订货总数 文本框控件，能够正确引用控件值的是（）2010.9 答案： DA)Forms. 销售总数 .订货总数 B)Forms！ 销售总数 .订货总数 C)Forms. 销售总数 ！ 订货总数 D)Forms！ 销售总数 ！ 订货总数 （13）如果要求在执行查询时通过输入的学号查询学生信息，可以采用【6】查询。 2010.9 参数四、窗体的基本操作1. 窗体分类：（ 1） 纵栏式窗体（2） 表格式窗体（ 3） 主/子窗体。（ 4） 数据表窗体（5） 图表窗体（6） 数据透视表窗体。2. 创建窗体：名师归纳总结 精品学习资料 - - - - - - - - - - - - - - -精心整理归纳 精选学习资料 - - - - - - - - - - - - - - - 第 3 页，共 21 页 - - - - - - - - - 名师精编优秀资料（1） 使用向导创建窗体。（2） 使用设计器创建窗体：控件的含义及种类，在窗体中添加和修改控件，设置控件的常见属性。习题解析：（1）下列属性中，属于窗体的“数据”类属性的是（） 2011.9 答案： AA) 记录源B)自动居中C)获得焦点D)记录选择器（2）在 Access中为窗体上的控件设计Tab 键的顺序，应选择“属性”对话框的（） 2011.9 答案： D A) “格式”选项卡B)“数据”选项卡C)“事件”选项卡D)“其他”选项卡（3）在打开窗体时，依次发生的事件是（） 2011.9 答案： A A) 打开（ Open）-加载（ Load）-调整大小 (Resize)-激活 (Activate) B) 打开（ Open-激活 (Activate) ） -加载（ Load）-调整大小 (Resize) C) 打开（ Open）-调整大小 (Resize)-加载（ Load）-激活 (Activate) D) 打开（ Open）-激活 (Activate) - 调整大小 (Resize)-加载（ Load）（4）若窗体名称为Form1，则将该窗体标题设置为“Access窗体”的语句是9 。2011.9 答案： Form1.Caption= ” Access窗体 ”（5）在学生表中使用照片 字段存放相片， 当使用向导为该表创建窗体时，照片字段使用的默认控件是（）2011.3 答案： CA)图形B)图像 C)绑定对象框D)未绑定对象框（6）在教师信息输入窗体中，为职称字段提供教授 、 副教授 、讲师 等选项供用户直接选择，应使用的控件是（）2011.3答案： DA)标签B)复选框C)文本框D)组合框（7）因修改文本框中的数据而触发的事件是（）2010.9 答案： AA)Change B)Edit C)Getfocus D)LostFocus （8）若在窗体设计过程中，命令按钮 Command0 的事件属性设置如下图所示，则含义是（）2011.3答案： AA)只能为 进入 事件和 单击 事件编写事件过程B)不能为 进入 事件和 单击 事件编写事件过程C) 进入 事件和 单击 事件执行的是同一事件过程D)已经为 进入 事件和 单击 事件编写了事件过程（9）若窗体 Frm1中有一个命令按钮Cmd1 ，则窗体和命令按钮的Click 事件过程名分别为（）2011.3A)Form_Click() Command1_Click() B)Frm1_Click() Commamd1_Click() C)Form_Click() Cmd1_Click() D)Frm1_Click() Cmd1_Click() 答案： A（10）如果在文本框内输入数据后，按 键或按 键，输入焦点可立即移至下一指定文本框，应设置（）2010.9 答案： BA) 制表位 属性 B)Tab键索引 属性 C)自动 Tab键 属性 D)Enter键行为 属性五、报表的基本操作1. 报表分类：（1） 纵栏式报表；（2） 表格式报表。（3） 图表报表。（4） 标签报表。2. 使用向导创建报表。3. 使用设计器编辑报表。4. 在报表中计算和汇总。习题解析：（1）下图所示的是报表设计视图，由此可判断该报表的分组字段是（） 2011.9 答案： D名师归纳总结 精品学习资料 - - - - - - - - - - - - - - -精心整理归纳 精选学习资料 - - - - - - - - - - - - - - - 第 4 页，共 21 页 - - - - - - - - - 名师精编优秀资料A) 课程名称B)学分C)成绩D)姓名（2）在报表中要显示格式为“第N 页”的页码，页码格式设置是：=” 第” & 7 & ” 页” 。 2011.9 答案： page （3）在报表中要显示格式为共 N页，第 N页的页码，正确的页码格式设置是（）2011.3 答案： DA)= 共+Pages+页，第 +Page+页 B)= 共 +Pages +页，第 +Page+页 C)= 共& Pages & 页，第 & Page & 页 D)= 共& Pages& 页，第 & Page& 页 （4）在报表中，要计算数学 字段的最低分，应将控件的控件来源 属性设置为（）2010.9答案： AA)Min( 数学 ) B)Min( 数学 ) C)Min 数学 D)Min( 数学 ) 六、页的基本操作1. 数据访问页的概念。2. 创建数据访问页：（1） 自动创建数据访问页。（2） 使用向导数据访问页。习题解析：（1）要将 Access 数据库中保存的数据发布到网络上，可以采用的对象是8 。 2011.9 数据访问页（2）Access中产生的数据访问页会保存在独立文件中，其文件格式是【7】。HTML 七、宏1. 宏的基本概念。2. 宏的基本操作：（1） 创建宏：创建一个宏，创建宏组。（2） 运行宏。（3） 在宏中使用条件。（4） 设置宏操作参数（5） 常用的宏操作。习题解析：（ 1）某学生成绩管理系统的“主窗体”如下图左侧所示，点击“退出系统”按钮会弹出下图右侧“请确认”提示框；如果继续点击“是”按钮，才会关闭主窗体退出系统，如果点击“否”按钮，则会返回“主窗体”继续运行系统。为了达到这样的运行效果，在设计主窗体时为“退出系统”按钮的“单击”事件设置了一个“退出系统”宏，正确的宏设计是（） 2011.9 答案： A A) 名师归纳总结 精品学习资料 - - - - - - - - - - - - - - -精心整理归纳 精选学习资料 - - - - - - - - - - - - - - - 第 5 页，共 21 页 - - - - - - - - - 名师精编优秀资料B) C) D) （2）在宏表达式中要引用Form1 窗体中的txt1 控件的值，正确的引用方法是（） 2011.9 答案： CA)Form1!txt1 B)txt1 C)Forms!Form1!txt1 D)Forms!txt1 （3）某窗体上有一个命令按钮，要求单击该按钮后调用宏打开应用程序Word，则设计该宏时应选择的宏命令是（） 2011.3 答案： AA)RunApp B)RunCode C)RunMacro D)RunCommand （4）若要在宏中打开某个数据表，应使用的宏命令是【 8】。 OpenTable （8）可以通过多种方法执行宏：在其他宏中调用该宏；在VBA 程序中调用该宏；【 8】发生时触发该宏。 （ ）2010.9 事件八、模块1. 模块的基本概念：（1） 类模块（2） 标准 模块（ 3） 将宏转换为模块2. 创建模块：（1） 创建 VBA 模块：在模块中加入过程，在模块中执行宏。（2） 编写事件过程：键盘事件，鼠标事件，窗口事件，操作事件和其他事件。3. 调用和参数传递。4. VBA 程序设计基础：（1） 面向对象程序设计的基本概念。（2） VBA 编程环境：进入VBE ，VBE 界面。（3） VBA 编程基础：常量，变量，表达式。（4） VBA 程序流程控制：顺序控制，选择控制，循环控制。（5） VBA 程序的调试：设置断点，单步跟踪，设置监视点。习题解析：（1）将一个数转换成相应字符串的函数是（） 2011.9 答案： AA)Str B)String C)Asc D)Chr （2） VBA 中定义符号常量使用的关键字是（） 2011.9 答案： AA)Const B)Dim C)Public D)Static （3）由“ For i = 1 To 16 Step 3”决定的循环结构被执行（） 2011.9 答案： BA) 4 次B)5 次C)6 次D)7 次（4）可以用InputBox 函数产生“输入对话框”。执行语句：st = InputBox( “ 请输入字符串” ,” 字符串对话框 ” ,” aaaa ” ) 当用户输入字符串“bbbb” ，按 OK 按钮后，变量st 的内容是（） 2011.9 答案： D A) aaaa B)请输入字符串C)字符串对话框D)bbbb （5）下列不属于VBA 函数的是（） 2011.9 答案： B A)Choose B)If C)IIf D)Switch 名师归纳总结 精品学习资料 - - - - - - - - - - - - - - -精心整理归纳 精选学习资料 - - - - - - - - - - - - - - - 第 6 页，共 21 页 - - - - - - - - - 名师精编优秀资料（6）若有以下窗体单击事件过程：Private Sub Form_Click() result = 1 For i = 1 To 6 Step 3 result = result * i Next i MsgBox result End Sub 打开窗体运行后，单击窗体，则消息框的输出内容是（） 2011.9 答案： B A)1 B)4 C)15 D)120 （7）窗体中有命令按钮Command32，其 Click 事件代码如下。该事件的完整功能是：接收从键盘输入的10 个大于 0 的整数，找出其中的最大值和对应的输入位置：Private Sub Command32_Click() max = 0 max_n = 0 For i = 1 To 10 num = Val(InputBox( “ 请输入第 ” &i& ” 个大于 0 的整数： ” ) if Then max = num max_n = i End If Next i MsgBox( “ 最大值为第 ” &max_n &” 个输入的 ” &max) End Sub 程序空白处应该填入的表达式是（） 2011.9 答案： CA) num i B)i max D) num max （8）若有如下Sub 过程：Sub sfun ( x As Single, y As Single ) t = x x = t / y y = t Mod y End Sub 往窗体中添加一个命令按钮Command33，对应的事件过程如下：Private Sub Command33_Click() Dim a As Single Dim b As Single a = 5 : b = 4 sfun( a, b ) MsgBox a & chr(10) + chr (13) & b End Sub 打开窗体运行后，单击命令按钮，消息框中有两行输出，内容分别为（） 2011.9 答案： BA) 1 和 1 B)1.25 和 1 C)1.25 和 4 D)5 和 4 （9）运行下列程序，显示的结果是（） 2011.9 答案： CPrivate Sub Command34_Click() 名师归纳总结 精品学习资料 - - - - - - - - - - - - - - -精心整理归纳 精选学习资料 - - - - - - - - - - - - - - - 第 7 页，共 21 页 - - - - - - - - - 名师精编优秀资料i = 0 Do i = i + 1 Loop While i sqr(I) Then Debug.Print I; Next I End Sub A) 1 5 7 9 B)4 6 8 C) 3 5 7 9 D) 2 3 5 7 （11）下列程序段的功能是求1 到 100 的累加和。请在空白处填入适当的语句，使程序完成指定的功能。2011.9 答案： m 30 Then MsgBox 请在 30 秒中登录 , vbCritical, 警告 DoCmd.Close Else Me!Tnum = 30 - Second 倒计时显示End If Second = 12 Second + 1End Sub Private Sub OK_Click() If Me.UserName 123 Or Me.UserPassword 456 Then MsgBox 错误 ! + 您还有 & 30 - Second & 秒, vbCritical, 提示 Else Me.TimerInterval = 13 False终止 Timer 事件继续发生MsgBox 欢迎使用！ , vbInformation, 成功 DoCmd.Close End If End Sub （ 14）数据库中有“平时成绩表”，包括“学号” 、 “姓名”、 “平时作业” 、 “小测验”、 “其中考试” 、 “平时成绩”和“能否考试”等字段，其中，平时成绩平时作业*50%+ 小测验 *10%+ 期中成绩 *40% ，如果学生平时成绩大于等于60 分，则可以参加期末考试（“能否考试”字段为真），否则学生不能参加期末考试。下面的程序按照上述要求计算每名学生的平时成绩并确定是否能够参加期末考试。请在空白处填入适当的语句，使程序可以完成所需要的功能。2011.9 Private Sub Command0_Click() Dim db As DAO.Database Dim rs As DAO.Recordset 名师归纳总结 精品学习资料 - - - - - - - - - - - - - - -精心整理归纳 精选学习资料 - - - - - - - - - - - - - - - 第 9 页，共 21 页 - - - - - - - - - 名师精编优秀资料Dim pszy As DAO.Field, xcy As DAO.Field, qzks As DAO.Field Dim ps As DAO.Field, ks As DAO.Field Set db = CurrentDb() Set rs = db.OpenRecordSet(平时成绩表 ) Set pszy = rs.Fields( 平时作业 ) Set xcy = rs.Fields( 小测验 ) Set qzks = rs.Fields( 期中考试 ) Set ps = rs.Fields(平时成绩 ) Set ks = rs.Fields( 能否考试 ) Do While Not rs.EOF rs.Edit ps = 14 pszy*0.5 + xcy*0.1+qzcj*0.4If ps = 60 Then ks = True Else ks = False End If rs. 15 Updaters.MoveNext Loop rs.Close db.Close Set rs = Nothing Set db = Nothing End Sub （15）下列表达式中，能正确表示条件x 和y都是奇数 的是（）2011.3 答案： CA)x Mod 2=0 And y Mod 2=0 B)x Mod 2=0 Or y Mod 2=0 C)x Mod 2=1 And y Mod 2=1 D)x Mod 2=1 Or y Mod 2=1（16）在VBA 中，能自动检查出来的错误是（）2011.3 答案： AA)语法错误B)逻辑错误 C)运行错误D)注释错误（17）下列给出的选项中，非法的变量名是（）2011.3 答案： CA)Sum B)Integer_2 C)Rem D)Form1（18）如果在被调用的过程中改变了形参变量的值，但又不影响实参变量本身，这种参数传递方式称为（）2011.3 答案： AA)按值传递B) 按地址传递 C)ByRef传递D)按形参传递（19）表达式 B=INT(A+0.5)的功能是（）2011.3 答案： BA)将变量 A保留小数点后1位B)将变量 A四舍五入取整C)将变量 A保留小数点后5位D)舍去变量 A的小数部分（20）VBA 语句 Dim NewArray(10) as Integer的含义是（）2011.3 答案： BA)定义 10个整型数构成的数组NewArray B)定义 11个整型数构成的数组NewArray C)定义 1个值为整型数的变量NewArray(10) D)定义 1个值为 10的变量 NewArray（21）运行下列程序段，结果是（）2011.3 答案： BFor m=10 to 1 step 0 k=k+3 名师归纳总结 精品学习资料 - - - - - - - - - - - - - - -精心整理归纳 精选学习资料 - - - - - - - - - - - - - - - 第 10 页，共 21 页 - - - - - - - - - 名师精编优秀资料Next m A)形成死循环 B)循环体不执行即结束循环 C) 出现语法错误D)循环体执行一次后结束循环（22）运行下列程序，结果是（）2011.3 答案： DPrivate Sub Command32_Click() f0=1 ：fl=1 ：k=1 Do While k=5 f=f0+f1 f0=f1 f1=f k=k+1 Loop MsgBox f= & f End Sub A)f=5 B)f=7 C)f=8 D)f=13（23）有如下事件程序，运行该程序后输出结果是（）2011.3 答案： APrivate Sub Command33_Click() Dim x As Integer，y As Integer x=1：y=0 Do Until y=25 y=y + x * x x=x + 1 Loop MsgBox x= & x & ， y= & y End Sub A)x=1， y=0 B)x=4 ， y=25 C)x=5, y=30 D)输出其他结果（24）下列程序的功能是计算Sum=1+(1+3)+(1+3+5)+ +(1+3+5+ +39) Private Sub Command34_Click() t=0 m=1 sum=0 Do t=t+m sum=sum+t m= Loop While m=85 Then qmzp=优 ElseIf pscj+kscj11 C)102984 D)#5/1/2010#5 （33）要将一个数字字符串转换成对应的数值，应使用的函数是（）2010.9 答案： AA)Val B)Single C)Asc D)Space （34）下列变量名中，合法的是（）2010.9 答案： C名师归纳总结 精品学习资料 - - - - - - - - - - - - - - -精心整理归纳 精选学习资料 - - - - - - - - - - - - - - - 第 14 页，共 21 页 - - - - - - - - - 名师精编优秀资料A)4A B)A 1 C)ABC_1 D)private （35）若变量 i 的初值为 8，则下列循环语句中循环体的执行次数为（）2010.9 答案： CDo While i17 i i 2 Loop A)3次 B)4次 C)5次 D)6次（36）InputBox 函数的返回值类型是（）2010.9 答案： BA)数值 B)字符串 C)变体 D)视输入的数据而定（37）下列能够交换变量X和Y值的程序段是（）2010.9 答案： CA)YX：XY B)ZX：YZ：XY C)Z X：XY：YZ D)ZX：W Y：YZ： XY （38）窗体中有命令按钮Command1 ，事件过程如下：Public Function f(x AS Integer)As Integer Dim y As Integer x20 y2 fx*y End Function Private Sub Commandl_Click() Dim y As Integer Static x As Integer x10 y5 yf(x) Debug.Print x ；y End Sub 运行程序，单击命令按钮，则立即窗口中显示的内容是（）2010.9 答案： DA)10 5 B)10 40 C)20 5 D)20 40 （39）窗体中有命令按钮Command1 和文本框 Text1 ，事件过程如下：Function result(ByVal x As Integer)As Boolean If x Mod 20 Then resultTrue Else resultFalse End If End Function Private Sub Commandl_Click() xVal(InputBox( 请输入一个整数) IfThen Text1 Str(x) & 是偶数 . Else Text1 Str(x) & 是奇数 . End If End Sub 运行程序，单击命令按钮，输入19，在Text1 中会显示 19 是奇数 。那么在程序的空白处应填写（）2010.9 A)result(x)偶数 B)result(x) C)result(x)奇数 D)NOT result(x) 名师归纳总结 精品学习资料 - - - - - - - - - - - - - - -精心整理归纳 精选学习资料 - - - - - - - - - - - - - - - 第 15 页，共 21 页 - - - - - - - - - 名师精编优秀资料答案： B （40）窗体有命令按钮Command1和文本框 Text1，对应的事件代码如下：Private Sub Command1_Click() For i1 To 4 x3 For j1 To 3 For k1 To 2 xx3 Next k Next j Next i Textl.ValueStr(x) End Sub 运行以上事件过程，文本框中的输出是（）2010.9 答案： DA)6 B)12 C)18 D)21 （41）窗体中有命令按钮run34，对应的事件代码如下：Private Sub run34_Enter() Dim num As Integer ，a As Integer，b As Integer，i As Integer For i1 To 10 numInputBox( 请输入数据：，输入 ) If Int(num/ 2) num/ 2 Then aa1 Else bb1 End If Next i MsgBox ( 运行结果： a & Str(a) & ，b & Str(b) End Sub 运行以上事件过程，所完成的功能是（）2010.9答案： CA)对输入的 10个数据求累加和B)对输入的 10个数据求各自的余数，然后再进行累加C)对输入的 10个数据分别统计奇数和偶数的个数D)对输入的 10个数据分别统计整数和非整数的个数（42）运行下列程序，输入数据8、9、3、0后，窗体中显示结果是（）2010.9答案： CPrivate Sub Form_click() Dim sum As Integer ，m As Integer sum0 Do mInputBox( 输入 m) sumsumm Loop Until m 0 MsgBox sum End Sub A)0 B)17 C)20 D)21（43）在 VBA 中要判断一个字段的值是否为Null ，应该使用的函数是【9】。2010.9 IsNull （44）下列程序的功能是求方程：x2y21000的所有整数解。请在空白处填入适当的语句，使程序完成指定的功能。2010.9 Private Sub Commandl_Click() 名师归纳总结 精品学习资料 - - - - - - - - - - - - - - -精心整理归纳 精选学习资料 - - - - - - - - - - - - - - - 第 16 页，共 21 页 - - - - - - - - - 名师精编优秀资料Dim x as integer ， y as integer For x34 To 34 For y 34 To 34 If【10】Then x*x+y*y=1000Debug.Print x ，Y End If Next y Next x End Sub（44）下列程序的功能是求算式：11/2！1/3！ 1/4！ 前10项的和 (其中 n！的含义是 n的阶乘 )。请在空白处填入适当的语句，使程序完成指定的功能。2010.9 Private Sub Commandl_C1ick() Dim i as integer ，s as single，a as single a 1：s0 For i1 To 10 a【11】 a/issa Next i Debug.Print 1 1/ 2！ l/ 3！ ；s End Sub （45）在窗体中有一个名为Command12的命令按钮，Click 事件功能是：接收从键盘输入的10个大于 0的不同整数，找出其中的最大值和对应的输入位置。请在空白处填入适当语句，使程序可以完成指定的功能。2010.9 Private Sub Commandl2_Click() max0 maxn 0 For i1 To 10 numVal(InputBox( 请输入第 & i & 个大于 0的整数： ) If 【12】Then maxnummaxnum maxn【13】 iEnd If Next i MsgBox( 最大值为第 & maxn & 个输入的 & max) End Sub （46）数据库的 职工基本情况表有姓名 和职称 等字段，要分别统计教授、副教授和其他人员的数量。请在空白处填入适当语句，使程序可以完成指定的功能。2010.9 Private Sub Command5_Click() Dim db As DAO.Database Dim rs As DAO.Recordset Dim zc As DAO.Field Dim Countl As Integer ， Count2 As Integer，Count3 As Integer Set dbCurrentDb() Set rs db.OpenRecordset(职工基本情况表) Set