第十二章编写ACCESS应用程序

一、单项选择题

1、 从字符串S(\中返回子串B(\的正确表达式是（ D ）。 A、Mid（S，3，2） B、Right(Left(S,4),2) C、Left(right(S,5),2) D、以上都可以 2、 下列计算正确的是（ A ）。 A、int（3.2）=3 B、int（2.6）=3 C、int（3.2）=3.2 D、int（2.6)=0.6 3、 运行下面程序段： For k=5 to 10 step 2 k=k*2 Next k

则循环的次数是（ A ）。 A、1 B、2 C、3 D、4 4、 下面逻辑表达式中，能够准确表示“x和y都是奇数”的VBA表达式是（ C ）。 A、x mod 2=1 or y mod 2=1 B、x mod 2=0 not y mod 2=0 C、x mod 2=1 and y mod2=1 D、x mod2=0 and y mod 2=0 5、 VBA表达式iif(\周\刘\的值是（B）。 A、20 B、30 C、10 D、50 6、 VBA中定义过程级符号变量可以使用关键字（ B ）。 A、Const B、Dim C、Public D、Static 7、 已定义好函数F(m),其中形参m是整型量。下面调用该函数，传递实参为5，

将返回的函数值赋给变量t。以下正确的是（ C ）。 A、t=F(m) B、t=Call F(m) C、t=F(5) D、t=call F(5) 8、 在VBA代码调试中，能显示出所有在当前过程中的变量及变量值信息的是

（ C ）。 A、监视窗口 B、立即窗口 C、本地窗口 D、快速监视窗口 9、 下列内容中不属于VBA提供的数据验证函数是（ A ）。 A、IsText（） B、IsDate（） C、IsNumeric（） D、IsNull（） 10、 VBA中不能进行错误处理的语句结构是（ A ）。 A、On Error Then 标号 B、On Error Goto 标号 C、On error Resume Next D、On Error Goto 0 11、 已知程序段： s=0

fori=0 to 10 step 2 s=s+1 i=i*2 nexti

当循环结束后，变量i、s值分别为（ B ）。 A、12、3 B、14、3 C、12、4 D、14、4

12、 ADO对象主要有Connection、Command、（ D ）、Field和Error 5个对

象。

1

A、Database B、Workspace C、Docmd D、RecordSet 13、 语句S=Int(100*Rnd)执行后，S的值是（ A ）。 A、[0,99]的随机整数 B、[1,99]的随机整数 C、[0,100]的随机整数 D、[1,100]的随机整数 14、 使用Function语句定义一个函数，其返回值的类型（D）。 A、只能是符号常量 B、是除数组以外的数据类型 C、可以运行时决定 D、由函数定义时As子句声明 15、 下列不是分支语句的是（ B ）。 A、If?Then?EndIf B、while?wend C、if?then?else?endif D、select?case?end select

16、 在窗体中有一个标签Lb1和一个命令按钮Command1，事件代码如下： private Sub Command1_Click() dim a As String, b As Byte a=\ b=Len(a)

me.Lb1.Caption=b end sub

打开窗体后单击命令按钮Command1，窗体中标签Lb1上的内容是（ A ）。 A、4 B、5 C、10 D、40 17、 下列程序循环次数是（ A ）。 dim a as Integer,b as Integer a=5:b=8 do

a=a+1 loop while a

19、 窗体上有一个标有“显示”字样的命令按钮（名为Command1）和一个文

本框（名为text1）。当单击按钮时，将变量sum的值显示在文本框内，正确的代码是（ B ）。 A、Me!text1.caption=sum B、Me!text1.value=sum C、Me!text1.text=sum D、Me!text1.Visible=sum 20、 在VBA中，实现窗体打开操作的命令是（ A ）。 A、DoCmd.OpenForm B、Openform C、Do.OpenForm D、DoOpen.form 21、 下列数据类型中，不属于VBA的是（ D ）。 A、长整型 B、布尔型 C、变体型 D、指针型

22、 窗体中有一个命令按钮Command1和一个文本框Text1，编写事件代码如

下：

Private Sub command_Click()

X=val(inputbox(\请输入X的值\ Y=1

2

IF X<>0 then Y=2 Text1.Value=Y End Sub

打开窗体运行后，在输入对话框中输入整数12，文本框Text1中输出的结果是（ B ）。 A、1 B、2 C、3 D、4 23、 由“for i=1 to 9 step 3”决定的循环结构，其循环体将被执行（ C ）。 A、0次 B、1次 C、3次 D、4次 24、 一般不需要编写VBA代码的是（ C ）。

A、自定义函数 B、复杂程序处理 C、打开窗体 D、错误处理 25、 VBA程序的多条语句写在一行中时，语句分隔符必须使用（A）符号。 A、: B、, C、; D、\26、 能被“对象所识别的动作”和“对象可执行的活动”分别称为对象的(B )。 A、方法和事件 B、事件和方法 C、事件和属性 D、过程和方法 27、 假定窗体的名称为FmTest，则把窗体的标题设置为“AccessTest”的语

句是（ B ）。 A、Me=\B、Me.caption=\ C、Me.text=\D、Me.Name=\28、 可以得到“2*5=10”结果的VBA表达式为（ A ）。 A、\ B、\C、2*5&\D、2*5+\29、 对于Access的系统常量，编码时（ B ）。 A、要先声明后使用 B、可以直接使用

C、有些可直接使用，有些必须要先声明后使用 D、可以使用后再声明

30、 在VBA编程过程中要运行OpenForm操作，可使用（ A ）对象的该方法。 A、DoCmd B、Fom C、Report D、Query 31、 VBA面向对象程序设计中的“方法”说法正确的是（ A ）。 A、方法是属于对象的 B、方法是独立的 C、方法可以由程序员定义 D、方法是对事件的响应 32、 关于模块，下列叙述中错误的是（ C ）。 A、模块是Access系统中的一个重要对象

B、模块以VBA语言为基础，以函数和子过程为存储单元 C、模块包括全局模块和局部模块

D、模块能够完成宏所不能完成的复杂操作

33、 下列数据类型中哪一个是VBA没有的数据类型（ C ）。 A、整型 B、布尔型 C、备注字段数据类型 D、货币型 34、 阅读代码：

Dim rstInsert As New ADODB.Recordset

rstInsert.Open \登录日志\adLockOptimistic

其中“登录日志”（ C ）。

3

A、只能是表名 B、只能是查询名 C、表名或查询名 D、窗体名

35、 声明变量语句：Dim aa As Boolean,bb,cc As Date,dd As String 变量bb是（C ）数据类型。 A、布尔 B、日期 C、变体 D、字符 36、 声明rst的语句：Dim rst as New ADODB.Recordset 常用rst.EOF语句（A）。

A、判断记录指针是否指向最后一条记录之后 B、判断记录指针是否指向第一条记录之前 C、将记录指针指向最后一条记录之后 D、将记录指针指向记录第一条记录之前

二、判断题

1、 Access数据库中VBA代码可以自动转为数据库宏。×

2、 模块是由VBA语言编写的程序的集合，编写的程序代码被存放于模块的过

程中。√

3、 变量是内存存储单元一个符号名。√

4、 变量赋值时，赋值号两边要类型匹配。√

5、 函数inputBox的功能是提示并接受用户输入一个字符串或数值。√ 6、 注释语句是非执行语句，用来提高程序的可读性，不被解释和编译。注释

语句显示为红。×

7、 过程与函数的区别是过程没有返回值，函数有返回值。√ 8、 公有变量是变量在整个数据库文件的所有模块都可使用。√ 9、 Docmd是Access的一个特殊内置方法。×

10、 Recordset对象的Bof、Eof属性可以判断当前记录指针是否指向记录集的开头或结尾，返回值为True或False。√

11、 记录集(Recordset)对表执行查询操作时，返回的一组特定记录，好比内存中的虚拟数据表。√

12、 对象的三要素是属性(property)，方法(method)，事件(event)。√ 13、 VBA代码中的注释语句是不被计算机执行的。√

4