国家二级ACCESS机试选择题（模块）模拟试卷9
选择题
1.下列程序段运行结束后，变量x的值是( )。
x=2
y=2
Do
x=x * y
y =y+1
Loop While y＜4(B)
A. 4
B. 12
C. 48
D. 192
解析：程序中使用了Do…While循环，循环体至少执行一次，循环继续执行的条件是y＜4。循环体中x =x*y—2 *2 =4，y=y+l =3，条件满足循环体继续执行，x=4*3 =12，y=3+1=4．此时条件不满足，不再执行循环体，循环结束。故选择B选项。
2.如果变量A是Boolean型，则下列赋值语句中，正确的是( )。(D)
A. A=\\
B. A=．No．
C. A=#TURE#
D. A=2＜10
解析：Boolean类型变量的取值只能取true或false，其中选项A是字符型常量；选项B写法有误；选项C可以在数据库查询中作为查询条件使用；选项D是将一个表达式的值赋给Boolean型变量A，选项中2＜10为真，所以A取值为true。故选择D选项。
3.下列选项中，与VBA语句：Dim New％，sumT等价的是( )。(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和一个单精度数sum。在VBA数据类型中，符号“％”表示整数，符号“！”表示单精度数，符号“@”表示货币，符号“$”表示字符串。与本题等价的声明语句为：Dim New As Integer，sum As Single，故选择A选项。
4.下列程序段运行结束后，变量c的值是( )。
a = 24
b = 328
select case b\\\\10
case 0
c =a*10+b
case 1 t0 9
c = a * 100 +b
case 10 t0 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选项。
5.窗体上有命令按钮commaM1，对应的Click事件过程如下：
Private Sub Command1_Click( )
Dim x As Integer
x = InputBox(\\(A)
A. C
B. A
C. B
D. D
解析：在Select Case语句中，Case表达式可以是下列4种格式之一：
①单一数值或一行并列的数值，用来与“表达式”的值进行比较，成员之间以逗号隔开。
②由关键字To分割开的两个数值或表达式之间的范围。
③关键字Is接关系运算符，如＜＞、＜、＜=、=、＞=或＞，后面再接变量或精确的值。
④关键字Case Else后的表达式，是在前面的Case条件都不满足时执行。
本题中输入“3”，与第三个Case语句匹配，程序输出字符“C”，故选择A选项。
6.下列If语句的功能是统计性别为男、职称为副教授以上且年龄小于40岁的人数，错误的语句是( )。(D)
A. If sex=\\
B. If sex=\\
C. If sex=\\
D. If sex=\\
解析：选项A、B、C均在第二个条件age＜40后面缺少And关键字进行与第三个条件的连接，语法结构错误。故选择D选项。
7.由“For i=1 T0 16 Step 3”决定的循环结构被执行( )。(C)
A. 4次
B. 5次
C. 6次
D. 7次
解析：题目考查的是For循环结构，循环初值i为1，终值为16，每次执行循环，依次加3，则i分别为1、4、7、10、13、16，则循环执行6次。故选择C选项。
8.要求循环执行2次后结束循环，【】处应填入的语句是( )。
X=i
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选项。
9.运行下列程序，结果是( )。
Private Sub Command32_Click( )
f0 =1： f1 =1： k =1
Do While k ＜ =5
f = f0+f1
f0 = f1
fl =f
k =k+1
Loop
MsgBox \\(D)
A. f=5
B. f=7
C. f=8
D. f=13
解析：本题考查Do While循环语句：k =1时，f=1+1 =2，f0=1，f1=2，k =1 +1 =2;k =2时，f = 3，f0 =2，f1=3，k =2 +1 =3;k =3时，f = 5 ，f0=3，f1=5，k =3 +1 =4;k =4时，f=8，f0=5，f1=8，k =4 +1 =5;k=5时，f=13，f0=8，f1=13，k=6，不再满足循环条件跳出循环，此时f=13。故选择D选项。
10.有如下事件程序，运行该程序后输出结果是( )。
Phvate Sub Command33_Click( )
Dim x As Integer， y As Integer
x =1：y =0
Do Until y ＜ = 25
y=y+x*x
x=x+1
Loop
MsgBox tx=\\(A)
A. x=1，y=0
B. x=4，y=25
C. x=5，y=30
D. 输出其他结果
解析：Do Until循环采用的是先判断条件后执行循环体的做法，如果条件为True，则循环体一次都不执行。否则进入循环体执行。本题中的循环停止条件是y＜ =25，而y=0，满足条
本文档预览：3600字符，共9250字符，源文件无水印，下载后包含无答案版和有答案版，查看完整word版点下载
