Access2010模拟试题

1、学校：长宁县职业技术学校班级:一、单项选择题（每题2分，共40分）1. 下列关于报表的叙述中，正确的是A）报表只能输入数据C）报表可以输入和输出数据2. 报表的作用不包括（）。A）分组数据 B）汇总数据 C）A) Forms!F1!Text1B ) TextlC) F1.Textl，则该数组的元四川省普通咼校职教师资班和咼职班对口招生统一考试信息技术一类Access模拟试题（二）（考试时间80分钟，满分150分）姓名：成绩（ ）。B）报表只能输出数据D）报表不能输入和输出数据格式化数据 D）输入数据3. 在报表中要显示格式为”共N页，第N页的页码，正确的页码格式设置是（）。A）=共+ Page

2、s + 页，第 ” + 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. 下列操作中，适宜使用宏的是（

3、）。A）修改数据表结构 B）创建自定义过程C）打开或关闭报表对象D）处理报表中错误8. 对象可以识别和响应的行为称为（）。A）属性B）方法 C）继承 D）事件9. 在宏的参数中，要引用窗体F1上的Textl文本框的值，应该使用的表达式（）。D ) FormsFITextl10. 在VBA中要打开名为”学生信息录入”的窗体，应使用的语句是 （）。A） DoCmd.OpenForm 学生信息录入” B） OpenForm 学生信息录入”C） DoCmd.OpenWindow学生信息录入” D） OpenWindow 学生信息录入”11. 若要使某命令按钮获得控制焦点，可使用的方法是（）。A） Lo

4、stFocus B） SetFocus C） Poi nt D） Value12. 表达式B = INT（A + 0.5）的功能是（）。A）将变量A保留小数点后1位B）将变量A四舍五入取整C将变量A保留小数点后5位D）舍去变量A的小数部分13. 下列表达式计算结果为数值类型的是（）。A) #5/5/2010#-#5/1/2010#B) 102 11C) 102 = 98+ 4D)#5/1/2010#+ 514.下列变量名中，合法的是（)A) 4AB)A-1C)ABC_1D) private15.下列能够交换变量X和 Y值的程序段是( )。A） Y= X : X = YB） Z= X : Y=

5、Z : X= YC） Z= X : X= Y : Y= ZD） Z= X : W= Y : Y= Z : X = Y16. 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. 在模块的声明部分使用Optio

6、n Base 1 语句，然后定义二维数组A（2 to 5,5）素个数为（）。A） 20 B） 24 C） 25 D） 3619. 要判断a和b中有且只有一个为0，其正确的表达式是（）。A） a = 0 or b = 0 B） a= 0 Not b = 0C） a = 0 And b = 0 D） a*b = 0 And a + b020. 设有如下过程:x=1Dox=x+2Loop Until运行程序，要求循环体执行3次后结束循环，空白处应填入的语句是（ ）oA） x=7B） x=7D） x7二、多项选择题（5X3=15分）21. 在VBA中，以下（）属于循环结构A.For - Next B.

7、Do - While - Loop C.Do While - Loop D.Do - Loop Until22. 在VBA中，分支结构分为（）。A.单分支结构B. 双分支结构C. 多分支结构 D. 其他分支23. 以下程序运行后，变量 x,y,z的值分别是（）。Forx=1 to 5For y=1 to x step 2z=z+1Next yNext xA. 6B. 7 C. 8 D. 924. 在VBA中，可以用来定义数组的关键词有（）。A. Dim B. Public C. Static D. Private25. 以下函数返回的数据类型是数值型的有（）。A. Asc B. Year C.

8、 Day D. Msg box三、判断题（10X 2=20分）26. 报表与窗体既可以查看数据，也可以修改数据；（）27. 在窗体中，可以使用标签控件来绑定数据；（）28. 在窗体视图中，可以对窗体的布局进行修改；（）29. 设置文本框的默认值，可以使文本框控件在进入窗体视图时具备一个初始值；（）30. 在为宏设置条件时，可以引用窗体上控件的值；（）31. 如果直接运行宏组，则会执行所有子宏的操作；（）32. 多分支语句只能采用If语句进行编写代码；（）33. 在DO环中使用 While关键词时，表示条件为真就执行循环体；（）34. 在For循环中，循环步长不能为负数；（）35. 所有的Foi

9、循环都可以转换为 Do循环，反之则不然；（）四、填空题。（20X 2=40分）36. 要在窗体或者报表中绑定文本框控件的数据，应设置属性窗口中的数据选项卡中的属性；37. 在报表中 节用于显示每一页的页眉信息；38. 若要在报表中对“语文”进行统计平均分，应设置文本框控件的控件来源属性为 39. 在窗体中，节一般用于放置窗体的标题；40. 窗体在进入窗体视图后，如果未关闭当前窗体则无法进行其他对象的操作；41. 在Access 2010中已经设计好一系列窗体，如果需要为这些窗体之间建立一个相互连接的窗体，则可以创建一个窗体实现；42. 在利用设计视图创建窗体时，如果要对选中的控件进行改变布局，

10、除了直接拖动控件外，还可以使用功能区 选项卡中的相关命令；43. 如果希望达到某种条件时才执行宏操作，这类宏称为 ；44. 如果已经存在一个宏，若要调用该宏，则需要使用 操作命令；45. 如果要打开一个查询，应使用 宏操作命令；46. 在For循环中，如果要强制终止循环，应使用 语句；47. 在VBA中，如果要实现点击按钮后，窗体中的当前记录跳转到最后一条，则应使用语句DoCmd., , AcLast;48. 如果在Do While后面出现的循环条件为数字0,则循环体 ;49. 表达式 123 + Mid（123456,3,2） 的结果是 ;50. 如有数组声明语句 Dim a（2 , -3

11、to 2,4）,贝U数组a包含元素的个数是 个；51. 变量一旦定义就可以被所有的过程、模块和窗体使用；52. 使用立即窗口输出变量 x的值的语句是 ;53. 如果要使两行VBA代码写在一行，则可以在两行代码之间加 符号；54. 在VBA中，如果要添加代码注释，除了使用单引号以外，还可以使用关键词；55. 在VBA中使用Msgbox函数弹出消息框后，如果用户单击了消息框上的“否”按钮，则该函数的返回值是;五、合题(35分)56. 写出下列程序的运行结果。(每题 3分，共15分)(1) 有代码如下：Private Sub CommandO_Click()a= 24b=328select case

12、 b10case 0c= a*10 + bcase 1 to 9c= a*100 + bcase 10 to 99c= a*1000 + bend selectMsg box cEnd Sub该段代码运行后，消息框显示的内容为：(2) 有代码如下：Private Sub CommandO_Click()a= Sqr(8)b= Sqr(9)c= abMsgBox c+2End Sub该段代码运行后，消息框中显示的内容为：(3) 有代码如下：Private Sub CommandO_Click()Dim s As In teg erFor i=9 to 1 step 0s=s+iNext iMsg

13、box s &，” & iEnd Sub该段代码运行后，消息框中显示的内容为： (4) 有代码如下：Private Sub CommandO_Click()Static b As In teg erB=0B=b+3Msgbox bEnd Sub当单击按钮CommandCE次后，消息框显示的内容为： (5) 有代码如下：Private Sub CommandO_Click()Dim i , j , xFor i = I To 20 step 2x = 0For j = i To 20 step 3x = x + 1Next jNext iTextl .Value = Str(x)End Sub程

14、序运行后，文本框 Textl显示的内容为： 57. 程序填空(10分，每空2分)以下程序的功能是：接收从键盘上输入的一个数，判断这个数是否为素数。请对下列代码进行 填空。Private Sub CommandO_Click()Dim num As In teger, i As In teg erFor i = 3 To _ _ Step _For j = Debug .Prin t *;Next jDebug.Pri nt _ _(10)Next iEnd Subnum = Val(l nputBox(请任意输入一个整数：)i = DoIf num Mod i = ThenEnd Ifi =_ Loop While i _ _ numIf i = num The nMsgBox num & ” 是一个素数”ElseMsgBox num & ” 不是