国家二级ACCESS机试选择题（VBA编程）模拟试卷7
选择题
1.在表达式中引用窗体上的控件值。下列选项中，语法格式正确的是(C)
A. Forms&[窗体名]&[控件名]
B. Forms-＞[窗体名]-＞[控件名]
C. Forms![窗体名]![控件名]
D. Forms％[窗体名]％[控件名]
解析：引用窗体上某控件值的语法格式为：Forms![窗体名]![控件名]或[Forms]![窗体名]![控件名]，所以选项C正确。
2.打开窗体后，下列事件中首先发生的是(A)
A. 加载(Load)
B. 改变(Change)
C. 调整大小(Resize)
D. 成为当前(Current)
解析：打开窗体时，发生的事件依次为：打开(Open)→加载(Load)→调整大小(Resize)→激活(Activate)→成为当前(Current)，所以选项A正确。
3.下列选项中，与VBA中语句DimVar％，sum!等价的是(D)
A. Dim Var As Double，sum As Single
B. Dim Var As Integer，sum As Double
C. Dim Var As Single，sum As Double
D. Dim Var As Integer，sum As Single
解析：整数型数据类型标识为Integer，用“％”表示；单精度数据类型标识为Single，用“!”表示，所以选项D正确。
4.VBA中一般采用Hungarian符号法命名变量，下列代表复选框的字首码是(A)
A. Chk
B. Cbo
C. cmd
D. opt
解析：Hungarian符号使用一组代表数据类型的码。用小写字母作为变量名的前缀，“Chk”代表复选框，“Cbo”代表组合框，“cmd”代表命令按钮，“opt”代表选项按钮，所以选项A正确。
5.下列属于VBA子字符串检索函数的是(B)
A. Len
B. InStr
C. Right
D. Replace
解析：InStr(str1，str2)函数是检索子字符串str2在字符串str1中最早出现的位置，返回一个整型数据。因此选项B正确。
6.在VBA程序中，编程打开窗体应使用的命令是(D)
A. Cmd．Open Form
B. Do．Open Form
C. DoCmd．Open Form
D. Command．Open Form
解析：在VBA中打开窗体或报表对象应该使用DoCmd命令，所以选项D正确。
7.调用下面子过程，消息框显示的值是
Sub SFun()
Dim x，y，m
x=10：y=100
If y Modx Then
m=x
Else
m=y
End If
MsgBox m
End Sub(D)
A. x
B. y
C. 10
D. 100
解析：本题考查的是if语句，还有赋值语句的知识点。首先，变量x赋值10，y赋值100；if语句中的条件语句是ymodx，只要y不被x整除，则条件为真，否则条件为假。这里y可以被x整除，因此条件为假，执行else后面的语句，即m=y=100。所以应选择选项D。
8.下列循环结构中，循环体被执行的次数是
Dim iAs Integer，t As Integer
Fori=9t00
t=t+1
Next i(A)
A. 0次
B. 1次
C. 4次
D. 5次
解析：For—Next循环结构中，循环变量初始值应该随着循环的执行，逐渐向终止值“靠拢”，这样才能结束循环。本题中循环便变量i的初始值为9，终止值为0，步长为默认值1，所以随着循环的执行，初始值是逐渐“背离”终止值的，所以该循环结构不会被执行，循环语句执行0此，选项A正确。
9.有如下事件程序，运行该程序后输出结果是
Private Sub Command0_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\\(A)
A. x=1，y=0
B. x=4，y=25
C. x=5，y=30
D. 输出其他结果
解析：在Do Until…Loop循环结构中，只有当循环条件语句为“假”时，才执行循环体语句，如果循环条件语句为“真”，则结束循环。本题中变量y的值为1，，循环条件语句“y＜=25”为“真”，所以本题中的循环语句一次也不会执行，最终x和y的值不会发生变化，所以选项A正确。
10.能够实现从指定记录集里检索特定字段值的函数是。(D)
A. Nz
B. Find
C. Lookup
D. DLookup
解析：DLookup函数是从指定记录集里检索特定字段的值。它可以直接在VBA、宏、查询表达式或计算控件中使用，而且主要用于检索来自外部表(而非数据源表)字段的值，所以选项D正确。
11.若使用如下代码创建数据表Student：
Dim strSQL As String
strSQL=\\(D)
A. 设置Sno为主键
B. 设置Sname为非空
C. 设置Sparty为是否型
D. 设置Sphoto为备注型
解析：在Access数据库中包含数字型、附件型、备注型以及文本型等数据类型。用于保存图像和文件的数据类型应定义附件类型。所以应选择选项D。
12.子过程Plus完成对当前库中“教师表”的工龄字段都加1的操作。
Sub Plus()
Dim cn As New ADODB．Connection
Dim rs As New ADODB．Recordset
Dim fd As ADODB．Field
Dim strConnec tAs String
Dim strSQL As String
Set cn=CurrentProject．Connection
strSQL=\\(A)
A. Notrs．EOF
B. rs．EOF
C. Notcn．EOF
D. cn．EOF
解析：EOF函数的作用是判断是否到达记录的结尾，在到达结尾前，该函数的返回值都是False，本题需要对当前库中“教师表”的工龄字段都加1，使用Do While…Loop循环结构，依次取出每条语句，条件语句用于判断记录指针是否到达记录集的结尾，如果没有，rs．EOF返回false，Not rs．Eof返回true，则继续向下移动记录指针，如果记录指针到达记录集的结尾，rs．EOF返回true，Not rs．EOF返回false，结束循环。
13.要执行VisualBasic函数，应使用的宏操作命令是(C)
A. RunCommand
B. RunMacro
C. RunCode
D. RunSql本文档预览：3600字符，共7925字符，源文件无水印，下载后包含无答案版和有答案版，查看完整word版点下载
