国家二级ACCESS机试（选择题）模拟试卷122
选择题
1.在窗体中添加一个名称为Commandl的命令按钮，然后编写如下事件代码：
Private Sub Commandl_Click()
A=75
If A>60 Then I=l
If A>70 Then I=2
If A>80 Then I=3
If A>90 Then I=4
MsgBox I
EndSub
窗体打开运行后，单击命令按钮，则消息框的输出结果是( )。(B)
A. l
B. 2
C. 3
D. 4
解析：本题考查VBA中选择结构的知识。在本题中用了多个If分支结构，这些结构是顺序的而不是嵌套的，所以会顺序执行判断是否满足条件。首先75大于60，所以+I=1，然后再判断75大于70，所以I=2，再接着判断75既不大于80也不大于90，所以最后消息框里输出的I值为2。
2.在窗体中添加一个名称为Commandl的命令按钮，然后编写如下事件代码：
Private Sub Commandl_Click()
s=\\(D)
A. AABAAB
B. ABBABA
C. BABBA
D. BBABBA
解析：本题考查VBA中循环和取子串函数的知识。在VBA中有三种取子串函数：Left函数用于在字符串左端开始取h个字符；Right函数用于在字符串右端开始取n个字符(注意子串中字符的顺序与母串中相同)；Mid函数可以实现在任何位置取任何长度的子串。在本题中由于循环每次都会为z赋一个新的值Right(s，i)，所以只有最后一次循环中韵z值才有意义。最后一次循环时1=2，故D)选项正确。
3.设有如下窗体单击事件过程：
Private Sub Form_Click()
a=1
For i=1 To 3
Select Casei
Case l，3
a=a+1
Case 2，4
a=a+2
End Select
Next i
MsgBox a
End Sub
打开窗体运行后，单击窗体，则消息框的输出的结果是( )。(C)
A. 3
B. 4
C. 5
D. 6
解析：本题考查VBA程序设计中的多分支选择和循环的知识。在本题的程序中，共循环三次，第一次i的值为1，故此执行Case语句中的a=a+1；第二次i的值为2，故此执行Case语句中的a=a+2；第三次i的值为3，故此执行Case语句中的a=a+1。所以最后a的值为1+1+2+1=5。
4.设有如下程序：
Private Sub Commandl_Click()
Dim sum As Double，x As Double
Sum=0
n=0
For i=l To 5
x=rr/i
n=n+l
sum=sum+x
Next i
End Sub
该程序通过For循环来计算一个表达式的值，这个表达式是( )。(C)
A. 1/2+1/3+1/4+1/5
B. 1+1/2+1/3+1/4+1/5
C. 1/2+2/3+3/4+4/5
D. 1+1/2+2/3+3/4+4/5
解析：本题考查VBA中循环结构的知识。这类问题需要分析出每一次循环所做的操作。第一次循环时，i=1，n=0，x=0/1，所以累加上去的是O/l；第二次循环时，1=2，n=l，x=l/2，所以累加上去的是1/2；第三次循环时，i=3，n=2，x=2/3，所以累加上去的是2/3；循环5次后累加的应该是0/1+1/2+2/3+3/4+4/5。
5.下列四种形式的循环设计中，循环次数最少的是( )。(C)
A. a=5：b=8
Do
a=a+1
Loop While a<b
B. a=5：b=8
Do
a=a+1
Loop Untrl a<b
C. a=5：b=8
Do Untrl a<b
b=b+1
Loop
D. a=5：b=8
Do Untrl a>b
a=a+1
Loop
解析：本题考查VBA中循环的知识。对于这种循环结构，首先看条件判断在循环体的前面还是后面，如果是先判断条件，则有可能一次也不执行循环体；如果是后判断条件，则无论条件如何至少执行一次循环体。在Until循环中条件为False时执行循环体，条件为True时退出循环；在While循环中条件为True时执行循环体，条件为False时退出循环，这一点要注意区分清楚。本题中的A)选项循环执行4次，B)选项循环执行1次，C)选项循环1次也不执行，D)选项循环执行4次。
6.在窗体中有一个命令按钮run35，对应的事件代码如下：
Private Sub run35_Enter()
Dim num As Integer
Dim a As Integer
Dim b As Integer
Dim i As Integer
For i=l T0 10
num=lnputBox(\\(D)
A. 对输入的10个数据求累加和
B. 对输入的10个数据求各自的余数，然后再进行累加
C. 对输入的10个数据分别统计有几个是整数，有几个是非整数
D. 对输入的10个数据分别统计有几个是奇数，有几个是偶数
解析：本题考查程序设计的知识。本题的重点在于判断Int( num/2) =num/2是什么样的条件。对于任意一个整数来说，若其除2后为整数，也就是Int( num/2) =num/2成立，说明该数是一个偶数；反之若其除2后不为整数，此时Int (num/2)必然不等于num/2，也就是一个整数不可能等于一个小数，说明该数是一个奇数。所以本题的功能是对输入的数据分别统计奇偶数的个数。
7.若有如下sub过程：
Sub sfun(x As Single，y As Single)
t=x
x=Uy
y=t Mod y
End Sub
在窗体中添加一个命令按钮command33，对应的事件过程如下：
Private Sub Command33_Click()
Dim a As Single
Dim b As Single
a=5：b=4
sfun(a，b)
MsgBox a & chr(lO)+chr(13)&b
Erid Sub
打开窗体运行后，单击命令按钮，消息框中有两行输出，内容分别为( )。(B)
A. 1和1
B. 1．25和1
C. 1．25和4
D. 5和4
解析：由题意可知sfun函数实现求除数和求余数的功能，所以最终结果是1．25和l。
8.假定有如下的Sub过程：
Sub sfun(x As Single，y As Single)
t=x
x=t/y
y=t
本文档预览：3600字符，共11504字符，源文件无水印，下载后包含无答案版和有答案版，查看完整word版点下载
