3、压缩和修复数据库能否提高数据库的性能？（） 【典型试题】
2、要设置数据库密码，必须以 方式打开数据库。
3、设置数据库密码，在文件选项卡中的 组中进行设置。 一、单项选择题
1、下列属于管理数据库的是（ ）。 A、维护数据库的可靠性 B、设置密码 C、账户的权限设置 D、以上全是
2、Access2010中，执行（ ）操作以后，数据库文件只能打开和运行，而不能对其中的窗体、报表和模块等进行修改。
A、压缩与修复 B、备份与恢复 C、加密与解密 D、生成MDE文件 3、对数据库设置密码时，数据库应该以（ ）方式打开。 A、以只读方式打开 B、以独占方式打开 C、以独占只读方式打开 D、只要打开就行
4、实现数据库系统安全最简单的方法是（ ）。
A、备份数据库 B、设置密码 C、一人一库 D、定期维护 5、以下哪项不是Access2010新的文件格式。（ ） A、.accdb B、.accdc D、.accdd D、.accde 二、填空题
1、设置数据库密码，在“文件”选项卡中的 组中进行设置。
2、Access提供了 、 及数据库的加密与解密等安全保护措施。 3、Access数据库常见的加密措施有 、 、 三种。 4、数据库加密的逆过程称为 。
5、在进行数据库压缩与修复时，Access数据库以 打开。
第十章 VBA程序设计基础P185
例题解析
1、以下关于变量作用域的叙述中，正确的是（ ）。
A、窗体中凡被声明为Private的变量只能在某个指定的过程中使用 B、全局变量必须在通用声明区域中声明 C、模块级变量只能用Private关键字声明
D、Static类型变量的作用域是它所在的窗体或模块文件 2、以下声明语句错误的是（ ）。 A、Const var1=123 B、Dim var2=”abc”
C、dim a() as integer D、static var3 as integer 3、下列可作为VBA变量名的是（ ）。 A、A#A B、4A C、?xy D、constA 4、以下Case语句中错误的是（ ）。 A、Case 0 to 10 B、Case is>10 C、Case is>10 and is<50 D、Case 3,5,is>10
5、关于VBA过程，以下正确的描述是（ ）。 A、过程的定义可以嵌套，但过程的调用不能嵌套 B、过程的定义不可以嵌套，但过程的调用可以嵌套
C、过程的定义和过程的调用均可以嵌套 D、过程的定义和过程的调用均不能嵌套
【典型试题】 一、填空题
1、设a=0，则执行x=iif（a>5,-1,0）后，X的值为 。
2、在使用Dim语句定义数组时，在缺省情况下数组下标的下限为 。 3、设有如下代码： x=1 do x=x+2
loop until
运行程序，要求循环体执行3次后结束循环，在空白处填入适当语句。 4、 变量只能声明在过程中。
5、变量名长度不能超过 个字符，且变量名不区分大小写。
6、按语句的执行流程，程序可分为 、 、 。 7、己知a= 1:b=2，则表达式Not true or a 1、以下可以得到“2*5＝10”结果的VBA表达式为（ ）。 A、“2*5”＆“＝”＆ 2*5 B、“2*5”＋“＝”＋2*5 C、2*5 ＆“＝”＆ 2*5 D、2*5＋“＝”＋2*5 2、下列各组变量声明正确的是（ ）。 A、Dim abc as integer,num as single B、Dim 1%,N$ as integer C、Dim a%,b%,c%= 123, a$ D、public dim n% 3、下列声明局部变量应该用（ ）。 A、Global B、Private C、 Static D、Public 4、表达式Right（“Beijing”，4）的值是（ ）。 A、Beij B、jing C、eiji D、ijin 5、MsgBox函数用于显示提示信息，关于函数返回值的说明正确的是（ ）。 A、函数的返回值是提示信息的数据类型 B、函数的返回值是提示信息的数据长度 C、函数的返回值是整数，指示按下哪个按钮 D、函数的返回值是符号常量，指示按下哪个按钮 6、关于多行结构条件语句的执行过程，正确的是（ ）。 A、各个条件所对应的〈语句块〉中，一定有一个〈语句块＞被执行 B、找到〈条件＞为True的第一个入口，便从此开始执行其后的所有＜语句块＞ C、若有多个〈条件＞为True，则它们对应的〈语句块〉都被执行 D、多行选择结构中的〈语句块＞，有可能任何一个〈语句块＞都不被执行 7、以下程序段运行后，消息框的输出结果是（ ）。 a=sqr(3) b=sqr(2) c=a>b Msgbox c+2 A、1 B、1 C、2 D、出错 8、下列逻辑表达式中，能正确表示条件“x和y都是奇数”的是（ ）。 A、x Mod 2=1 Or y Mod 2=1 B、x Mod 2=0 Or y Mod 2=0 C、x Mod 2=1 And y Mod 2=1 D、x Mod 2 =0 And y Mod 2=0 9、在窗体中添加一个命令按钮（名称为Command1），然后编写如下代码： Private Sub Command1_Click（） a=0:b=5:c=6 MsgBox a=b+c End Sub 窗体打开运行后，如果单击命令按钮，则消息框的输出结果是（ ） A、11 B、a=11 C、0 D、False 10、在窗体中添加一个命令按钮（名称为Command1），然后编写如下代码： Private Sub Command1_Click（） Static b as integer b=b+1 End Sub 窗体打开运行后，三次单击命令按钮后，变量b的值是（ ）。 A、5 B、7 C、3 D、2 11、在窗体中添加一个命令按钮（名称为Command1），然后编写如下代码： Private Sub Command1_Click（） A=75 If A>60 then i=1 If A>60 then i=2 If A>60 then i=3 If A>60 then i=4 MsgBox i End Sub 窗体打开运行后，单击命令按钮，则消息框的输出结果是（ ）。 A、1 B、2 C、3 D、4 12、执行下列语句后整型变量a的值是（ ）。 If (3 - 2) > 2 Then a=10 Elself (10/2) = 6 Then a=20 Else a=30 End If A、10 B、20 C、30 D、40 13、下面程序段执行结果为（ ）。 x=Int(Rnd()+4) Select Case X Case 5 Debug、Print”excellent” Case 4 Debug、Print”good” Case 3 Debug、Print”pass” Case Else Debug、 Print”fail” End Select A、excellent B、good C、pass D、fail 14、下述程序的运行结果是（ ）。 j=0 Do While j<30 j=(j+1)*(j+2) k=k+1 Loop Debug.Print k;j A、2 190 B、3 182 C、4 160 D、3 180 15、以下程序段运行结束后，变量x的值为（ )。 x=2 y=4 Do x=x*y y=y+1 Loop While y < 4 A、7 B、8 C、9 D、10 16、以下程序输出的结果为（ ）。 Dim k As Integer n=5 m=1 k=1 Do m=m+2 k=k+1 Loop Until k>n Debug.Print m A、9 B、10 C、11 D、12 17、在VBA中，实现窗体打开操作的命令是（ ）。 A、DoCmD.OpenForm B、OpenForm C、Do.OpenForm D、DoOpen.Form 18、在窗体上，设置控件Command0为不可见的属性是（A、Command0.Colore B、Command0.Caption C、Command0.Enabled D、Command0.Visible 19、下列关于For···Next语句的说法正确的是（ ）。A、循环变量、初值、终值和步长都必须为数值型 B、Step后的步长只为正数 C、初值必须小于终值 。 ）