8．4 经典题解
一、选择题
例1以下关于数据模型的说法不正确的是
A)窗体模块和报表模块属于类模块，它们从属与各自的窗体或报表
B)窗体模块和报表模块具有局部特性，其作用范围局限在所属窗体或报表内部
C)窗体模块和报表模块中的过程可以调用标准模块中已经定义好的过程
D)窗口模块和报表模块生命周期是伴随着应用程序的打开而开始、关闭结束
解析：窗口模块和报表模块生命周期是伴随着窗口或报表的打开而开始、关闭结束
答案：D)
例2以下关于标准模块的说法不正确的是
A）标准模块一般用于存放其他Access数据比对象使用的公共过程
B）Access系统中可以通过创建新的模块对象而进入其代码设计环境
C) 标准模块听有的变量和函数都具全局特性，是公共的
D）标准模块的生命周期是伴随着应用程序的应用程序的开始而开始，关闭结束
解析：在各个标准模块内部也可以定义私有变量和私有过程仅供本模块内部使用
答案：C
例3在模块中执行宏“macrol”的格式为是
A)Functio.RunMacro    B)DoCmd.RunMacro
C)Sub.RunMacro macro  D)RunMacro macro
解析：该语法的结构为DoCmd.RunMacro MacroName[,RepeatCount][,RepeatExpression].
例4以下关于中变量的叙述错误的是
A）变量名的命名同字段命名一样，但变量命名不能包含有空格或除了下划线符号外的任何其他的标点符号
B）变量名不能使用VBA的关键字
C）VBA中对变量名的大小写敏感，变量名“Newyear”和“newyear”代表的是两个不同的变量
D）根据变量直接定义与否，将变量划分为隐含型变量和显式变量
解析：VBA中对变量名的大小写不敏感，变量名“ Newyear”和“newyear”代表的是同一个变量。
答案：C）
例5 在“NewVar=528”语句中，变量NewVar的类型默认为
A）Boolean  B）Variant  C）Double  D）Integer
解析：当在变量名称后没有附加类型说明字符来指明隐含类型变量的数据类型时，默认为Variant数据类型。
答案：B）
例 6以下将变量 NewVar定义为 Interger型正确的是
A）Interger mewVar              B）Dim NewVar Of Integer
C）Dim  NewVar  As  Integer      D）Dim  Interger  NewVar
解析：定义变量最常用的是使用Dim变量名称As数据类型。
答案：C）
例7可以判定某个日期表达式能否转换为日期或时间的函数是
A）CDate B）lsDate  C）Date D）IsText
解析：使用IsDate函数，可以判定某个日期表达式能否转换为日期或时间。CDate可以识
别日期文字和时间文字。
答案：B）
例 8  以下哪个选项定义了 10个整型数构成的数组，数组元素为 NewArray（l）至NewArray（l）
A）DimNewArray（10）Aslnteger B）DimNewA。y（ITolo）Aslnteger
C）Dim NewArray（10）IntegerD）Dim NewA。y（ITo 10）Integer
解析：选项A）定义了H个整型数构成的数组，选项C）和D）语法错误。
答案：B）
例 9以下有关优先级的比较，正确的是
A）算术运算符＞关系运算符＞连接运算符B）算术运算符＞连接运算符＞逻辑运算符
C）连接运算符＞算术运算符＞关系运算符D）逻辑运算符＞关系运算符＞算术运算符
解析：优先级：算术运算符＞连接运算符＞关系运算符＞逻辑运算符。
答案：B）
例10程序段：
For S＝5 TO S＝10 Step  1
S＝2＊S
Next S
该循环执行的次数为
A）1  B）2  C）3  D）4
解析：经过一次循环后，S＝2 X 5＋l＝11＞10，循环结束。
答案：A）
例 11程序段：
Dim As Integer
I＝Int（-3．25）
I的返回值是
A）－3    B）－4  C）3    D）3  25
解析：Int函数为取整函数，所以  Int（－3．25）＝－4。
答案：B）
例12程序段：
Dim M As Single
Dim N As Single
Dim P As Single
M＝AbS（－7）
N＝Int（-2.4）
P＝H十N
P的返回值是
A）9  B）－9    C）5  D）4
解析：M＝7，N＝－3，所以 P＝4．
答案：D）
［例13］程序段：
Strl＝”98765’
Str2＝”65”
s＝InStr(str1，str2)
t＝InStr（3，”assiAb”，”a”，l）
a的返问值是
A） 3  B）4  C）5  D）6
解析：Intstr（str1，str2）用来检索子字符串str2在字符串strl中最早出现的位置。答案：B）
［例14］程序段：
Dim sir As hiring＊10
Dim i
Strl＝”ahcdefg’
i＝12
len1＝Len（i）
Str2＝Right（Str1，4）
lenl的返回值是
A）12    B）10    C）2    D）0
解析：Len（）是字符串长度检测函数，i＝12所以字符串长度为2。
答案：C）
［例151程序段：
D＝＃2004-8-1＃
T＝＃12：08：20＃
MM＝Month（D）
ss＝Second（T）
MM的返回值是
A）2004    B）8      C）1    D）2004－8－l
解析：Month函数是提取日期字符串中的月份。
答案：B）
［例16］程序段：
str1＝”helloworld”
str2＝”计算机等级考试”
str3＝Right（strl，3）
sir3的返回值是
A）hel    B）loworld    C）rld    D）hellowo
解析：Right（＜字符串表达式＞，＜NI＞＝从字符串右起取N1个字符。
答案：C）
［例17］程序段：
x＝0
For  i＝1  to 10 step 2
X＝X＋i
i＝i＊2
Next i
当循环结束后，变量i的值为
A）22    B）10    C）11  D）16
vba 字符串转数组
解析：首先，i＝l，第一次循环时， x＝0＋1＝1，i＝i＊2＝2，i＝2＋2＝4；第二次循环时，x＝l＋4=5，i＝4＊2＝8，i＝i＋2=10；仍然小于10，循环继续；第三次循环时，x＝5＋10＝15，i＝10＊2＝20，i＝20＋2＝22；所以最终s＝15，i＝22。
答案：A）
［例18］程序段：
Str＝“计算机科学技术”
Str＝Mid（str，5）
Str的返回值是
A）计算机科学  B）机科学技术  C）计算  D）学技术
解析：对于Mid（＜字符串表达式＞，＜N1＞，＜N2＞＝函数，如果省略了第三个参数，则返回字符串中从左边第N1个字符开始的所有字符。
答案：D）
同步练习
一、选择题
(1）VBA中定义符号常量可以用关键字
A）Const  B）Dim    C）Public    D）Static
（2）以下关于运算优先级比较，叙述正确的是
A）算术运算符＞逻辑运算符＞关系运算符B）逻辑运算符＞关系运算符＞算术运算符
C）算术运算符＞关系运算符＞逻辑运算符  D)以上均不正确
(3)定义了二维数组A（2 to  5，5），则该数组的元素个数为
A）25    B）36      C）20      D）24
（4）已知程序段：
s＝0
For I=1 to 10 Step  2
S=s＋l
I=I＊2
Next  I
当循环结束后，变量I的值为
A）10  B）11n  C）22  D）16
（5）以下内容中不属于VBA提供的数据验证函数是
A）IsText  B）lsDate    C）lsNumeric      D）IsNull
（6）VBA“定时”操作中，需要创建窗体的“计时器间隔（Tiemrlnterval）”属性值。其计量单位是
A）微秒B）毫秒C）秒D）分钟
(7）已定义好有参函数f（m），其中形参m是整型变量。下面调用该函数，传递实参为5，将返回的函数值赋值给变量t。以下正确的是
A）t=f（m） B）t＝Call f（m）  C）t＝f（5）  D）t＝Call  f（5）
（8）在有参函数设计时，要想实现某个参数的“双向”传递，就应当说明该形参为“传值”调用形式。其设置选项是
A）ByVal）ByRef    C）Optional  D）ParamArray
（9）在VBA代码调试过程中，能够显示出所有在当前过程中变量声明及变量信息的是
A）快速监视窗口  B）监视窗口  C）立即窗日  D）本地窗口
（10）VBA的逻辑值进行算术运算时，True值被当做
A）0    B）－1    C）1      D）任意值
（11）VBA中不能进行错误处理的语句结构是
A）On Error Then标号  B）On Error Goto标号
C）On  Error Resume  Next D）Call  Area  a，b
（12）VBA中用实际参数a和 b调用有参函数过程 Area（m，n）的正确形式是
A）Area  m，n        B）Area  a，b
C）Call Area（m,n）  D）Call  Area  a，b
（13）能够实现从指定记录集里检索特定字段值的函数是
A）Nz            B）DSum            C）Dbookup          D）Rnd
（14）DAO（）模型层次中处在最顶层的对象的是
A）DBEngine  B）Workspace  C）Datebase  D）RecodSet
（15）ADO（）对象模型中可以打开 Recordset对象的是
A）只能是 Connection对象
B）只能是 Command对象
C）可以是 Connection对象和 Command对象
D）不存在
（16）给定日期DD，可以计算该日前当前月最大天数的正确表达式是
A）Day（DD）
B）Day（Dateserial（Year（DD），Month（DD），Day（DD）））
C）Day（Dateserial（Year（DD），Month（DD），0））
l））Day（Dateserial（Year（DD），Month（DD）＋1，0））
（17）VBA中定义局部变量可以用关键字
A）Const          B）Dim              C）Public            D）Static （18）以下关天运算优先级比较，叙述正确的是
A）算术运算符＞逻辑运算符＞关系运算符
B）逻辑运算符＞关系运算符＞算术运算符
C）算术运算符＞关系运算符＞逻辑运算符
D）以上均不正确
（19）VBA表达式IIf（0，20，30）的值为
A）20  B）30    C）25    D）10
(20)连接式”2＋3”＆“＝”＆（2＋3）的运算结果为
A）‘“2＋3=2＋3”      B）“2＋3＝5”
C）“5＝5”              D）“5＝2＋3”
（21）VBA表达式Chr（Asc（Ucase（‘abodefg‘）返回的值是
A）A          B）97            C）a              D）65
(22)定义了二维数组 A（2 To 5，5），则数组的元素个数为
A）25        B）36    C）20    D）24
(23)定义了三维数组A（5，5，5），则该数组的元素个数为
A）15        B）25    C）125        D）216
（24）以下内容中不属于 VBA提供的数据验证的函数是
A）IsText    B）IsDate            C）lsNumeric    D）isNull
（25）假定有以下函数过程：
Function Fun（S As String）As string
Dim s1  As  string
一
For  i＝l  To Len(S)
sl＝UCase（Mid（S,i1））+s1
Next i
Fun＝s1

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。