国家二级ACCESS机试（选择题）模拟试卷334
选择题
1.如果变量A是Boolean型，则下列赋值语句中，正确的是( )。(D)
A. A=＂No＂
B. A=．No．
C. A=#TURE#
D. A=2＜10
解析：Boolean类型变量的取值只能取true或false，其中选项A是字符型常量；选项B写法有误；选项C可以在数据库查询中作为查询条件使用；选项D是将一个表达式的值赋给Boolean型变量A，选项中2＜10为真，所以A取值为true。故选择D选项。
2.下列选项中，与VBA语句:Dim New％，sum!等价的是( )。(A)
A. Dim New As Integer，sum As Single
B. Dim New As Integer，sum As Double
C. Dim New As Double，sum As Single
D. Dim New As Double，sum As Integer
解析：题中VBA语句：Dim New％，sum!的功能是定义一个整数New和一个单精度数sumo在VBA数据类型中，符号“％”表示整数，符号“!”表示单精度数，符号“@”表示货币，符号“$”表示字符串。与本题等价的声明语句为：Dim New As Integer，sum As Single，故选择A选项。
3.下列程序段运行结束后，变量c的值是( )。
a=24
b=328
select ease b＼lO
case 0
c=a*10+b
case l to 9
c=a*100+b
case 10 to 99
c=a * 1000+b
end select(C)
A. 537
B. 2427
C. 24328
D. 240328
解析：整数除法“＼”是对两个操作题做树法并返回一个整数。程序中Select Case语句中b＼10的值为32，程序执行Case 10 to 99后边的c=a*1000+b语句，即c=24*1000+328=24328。故选择C选项。
4.窗体上有命令按钮commandl，对应的Click事件过程如下：
Private Sub Commandl_Cliek()
Dim x As Integer
x=InputBox(＂请输入x的值＂)，
Select Case x
Case 1，2，4，10
Debug．Print＂A＂
Case 5 To 9
Debug．Print＂B＂
Case Is=3
Debug．Print＂C＂
Case Else
Debug．Print＂D＂
End Select
End Sub
窗体打开运行，单击命令按钮，在弹出的输入框中输入3，则立即窗口上显示的内容是( )。(A)
A. C
B. A
C. B
D. D
解析：在Select Case语句中，Case表达式可以是下列4种格式之一。
①单一数值或一行并列的数值，用来与“表达式”的值进行比较，成员之间以逗号隔开。
②由关键字To分割开的两个数值或表达式之间的范围。
③关键字Is接关系运算符，如＜＞、＜、＜=、=、＞=或＞，后面再接变量或精确的值。
④关键字Case Else后的表达式，是在前面的Case条件都不满足时执行。
本题中输入“3”，与第三个Case语句匹配，程序输出字符“C”，故选择A选项。
5.下列If语句的功能是统计性别为男、职称为副教授以上且年龄小于40岁的人数，错误的语句是( )。(D)
A. If sex=＂男＂And age＜40 InStr(duty，＂教授＂)＞0 Then n=n+1
B. If sex=＂男“And age＜40 lnStr(duty=＂教授＂or duty=＂副教授＂)＞0 Then 13=13+1
C. If sex=＂男＂And age＜40 Right(duty，2)=＂教授＂Then n=13．+1
D. If sex=＂男＂And age＜40 And(duty=＂教授＂Or duty=＂副教授＂)Then n=n+1
解析：选项A、B、C均在第二个条件age<40后面缺少And关键字进行与第三个条件的连接，语法结构错误。故选择D选项。
6.由“For i=l To 16 Step 3＂决定的循环结构被执行( )。(C)
A. 4次
B. 5次
C. 6次
D. 7次
解析：题目考查的是For循环结构，循环初值i为1，终值为16，每次执行循环i依次加3，则i分别为1、4、7、10、13、16，则循环执行6次。故选择C选项。
7.要求循环执行2次后结束循环，【 】处应填入的语句是( )。
x=1
Do
x=x+2
Loop Until【 】(C)
A. x＜=5
B. x＜5
C. x＞=5
D. x＞5
解析：本题考查Do…Loop Until循环控制结构的用法。该结构的特点是先执行，后判断，循环语句至少执行一次。Until当条件为假时，执行循环体内的语句。题目要求循环执行2次。第一次执行x=3，第二次执行x=5，然后条件为真，结束循环。故条件为真时x至少要等于5。故选择C选项。
8.运行下列程序，结果是( )。
Private Sub Command32_Click()
fO=1：fl=1：k=l
Do While k＜=5
f=f0+fl
f0=fl
fl=f
k=k+l
Loop
MsgBox＂f=＂&f
End Sub(D)
A. f=5
B. f=7
C. f=8
D. f：13
解析：本题考查Do While循环语句：
k=1时，f=l+1=2，f0=1，fl=2，k=1+l=2；
k=2时，f=3，f0=2，fl=3，k=2+1=3；
k=3时，f=5，f0=3，fl=5，k=3+1=4；
k=4时，f=8，f0=5，fl=8，k=4+l=5；
k=5时，f=13，f0=8，fl=13，k=6，不再满足循环条件跳出循环，此时f=13。故选择D选项。
9.有如下事件程序，运行该程序后输出结果是( )。
Private Sub Command33_Click()
Dim x As Integer，y As Integer<
本文档预览：3600字符，共16789字符，源文件无水印，下载后包含无答案版和有答案版，查看完整word版点下载
