国家二级ACCESS机试选择题（模块与VBA编程基础）模拟试卷15
选择题
1.下列四种形式的循环设计中,循环次数最少的是(C)
A. a=5：b=8
Do
A=a+1
Loop While a<b
B. a=5：b=8
Do
a=a+1
Loop Until a<b
C. a=5：b=8
Do Until a<b
b=b+1
Loop
D. a=5：b=8
Do Until a>b
a=a+1
Loop
解析：本题考查VBA中循环的知识。对于这种循环结构，首先看条件判断在循环体的前面还是后面，如果是先判断条件，则有可能一次也不执行循环体；如果是后判断条件，则无论条件如何至少执行一次循环体。在Lintil循环中条件为False时执行循环体，条件为True时退出循环；在WhiIe循环中条件为True时执行循环体，条件为False时退出循环，这一点要注意区分清楚。本题中的A循环执行4次，B循环执行1次，C循环一次也不执行，D循环执行4次。
2.在窗体中有一个命令按钮run35，对应的事件代码如下：
Private Sub run35 Enter()
Dim num As Integer，a As Integer
Dim bAs Integer,iAs Integer
For i=l T0 10
num=InputBox(“请输入数据：”，“输入”，1)
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
运行以上事件所完成的功能是(D)
A. 对输入的10个数据求累加和
B. 对输入的10个数据求各自的余数，然后再进行累加
C. 对输入的10个数据分别统计有几个是整数，有几个是非整数
D. 对输入的10个数据分别统计有几个是奇数，有几个是偶数
解析：本题考查程序设计的知识。本题的重点在于判断Int(num／2)=num／2是什么样的条件。对于任意一个整数来说，若其除2后为整数，也就是Int(num／2)=hum／2成立，说明该数是一个偶数；反之若其除2后不为整数，此时Int(nurn／2)必然不等于nurn／2，也就是一个整数不可能等于一个小数，说明该数是一个奇数。所以本题的功能是对输入的数据分别统计奇偶数的个数。
3.在VBA中，错误的循环结构是(C)
A. Do While条件式
循环体
Loop
B. Do Until条件式
循环体
Loop
C. Do Until
循环体
Loop条件式
D. Do
循环体
Loop While条件式
解析：“条件式”放在While或Until后面。
4.在窗体中有一个命令按钮(名称为run34)，对应的事件代码如下：
Priate Sub run34 Click()
sum=0
For i=10 To 1 Step-2
sum=sum+i
Next i
MsgBox sum
End Sub
运行以上事件，程序的输出结果是(B)
A. 10
B. 30
C. 55
D. 其他结果
解析：i=10，每循环一次递减2。第一次循环结果：i=10，sum=sum+i=0+10=10；第二次循环结果：i=8，sum=sum+i=10+8=18；第三次循环结果：i=6，sum=sum+i=1 8+6=24；第四次循环结果：i=4，sum=sum+i=24+4=28：第五次循环结果：i=2，sum=sum+i=28+2=30。
5.在窗体中有一个名称为run35的命令按钮，单击该按钮从键盘接收学生成绩，如果输入的成绩不在0到100分之间，则要求重新输入；如果输入的成绩正确，则进入后续程序处理。run35命令按钮的Click
的事件代码如下：
Private Sub run35 Click()
Dim flag As Boolcan
result=0 ： flag=True
Do While flag
result=Val(InputBox(“请输入学生成绩．“输入”))
If result>=O And result<=1 00 Then
________________
Else
MsgBOX “成绩输入错误，请重新输入”
End If
Loop
Rem 成绩输入正确后的程序代码略
End Sub
程序中有一空白处，需要填入一条语句使程序完成其功能。下列选项中错误的语句是(C)
A. flag=False
B. flag=Not flag
C. flag=True
D. Exit Do
解析：根据题目要求，当输入正确的成绩后，进入后续的程序处理，Flag初始为True，进入do while循环，循环条件为Flag。当输入错误的成绩时，提示信息并不改变．Flag标记，即还为True，继续进行循环；当输入正确成绩时，应将Flag标记为False，这样才可以跳出循环，继续后续的程序处理，否则将一直停留在循环这里。
6.下列四个选项中，不是VBA的条件函数的是(B)
A. Choose
B. If
C. IIf
D. Switch
解析：本题考查条件函数的知识。VBA中的条件函数共有3个：IIF函数根据表达式的真假值返回两个表达式之一；Switch函数对表达式列表求值，并返回一个Variant类型的值或与列表中第一个为True的表达式相关联的表达式；Choose函数从参数列表中选择值并返回。
7.设有如下过程：
x=1
Do
x=x+2
Loop Until
运行程序，要求循环体执行3次后结束循环，空白处应填入的语句是(C)
A. x<=7
B. x<7
C. x=7
D. x>7
解析：本题考查循环的基础知识。本题目要求循环3次，当第3次循环结束时x的值为7，而Until型循环的特点是当条件表达式为真的时候结束循环，故此条件应该是x>=7。
8.在窗体中添加一个名称为Commandl的命令按钮，然后编写如下事件代码：
Private Sub Commandl Click()本文档预览：3600字符，共12529字符，源文件无水印，下载后包含无答案版和有答案版，查看完整word版点下载
