国家二级ACCESS机试选择题（VBA编程）模拟试卷6
选择题
1.打开一个窗体，要通过选择窗体的数据输入与窗体方式，限制窗体所显示的记录，应使用的宏操作命令是(C)
A. Open Report
B. Open Table
C. Open Form
D. Open Query
解析：OpenReport为打开报表，OpenTable为打开表，OpenForm为打开窗体，OpenQuery为打开查询，所以选项C正确。
2.在窗体中有一个命令按钮Command1，两个文本框Text0和Text1，按钮Command1对应的代码过程如下：
Private Sub Command1_Click()
Dim m，k As Integer
Dim flag As Boolean
m=Val(Me!Text0)’输入一个整数
Do While1
k=2
flag=True
Do、While k＜=m／2And flag
Ifm Mod k=0Then
flag=False
Else
k=k+1
End If
Loop
If flag Then
Me!Textl=m’输出计算结果
Exit Do
Else
m=m+1
End If
Loop
End Sub
运行程序，输入12，单击按钮，程序的输出结果是(A)
A. 13
B. 12
C. 11
D. 其他整数
解析：根据题目要求，输入一个整数赋值给m；外层D0wMe循环条件设置为“1”，表示循环条件永远为“真”，第一次执行循环语句时：k=2；flag=true；内层Do While k＜=m／2And flag循环条件为true，进入内层循环的循环体语句，if m mod k=0条件为真，执行flag=false语句，内层循环体语句执行结束，然后判断第二次执行的循环条件Do While k＜=m／2And flag循环条件为false，内层循环结束，进入外层循环语句if flag判断条件为fafse，执行语句m=m+1，m的值为13；继续进行外层循环，第二次执行循环语句时：k=2；flag=false；内层Do While k＜=m／2And flag循环条件为false，内层循环不执行，进入外层循环语句if flag判断条件为true，执行语句Me!Text1=m，文本框Text1中显示的内容为13，然后执行exit do语句，结束整个循环，所以最终程序输出的结果为13，选项A正确。
3.在窗体中有一个命令按钮Command1，三个文本框Text0、Text1个Text2，命令按钮对应代码过程如下：
Private Sub Command1_Click()
Dim i，f1，f2 As Integer：Dim flag As Boolean
f1=Val(Me!Text0)
f2=Val(Me!Text1)
If f1＞t2 Then
i=f2
Else
i=f1
End If
flag=True
Do While i＞1And flag
If f1 Mod i=0And12Mod i=0Then
flag=False
Else
i=i-1
End If
Loop
Me!Text2=i
End Sub
运行程序，在文本框Text0和Text1中分别输入15和25，单击按钮后文本框Text2中显示的结果是(A)
A. 5
B. 10
C. 15
D. 25
解析：程序开始时，f1和f2的值分别是从文本框Text0和Text1中输入的值15和25，然后利用if语句判断f1和f2两个数的大小，变量i中存放f1和f2中较小者的值，flag初始值为true，程序进入Do While循环语句，首先判断循环条件“i＞1And flag”，结果为true，循环体中的if语句，只有当f1和f2同时能被i整除，flag才会被赋值为false，否则将变量i减1，继续进行Do While循环的条件判断，一旦f1和f2同时能被i整除，变量flag被赋值为false，则整个循环结束，将变量I的值输出到文本框。Text2中，所以只有当变量i为5时，才能同时被f1(15)和f2(25)整除，本题程序的功能是求两个数的最大公约数，故选项A正确。
4.在VBA中要定义一个由10个整型数构成的数组，正确的语句是(B)
A. Dim New Array(10)As Integer
B. Dim New Array(2To11)As Integer
C. Dim New Array(2To11)
D. Dim New Array(10)
解析：VBA中数组定义的格式为：Dim数组名([下标下界to]下标上界)As数据类型
下标下界的默认值为0，本题中要定义一个由10个整型数构成的数组，A选项定义了11个元素，C、D选项未指定数据类型，默认是变体型，B选项定义了10个整型数的数组，所以选项B正确。
5.VBA中一般采用Hungarian符号法命名变量，代表命令列表框的字首码是(A)
A. lst
B. txt
C. Chk
D. sub
解析：Hungarian符号使用一组代表数据类型的码。用小写字母作为变量名的前缀，命令列表框的字首码是“lst”，“txt”代表文本框，“Chk”代表复选框，“sub”代表子窗体／子报表，所以选项A正确。
6.VBA中，将字符串的首字母转换为对应的字符代码的函数是(A)
A. Asc
B. Str
C. String
D. Chr
解析：Asc函数为字符串转换字符ASCII码函数，该函数返回字符串首字符的ASCII码值；str函数为数字转换成字符串函数，该函数将数值表达式的值转换成字符串；Chr。函数为字符ASCII码值转换为字符函数，该函数返回与字符代码相关的字符，String不是类型转换函数，String是返回一个由字符表达式的首字符重复组成的指定长度为数值表达式的字符串，所以选项A正确。
7.下列关于内置函数分类的选项中，不是Access内置函数分类的是(A)
A. 表
B. 数据库
C. 数组
D. 程序流程
解析：在Access中常用的内置函数有财务函数、日期函数、算术函数、文本函数、转换函数、检查函数，没有表函数。表是Access的对象，不是函数，所以应选择选项A。
8.如果在北京时间12点00分运行以下代码，程序的输出是
Sub Procedure()
If Hour(Time())＞=8And Hour(Time())＜=12Then
Debug．Print\\(B)
A. 欢迎下次光临!
B. 上午好!
C. 下午好!
D. 无输出
解析：Time()函数可以返回系统当前时间，Hour(Time())可以返回系统当前时间的小时，本程序中的if～elseif多分支判断语句，判断系统当前时间的小时值，如果在8到12点之间(含8点和12点)，则输出“上午好”，如果在12点到18点之间(含18点)，则输出“下午好
本文档预览：3600字符，共11920字符，源文件无水印，下载后包含无答案版和有答案版，查看完整word版点下载
