1、整理过的Access数据库基础与应用综合练习题讲解第1 题: (单选题, 1 分) 在 Access2010 中的 VBA 过程里，要运行宏可以使用 DoCmd 对象的 _方法。 AOpen BRunMacro CClose DQuery答案: B 第2 题: (单选题, 1 分) 在宏中，OpenReport 操作可用来打开指定的_。 A查询 B状态栏 C 窗体 D报表答案: D 第3 题: (单选题, 1 分) 关于宏的执行，以下说法不正确的是_。 A在“导航窗格”，选择“宏”对象列表中的某个宏名并双击，可以直接运行该宏中的第一个子宏的所有宏操作 B在“导航窗格”，选择“宏”对象列表中的某
2、个宏名并双击，可以直接运行该宏中的第二个子宏的所有宏操作 C可以在一个宏中运行另一个宏 D在一个宏中可以含有IF逻辑块答案: B 第4 题: (单选题, 1 分)在宏中，用于显示所有记录的宏命令是_。 AMsgboxAllRecords BShowAllRecords CSetProperty DSaveRecords答案: B 第5 题: (单选题, 1 分) 在 VBA 中，表达式 (52 Mod 8) = 4 的值是_。 ATrue BFalse CAnd D. Or答案: B 第6 题: (单选题, 1 分) 表达式 IIf(23 5.5 = 6, 68, 176) 的结果是_。 A5
3、 B6 C68 D176注意：执行整除之前，要先把除数四舍五入。 请另外试试表达式 IIf(23 5.4 = 6, 68, 176) 的结果。答案: C 第7 题: (单选题, 1 分)执行下列程序段后，变量 P 的值是_。 Dim W As Single Dim P As Single W = 68.5 If W = 50 Then P = W * 4 Else P = W * 2 End If A. 68.5 B. 137 C. 205.5 D. 275答案: B 第8 题: (单选题, 1 分)设 x=9，执行下列程序段后，变量 t 的值是_。 y = x4 +24 If y30 The
4、n x = x + y t = x Mod 12 A. 1 B. 2 C. 3 D. 4答案: C 第9 题: (单选题, 1 分) 在 VBA 中，声明函数过程的关键字是_。 ADim BConst CFunction DSub答案: C 第10 题: (单选题, 1 分) 对 VBA 中的逻辑值进行算术运算时，True 值被当做 -1，False 当做_。 A1 B2 C0 D3答案: C 第11 题: (单选题, 1 分) 在 VBA 中，类型说明符 # 表示的数据类型是_。 A整型 B长整型 C单精度型 D双精度答案: D 第12 题: (单选题, 1 分)下列语句中，定义窗体的加载事
5、件过程的头语句是_。 APrivate Sub Form_Chang() BPrivate Sub Form_LostFocus() CPrivate Sub Form_Load() DPrivate Sub Form_Open()答案: C 第13 题: (单选题, 1 分) 现有一个已经建好的窗体，窗体中有一个命令按钮，单击此按钮，将打开“产品数量统计”报表，如果采用VBA 代码完成，下面语句正确的是_。 ADocmd.OpenForm 产品数量统计 BDocmd.OpenView 产品数量统计 CDocmd.OpenTable 产品数量统计 DDocmd.OpenReport 产品数量统
6、计答案: D 第14 题: (单选题, 1 分) 表达式 IIf(7 Mod 5 3, 60, IIf(23 28, 80, 100) 的运算结果是_。 A60 B80 C100 D160答案: C 第15 题: (单选题, 1 分) 在 VBA 中，变量声明语句“ Dim a!, b AS integer”中的变量 a 的类型是_。 A整型 B单精度型 C长整型 D变体型答案: B 第16 题: (单选题, 1 分) 在 VBA 中，“ Dim a(3,3) AS Boolean”语句定义了一个数组，该数组中的全部元素都初始化为_。 ATrue BFalse C-1 D1答案: B 第17
7、题: (单选题, 1 分) 在 VBA 某个模块中，有如下声明语句 Dim a(6,10) AS integer那么数组 a(6,10) 总共有_个元素。 A16 B60 C70 D77答案: D 第18 题: (单选题, 1 分) 以下 VBA 程序段运行后，变量 j 的值是_。 k = 10 j = 0 Do k = k + 10 j = j + 1 Loop Until k 20 A1 B2 C4 D10答案: B 第19 题: (单选题, 1 分) 以下 VBA 程序段运行后，变量 j 的值是_。 y = 89 j = 不及格 Do While y 60 j = IIf(y 70, 及
8、格, IIf(y 80 A60 B140 C142 D160 答案: C 第21 题: (单选题, 1 分)以下 VBA 代码程序运行结束后，数组元素 a(12) 的值是_。 Dim a(12) As Long, i As Long i=0 Do Until i12 a(i)=i2 - i i=i+1 Loop A1 B128 C132 D144答案: C 第22 题: (单选题, 1 分)假定有如下的 Function 过程： Function ppfun(x As Single, y As Single) ppfun=x3-y2 End Function在窗体上添加一个命令按钮（名为 cm
9、d10）,然后编写如下事件过程： Private Sub cmd10_Click() Dim a As Single, b As Single a = 5 b = 4 MsgBox ppfun(a,b) mod 50 End Sub打开窗体运行后，单击命令按钮，消息框中的输出内容是_。 A50 B25 C9 D109答案: C 第23 题: (单选题, 1 分)在窗体上添加一个命令按钮（名为 cmd2）,然后编写如下事件过程： Private Sub cmd2_Click() Dim pi As Single, n As Integer pi = 3.14 n = Len(Str(pi) &
10、Space(2) & 是本字符串长度) MsgBox n End Sub打开窗体运行后，单击命令按钮，消息框中的输出内容是_。 A11 B12 C13 D14答案: D 第24 题: (单选题, 1 分)在窗体上添加一个命令按钮（名为 cmd13）,然后编写如下事件过程： Private Sub cmd13_Click() Dim x As String, y As String x = 龙洞华美路中山大学新华学院法学院 y = 2006级法学专业学生 MsgBox Mid(x,6,4) & Right(x,3) & Left(y,9) End Sub打开窗体运行后，单击命令按钮，消息框中的输
11、出内容是_。 A龙洞华美路中山大学新华学院法学院2006级法学专业学生 B中山大学新华学院法学院2006级法学专业学生 C中山大学法学院2006级法学专业学生 D中山大学法学院2006级法学专业答案: D 第25 题: (单选题, 1 分) 下列程序段,建立如图所示的数组d（下标从1开始），填写所缺部分： 1 2 3 4 5 6 2 1 2 3 4 5 3 2 1 2 3 4 4 3 2 1 2 3 5 4 3 2 1 2 6 5 4 3 2 1 Dim d(1 To 6, 1 To 6) For j = 1 To 6 For k = 1 To 6 d(j,k) = Abs( _ ) + 1
12、选答案 Next k Next j Aj Bj-k+1 Cj-k D2*j-k答案: C 第26 题: (多选题, 1 分)下面_是合法的变量名。 ASTR-NAME BCase CFOR_99 Dabc2006 E6A答案: CD 第27 题: (多选题, 1 分) 在 VBA 中，对于 Sub (或 Function) 过程中的每一个形参,可用于声明其参数传递方式的关键字包括_。 AByMeB BByVal CByRef DByVBA EBySub答案: BC 第28 题: (单选题, 1 分) 在窗体上添加一个命令按钮（名为 cmd），然后编写如下事件过程。单击该命令按钮，便将数组 p(
13、6,8)中各个元素都赋予其对应的两个下标值平方之和，请完善程序。 Private Sub cmd_Click() Dim p(6,8) As integer, i As integer, j As integer For i=0 To 6 For j=0 To 8 p(i,j) = _ 选答案 Next j Next i End Sub A. (i+j)2 B. i2+j C. i+j2 D. i2+j2答案: D 第29 题: (单选题, 1 分) 在窗体上已经建立1个文本框控件txt1和1个命令按钮控件cmd1。请完善程序，使之完成以下操作： 程序运行时，文本框上显示“VBA程序设计”，命
14、令按钮的标题上显示“隐藏”； 单击命令按钮时文本框消失； 单击窗体时显示出文本框。 Private Sub cmd1_Clic() txt1.Visible = False End Sub Private Sub Form_Click() txt1._ = True 选答案 End Sub Private Sub Form_Load() txt1.Value = VBA程序设计 txt1.Visible = True cmd1.Caption = 隐藏 End Sub A. Enable B. Value C. Visible D. Caption答案: C 第30 题: (单选题, 1 分)
15、 在窗体上已经建立1个标签控件lab1和1个命令按钮控件cmd1。请完善程序，使之完成以下操作： 打开窗体后单击命令按钮，则通过输入对话框分别输入3个数值，然后求出其中最大的数，并将最大的数显示在标签lab1中。 Private Sub cmd1_Click() Dim a As Single, b As Single, c As Single Dim k As Single a = Val(InputBox(输入第一个数) b = Val(InputBox(输入第二个数) c = Val(InputBox(输入第三个数) If ab Then k = b Else k = a End If
16、If kc Then k = c End If _ 选答案 End Sub A. lab1.Value = a B. lab1.Value = b C. lab1.Caption = c D. lab1.Caption = k答案: D 第31 题: (填空题, 2 分) 7 2 Mod 11 + 7 4 * 9 / 5 Mod 6 上述表达式的值是_。_ 答案:Lower(Trim(GetFill(1)=6第32 题: (填空题, 2 分) 通过编程求出结果。 把 9786 表示为两个加数之和，使其中一个加数能被91整除，而另一个加数能被87整除。请求出：在这两个加数中，能被91整除的加数等
17、于多少？_ 答案:Lower(Trim(GetFill(1)=4914第33 题: (填空题, 2 分) 通过编程求出结果。 求 S = 1/5 + 1/10 + 1/15 + 1/20 + 1/25 + + 1/(5*n) + 的前 n 项之和，当 S 第一次大于或等于 1.4 时终止计算，此时项数 n 为_。_ 答案:Lower(Trim(GetFill(1)=616第10章VBA程序模块设计1VBA的英文全名VisualBasicforApplication2、VBA编程基础（1）标准数据类型（P221） 数据类型定义时的字符串、类型说明符变体数据类型 VBA数据类型中不包括字段类型中的
18、OLE对象型和备注型（2）常量及其类型 类型直接常量（数值常量、字符常量、日期/时问常量）、符号常量（需要用Const来定义）、系统常量（7个系统常量）、内部常量 字符常量与日期/时间常量的定界符（3）变量 变量的命名规则，变量的定义（声明）语句（类型说明符的应用） 变量的类型及其作用域：公共变量、私有（模块）变量、局部变量 数据库对象变量在VBA代码中的引用格式，使用Set建立控件对象的变量（4）数组 数组的构成与定义语句（多维数组的定义） 数组下标及数组元素个数的确定（5）运算符与表达式 四类运算符：算术运算符（标准除法、整除、Mod）、连接运算符（&和+）、比较/关系运算符、逻辑运算符
19、运算符的优先级别（6）需熟练掌握如下标准函数： 算术（数学）函数：Int（）、Fix（）、Rnd（） 字符串函数：Instr（）、Len（）、Left（）、Right（）、Mid（） 日期/时间函数：Date（）、Now（）、Year（）、Month（）、Day（）、WeekDay（）、 类型转换函数：Asc（）、Chr（）、Str（）、Val（） 其它函数：MsgBox（）、IIf（）3、程序控制的三种基本结构顺序结构分支/选择/条件结构（多种结构形式）循环结构要求：掌握各种语句的语法结构及其功能；能读懂和说出程序的运行流程及运行结果；会编写简单的程序。4、数据的输入输出InputBox（）
20、函数、MsgBox（）函数(换行输出Chr(13)用法)、Debug.Print语句（“立即”窗口中输出）5、过程调用6、参数传递（阅读程序）参数的两种传递方式 按值传递：传值、数据“单向”传递；在形参定义时的相应子句为：ByVal 按地址传递：传址、数据“双向”传递；在形参定义时的相应子句为：ByRef 当实参为常量或表达式时，实际为“传值”，此时不受形参的传址（ByRef）说明的影响 系统默认的参数传递方式是：地址传递7、VBA的数据库编程（1）数据库引擎及其接口使用DAO、ADO进行数据库编程的要点数据库数据访问和处理时使用的属性、方法和特殊函数 属性：BOF、EOF方法：Edit（DA
21、O）、Update、Close、Move系列方法（2）DOCmd对象及其常用的方法 打开窗体、报表、查询和表等的操作方法（命令及其格式、参数）关闭对象操作（用Close方法）与退出Access的操作（用Quit方法）7、VBA的数据库编程（1）数据库引擎及其接口使用DAO、ADO进行数据库编程的要点数据库数据访问和处理时使用的属性、方法和特殊函数 属性：BOF、EOF 方法：Edit（DAO）、Update、Close、Move系列方法（2）DOCmd对象及其常用的方法打开窗体、报表、查询和表等的操作方法（命令及其格式、参数）关闭对象操作（用Close方法）与退出Access的操作（用Quit
22、方法）4、VBA程序设计（1）编程题中第2小题为结构化编程要求：用VBA语句编程，并按要求输出结果（在“立即窗口”显示结果或使用MsgBox函数）（2）编程题中第3小题为VBA的数据库编程使用DAO或ADO访问数据库/表，对表中记录或字段值操作【例】下列表达式计算结果为日期类型的是AA)#2012-1-23#-#2011-2-3#B)year(#2011-2-3#)C)DateValue(2011-2-3)D)Len(2011-2-3)【例】下列表达式中，能正确表示条件x和y都是奇数的是CA)xMod2=0AndyMod2=0B)xMod2=0OryMod2=0C)xMod2=1AndyMod
23、2=1D)xMod2=1OryMod2=1【例】在VBA中，能自动检查出来的错误是AA)语法错误B)逻辑错误C)运行错误D)注释错误【例】下列给出的选项中，非法的变量名是CA)SumB)Integer_2C)RemD)Form1【例】如果在被调用的过程中改变了形参变量的值，但又不影响实参变量本身，这种参数传递方式称为AA)按值传递B)按地址传递C)ByRef传递D)按形参传递【例】表达式B=INT(A+0.5)的功能是BA)将变量A保留小数点后1位B)将变量A四舍五入取整C)将变量A保留小数点后5位D)舍去变量A的小数部分【例】VBA语句DimNewArray(10)asInteger的含义是
24、BA)定义10个整型数构成的数组NewArrayB)定义11个整型数构成的数组NewArrayC)定义1个值为整型数的变量NewArray(10)D)定义1个值为10的变量NewArray【例】运行下列程序段，结果是BForm=10to1step0k=k+3NextmA)形成死循环B)循环体不执行即结束循环C)出现语法错误D)循环体执行一次后结束循环【例】下列表达式计算结果为数值类型的是AA)#5/5/2010#-#5/1/2010#B)10211C)102984D)#5/1/2010#5【例】要将一个数字字符串转换成对应的数值，应使用的函数是AA)ValB)SingleC)AscD)Spac
25、e【例】下列变量名中，合法的是CA)4AB)A1C)ABC_1D)private【例】若变量i的初值为8，则下列循环语句中循环体的执行次数为CDoWhilei17ii2LoopA)3次B)4次C)5次D)6次【例】InputBox函数的返回值类型是BA)数值B)字符串C)变体D)视输入的数据而定【例】下列能够交换变量X和Y值的程序段是CA)YX：XYB)ZX：YZ：XYC)ZX：XY：YZD)ZX：WY：YZ：XY【例】在VBA中要将数值表达式的值转换为字符串，应使用函数str()。【例】在VBA中要判断一个字段的值是否为Null，应该使用的函数是ISNULL。【例】函数表达式题目：1.int
26、(-2.8)+fix(2.8)2.103+-8mod33.year(#2011/12/12#)-month(#2011/10/10#)+day(#2012/1/1#)4.left(南京财经大学，2)+mid(南京财经大学，3,2)+right（南京财经大学,2）5.instr（3，“ab12abc34abc”,a,1）6.已知2011年12月31日是星期六，weekday(#2011/12/31#)7.val(-12e2abcd)+len(南京财经大学)8.chr（asc(A)+5）【例】1.运行下列程序，结果是()f=13PrivateSubCommand32_Click()f0=1：fl=1：k=1DoWhilek=5f=f0+f1f0=f1f1=fk=k+1LoopMsgBoxf=&fEndSub【例】2.有如下事件程序，运行该程序后输出结果是()x=1，y=0PrivateSubCommand33_Click()DimxAsInteger，yAsIntegerx=1：y=0DoUntily=25y=y+x*xx=x+1LoopMsgBoxx=&x&，y=&yEndSub【例】3.下列程序的功能是计算Sum=1+(1+3)+(1+3
