凡事预则立不预则废，复习好以下的二级Access试题，刷好计算机等级考试题库，才能提前做好完全准备，打一场有计划有目标的仗！
文章推荐：
2018年全国计算机等级考试题库“二级MS Office 高级应用考试大纲”
全国计算机等级考试报考成功后可以退费吗？（内附计算机等级考试题库）
温馨提示：
考试想拿高分吗？更多计算机等级考试题库二级ms office试题请点击查看>>>二级ms office
想要了解更多的计算机等级考试题库请点击下载>>>计算机等级考试题库
想知道更多关于计算机等级考试题库的最新资讯吗？点击进入>>>计算机等级考试题库资讯
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试题。
