Access2010模拟试题(二).doc

四川省普通高校职教师资班和高职班对口招生统一考试信息技术一类Access模拟试题(二）（考试时间80分钟，满分150分） 学校：长宁县职业技术学校 班级： 姓名： 成绩： 一、单项选择题（每题2分，共40分）1. 下列关于报表的叙述中，正确的是( )。A）报表只能输入数据 B）报表只能输出数据C）报表可以输入和输出数据 D）报表不能输入和输出数据2. 报表的作用不包括( )。A) 分组数据B) 汇总数据C) 格式化数据D) 输入数据3. 在报表中要显示格式为共N页，第N页的页码，正确的页码格式设置是()。A) 共 Pages 页，第 Page 页B) 共 Pages 页，第 Page 页C) 共 & Pages & 页，第 & Page & 页D) 共 & Pages & 页，第 & Page & 页4. 在报表设计过程中，不适合添加的控件是()。A) 标签控件B) 图形控件C) 文本框控件 D) 选项组控件5. 主窗体和子窗体通常用于显示多个表或查询中的数据，这些表或查询中的数据一般应该具有的关系是( )。A) 一对一B) 一对多 C) 多对多D) 关联6. 在运行宏的过程中，宏不能修改的是( )。A）窗体 B）宏本身 C）表 D）数据库7. 下列操作中，适宜使用宏的是( )。A) 修改数据表结构 B) 创建自定义过程C) 打开或关闭报表对象D) 处理报表中错误8. 对象可以识别和响应的行为称为( )。A) 属性B) 方法C) 继承D) 事件9. 在宏的参数中，要引用窗体F1上的Textl文本框的值，应该使用的表达式( )。A）Forms!F1!Text1 B）TextlC）F1.Textl D）FormsFlTextl10. 在VBA中要打开名为学生信息录入的窗体，应使用的语句是()。A) DoCmd.OpenForm 学生信息录入 B) OpenForm 学生信息录入C) DoCmd.OpenWindow 学生信息录入D) OpenWindow 学生信息录入11. 若要使某命令按钮获得控制焦点，可使用的方法是( )。A) LostFocusB) SetFocusC) Point D) Value12. 表达式B INT(A0.5)的功能是( )。A) 将变量A保留小数点后1位 B)将变量A四舍五入取整C 将变量A保留小数点后5位D)舍去变量A的小数部分13. 下列表达式计算结果为数值类型的是( )。A) #5/5/2010# #5/1/2010# B) 102 11C) 102 98 4 D) #5/1/2010# 514. 下列变量名中，合法的是( )。A) 4A B) A1 C) ABC_1 D) private15. 下列能够交换变量X和Y值的程序段是( )。A) YX ： XY B) ZX ：YZ ：XYC) ZX ：XY ：YZ D) ZX ：WY ：YZ ： XY16. Dim b1，b2 As Boolean语句显式声明变量( )。A) b1和b2都为布尔型变量 B) b1是整型，b2是布尔型C) b1是变体型(可变型)，b2是布尔型D) b1和b2都是变体型(可变型)17. 将逻辑型数据转换成整型数据，转换规则是( )。A) 将True转换为-1 ，将False转换为0B) 将True转换为1 ，将False转换为-1C) 将True转换为0 ，将False转换为-1D) 将True转换为1 ，将False转换为018. 在模块的声明部分使用Option Base 1语句，然后定义二维数组A(2 to 5,5)，则该数组的元素个数为( )。A) 20B) 24C) 25D) 3619. 要判断a和b中有且只有一个为0，其正确的表达式是( )。A) a0 or b0 B) a0 Not b0C) a0 And b0 D) a*b0 And ab020. 设有如下过程：x=1Do x=x+2Loop Until_运行程序，要求循环体执行3次后结束循环，空白处应填入的语句是( )。A）x=7 B）x=7 D）x7二、多项选择题（53=15分）21. 在VBA中，以下（ ）属于循环结构A.ForNext B.DoWhileLoop C.Do WhileLoop D.DoLoop Until22. 在VBA中，分支结构分为（ ）。A. 单分支结构 B. 双分支结构 C.多分支结构 D.其他分支23. 以下程序运行后，变量x,y,z的值分别是（ ）。For x=1 to 5 For y=1 to x step 2 z=z+1 Next yNext xA. 6 B. 7 C. 8 D. 924. 在VBA中，可以用来定义数组的关键词有（ ）。A. Dim B. Public C. Static D. Private25. 以下函数返回的数据类型是数值型的有（ ）。A. Asc B. Year C. Day D. Msgbox三、判断题（102=20分）26. 报表与窗体既可以查看数据，也可以修改数据；（ ）27. 在窗体中，可以使用标签控件来绑定数据；（ ）28. 在窗体视图中，可以对窗体的布局进行修改；（ ）29. 设置文本框的默认值，可以使文本框控件在进入窗体视图时具备一个初始值；（ ）30. 在为宏设置条件时，可以引用窗体上控件的值；（ ）31. 如果直接运行宏组，则会执行所有子宏的操作；（ ）32. 多分支语句只能采用If语句进行编写代码；（ ）33. 在DO循环中使用While关键词时，表示条件为真就执行循环体；（ ）34. 在For循环中，循环步长不能为负数；（ ）35. 所有的For循环都可以转换为Do循环，反之则不然；（ ）四、填空题。（202=40分）36. 要在窗体或者报表中绑定文本框控件的数据，应设置属性窗口中的数据选项卡中的_属性；37. 在报表中_节用于显示每一页的页眉信息；38. 若要在报表中对“语文”进行统计平均分，应设置文本框控件的控件来源属性为_；39. 在窗体中，_节一般用于放置窗体的标题；40. _窗体在进入窗体视图后，如果未关闭当前窗体则无法进行其他对象的操作；41. 在Access 2010中已经设计好一系列窗体，如果需要为这些窗体之间建立一个相互连接的窗体，则可以创建一个_窗体实现；42. 在利用设计视图创建窗体时，如果要对选中的控件进行改变布局，除了直接拖动控件外，还可以使用功能区_选项卡中的相关命令；43. 如果希望达到某种条件时才执行宏操作，这类宏称为_；44. 如果已经存在一个宏，若要调用该宏，则需要使用_操作命令；45. 如果要打开一个查询，应使用_宏操作命令；46. 在For循环中，如果要强制终止循环，应使用_语句；47. 在VBA中，如果要实现点击按钮后，窗体中的当前记录跳转到最后一条，则应使用语句DoCmd._, , AcLast ;48. 如果在Do While后面出现的循环条件为数字0，则循环体_；49. 表达式 123 Mid(123456,3,2)的结果是_；50. 如有数组声明语句Dim a(2，-3 to 2,4)，则数组a包含元素的个数是_个；51. _变量一旦定义就可以被所有的过程、模块和窗体使用；52. 使用立即窗口输出变量x的值的语句是_;53. 如果要使两行VBA代码写在一行，则可以在两行代码之间加_符号；54. 在VBA中，如果要添加代码注释，除了使用单引号以外，还可以使用_关键词；55. 在VBA中使用Msgbox函数弹出消息框后，如果用户单击了消息框上的“否”按钮，则该函数的返回值是_；五、合题（35分）56. 写出下列程序的运行结果。（每题3分，共15分）（1） 有代码如下：Private Sub Command0_Click()a24b328select case b10 case 0ca*10bcase 1 to 9ca*100bcase 10 to 99ca*1000bend selectMsgbox cEnd Sub该段代码运行后，消息框显示的内容为:_（2） 有代码如下：Private Sub Command0_Click()aSqr(8)bSqr(9)cabMsgBox c+2End Sub该段代码运行后，消息框中显示的内容为：_（3） 有代码如下：Private Sub Command0_Click()Dim s As IntegerFor i=9 to 1 step 0 s=s+iNext iMsgbox s & “,” & iEnd Sub该段代码运行后，消息框中显示的内容为：_（4） 有代码如下：Private Sub Command0_Click()Static b As IntegerB=0B=b+3Msgbox bEnd Sub当单击按钮Command0三次后，消息框显示的内容为：_（5） 有代码如下：Private Sub Command0_Click()Dim i，j，xFor i l To 20 step 2x 0For j i To 20 step 3x x 1Next jNext iText1.Value Str(x)End Sub程序运行后，文本框Text1显示的内容为：_57. 程序填空（10分，每空2分）以下程序的功能是：接收从键盘上输入的一个数，判断这个数是否为素数。请对下列代码进行填空。Private Sub Command0_Click()Dim num As Integer, i As Integernum = Val(InputBox(请任意输入一个整数：) i = _Do If num Mod i = _ Then _ End If i =_Loop While i _ numIf i = num Then MsgBox num & 是一个素数Else MsgBox num & 不是素数End IfEnd Sub58. 程序填空（10分，每空2分）* * * * * * * * * *图1图1是运行以下代码后立即窗口输出的显示效果，请对下列程序进行填空。Private Sub Command0_Click()Dim i As Integer, j As IntegerFor i = 1 To _ For j = 1 To i Debug.Print *; Next j Debug.Print _(10)Next iFor i = 3 To _ Step _ For j = _ Debug.Print *; Next j Debug.Print _(10)Next iEnd Sub