1、2012年国二ACCESS复习资料（内部使用）ACCESS机试部分机试易错、难点1.有效性规则：输入的入校时间必须为9月：Like”-9-”1950年（含）以后的日期 ：=#1950-1-1#2.设置平均成绩为整数：【视图】-【SQL视图】，将Avg(tscore.成绩) 修改为int(Avg(tscore.成绩)3.当”学号”第5、6位编码为10时为“信息”专业，其他为“管理”专业，设置窗体中名称为“tsub”的文本框控件的相应属性，使其显示相对应的专业：“控件来源”行输入=iif(mid(学号,5,2) =“10”,”信息”,”管理”)4.在窗体中有一个“退出”命令按钮，名称为“CmdQu
2、it”其功能为关闭窗体，填补代码：DoCmd.Close5.删除员工表中姓名字段中含有“红”字的员工记录：like”*红*”6.将考生文件夹下的“Test.xls”中的数据导入到当前数据库的新表中。要求第一行包含列标题，导入其中的“编号”“姓名”“性别”“年龄”“职务”，选择“编号”字段为主键，新表命名为“tmp”：【文件】-【获取外部数据】-【导入】-【Test.xls】-【下一步】-【选中-第一行包含列标题-下一步】-【下一步】-【将不导入的字段选中-不导入字段】-【自己选主键-编号】-【导入到表-修改tmp】-【完成】7.创建一个查询，查找并显示没有运动爱好学生的“学号”“姓名”“性别”
3、“年龄”4个字段，其查询条件应设置为： 【简历】- not like”*运动*”8.创建一个参数查询，参数条件要引用窗体”ftmp”上文本框控件”tss”的值：其参数条件应设置为：forms!ftmp!tss.value9.创建一个查询，删除临时表“tTemp”中年龄为奇数的记录：【删除查询】-其查询条件应设置为：年龄 mod 2=110.将报表记录数据按照姓氏分组升序排列，同时要求在相关组页眉区添加一个文本框控件（命名为”tm”），设置属性显示出姓氏信息来：【视图】-【排序与分组】-【姓名-升序；组页眉-是；】；将“姓名”文本框移动到“姓名页眉”添加文本框控件名称为tm，控件来源为：left
4、(姓名,1)11.单击窗体“报表输出”按钮（名为bt1），调用事件代码实现以预览方式打开报表“rEmp”。事件代码为：DoCmd.openReport”rEmp”,acViewPreview12.设置表对象“职工表“的聘用时间字段默认值为系统日期。【聘用时间】-【默认值】：date（）13. 将窗体“fEmp“上文本框“tSS“改为组合框类型，保持控件名称不变。设置其相关属性实现下拉列表形式输入性别“男“和“女“。【属性】-【更改为】-【组合框】；行来源类型-值列表，行来源-男；女14. 将窗体对象“fEmp“上文本框“tPa“改为复选框类型，保持控件名称不变，然后设置控件来源属性以输出“党员
5、否“字段值。删除文本框，在原来位置新建tPa复选框；控件来源-党员否15.单击“刷新“按钮(名为“bt1“)，事件过程动态设置窗体记录源为查询对象“qEmp“，实现窗体数据按性别条件动态显示退休职工的信息：Form.RecordSource=”qemp”16.创建一个查询，将表“tBmp“中“编号“字段值的前面均增加“05“两个字符，将查询命名为“qT3“。【更新查询】-其“编号“字段更新为：“05”+编号17.补充窗体“fTest“上“test1“按钮(名为“bt1“)的单击事件代码，实现以下功能：当单击按钮“test1“，将文本框ttext中输入的内容与文本串“等级考试测试“连接，并消除连
6、接串的前导和尾随空白字符，用标签“bTitle“显示连接结果。bTitle.caption=trim(ttext)“tPage“控件来源为 date（）25. 按“编号“字段前4位分组统计各组记录个数，并将统计结果显示在组页脚节区。计算控件命名为“tCount“。【视图】-【排序与分组】-编号组页眉-是，组页脚-是，前缀字符，整个组；将【编号】移动到“编号页眉”；属性-控件来源-left(编号，4)；在组页脚节区添加文本框tCount，控件来源为：Count（编号）26.将窗体对象“fEmp“中名称为“tPa“的文本框控件设置为计算控件。要求依据“党员否“字段值显示相应内容。如果“党员否“字段
7、值为True，显示“党员“；如果“党员否“字段值为False，显示“非党员“。“tPa“文本框控件来源为：iif（党员否=True,”党员”,”非党员”）27.设置命令按钮bC的单击事件，使用单击该命令按钮后，CDID文本框内内容显示颜色改为红色。要求用VBA代码实现。*Add1*（CDID文本框内内容显示颜色改为红色）CDID.ForeColor = vbRed*Add1*28.创建一个查询，要求给出提示信息“请输入需要删除的职工姓名“，从键盘输入姓名后，删除表对象“tTmp“中指定姓名的记录，将查询命名为“qT4“。【查询】【删除查询】-“姓名”条件下面输入“请输入需要删除的职工的姓名：”
8、-【查询】-【运行】29.设计报表“rEmp“的主体节区内“tOpt“复选框控件依据报表记录源的“性别“字段和“年龄“字段的值来显示状态信息：性别为“女“且年龄小于22时显示为选中的打钩状态，否则显示为不选中的空白状态。“tOpt“复选框控件来源为：iif（tSex=”女”And tAvg3时，相关代码调用宏对象“mEmp“以打开数据表“tEmp“。*Add1*Case 1 DoCmd.CloseCase 2 DoCmd.openReport ”rEmp”,acViewPreviewCase IS=3DoCmd.Runmacro “mEmp“*Add1*34.“fEmp“窗体上单击“输出“命令
9、按钮(名为“btnP“)，实现以下功能：计算Fibonacci数列第19项的值，将结果显示在窗体上名为“tData“的文本框内并输出到外部文件保存；单击“打开表“命令按钮(名为“btnQ“)，调用宏对象“mEmp“以打开数据表“tEmp“。Fibonacci 数列：F11 n1F21 n2FnFn1Fn2 n3调试完毕后，必须点击“输出“命令按钮生成外部文件，才能得分。试根据上述功能要求，对已给的命令按钮事件进行补充和完善。*Add1*Dim f(19) As Integerf(i) = f(i - 1) + f(i - 2)tData = f(19)*Add1*35. 假定有以下程序段n=0
10、for i=1 to 3for j= -4 to -1n=n+1next jnext i运行完毕后，n的值是A）0 B）3 C）4 D）12 ACCESS笔试部分一、ACCESS常用函数复习题题号 问题 选项 A 选项 B 选项 C 选项 D1 2*Sqr(4)的值是（ ）。 4 8 32 162 A$=“+3.14+2“，则 Val（A$）的值为（ ）。 +3.14+2 +5.14 3.14 5.143A$=“25.25.2868“，则 Val（A$）的值为（ ） 25.2868 25.25 25.252868 2525.28684 Abs( -3.14)的值是（ ）。 3 -3 -3.14
11、 3.145 Int（-23.512）的值为（ ）。 -23 -24 24 236设 a=2,b=3,c=4,d=5,下列表达式的值是（ ）Ab AND ccTrue False -1 17 Fix（-23.512）的值为（ ）。 23 24 24 238 InputBox 函数返回值的类型是（ ）。 数值 字符串 变体 逻辑10 LCase$(“Abc“)的值为（ ）。 Abc abc ABC aBC11 Len（“ab 湖南长沙”）的值是（ ）。 5 6 10 1212Month(“2002,5,16“)+Day(“2002,5,16“) 的值为（ ）。 516 21 2007 20181
12、3 s$=“abcdefghijk“，left$(s$,4)的值（ ） “efghijk” “hijk” “abcd” abcdefg14s$=“abcdefghijk“，Mid$(s$,1,4)的值（ ） “efghijk” “hijk” “abcd” abcdefg15s$=“abcdefghijk“，Right$(s$,4)的值（ ） “efghijk” “hijk” “abcd” abcdefg16s=“ab“+Space(2)+“cd“,则 s 的值为（ ）(表示空格)。 abcd abcd abcd abcd17sLeft$(“abcd“,2)+Mid$(“efgh“,2,2)，则
13、 s 的值为（ ）。 abgh abfg cdgh cdfg18sLeft$(“abcd“,2)+Right$(“efgh“,2)，则 s 的值为（ ）。 abef cdef abgh cdgh21 Sgn(-6)的值是（ ）。 6 -6 1 -122 StrReverse（“abcD“）的值为（ ）。 dCBA dcba Dcba DABC23 UCase$(“Abc“)的值为（ ）。 Abc abc ABC aBC24 表达式 1(23)*2)*2 的值是（ ）。 26 22 21 2425 表达式 11 Mod 4/2 的值是（ ）。 1.5 2 3 126 表达式 145*2 的值是（
14、 ）。 1.4 4 5.6 127 表达式(25/3)(5/2)的值是（ ）。 2 4 3 2.6728 表达式 25(0.5*-1)的值是（ ）。 -12.5 0.2 -5 529 表达式 3*22 的值是（ ）。 12 81 3 1830表达式 Hour(“12:03:06“)-Minute(“12:03:06“)-Second(“12:03:06“)的值为（ ）。12-03-06 12-3-6 1236 331 产生 N 个空格组成的字符串的函数是（ ） Space$ Spc$ Rtrim$ Ltrim$32产生大于 10 且小于等于 20 的随机整数的表达式为（ ）。 Int(Rnd(
15、10)10) Int(Rnd*10+10) Int(Rnd*10+11) Int(Rnd*20-10)33产生大于等于 10 且小于 20 的随机整数的表达式为（ ）。 Int(Rnd(10)10) Int(Rnd*10+10) Int(Rnd*10+11) Int(Rnd*20-10)34将浮点数或货币型数转换为小于等于该数的最大整型量的函数是（ ）。 Cint Fix Int Ccur36将数值型数据转换成字符串型数据的函数是（ ）。 Chr$ Str$ Asc Val37将数字字符串转换成数值型常数的函数是（ ）。 Chr$ Str$ Asc Val38截去浮点数或货币型数的小数部分，返
16、回一个整型量的函数是（ ）。 Cint Fix Int Ccur39可从字符串任意位置截取字符的函数是（ ）。 Instr Mid$ Left$ Right$40设 a=2,b=3,c=4,d=5,下列表达式的值是（ ）。32*b OR a=c AND b6,-1,0)后，x 的值为（ ）。 5 6 0 -148 下列表达式值为 False 的是（ ）。 True Or 82 Xor 82 Or 82 And 8“abc“ “abc“=“ABC“ “abc“ABC“ “ABC“Ab“51下列表示命题|x|y|或 x=Abs(y)or x=Abs(y)or x0,sqr(x)返回值为 4 0 2
17、 1二、VBA编程练习题1、假定有以下循环结构Do Until 条件循环体Loop则正确的叙述是A）如果“条件”值为0，则一次循环体也不执行B）如果“条件”值为0，则至少执行一次循环体C）如果“条件”值不为0，则至少执行一次循环体D）不论“条件”是否为“真”，至少要执行一次循环体2.设有以下窗体单击事件过程：Private Sub Form_Click( )a = 1For i = 1 To 3Select Case iCase 1, 3a = a + 1Case 2, 4a = a + 2End SelectNext iMsgBox aEnd Sub打开窗体运行后，单击窗体，则消息框的输出内
18、容是 5 。3. 在窗体中添加一个命令按钮（名为Command1）和一个文本框（名为text1），然后编写如下事件过程：Private Sub Command1_Click( )Dim x As Integer, y As Integer, z As Integerx = 5 : y = 7 : z = 0Me!Text1= “Call p1(x, y, z)Me!Text1 =zEnd SubSub p1(a As Integer, b As Integer, ByVal c As Integer)c = a + bEnd Sub打开窗体运行后，单击命令按钮，文本框中显示的内容是 0 。4.
19、 以下程序段运行结束后，变量 x 的值为 x=2 y=4 Do x=x*y y=y+1 Loop While y=10 或7 运行程序，要求循环体执行3次后结束循环，在空白处填入适当语句。7. 在Access中，DAO的含义是： A. 开放数据库互连应用编程接口 B. 数据库访问对象 C. Active数据对象 D. 数据库动态链接库8. 在Access中，ADO的含义是： A. 开放数据库互连应用编程接口 B. 数据库访问对象 C. Active数据对象 D. 数据库动态链接库9. 在窗体中有一个标签Lb1和一个命令按钮Command1，事件代码如下： Option Compare Data
20、base Dim a As String*10 Private Sub Command1_Click() a=“1234“ b=Len(a) Me.Lb1.Caption=b End Sub 打开窗体后单击命令按钮，窗体中显示的内容是 A. 4 B. 5 C. 10 D. 4010. 在窗体中使有一个文本框（名为 n）接受输入的值，有一个命令按钮 run，事件 代码 如下： Private Sub run_Click() result=“ For i=1 To Me!n For j=1 To（Me!n）+1-i result=result+“*“ Next j result=result+Ch
21、r(13)+Chr(10) Next i MsgBox result End Sub 打开窗体后，如果通过文本框输入的值为4，单击命令按钮后输出的图型是 D11. 在VBA中双精度的类型标识是A. Integer B. Single C. Double D. Variant12. 运行下列过程，当输入一组数据：10，20，50，80，40，30，90，100，60，70，输出的结果应该是Sub p1( )Dim i, j, arr(11) As Integer k = 1while k arr(j) Thentemp = arr(i)arr(i) = arr(j)arr(j) = tempEnd IfDebug.Print arr(i)Next iEnd SubA）无序数列 B）升序数列 C）降序数列 D）原输入数列13. 下列程序的功能是计算N = 2+(2+4)+(2+4+6)+(2+4+6+40)的值。Private Sub Command34_Click( )t = 0m = 0sum = 0Do
