Access数据库程序设计知识点分析

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 答案：D A)可以支持Internet/Intranet应用 B)可以保存多种类型的数据，包括多媒体数据 C)可以通过编写应用程序来操作数据库中的数据 D)可以作为网状型数据库支持客户机/服务器应用系统 （2）在进行关系数据库的逻辑设计时，E-R图中的属性常被转换为关系中的属性，联系通常被转换为 [5] 。2011.9 答案：关系 （3）Access数据库最基础的对象是（）2010.9 答案：A A)表 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 答案：A A)字段和记录组成 B)查询和字段组成 C)记录和窗体组成 D)报表和字段组成 （2）可以插入图片的字段类型是（）2011.9答案：C A)文本 B)备注 C)OLE对象 D)超链接 （3）输入掩码字符“C”的含义是（）2011.9答案：D A)必须输入字母或数字 B)可以选择输入字母或数字 C)必须输入一个任意的字符或一个空格 D)可以选择输入任意的字符或一个空格 （4）Access数据库中的字节（Byte）数值类型在数据库中占 [6] 字节。2011.9答案：1 （5）定义无符号整数类为UInt，下面可以作为类UInt实例化值的是（）2011.3 答案：B A)-369 B)369 C)0.369 D)整数集合{1，2，3，4，5} （6）下列关于货币数据类型的叙述中，错误的是（）2010.9答案：C A)货币型字段在数据表中占8个字节的存储空间 B)货币型字段可以与数字型数据混合计算，结果为货币型 C)向货币型字段输入数据时，系统自动将其设置为4位小数 （7）若将文本型字段的输入掩码设置为"####－######"，则正确的输入数据是（）2010.9答案：B A)0755－abcdef B)077－12345 C)a cd－123456 D)####－###### （8）学校规定学生住宿标准是：本科生4人一间，硕士生2人一间，博士生1人一间，学生与宿舍之间形成了住宿关系，这种住宿关系是（ ） 2011.9 答案：C A)一对一联系 B)一对四联系 C)一对多联系 D)多对多联系 （9）下列可以建立索引的数据类型是（）2011.3答案：A A)文本 B)超级链接 C)备注 D)OLE对象 （10）下列关于字段属性的叙述中，正确的是（）2011.3答案：D A)可对任意类型的字段设置"默认值"属性 B)定义字段默认值的含义是该字段值不允许为空 C)只有"文本"型数据能够使用"输入掩码向导" D)"有效性 规则 编码规则下载淘宝规则下载天猫规则下载麻将竞赛规则pdf麻将竞赛规则pdf "属性只允许定义一个条件表达式 （11）查询"书名"字段中包含"等级考试"字样的记录，应该使用的条件是（）2011.3答案：D A)Like "等级考试" B)Like "*等级考试" C)Like "等级考试*" D)Like "*等级考试*" （12）在Access中对表进行"筛选"操作的结果是（）2011.3答案：A A)从数据中挑选出满足条件的记录 B)从数据中挑选出满足条件的记录并生成一个新表 C)从数据中挑选出满足条件的记录并输出到一个报表中 D)从数据中挑选出满足条件的记录并显示在一个窗体中 （18）在数据表视图中，不能进行的操作是（）2011.3答案：B A)删除一条记录 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答案：B A)通配任意长度的字符 B)通配不在括号内的任意字符 C)通配方括号内列出的任一单个字符 D)错误的使用方法 （2）在SQL语言的SELECT语句中，用于指明检索结果排序的子句是（ ） 2011.9答案：D A)FROM B)WHILE C) GROUP BY D)ORDER BY （3） 要将“选课成绩”表中学生的“成绩”取整，可以使用的函数是（ ） 2011.9答案：B A)Abs（[成绩]） B)Int([成绩]) C)Sqr([成绩]) D)Sgn([成绩]) （4）有商品表内容如下： 执行SQL命令：SELECT 部门号,MAX(单价*数量) FROM 商品表 GROUP BY 部门号; 查询结果的记录数是（ ） 2011.9 答案：B A)1 B)3 C)4 D)10 （5）若要将"产品"表中所有供货商是"ABC"的产品单价下调50，则正确的SQL语句是（）2011.3答案：B A)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答案：C A)设计尚未完成，无法进行统计 B)统计班级信息仅含Null(空)值的记录个数 C)统计班级信息不包括Null(空)值的记录个数 D)统计班级信息包括Null(空)值全部记录个数 （7）在Access查询的条件表达式中要表示任意单个字符，应使用通配符 【6】 。2011.3 ？ （7）在SELECT语句中，HAVING子句必须与 【7】 子句一起使用。2011.3 group by （8）如果在查询条件中使用通配符"[]"，其含义是（）2010.9答案：D A)错误的使用方法 B)通配不在括号内的任意字符C)通配任意长度的字符 D)通配方括号内任一单个字符 （9）在SQL语言的SELECT语句中，用于实现选择运算的子句是（）2010.9答案：D A)FOR B)IF C)WHILE D)WHERE （10）在成绩中要查找成绩≥80且成绩≤90的学生，正确的条件表达式是（）2010.9答案：A A)成绩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 性别 答案：D A)计算并显示所有学生的平均入学成绩 B)计算并显示所有学生的性别和平均入学成绩 C)按性别顺序计算并显示所有学生的平均入学成绩 D)按性别分组计算并显示不同性别学生的平均入学成绩 （12）若在"销售总数"窗体中有"订货总数"文本框控件，能够正确引用控件值的是（）2010.9答案：D A)Forms.[销售总数].[订货总数] B)Forms！[销售总数].[订货总数] C)Forms.[销售总数]！[订货总数] D)Forms！[销售总数]！[订货总数] （13）如果要求在执行查询时通过输入的学号查询学生信息，可以采用 　【6】　查询。2010.9 参数 　四、窗体的基本操作 　　1. 窗体分类：（1） 纵栏式窗体　　　（2） 表格 关于规范使用各类表格的通知入职表格免费下载关于主播时间做一个表格详细英语字母大小写表格下载简历表格模板下载 式窗体　　　（3） 主/子窗体。 　　　 （4） 数据表窗体　　　（5） 图表窗体 　　　（6） 数据透视表窗体。 　　2. 创建窗体： 　　　（1） 使用向导创建窗体。 　　　（2） 使用设计器创建窗体：控件的含义及种类，在窗体中添加和修改控件，设置控件的常见属性。 习题解析： （1）下列属性中，属于窗体的“数据”类属性的是（ ） 2011.9答案：A A)记录源 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 答案：C A)图形 B)图像 C)绑定对象框 D)未绑定对象框 （6）在教师信息输入窗体中，为职称字段提供"教授"、"副教授"、"讲师"等选项供用户直接选择，应使用的控件是（）2011.3答案：D A)标签 B)复选框 C)文本框 D)组合框 （7）因修改文本框中的数据而触发的事件是（）2010.9 答案：A A)Change B)Edit C)Getfocus D)LostFocus （8）若在窗体设计过程中，命令按钮Command0的事件属性设置如下图所示，则含义是（ ）2011.3 答案：A A)只能为"进入"事件和"单击"事件编写事件过程 B)不能为"进入"事件和"单击"事件编写事件过程 C)"进入"事件和"单击"事件执行的是同一事件过程 D)已经为"进入"事件和"单击"事件编写了事件过程 （9）若窗体Frm1中有一个命令按钮Cmd1，则窗体和命令按钮的Click事件过程名分别为（ ）2011.3 A)Form_Click() Command1_Click() B)Frm1_Click() Commamd1_Click() C)Form_Click() Cmd1_Click() D)Frm1_Click() Cmd1_Click() 答案：A （10）如果在文本框内输入数据后，按键或按键，输入焦点可立即移至下一指定文本框，应设置（ ）2010.9 答案：B A)"制表位"属性 B)"Tab键索引"属性 C)"自动Tab键"属性 D)"Enter键行为"属性 　五、报表的基本操作 1. 报表分类： （1） 纵栏式报表；　（2） 表格式报表。　（3） 图表报表。　（4） 标签报表。 　　2. 使用向导创建报表。 　　3. 使用设计器编辑报表。 4. 在报表中计算和汇总。 习题解析： （1）下图所示的是报表设计视图，由此可判断该报表的分组字段是（ ） 2011.9答案：D A)课程名称 B)学分 C)成绩 D)姓名 （2）在报表中要显示格式为“第N页”的页码，页码格式设置是：=”第”& [7] &”页”。 2011.9 答案：[page] （3）在报表中要显示格式为"共N页，第N页"的页码，正确的页码格式设置是（ ）2011.3 答案：D A)="共"+Pages+"页，第"+Page+"页" B)="共"+［Pages］+"页，第"+［Page］+"页" C)="共"& Pages &"页，第"& Page &"页" D)="共"&［Pages］&"页，第"&［Page］&"页" （4）在报表中，要计算"数学"字段的最低分，应将控件的"控件来源"属性设置为（）2010.9答案：A A)＝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) B) C) D) （2）在宏表达式中要引用Form1窗体中的txt1控件的值，正确的引用方法是（ ） 2011.9答案：C A)Form1!txt1 B)txt1 C)Forms!Form1!txt1 D)Forms!txt1 （3）某窗体上有一个命令按钮，要求单击该按钮后调用宏打开应用程序Word，则设计该宏时应选择的宏命令是（ ）2011.3 答案：A A)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答案：A A)Str B)String C)Asc D)Chr （2）VBA中定义符号常量使用的关键字是（ ） 2011.9答案：A A)Const B)Dim C)Public D)Static （3）由“For i = 1 To 16 Step 3”决定的循环结构被执行（ ） 2011.9答案：B A) 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）若有以下窗体单击事件过程： 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答案：C A) 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答案：B A) 1和1 B)1.25和1 C)1.25和4 D)5和4 （9）运行下列程序，显示的结果是（ ） 2011.9答案：C Private Sub Command34_Click() i = 0 Do i = i + 1 Loop While i < 10 MsgBox i End Sub A) 0 B) 1 C) 10 D)11 （10）运行下列程序，在立即窗口显示的结果是（ ） 2011.9答案：D Private Sub Command0_Click() Dim I As Integer, J As Integer For I = 2 To 10 For J = 2 To I/2 If I mod J = 0 Then Exit For Next J If J > 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<=100 Dim s As Integer, m As Integer s = 0 m = 1 do While [10] s = s + m m = m + 1 Loop （12）下列程序的功能是求算式：1-1/2+1/3-1/4+....前30项之和。请在空白处填入适当的语句，使程序可以完成指定的功能。2011.9 Private Sub Command1_Click() Dim i as Integer, s As Single, f As Integer s = 0 : f = 1 For i = 1 To 30 s = s + f/i f = [11] 答案：-1*f Next i Debug.Print “1-1/2+1/3-1/4+…=”; s End Sub （13）有一个标题为“登录”的用户登录窗体，窗体上有两个标签，标题分别为“用户名：”和“密码：”，用于输入用户名的文本框名为“UserName”，用于输入密码的文本框名为“UserPassword”，用于进行倒计时显示的文本框名为“Tnum”，窗体上有一个标题为“确认”的按钮名为“OK”，用于输入完用户名和密码后单击此按钮确认。 输入用户名和密码，如用户名或密码错误，则给出提示信息；如正确，则显示“欢迎使用！”信息。要求整个登录过程要在30秒中完成，如果超过30秒还没有完成正确的登录操作，则程序给出提示自动终止整个登录过程。 请在程序空白处填入适当的语句，使程序完成指定的功能。2011.9 Option Compare Database Dim Second As Integer Private Sub Form_Open(Cancel As Integer) Second = 0 End Sub Private Sub Form_Timer() If Second > 30 Then MsgBox "请在30秒中登录", vbCritical, "警告" DoCmd.Close Else Me!Tnum = 30 - Second '倒计时显示 End If Second = [12] Second + 1 End 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 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.4 If ps >= 60 Then ks = True Else ks = False End If rs. [15] Update rs.MoveNext Loop rs.Close db.Close Set rs = Nothing Set db = Nothing End Sub （15）下列表达式中，能正确表示条件"x和y都是奇数"的是（ ）2011.3 答案：C A)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 答案：A A)语法错误 B)逻辑错误 C)运行错误 D)注释错误 （17）下列给出的选项中，非法的变量名是（ ）2011.3答案：C A)Sum B)Integer_2 C)Rem D)Form1 （18）如果在被调用的过程中改变了形参变量的值，但又不影响实参变量本身，这种参数传递方式称为（ ）2011.3 答案：A A)按值传递 B)按地址传递 C)ByRef传递 D)按形参传递 （19）表达式"B=INT(A+0.5)"的功能是（ ）2011.3 答案：B A)将变量A保留小数点后1位 B)将变量A四舍五入取整 C)将变量A保留小数点后5位 D)舍去变量A的小数部分 （20）VBA语句"Dim NewArray(10) as Integer"的含义是（ ）2011.3答案：B A)定义10个整型数构成的数组NewArray B)定义11个整型数构成的数组NewArray C)定义1个值为整型数的变量NewArray(10) D)定义1个值为10的变量NewArray （21）运行下列程序段，结果是（ ）2011.3 答案：B For m=10 to 1 step 0 k=k+3 Next m A)形成死循环 B)循环体不执行即结束循环 C)出现语法错误 D)循环体执行一次后结束循环 （22）运行下列程序，结果是（ ）2011.3 答案：D Private 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答案：A Private 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<=39 MsgBox "Sum="& sum End Sub 为保证程序正确完成上述功能，空白处应填入的语句是（ ）2011.3答案：B A)m+1 B)m+2 C)t+1 D)t+2 （25）下列程序的功能是返回当前窗体的记录集 Sub GetRecNum() Dim rs As Object Set rs= MsgBox rs.RecordCount End Sub 为保证程序输出记录集(窗体记录源)的记录数，空白处应填入的语句是（ ）2011.3答案：B A)Recordset B)Me.Recordset C)RecordSource D)Me.RecordSource （26）下列表达式计算结果为日期类型的是（）2011.3 答案：C A)#2012-1-23#-#2011-2-3# B)year(#2011-2-3#)C)DateValue("2011-2-3")D)Len("2011-2-3") （27）在VBA中要将数值表达式的值转换为字符串，应使用函数 【9】 。2011.3 Str() （28）运行下列程序，输入如下两行： Hi， I am here． 弹出的窗体中的显示结果是 【10】 。2011.3 Hi, Private Sub Command11_Click() Dim abc As String，sum As String sum="" Do abc=InputBox("输入abc") If Right(abc，1)="." Then Exit Do sum=sum+abc Loop MsgBox sum End Sub （29）运行下列程序，窗体中的显示结果是：x= 【11】 。2011.3 21 Option Compare Database Dim x As Integer Private Sub Form_Load() x=3 End Sub Private Sub Command11_Click() Static a As Integer Dim b As Integer b=x＾2 fun1 x，b fun1 x，b MsgBox "x=" & x End Sub Sub fun1(ByRef y As Integer，ByVal z As Integer) y = y+z z = y-z End Sub （30）"秒表"窗体中有两个按钮("开始/停止"按钮bOK，"暂停/继续"按钮bPus)；一个显示计时的标签lNum；窗体的"计时器间隔"设为100，计时精度为0.1秒。 要求：打开窗体如图1所示；第一次单击"开始/停止"按钮，从0开始滚动显示计时(见图2)；10秒时单击"暂停/继续"按钮，显示暂停(见图3)，但计时还在继续；若20秒后再次单击"暂停/继续"按钮，计时会从30秒开始继续滚动显示；第二次单击"开始/停止"按钮，计时停止，显示最终时间(见图4)。若再次单击"开始/停止"按钮可重新从0开始计时。 图1 图2 图3 图4 相关的事件程序如下。请在空白处填入适当的语句，使程序可以完成指定的功能。2011.3 Option Compare Database Dim flag，pause As Boolean Private Sub bOK_Click() flag= 【12】 not flag 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 Me!lNum.Caption=Round(count，1) End If count= 【13】 count+0.1 Else count=0 End If End Sub （31）数据库中有"学生成绩表"，包括"姓名"、"平时成绩"、"考试成绩"和"期末总评"等字段，现要根据"平时成绩"和"考试成绩"对学生进行"期末总评"。规定："平时成绩"加"考试成绩"大于等于85分，则期末总评为"优"，"平时成绩"加"考试成绩"小于60分，则期末总评为"不及格"，其他情况期末总评为"合格"。 下面的程序按照上述要求计算每名学生的期末总评。请在空白处填入适当的语句，使程序可以完成指定的功能。2011.3 Private Sub Command0_Click() Dim db As DAO.Database Dim rs As DAO.Recordset Dim pscj，kscj，qmzp As DAO.Field Dim count As Integer Set db=CurrentDb() Set rs=db.OpenRecordset("学生成绩表") Set pscj=rs.Fields("平时成绩") Set kscj=rs.Fields("考试成绩") Set qmzp=rs.Fields("期末总评") count=0 Do While Not rs.EOF 【14】 rs.edit If pscj+kscj>=85 Then qmzp="优" ElseIf pscj+kscj<60 Then qmzp="不及格" Else qmzp="合格" End If rs.Update count=count+1 【15】 rs.movenext Loop rs．Close db.Close Set rs=Nothing Set db=Nothing MsgBox "学生人数：" & count End Sub （32）下列表达式计算结果为数值类型的是（）2010.9 答案：A A)#5/5/2010#-#5/1/2010# B)"102">"11" C)102＝98＋4 D)#5/1/2010#＋5 （33）要将一个数字字符串转换成对应的数值，应使用的函数是（）2010.9答案：A A)Val B)Single C)Asc D)Space （34）下列变量名中，合法的是（）2010.9 答案：C A)4A B)A－1 C)ABC_1 D)private （35）若变量i的初值为8，则下列循环语句中循环体的执行次数为（）2010.9答案：C Do While i<＝17 i＝i＋2 Loop A)3次 B)4次 C)5次 D)6次 （36）InputBox函数的返回值类型是（）2010.9 答案：B A)数值 B)字符串 C)变体 D)视输入的数据而定 （37）下列能够交换变量X和Y值的程序段是（）2010.9答案：C A)Y＝X：X＝Y B)Z＝X：Y＝Z：X＝Y C)Z＝X：X＝Y：Y＝Z D)Z＝X：W＝Y：Y＝Z：X＝Y （38）窗体中有命令按钮Command1，事件过程如下： Public Function f(x AS Integer)As Integer 　Dim y As Integer 　x＝20 　y＝2 　f＝x*y End Function Private Sub Commandl_Click() 　Dim y As Integer 　Static x As Integer 　x＝10 　y＝5 　y＝f(x) 　Debug.Print x；y End Sub 运行程序，单击命令按钮，则立即窗口中显示的内容是（）2010.9答案：D A)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 2＝0 Then 　　result＝True 　Else 　　result＝False 　End If End Function Private Sub Commandl_Click() 　x＝Val(InputBox("请输入一个整数")) 　If　　　　　Then 　　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) 答案：B （40）窗体有命令按钮Command1和文本框Text1，对应的事件代码如下： 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 　Textl.Value＝Str(x) End Sub 运行以上事件过程，文本框中的输出是（）2010.9 答案：D A)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 i＝1 To 10 　　　num＝InputBox("请输入数据："，"输入") 　　　If Int(num/ 2)＝num/ 2 Then 　　　　　a＝a＋1 　　　Else 　　　　　b＝b＋1 　　　End If 　　Next i 　　MsgBox ("运行结果：a＝" & Str(a) & "，b＝" & Str(b)) End Sub 运行以上事件过程，所完成的功能是（）2010.9答案：C A)对输入的10个数据求累加和 B)对输入的10个数据求各自的余数，然后再进行累加 C)对输入的10个数据分别统计奇数和偶数的个数 D)对输入的10个数据分别统计整数和非整数的个数 （42）运行下列程序，输入数据8、9、3、0后，窗体中显示结果是（）2010.9答案：C Private Sub Form_click() 　　Dim sum As Integer，m As Integer 　　sum＝0 　　Do 　　　　m＝InputBox("输入m") 　　　　sum＝sum＋m 　　Loop Until m＝0 　　MsgBox sum End Sub A)0 B)17 C)20 D)21 （43）在VBA中要判断一个字段的值是否为Null，应该使用的函数是　【9】　。2010.9 IsNull （44）下列程序的功能是求方程：x2＋y2＝1000的所有整数解。请在空白处填入适当的语句，使程序完成指定的功能。2010.9 Private Sub Commandl_Click() 　　Dim x as integer，y as integer 　　For x＝ －34 To 34 　　　For y＝－34 To 34 　　　　　If　【10】　Then x*x+y*y=1000 　　　　　　Debug.Print x，Y 　　　　　End If 　　　Next y 　　Next x End Sub （44）下列程序的功能是求算式：1＋1/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：s＝0 　　For i＝1 To 10 　　　a＝　【11】　 a/i 　　　s＝s＋a 　　Next i 　　Debug.Print "1＋1/ 2！ ＋l/ 3！＋……＝"；s End Sub （45）在窗体中有一个名为Command12的命令按钮，Click事件功能是：接收从键盘输入的10个大于0的不同整数，找出其中的最大值和对应的输入位置。请在空白处填入适当语句，使程序可以完成指定的功能。2010.9 Private Sub Commandl2_Click() 　　max＝0 　　maxn＝0 　　For i＝1 To 10 　　　　num＝Val(InputBox("请输入第" & i & "个大于0的整数：")) 　　　　If 　【12】　Then max