国家二级ACCESS机试选择题（模块与VBA编程基础）模拟试卷19
选择题
1.若变量i的初值为8，则下列循环语句中循环体的执行次数为
DO While i＜=17
i=i+2
Loop(C)
A. 3次
B. 4次
C. 5次
D. 6次
解析：Do While…Loop循环结构是当条件为假时，重复执行循环体，直至条件表达式为真，结束循环。每次循环对应的i值：
2.InputBox函数的返回值类型是(B)
A. 数值
B. 字符串
C. 变体
D. 视输入的数据而定
解析：InputBox输入框：在对话框中显示提示，等待使用者输入文字或按一下按钮，再返回包含文本框内容的字符串类型值。
3.下列能够交换变量X和Y值的程序段是(C)
A. Y=X：X=Y
B. Z=X：Y=Z：X=Y
C. Z=X：X=Y：Y=Z
D. Z=X：W=Y：Y=Z：X=Y
解析：想要交换X与Y的值，需要另一个变量作为中间变量Z，先把X值赋给Z，再把Y值赋给X，最后把Z的值赋给Y，交换完毕。
4.窗体中有命令按钮commanddl和文本框Textl，事件过程如下：
Function result(ByVal X As Integer)As Boolean
IfX Mod 2=0 Then
result=True
Flse
result=False
End If
End Function
Private Sub Comrnandl Click()
x=Val(InputBox(”请输入一个整数”))
If______Then
Textl=str(x)&”是偶数．”
Else
Textl=str(x)&”是奇数．”
End If
End Sub
运行程序，单击命令按钮，输入19，在Textl中会显示“19是奇数”。那么在程序的空白处应填写(B)
A. result(x)=”偶数”
B. result(x)
C. result(x)=”奇数”
D. NOT result(x)
解析：result函数返回的是布尔值：True或：False，x Mod 2=0表示如果一个数除以2为0代表是偶数，那么返回True值，所以条件判断时只要调用result(x)即可。
5.窗体有命令按钮Commandl和文本框Textl，对应的事件代码如下：
Private Sub Command1_Click()
For i=1 To 4
x=3
Forj=1 To 3
For k=1 To 2
x=x+3
Next k，j，i
Text1．Value=Str(x)
End Sub
运行以上事件过程，文本框中的输出是(D)
A. 6
B. 12
C. 18
D. 21
解析：此处嵌套三层循环，最外层循环总是把x值初始化为3，所以只看内两层循环的次数及累加，内两层一共循环3*2=6次，每次x的值累加3，即共累加6*3=18，再加上初始值x=3+18=21。
6.窗体中有命令按钮run34，对应的事件代码如下：
Private Sub ran34_Enter()
Dim num As Integer,a As Integer,b As Integer,i As Integer
For i=1 To 10
num=InputBox(”请输入数据：”，”输入”)
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
运行以上事件过程，所完成的功能是(C)
A. 对输入的10个数据求累加和
B. 对输入的10个数据求各自的余数，然后再进行累加
C. 对输入的10个数据分别统计奇数和偶数的个数
D. 对输入的10个数据分别统计整数和非整数的个数
解析：因num变量为整型，所以每次输入的数据是整数，int函数是取整函数，如果num为整数，则int(num／2)与num／2相等，否则不等，所以此事件代码完成的功能是统计输入奇数与偶数的个数。
7.运行下列程序，输入数据8、9、3、0后，窗体中显示结果是
Private Sub Form_click()
Dim sum As Integer,m As Integer
sum=0
Do
m=InputBox(”输入m”)
sum=sum+m
Loop Until m=0
MsgBox sum
End Sub(C)
A. 0
B. 17
C. 20
D. 21
解析：Do…Until Loop循环结构是当条件为假时，重复执行循环体，直至条件表达式为真，结束循环。当输入8、9、3三个数字条件(m=0)不成立，所以累加，直到输入0后结束，即8+9+3=20。
8.运行下列程序段，结果是
For m=10 to 1 step 0
k=k+3
Next m(B)
A. 形成死循环
B. 循环体不执行即结束循环
C. 出现语法错误
D. 循环体执行一次后结束循环
解析：FOR是循环语句，当step＞=0时，to前数字要小于后面数字，否则将不执行。本题中to前数字是10大于后面数字1则不执行此循环体，直接跳过。
9.运行下列程序，结果是
Private Sub Command32 Click()
f0=1：f1=1：k=1
Do While k＜=5
f=f0+f1 ： f0=f1
f1=f： k=k+1
Loop
MsgBox”f=”＆f
End Sub(D)
A. f=5
B. f=7
C. f=8
D. f=13
解析：Do While…Loop循环结构是当条件为假时，重复执行循环体，直至条件表达式为真，结束循环。
