2013年9月计算机二级access无纸化预测选择题十二
1.窗体中有命令按钮run34，对应的事件代码如下：
Private Sub run34_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个数据分别统计整数和非整数的个数
2.在窗体中添加一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
For i=1 To 4
x=4
For j=1 To 3
x=3
For k=1 To 2
x=x+6
Next k
Next j
Next i
MsgBox x
End Sub
窗体打开运行后，单击命令按钮，则消息框的输出结果是( )。答案：B
A）7
B）15
C）157
D）538
3.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
x=0
n=InputBox(" ")
For i=1 to n
For j=1 to i
x=x+1
Next j
Next i
Print x
End Sub
程序运行后，单击命令按钮，如果输入3，则在窗体上显示的内容是( )。答案：D
A）3
B）4
C）5
D）6
4.以下程序运行后，消息框的输出结果是( )。
a=sqr(3)
b=sqr(2)
c=a>b
MsgBox c+2答案：B
A）-1
B）1
C）2
D）出错
5.执行语句MsgBox"AAA"，vbOKCancel+vbQuestion，"BBB"之后，弹出的信息框外观样式是( )。答案：C
A）
B）
C）;
D）;
6.在窗体中有一个命令按钮run1，对应的事件代码如下：
Private Sub run1_Enter( )
Dim num As Integer
Dim m As Interger
Dim n As Integer
Dim i As Integer
For i=1 To 10
num=InputBox("请输入数据："，"输入"，1)
If Int(num/2)=num/2 Then
m=m+1
Else
n=n+1
End If
Next i
MsgBox("运行结果：m=" & Str(m)& "，n="& Str(n))
End Sub
运行以上事件所完成的功能是( )。答案：D
A）对输入的10个数据统计有几个是整数，有几个是非整数
B）对输入的10个数据求各自的余数，然后再进行累加
C）对输入的10个数据求累加和
D）对输入的10个数据统计有几个是奇数，有几个是偶数
7.在窗体中添加一个名称为Command1的命令按钮，然后编写如下事件代码：
Private Sub Command1_Click()
A=75
If A>60 Then I=1
If A>70 Then I=2
If A>80 Then I=3
If A>90 Then I=4
MsgBox I
End Sub
窗体打开运行后，单击命令按钮，则消息框的输出结果是( )。答案：B
A）1
B）2
C）3
D）4
8.窗体中有命令按钮Command1和文本框Text1，事件过程如下：
Function result(ByVal x As Integer)As Boolean
If x Mod 2=0 Then
result=True
Else
result=False
End If
End Function
Private Sub Command1_Click()
x=Val(InputBox("请输入一个整数"))
If Then
Text1=Str(x)& "是偶数."
Else
Text1=Str(x)& "是奇数."
End If
End Sub
运行程序，单击命令按钮，输入19，在Text1中会显示“19是奇数.”。那么在程序的空白处应填写( )。答案：B
热点专题推荐：2013年9月全国计算机等级考试考前10天冲刺专题
233网校编辑推荐：2013年9月等考试题悬赏※等考新政策※考前注意事项
欢迎进入：233网校“计算机二级在线模拟估分”助您考试顺利通关！
A）result(x)= "偶数"
B）result(x)
C）result(x)= "奇数"
D）NOT result(x)
9.窗体加载事件如下：
Private Sub Form_Load( )
b = 1
Do While b < 15
b = b * 2
Loop
MsgBox b
End Sub
此程序运行结果为( )。答案：A
A）16
B）15
C）14
D）13
10.假定有如下Sub过程：
Sub sfun ( x As Single, y As Single)
t = x
x = t/y
y = t Mod y
End Sub
在窗体上添加一个命令按钮(名为Command1)，然后编写如下事件过程：
Private Sub Command1_Click()
Dim a as single
Dim b as single
a = 5
b = 4
sfun a,b
MsgBox a & chr(10)+chr(13)& b
End Sub
则单击按钮后的输出结果是( )。答案：B
A）1和1
B）1.25和1
C）1.25和4
D）5和4
11.在窗体中有一个文本框Text1，编写事件代码如下：
Private Sub Form_Click()
X=val(Inputbox("输入x的值"))
Y=1
If X<>0 Then Y = 2
Text1.Value = Y
End Sub
打开窗体运行后，在输入框中输入整数12，文本框Text1中输出的结果是( )。答案：B
A）1
B）2
C）3
D）4
12.VBA“定时”操作中，需要设置窗体的“计时器间隔(TimerInterval)”属性值。其计量单位是( )。答案：B
A）微秒
B）毫秒
C）秒
D）分钟
13.下列过程的功能是：通过对象变量返回当前窗体的Recordset属性记录集引用，消息框中输出记录集的记录(即窗体记录源)个数。
Sub GetRecNum()
Dim rs As Object
Set rs = Me.Recordset
MsgBox
End Sub
程序空白处应填写的是( )。答案：D
A）Count
B）rs.Count
C）RecordCount
D）rs.RecordCount
14.InputBox函数的返回值类型是( )。答案：D
A）数值
B）字符串
C）变体
D）数值或字符串(视输入的数据而定)
15.设有如下窗体单击事件过程：
Private Sub Form_Click()
a = 1
For i= 1 To 6
Select Case i
Case 1,3,5
a= a+1
Case 2,4,6
a = a+2
End Select
Next i
MsgBox a
End Sub
打开窗体运行后，单击窗体，则消息框的输出的结果是( )。答案：C
A）8
B）6
C）10
D）9
16.运行下列程序，输入数据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
热点专题推荐：2013年9月全国计算机等级考试考前10天冲刺专题
233网校编辑推荐：2013年9月等考试题悬赏※等考新政策※考前注意事项
欢迎进入：233网校“计算机二级在线模拟估分”助您考试顺利通关！
17.在窗体中添加一个名称为Command1的命令按钮，然后编写如下事件代码：
Private Sub Command1_Click()
s="ABBACDDCBA"
For I=6 To 2 Step －2
x=Mid(s,I,I)
y=Left(s,I)
z=Right(s,I)
z=x & y & z
Next I
MsgBox z
End Sub
窗体打开运行后，单击命令按钮，则消息框的输出结果是( )。答案：D
A）AABAAB
B）ABBABA
C）BABBA
D）BBABBA
18.下面编写了一个打开指定窗体的子过程OpenForms。代码如下：
Sub OpenForms(strFormName As String)
If strFormName=" " then
MsgBox"打开窗体名称不能为空！",VbCritical,"警告"
Exit Sub
End If
DoCmd.OpenForm strFormName
End Sub
如果此时需要调用该子过程打开名为“学生管理”的窗体，只需在主调过程合适的位置增添语句：
OpenForms("学生管理")
空白处应该填写的关键字是( )。答案：C
A）Open
B）OpenForm
C）Call
D）Function
19.运行下列程序，结果是( )。
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
20.在窗体中有一个命令按钮run35，对应的事件代码如下：
Private Sub run35_Enter( )
Dim num As Integer
Dim a As Integer
Dim b As Integer
Dim i As Integer
For i= 1 To 10
num = InputBox("请输入数据:", "输入",1)
If num Mod 2=0 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个数据分别统计有几个是奇数，有几个是偶数
21.在窗体中使用一个文本框(名为n)接收输入的值，有一个命令按钮run，事件代码如下：
Private Sub run_Click()
result = ""
For i = 1 To Me!n
For j = 1 To Me!n
result = result + "*"
Next j
result = result + Chr(13)+ Chr(10)
Next i
MsgBox result
End Sub
打开窗体后，在文本框n中输入4，输出结果是( )。答案：D
A）* * * *
* * *
* *
*
B）*
* * *
* * * * *
* * * * * * *
C）* * * *
* * * * * *
* * * * * * * *
* * * * * * * * * *
D）* * * *
* * * *
* * * *
* * * *
热点专题推荐：2013年9月全国计算机等级考试考前10天冲刺专题
233网校编辑推荐：2013年9月等考试题悬赏※等考新政策※考前注意事项
欢迎进入：233网校“计算机二级在线模拟估分”助您考试顺利通关！
22.在窗体中有一个命令按钮(名称为run34)，对应的事件代码如下：
Private 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）其他结果
23.ADO 的含义是( )。答案：D
A）开放数据库互连应用编程接口
B）数据库访问对象
C）动态链接库
D）Active 数据对象
24.程序中有一空白处，需要填入一条语句使程序完成其功能。下列选项中错误的语句是( )。
Private Sub run35_Click()
Dim flag As Boolean
result=0
flag=True
Do While flag
result=Val(InputBox("请输入学生成绩:","输入"))
If result>=0 And result<=100 Then
Else
MsgBox "成绩输入错误，请重新输入"
End If
Loop
Rem 成绩输入正确后的程序代码略
End Sub答案：C
A）flag=False
B）flag=Not flag
C）flag=True
D）Exit Do
25.下面程序的功能是计算折旧年限，假设一台机器原价值为100万元，如果每年的折旧率为4%，多少年后它的价值不足50万元。
y=0
p=100
x=0.04
Do
p=p*
y=y+1
Loop Until p<50
MsgBox y答案：B
A）x
B）(1-x)
C）(1+x)
D）1-x
26.MsgBox的作用是( )。答案：A
A）显示消息框
B）使窗口最大化
C）关闭或打开系统信息
D）从文本文件导入或导出数据
27.在窗体中添加一个命令按钮(名称为Command1)，然后编写如下代码：
Private Sub Command1_Click()
a=0:b=5:c=6
MsgBox a=b+c
End Sub
窗体打开运行后，如果单击命令按钮，则消息框的输出结果为( )。答案：D
A）11
B）a=11
C）0
D）False
28.能够实现从指定记录集里检索特定字段值的函数是( )。答案：C
A）Nz
B）DSum
C）DLookup
D）Rnd
29.假定有以下循环结构：
Do until 条件
循环体
Loop
则下列说法正确的是( )。答案：A
A）如果“条件”是一个为－1的常数，则一次循环体也不执行
B）如果“条件”是一个为－1的常数，则至少执行一次循环体
C）如果“条件”是一个不为－1的常数，则至少执行一次循环体
D）不论“条件”是否为“真”，至少要执行一次循环体
30.ADO对象模型中可以打开RecordSet对象的是( )。答案：C
A）只能是Connection对象
B）只能是Command对象
C）可以是Connection对象和Command对象
D）以上均不能
热点专题推荐：2013年9月全国计算机等级考试考前10天冲刺专题
233网校编辑推荐：2013年9月等考试题悬赏※等考新政策※考前注意事项
欢迎进入：233网校“计算机二级在线模拟估分”助您考试顺利通关！
31.在窗体中添加一个名称为Command1的命令按钮，然后编写如下事件代码：
Private Sub Command1_Click()
Dim a(10,10)
For m=2 To 4
For n=4 To 5
a(m,n)=m*n
Next n
Next m
MsgBox a(2,5)+a(3,4)+a(4,5)
End Sub
窗体打开运行后，单击命令按钮，则消息框的输出结果是( )。答案：C
A）22
B）32
C）42
D）52
32.下列程序的功能是返回当前窗体的记录集
Sub GetRecNum()
Dim rs As Object
Set rs =
MsgBox rs.RecordCount
End Sub
为保证程序输出记录集(窗体记录源)的记录数，空白处应填入的语句是( )。答案：B
A）Recordset
B）Me.Recordset
C）RecordSource
D）Me.RecordSource
33.设有如下窗体单击事件过程：
Private Sub Form_Click()
a = 1
For i = 1 To 3
Select Case i
Case 1, 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
34.在窗体上有一个命令按钮Command1，编写事件代码如下：
Private Sub Command1_Click()
Dim y As Integer
y = 0
Do
y = InputBox("y=")
If (y Mod 10)+ Int(y / 10)= 10 Then Debug.Print y;
Loop Until y = 0
End Sub
打开窗体运行后，单击命令按钮，依次输入10、37、50、55、64、20、28、19、-19、0，立即窗口上输出的结果是( )。答案：D
A）37 55 64 28 19 19
B）10 50 20
C）10 50 20 0
D）37 55 64 28 19
热点专题推荐：2013年9月全国计算机等级考试考前10天冲刺专题
233网校编辑推荐：2013年9月等考试题悬赏※等考新政策※考前注意事项
欢迎进入：233网校“计算机二级在线模拟估分”助您考试顺利通关！