(83)如图8-1所示的为VBE界面的“代码”窗口，其中圈出的部分为 A)“对象”框 B)“过程”框 C)声明 D)过程
(84)如图8-2所示的为VBE界面的“代码”窗口，其中圈出的部分为 A)“对象”框 B)“过程”框 C)声明 D)过程
(85)如图8-3所示的为VBE界面的“代码”窗口，其中圈出的部分为 A)“对象”框 B)“过程”框 C)声明 D)过程
(86)如图8-4所示的为VBE界面的“代码”窗口，其中圈出的部分为 A)“对象”框 B)“过程”框 C)声明 D)过程
二、填空题
(1)VBA的全称是____________。
(2)模块包含了一个声明区域和一个或多个子过程或函数过程(以__________________开头)。 (3)窗体模块和报表模块都属于__________________。
(4)说明变量最常用的方法，是使用_____________________结构。
(5)VBA中变量作用域分为3个层次，这3个层次是局部变量、模块变量和___________________________。
(6)在模块的说明区域中，用____________关键字声明的变量是模块范围的变量。
(7)在模块的说明区域中，用Public或____________关键字声明的变量是属于全局范围的变量。
(8)要在程序或函数的实例间保留局部变量的值，可以用________关键字代替Dim。 (9)用户定义的数据类型可以用____________关键字声明。
(10)VBA的三种流程控制结构是顺序结构、选择结构和_______________。 (11)VBA中使用的三种选择函数是________，Switch和Choose。
(12)VBA提供了多个用于数据验证的函数。其中IsDate函数用于合法日期验证；_______函数用于判定输入数据是否为数值。
(13)VBA的有参过程定义，形参用_________说明，表明该形参为传值调用。 (14)VBA的有参过程定义，形参用ByRef说明，表明该形参为___________。 (15)VBA的错误处理主要使用__________________语句结构。 (16)On Error Goto 0语句的含义是_____________。
(17)On Error Resume Next语句的含义是____________。
(18)VBE编辑环境调试工具中，本地窗口的功能是_________。 (19)VBE编辑环境调试工具中，立即窗口的功能是_________。
(20)VBE编辑环境调试工具中，监视窗口的功能是_______________。 (21)VBA语言中，函数InputBox的功能是_________。 (22)VBA语言中，______函数的功能是显示消息信息。
(23)VBA的“定时”操作功能是通过窗体的_________事件过程完成的。 (24)VBA中打开窗体的命令语句是____________； (25)断点的功能是____________。
(26)VBA的逻辑值在表达式当中进行算术运算时，True值被当作______、False值被当作0来处理。
(27)Access的窗体或报表事件可以有两种方法来响应；宏对象和___________。 (28)VBA编辑中，要得到[15,75]上的随机整数可以用表达式______。
(29)VBA中主要提供了3种数据库访问接口：ODBC API，DAO和_________。 (30)DAO对象模型采用分层结构，其中位于最顶层的对象是________。 (31)用VBA编程操作本地数据库时，提供一种DAO数据库打开的快捷方式是CurrentDB()，而相应也提供一种ADO的默认连接对象是____________。 (32)DAO模型中，主要的控制对象有：DBEngine，Workspace，Database，Recordset，_________，QueryDef和Error。
(33)ADO对象模型主要有：Connection，Command，_________，Field和Error 5个对象。 (34)NZ函数主要用于处理______值时的情况。 (35)DLookUP函数的功能是______。
(36)标准模块中的公共变量和公共过程具有______性。 (37)模块是装着___________的容器。
(38)在模块的过程定义中，可以使用DoCmd对象的_________方法运行设计好的宏。 (39)VBA语法与__________编程语言互相兼容。 (40)VBE的全称是__________。
(41)VBE属性窗口提供了“按字母序”和___________两种属性查看形式。
(42)VBE的代码窗口顶部包含两个组合框，左侧为对象列表，右侧为___________。 (43)当不再需要动态数组时，可以使用___________将其设置为零个元素，释放内存。 (44)VBA中，在模块的声明中，可以使用__________语句将数组的默认下标定为1。 (45)为控件对象指定变量名时，必须使用__________关键字。 (46)以下程序段的功能是：创建一个字符串，其内容为由0到9的十个数字所组成的字符串，每个字符串之间用空格隔开。外层循环使用一个变量当作循环计数器，每循环一次，变量值减一。请将下列程序补充完整。 Dim Words，Chars，Mystring For Words=10 TO 1 Step -1 For Chars=0 To 9
Mystring=_________ Next Chars
Mystring=__________ Next Words
(47)请在下列程序段的横线处填写对应语句的功能。 Sub ExitstatementDemo() Dim I, MyNum DO
For I=1 TO 1000
MyNum=Int(Rnd*1000) Select Case MyNum
Case 7：Exit For '_________ Case 8：Exit Do '__________ Case 9：Exit Sub '_________ End Select Next Loop End Sub
(48)Mystr=\＆ \的返回值为_____________。 (49)已知如下程序段： Dim MyNumber MyNumber =2+2
执行以上程序段后，MyNumber为______。 (50)已知如下程序段：
Dim MyNumber, Var1, Var2 Var1=\
MyNumber = Var1+ Var2
执行以上程序段后，MyNumber为____________。 (51)已知如下程序段：
Dim MyNumber, Var1 Var2
Var1=\ MyNumber = Var1+ Var2
执行以上程序段后，MyNumber为____________。 (52)已知如下程序段： Dim A, B, C, MyCheck A=10: B=8: C=6
MyCheck =A>B And B>C
执行以上程序段后，MyCheck为____________。 (53)已知如下程序段： Dim A, B, C, MyCheck A=10: B=8: C=6
MyCheck =B>A And B>C
执行以上程序段后，MyCheck为____________。 (54)已知如下程序段： Dim A, B, C, MyCheck A=10: B=8: D=Null
MyCheck =A>B And B>D
执行以上程序段后，MyCheck为____________。 (55)已知如下程序段： Dim A, B, C, MyCheck A=10: B=8
MyCheck =A And B
执行以上程序段后，MyCheck为____________。 (56)已知如下程序段： Dim MyNumber
MyNumber=Abs(50.3)
执行以上程序段后，MyNumber为______。 (57)已知如下程序段： Dim MyNumber
MyNumber =Abs(-50.3)
执行以上程序段后，MyNumber为______。 (58)已知如下程序段： Dim MyNumber
MyNumber=Int(99.8)
执行以上程序段后，MyNumber为______。 (59)已知如下程序段： Dim MyNumber
MyNumber= Fix(99.2)
执行以上程序段后，MyNumber为______。 (60)已知如下程序段： Dim MyNumber
MyNumber=Int(-99.8)
执行以上程序段后，MyNumber为_______。 (61)已知如下程序段：
Dim MyNumber
MyNumber=Fix(-99.8)
执行以上程序段后，MyNumber为_______。 (62)已知如下程序段：
Dim Searchstring, SearchChar, MyPos Searchstring=\ SearchChar=\
MyPos=Instr(4, Searchstring,SearchChar,1)
执行以上程序段后，MyPos为_____________。 (63)已知如下程序段：
Dim Searchstring, SearchChar, MyPos Searchstring=\ SearchChar=\
MyPos=Instr(1, Searchstring,SearchChar,0)
执行以上程序段后，MyPos为_______________。 (64)已知如下程序段：
Dim Searchstring, SearchChar, MyPos Searchstring=\ SearchChar=\
MyPos=Instr(Searchstring,SearchChar)
执行以上程序段后，MyPos为______________。 (65)已知如下程序段：
Dim Searchstring, SearchChar, MyPos Searchstring=\ SearchChar=\
MyPos=Instr(1, Searchstring, \
执行以上程序段后，MyPos为________________________。 (66)已知如下程序段： Type CustomerRecord ID As Integer
Name As String *10 Address As String *30 End Type
Dim Customer As CustomerRecord Dim MyLen
MyLen =Len(Customer)
执行以上程序段风，MyLen为________。 (67)已知如下程序段：
Dim MyCur As Currency Dim MyLen
MyLen=Len(MyCur)
执行以上程序段后，MyLen为__________。 (68)已知如下程序段： Dim MyInt As Integer