刷过题的同学都知道，二级考试一点都不简单，那么我们该如何复习冲刺？下面考无忧奉上二级Access试题，希望为你保驾护航！
文章推荐：
2018年全国计算机等级考试题库“二级MS Office 高级应用考试大纲”
全国计算机等级考试报考成功后可以退费吗？（内附计算机等级考试题库）
温馨提示：
考试想拿高分吗？更多计算机等级考试题库二级ms office试题请点击查看>>>二级ms office
想要了解更多的计算机等级考试题库请点击下载>>>计算机等级考试题库
想知道更多关于计算机等级考试题库的最新资讯吗？点击进入>>>计算机等级考试题库资讯
计算机等级考试二级Access试题
【1】
1.运行下列程序段，结果是( )。
For m = 10 To 1 Step 0
k = k + 3
Next m答案：B
A）形成死循环
B）循环体不执行即结束循环
C）出现语法错误
D）循环体执行一次后结束循环
2.假设某一数据库表中有一个地址字段，查找地址最后两个字为“8号”的记录的准则是( )。答案：A
A）Right([地址],2)="8号"
B）Right([地址],4)="8号"
C）Right("地址",2)="8号"
D）Right("地址",4)="8号"
3.以下合法的表达式是( )。答案：B
A）教师编号between 100000 and 200000
B）[性别]="男" or"女"
C）[基本工资]>=1000[基本工资]<=10000
D）[性别]like"男"=[性别]="女"
4.下列Case语句中错误的是( )。答案：C
A）Case 0 To 10
B）Case Is>10
C）Case Is>10 And Is<50
D）Case 3,5,Is>10
5.下列数组声明语句中，正确的是( )。答案：B
A）Dim A[3,4] As Integer
B）Dim A(3,4)As Integer
C）Dim A[3;4] As Integer
D）Dim A(3;4)As Integer
6.在窗体上有一个命令按钮Command1，编写事件代码如下：
Private Sub Command1_Click()
Dim x As Integer, y As Integer
x = 12: y = 32
Call Proc(x, y)
Debug.Print x; y
End Sub
Public Sub Proc(n As Integer, ByVal m As Integer)
n = n Mod 10
m = m Mod 10
End Sub
打开窗体运行后，单击命令按钮，立即窗口上输出的结果是( )。答案：A
A）2 32
B）12 3
C）2 2
D）12 32
7.以下过程的功能是向数组中增加字符，则程序中下画线处应为( )
Private Sub AddToArray(arr(),arraycount%,ByVal charstring)
Dim i%, found As Boolean
found=False
For i=1 To arraycount
If array(i)=charstring Then
found=True
Exit For
End If
Next i
If Not found Then
arraycount= arraycount+1
———
arr(arraycount)=charstring
End If
End Sub答案：B
A）ReDim arr(arraycount)
B）ReDim Preserve arr(arraycount)
C）Dim arr(arraycount)
D）Dim Preserve arr(arraycount)
8.以下窗体加载事件程序如下：
Private Sub Form_Load()
Do
b = b + 1
If b = 5 Then Exit Do
Loop
Msgbox b
End Sub
此程序运行结果为( )。答案：A
A）5
B）6
C）7
D）8
9.在VBA中，如果没有显式声明或用符号来定义变量的数据类型，变量的默认数据类型为( )。答案：D
A）Boolean
B）Integer
C）String
D）Variant
10.给定日期DD，计算该日期当月最大天数的正确表达式是( )。答案：D
A）Day(DD)
B）Day(DateSerial(Year(DD)，Month(DD)，day(DD)))
C）Day(DateSerial(Year(DD)，Month(DD)，0))
D）Day(DateSerial(Year(DD)，Month(DD)+1,0))
【2】
11.VBA 表达式3*3\3/3 的输出结果是( )。答案：C
A）0
B）1
C）3
D）9
12.在窗体上有一个命令按钮Command1和一个文本框Text1，编写事件代码如下：
Private Sub Command1_Click()
Dim i, j, x
For i = 1 To 20 Step 2
x = 0
For j = i To 20 Step 3
x = x + 1
Next j
Next i
Text1.Value = Str(x)
End Sub
打开窗体运行后，单击命令按钮，文本框中显示的结果是( )。答案：A
A）1
B）7
C）17
D）400
13.假定有以下程序段：
n=0
for i=1 to 3
for j=-4 to -1
n=n+1
next j
next i
运行完毕后，n的值是( )。答案：D
A）0
B）3
C）4
D）12
14.下列变量名中，合法的是( )。答案：C
A）4A
B）A-1
C）ABC_1
D）private
15.以下返回值是“False”的语句是( )。答案：D
A）Value=(10>4)
B）Value=("ab"<>"aaa")
C）Value=("周"<"刘")
D）Value=(#2004/9/13#<=#2004/10/10#)
16.定义了二维数组A(2 to 5,5)，该数组的元素个数为( )。答案：B
A）20
B）24
C）25
D）36
17.要将“选课成绩”表中学生的成绩取整，可以使用( )。答案：B
A）Abs([成绩])
B）Int([成绩])
C）Sqr([成绩])
D）Sgn([成绩])
18.在调试VBA程序时，能自动被检查出来的错误是( )。答案：A
A）语法错误
B）逻辑错误
C）运行错误
D）语法错误和逻辑错误
19.有关VBA程序运行错误处理说法错误的是( )。答案：D
A）无论怎样为程序代码作彻底地测试与排错，程序错误仍可能出现
B）VBA中提供On Error GoTo语句来控制当有错误发生时程序的处理
C）“On Error GoTo 标号”语句在遇到错误发生时，程序转移到标号所指位置代码执行
D）“On Error GoTo 0”语句表示发生错误时，跳转至首行位置并向下执行
20.VBA中定义符号常量可以用关键字( )。答案：A
A）Const
B）Dim
C）Public
D）Static
【3】
21.在模块的声明部分使用“Option Base 1”语句，然后定义二维数组A(2 to 5,5)，则该数组的元素个数为( )。答案：A
A）20
B）24
C）25
D）36
22.VBA中不能进行错误处理的语句结构是( )。答案：C
A）On Error Then标号
B）On Error Goto标号
C）On Error Resume Next
D）On Error Goto 0
23.表达式Val("12 3E2CD")的值是( )。答案：A
A）123
B）12.3
C）0
D）123E2CD
24.设有如下过程：
x=1
Do
x=x+2
Loop Until _________
运行程序，要求循环体执行3次后结束循环，空白处应填入的语句是( )。答案：C
A）x<=7
B）x<7
C）x>=7
D）x>7
25.窗体中有命令按钮Command1，事件过程如下：
Public Function f(x As Integer)As Integer
Dim y As Integer
x=20
y=2
f=x*y
End Function
Private Sub Command1_Click()
Dim y As Integer
Static x As Integer
x=10
y=5
y=f(x)
Debug.Print x;y
End Sub
运行程序，单击命令按钮，则立即窗口中显示的内容是( )。答案：D
A）10 5
B）10 40
C）20 5
D）20 40
26.两个日期变量 D1=#2003-5-28 20:8:36# ，D2=#2004-2-29 10:40:11#。下列函数表达式中可以返回-9，即间隔9月的是( )。答案：B
A）DateAdd("m",-9,D1)
B）DateDiff("m",D2,D1)
C）DateDiff("m",D1,D2)
D）DateSerial(2004,2,29)
27.由“For i=1 To 9 Step -3”决定的循环结构，其循环体将被执行( )。答案：A
A）0次
B）1次
C）4次
D）5次
28.On Error Goto 0语句的含义是( )。答案：B
A）忽略错误并执行下一条语句
B）取消错误处理
C）遇到错误执行定义的错误
D）退出系统
29.在窗体中有一个命令按钮Command1，编写事件代码如下：
Private Sub Command1_Click()
Dim s As Integer
s = P(1)+P(2)+P(3)+P(4)
debug.Print s
End Sub
Public Function P(N As Integer)
Dim Sum As Integer
Sum = 0
For i = 1 To N
Sum = Sum + i
Next i
P = Sum
End Function
打开窗体运行后，单击命令按钮，输出结果是( )。答案：B
A）15
B）20
C）25
D）35
30.表达式“B=INT(A+0.5)”的功能是( )。答案：B
A）将变量A保留小数点后1位
B）将变量A四舍五入取整
C）将变量A保留小数点后5位
D）舍去变量A的小数部分
【4】
31.若要在子过程Proc1调用后返回两个变量的结果，下列过程定义语句中有效的是( )。答案：A
A）Sub Proc1(n, m)
B）Sub Proc1(ByVal n, m)
C）Sub Proc1(n, ByVal m)
D）Sub Proc1(ByVal n, ByVal m)
32.下列表达式计算结果为数值类型的是( )。答案：B
A）#5/5/2010#-#5/1/2010#
B）"102">"11"
C）102=98+4
D）#5/1/2010#+5
33.在过程定义中有语句：
Private Sub GetData ( ByRef f As Integer)
其中“ByRef”的含义是( )。答案：B
A）传值调用
B）传址调用
C）形式参数
D）实际参数
34.要想在过程Proc调用后返回形参x和y的变化结果，下列定义语句中正确的是( )。答案：A
A）Sub Proc(x as Integer,y as Integer)
B）Sub Proc(ByVal x as Integer,y as Integer)
C）Sub Proc(x as Integer,ByVal y as Integer)
D）Sub Proc(ByVal x as Integer,ByVal y as Integer)
35.已知程序段：
s=0
For i=1 To 10 Step 2
s=s+1
i=i*2
Next i
当循环结束后，变量i、s的值各为( )。答案：C
A）10,4
B）11,3
C）22,3
D）16,4
36.软件(程序)调试的任务是( )。答案：A
A）诊断和改正程序中的错误
B）尽可能多地发现程序中的错误
C）发现并改正程序中的所有错误
D）确定程序中错误的性质
37.VBA中用实际参数a和b调用有参过程Area(m,n)的正确形式是( )。答案：B
A）Area m,n
B）Area a,b
C）Call Area(m,n)
D）Call Area a,b
38.在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
Dim a()
a=Array(1,3,5,7)
s=0
For i=1 To 3
s=s*10+a(i)
Next i
MsgBox s
End Sub
程序运行后，输出结果为( )。答案：B
A）135
B）357
C）531
D）753
39.假设有一组数据：工资为800元，职称为“讲师”，性别为“男”，在下列逻辑表达式中结果为“假”的是( )。答案：A
A）工资>800 AND 职称="助教" OR 职称="讲师"
B）性别="女" OR NOT 职称="助教"
C）工资=800 AND (职称="讲师" OR 性别="女")
D）工资>800 AND (职称="讲师" OR 性别="男")
40.执行下面的程序段后，x的值为( )。
x=5
For I=1 To 20 Step 2
x=x+I\5
Next I答案：C
A）21
B）22
C）23
D）24
【5】
1.在窗体中有一个名为Command1的命令按钮和一个名为Lb1的标签控件，Click事件代码如下：
Private Sub Command1_Click()
f=0
for n=1 To 10 Step 2
f=f+n
Next n
Me!Lb1.Caption=f
End Sub
单击命令按钮后，标签显示结果是( )。答案：D
A）16
B）14
C）26
D）25
2.用于打开窗体的宏命令是( )。答案：A
A）OpenForm
B）OpenReport
C）OpenQuery
D）OpenTable
3.只有窗体才具有的事件动作是( )。答案：B
A）OnOpen
B）OnLoad
C）OnClick
D）OnChange
4.窗体中有命令按钮run34，对应的事件代码如下：
Private Sub run34_Enter()
Dim num As Integer,a As Integer,b As Integer,i As Integer
For i=1 To 10
num=InputBox("请输入数据：","输入")
If Int(num/2)=num/2 Then
a=a+1
Else
b=b+1
End If
Next i
MsgBox("运行结果：a=" & Str(A)& ",b=" & Str(B))
End Sub
运行以上事件过程，所完成的功能是( )。答案：C
A）对输入的10个数据求累加和
B）对输入的10个数据求各自的余数，然后再进行累加
C）对输入的10个数据分别统计奇数和偶数的个数
D）对输入的10个数据分别统计整数和非整数的个数
5.在窗体中添加一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
For i=1 To 4
x=4
For j=1 To 3
x=3
For k=1 To 2
x=x+6
Next k
Next j
Next i
MsgBox x
End Sub
窗体打开运行后，单击命令按钮，则消息框的输出结果是( )。答案：B
A）7
B）15
C）157
D）538
6.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
x=0
n=InputBox(" ")
For i=1 to n
For j=1 to i
x=x+1
Next j
Next i
Print x
End Sub
程序运行后，单击命令按钮，如果输入3，则在窗体上显示的内容是( )。答案：D
A）3
B）4
C）5
D）6
7.以下程序运行后，消息框的输出结果是( )。
a=sqr(3)
b=sqr(2)
c=a>b
MsgBox c+2答案：B
A）-1
B）1
C）2
D）出错
8.执行语句MsgBox"AAA"，vbOKCancel+vbQuestion，"BBB"之后，弹出的信息框外观样式是( )。答案：C
A）
B）
C）;
D）;
【6】
1.在窗体中有一个命令按钮run1，对应的事件代码如下：
Private Sub run1_Enter( )
Dim num As Integer
Dim m As Interger
Dim n As Integer
Dim i As Integer
For i=1 To 10
num=InputBox("请输入数据："，"输入"，1)
If Int(num/2)=num/2 Then
m=m+1
Else
n=n+1
End If
Next i
MsgBox("运行结果：m=" & Str(m)& "，n="& Str(n))
End Sub
运行以上事件所完成的功能是( )。答案：D
A）对输入的10个数据统计有几个是整数，有几个是非整数
B）对输入的10个数据求各自的余数，然后再进行累加
C）对输入的10个数据求累加和
D）对输入的10个数据统计有几个是奇数，有几个是偶数
2.在窗体中添加一个名称为Command1的命令按钮，然后编写如下事件代码：
Private Sub Command1_Click()
A=75
If A>60 Then I=1
If A>70 Then I=2
If A>80 Then I=3
If A>90 Then I=4
MsgBox I
End Sub
窗体打开运行后，单击命令按钮，则消息框的输出结果是( )。答案：B
A）1
B）2
C）3
D）4
3.窗体中有命令按钮Command1和文本框Text1，事件过程如下：
Function result(ByVal x As Integer)As Boolean
If x Mod 2=0 Then
result=True
Else
result=False
End If
End Function
Private Sub Command1_Click()
x=Val(InputBox("请输入一个整数"))
If Then
Text1=Str(x)& "是偶数."
Else
Text1=Str(x)& "是奇数."
End If
End Sub
运行程序，单击命令按钮，输入19，在Text1中会显示“19是奇数.”。那么在程序的空白处应填写( )。答案：B
A）result(x)= "偶数"
B）result(x)
C）result(x)= "奇数"
D）NOT result(x)
4.窗体加载事件如下：
Private Sub Form_Load( )
b = 1
Do While b < 15
b = b * 2
Loop
MsgBox b
End Sub
此程序运行结果为( )。答案：A
A）16
B）15
C）14
D）13
5.假定有如下Sub过程：
Sub sfun ( x As Single, y As Single)
t = x
x = t/y
y = t Mod y
End Sub
在窗体上添加一个命令按钮(名为Command1)，然后编写如下事件过程：
Private Sub Command1_Click()
Dim a as single
Dim b as single
a = 5
b = 4
sfun a,b
MsgBox a & chr(10)+chr(13)& b
End Sub
则单击按钮后的输出结果是( )。答案：B
A）1和1
B）1.25和1
C）1.25和4
D）5和4
在刷计算机等级考试题库中，慢慢总结、学习、复习以上的二级Access试题，有效的刷题策略才能事半功倍，考试将至，希望小伙伴们在最后备战的阶段中，精益求精、稳中求进，一次通过！
