1、模块(三)及答案解析(总分：52.00，做题时间：90 分钟)一、选择题(总题数：24，分数：24.00)1.下面 Main过程运行之后，则变量 J的值为Private Sub MainSub( )Dim J As IntegerJ=5Call GetData(J)End SubPrivate Sub GetData(ByRef f As Integer)f=f$2+Sgn(-1)End SubA) 5 B) 7 C) 9 D) 10（分数：1.00）A.B.C.D.2.在 VBA代码调试过程中，能够显示出所有在当前过程中变量声明及变量信息的是A) 快速监视窗口 B) 监视窗口C) 立即窗口
2、D) 本地窗口（分数：1.00）A.B.C.D.3.DAO模型层次中处在最顶层的对象的是A) DBEngine B) Workspace C) Database D) RecordSet（分数：1.00）A.B.C.D.4.VBA表达式 If(0，20，30)的值为A) 20 B) 30 C) 25 D) 10（分数：1.00）A.B.C.D.5.下列算式正确的是A) Fix(2.8)=3 B) Fix(-2.8)=-3C) Fix(-2.8)=-2 D) 以上都正确（分数：1.00）A.B.C.D.6.函数 Right(Left(Mid(“Access DataBase“，10，3)，2)，
3、1)返回的值是A) t B) 空格 C) a D) B（分数：1.00）A.B.C.D.7.下面表达式为假的是A) (43) B) (4 Or(32)=1)C) (4 And(32)=1) D) (Not(3=4)（分数：1.00）A.B.C.D.8.连接式“2+3“&“=“&(2+3)的运算结果为A) “2+3=2+3“ B) “2+3=5“C) “5=5“ D) “5=2+3/（分数：1.00）A.B.C.D.9.定义了二维数组 A(2 t0 5，5)，则该数组的元素个数为A) 25 B) 36 C) 20 D) 24（分数：1.00）A.B.C.D.10.如图 8-1所示的为 VBE界面
4、的“代码”窗口，其中圈出的部分为（分数：1.00）A.B.C.D.11.能够实现从指定记录集里检索特定字段值的函数是A) Nz B) DSum C) DLookup D) Rnd（分数：1.00）A.B.C.D.12.VBA数据类型符号“&”表示的数据类型是A) 整数 B) 长整数 C) 单精度数 D) 双精度数（分数：1.00）A.B.C.D.13. （分数：1.00）A.B.C.D.14.给定 13期 DD，可以计算该日当前月最大天数的正确表达式是A) Day(D) B) Day(DateSerial(Year(D)，Month(D)，Day(D)C) Day(DateSerial(Yea
5、r(DO)，Month(D)，0)D) Day(DateSerial(Year(D)，Month(D)+1，0)（分数：1.00）A.B.C.D.15.VBA“定时”操作中，需要创建窗体的“计时器间隔(TiemrInterval)”属性值。其计量单位是A) 微秒 B) 毫秒 C) 秒 D) 分钟（分数：1.00）A.B.C.D.16.将数学表达式 （分数：1.00）A.B.C.D.17.从字符串 A=“123456“中返回子串 B=“34“的正确表达式为A) B=Mid(A，3，2) B) B=Right(Left(A，4)，2)C) B=Left(Right(A，4)，2) D) )，)和)
6、（分数：1.00）A.B.C.D.18.设有如下的记录类型Type studentNumber As StringName As StringAge As IntegerEnd Type则正确引用该记录类型变量的代码是A) Student.name=“张红“ B) Dim s As Student s.name=“张红“C) Dim S As Type Student s.name=“张红“ D) Dim s As Type s.name=“张红/（分数：1.00）A.B.C.D.19.表达式(-12.7 Mod -5)返回的值是A) -1 B) -2 C) -3 D) -4（分数：1.00）
7、A.B.C.D.20.ADO对象模型中可以打开 RecordSet对象的是A) 只能是 Connection对象 B) 只能是 Command对象C) 可以是 Connection对象和 Command对象 D) 不存在（分数：1.00）A.B.C.D.21.函数 String(n，字符串)的功能是A) 把数值型数据转换为字符串 B) 返回由 n个字符组成的字符串C) 从字符串中取出 n个字符 D) 从字符串中第 n个字符的位置开始取子字符串（分数：1.00）A.B.C.D.22.下面的程序段运行后，变量 S的值变为“65666768”，则程序中“表达式”为i=1Do While(表达式)S=
8、S&ASC(Chr$(i+64)i=i+1LoopA) i5 B) Not(i5) C) i5 D) i=5（分数：1.00）A.B.C.D.23.VBA表达式 DateSerial(2004-1，8-2，0)返回的值是A) 2004-5-31 B) 2004.5.31C) 2003.5.31 D) 2003-6-1（分数：1.00）A.B.C.D.24.已定义好有参函数 f(m)，其中形参 m是整型变量。下面调用该函数，传递实参为 5，将返回的函数值赋值给变量 t。以下正确的是A) t=f(m) B) t=Call f(m) C) t=f(5) D) t=Call f(5)（分数：1.00）
9、A.B.C.D.二、填空题(总题数：28，分数：28.00)25.VBA中，在模块的声明中，可以使用 1 语句将数组的默认下标定为 1。（分数：1.00）填空项 1:_26.VBA语法与 1 编程语言互相兼容。（分数：1.00）填空项 1:_27.VBE的代码窗口顶部包含两个组合框，左侧为对象列表，右侧为 1。（分数：1.00）填空项 1:_28.VBA编辑中，要得到15，75上的随机整数可以用表达式 1。（分数：1.00）填空项 1:_29.如下程序的功能为：使用 WhileWend语句来增加计数变量的值。如果条件判断值为 True，则循环内的语句将一直执行下去。当 Counter_时循环中
10、止。Dim CounterCounter=0While Counter20Counter=Counter+1Wend（分数：1.00）填空项 1:_30.已知如下程序段：Dim MyNumberMyNumber=Fix(99.2)执行以上程序段后，MyNumber 为_。（分数：1.00）填空项 1:_31.有如下程序：Function GetChoice(Ind As Integer)GetChoice=Choose(Ind，“Speedy“，“United“，“Federal“)End Function如果 Ind赋值为 1，程序执行后 GetChoice=_。（分数：1.00）填空项 1
11、:_32.已知如下程序段：Dim A，B，C，MyCheckA=10:B=8:C=6MyCheck=BA And BC执行以上程序段后，MyCheck 为_。（分数：1.00）填空项 1:_33.已知如下程序段：Dim MyNumberMyNumber=2+2执行以上程序段后，MyNumber 为_。（分数：1.00）填空项 1:_34.模块包含了一个声明区域和一个或多个子过程或函数过程(以 1 开头)。（分数：1.00）填空项 1:_35.已知如下程序段：Dim MyString，LastWordMyString=“Mid Function Demo“LastWord=Mid(MyStrin
12、g，14，4)执行以上程序段后，LastWord 为_。（分数：1.00）填空项 1:_36.VBA的逻辑值在表达式当中进行算术运算时，True 值被当作 1、False 值被当作 0来处理。（分数：1.00）填空项 1:_37.已知如下程序段：Dim MyNumberMyNumber=Int(-99.8)执行以上程序段后，MyNumber 为_。（分数：1.00）填空项 1:_38.已知如下程序段：Dim MyNumberMyNumber=Int(99.8)执行以上程序段后，MyNumber 为_。（分数：1.00）填空项 1:_39.VBA的“定时”操作功能是通过窗体的 1 事件过程完成的
13、。（分数：1.00）填空项 1:_40.断点的功能是 1。（分数：1.00）填空项 1:_41.VBA中打开窗体的命令语句是 1。（分数：1.00）填空项 1:_42.说明变量最常用的方法，是使用 1 结构。（分数：1.00）填空项 1:_43.已知如下程序段：Dim AnyString，MyStrAnyString=“Hello World“MyStr=Left(AnyString，7)执行以上程序段后，MyStr 为_。（分数：1.00）填空项 1:_44.已知如下程序段：Dim AnyString，MyStrAnyString=“Hello World“MyStr=Right(AnySt
14、fing，1)执行以上程序段后，MyStr 为_。（分数：1.00）填空项 1:_45.已知如下程序段：Dim A，B，MyCheckA=10:B=8MyCheck=A And B执行以上程序段后，MyCheck 为_。（分数：1.00）填空项 1:_46.已知如下程序段：Dim MyNumberMyNumber=Abs(-50.3)执行以上程序段后，MyNumber 为_。（分数：1.00）填空项 1:_47.已知如下程序段：Dim MyValueMyValue=Val(“24 and 57“)执行以上程序段后，MyValue=_。（分数：1.00）填空项 1:_48.VBA语言中， 1 函
15、数的功能是显示消息信息。（分数：1.00）填空项 1:_49.有如下程序段：Dim Number，Digits，MyStringNumber=53IfNumber10 ThenDigits=2ElseDigits=3End If将该程序段中的 If语句用单行格式应该写成_。（分数：1.00）填空项 1:_50.已知如下程序段：Dim SearchString，SearchChar，MyPosSearchString=“XXpXXpXXPXXP“SearchChar=“P“MyPos=Instr(4，SearchString，SearchChar，1)执行以上程序段后，MyPos 为_。（分数：
16、1.00）填空项 1:_51.已知如下程序段：Dim MyNumber，Var1，Vat2Var1=“34“:Vat2=“6“MyNumber=Var1+Vat2执行以上程序段后，MyNumber 为_。（分数：1.00）填空项 1:_52.用 VBA编程操作本地数据库时，提供一种 DAO数据库打开的快捷方式是 CurrentDB( )，而相应也提供一种 ADO的默认连接对象是_。（分数：1.00）填空项 1:_模块(三)答案解析(总分：52.00，做题时间：90 分钟)一、选择题(总题数：24，分数：24.00)1.下面 Main过程运行之后，则变量 J的值为Private Sub Main
17、Sub( )Dim J As IntegerJ=5Call GetData(J)End SubPrivate Sub GetData(ByRef f As Integer)f=f$2+Sgn(-1)End SubA) 5 B) 7 C) 9 D) 10（分数：1.00）A.B.C. D.解析：2.在 VBA代码调试过程中，能够显示出所有在当前过程中变量声明及变量信息的是A) 快速监视窗口 B) 监视窗口C) 立即窗口 D) 本地窗口（分数：1.00）A.B.C. D.解析：3.DAO模型层次中处在最顶层的对象的是A) DBEngine B) Workspace C) Database D) R
18、ecordSet（分数：1.00）A. B.C.D.解析：4.VBA表达式 If(0，20，30)的值为A) 20 B) 30 C) 25 D) 10（分数：1.00）A.B. C.D.解析：5.下列算式正确的是A) Fix(2.8)=3 B) Fix(-2.8)=-3C) Fix(-2.8)=-2 D) 以上都正确（分数：1.00）A.B.C. D.解析：6.函数 Right(Left(Mid(“Access DataBase“，10，3)，2)，1)返回的值是A) t B) 空格 C) a D) B（分数：1.00）A.B.C. D.解析：7.下面表达式为假的是A) (43) B) (4
19、Or(32)=1)C) (4 And(32)=1) D) (Not(3=4)（分数：1.00）A.B.C. D.解析：8.连接式“2+3“&“=“&(2+3)的运算结果为A) “2+3=2+3“ B) “2+3=5“C) “5=5“ D) “5=2+3/（分数：1.00）A.B. C.D.解析：9.定义了二维数组 A(2 t0 5，5)，则该数组的元素个数为A) 25 B) 36 C) 20 D) 24（分数：1.00）A.B.C.D. 解析：10.如图 8-1所示的为 VBE界面的“代码”窗口，其中圈出的部分为（分数：1.00）A. B.C.D.解析：11.能够实现从指定记录集里检索特定字段
20、值的函数是A) Nz B) DSum C) DLookup D) Rnd（分数：1.00）A.B.C. D.解析：12.VBA数据类型符号“&”表示的数据类型是A) 整数 B) 长整数 C) 单精度数 D) 双精度数（分数：1.00）A.B. C.D.解析：13. （分数：1.00）A.B. C.D.解析：14.给定 13期 DD，可以计算该日当前月最大天数的正确表达式是A) Day(D) B) Day(DateSerial(Year(D)，Month(D)，Day(D)C) Day(DateSerial(Year(DO)，Month(D)，0)D) Day(DateSerial(Year(D
21、)，Month(D)+1，0)（分数：1.00）A.B.C.D. 解析：15.VBA“定时”操作中，需要创建窗体的“计时器间隔(TiemrInterval)”属性值。其计量单位是A) 微秒 B) 毫秒 C) 秒 D) 分钟（分数：1.00）A.B. C.D.解析：16.将数学表达式 （分数：1.00）A.B.C. D.解析：17.从字符串 A=“123456“中返回子串 B=“34“的正确表达式为A) B=Mid(A，3，2) B) B=Right(Left(A，4)，2)C) B=Left(Right(A，4)，2) D) )，)和)（分数：1.00）A.B.C.D. 解析：18.设有如下的
22、记录类型Type studentNumber As StringName As StringAge As IntegerEnd Type则正确引用该记录类型变量的代码是A) Student.name=“张红“ B) Dim s As Student s.name=“张红“C) Dim S As Type Student s.name=“张红“ D) Dim s As Type s.name=“张红/（分数：1.00）A.B. C.D.解析：19.表达式(-12.7 Mod -5)返回的值是A) -1 B) -2 C) -3 D) -4（分数：1.00）A.B.C. D.解析：20.ADO对象模
23、型中可以打开 RecordSet对象的是A) 只能是 Connection对象 B) 只能是 Command对象C) 可以是 Connection对象和 Command对象 D) 不存在（分数：1.00）A.B.C. D.解析：21.函数 String(n，字符串)的功能是A) 把数值型数据转换为字符串 B) 返回由 n个字符组成的字符串C) 从字符串中取出 n个字符 D) 从字符串中第 n个字符的位置开始取子字符串（分数：1.00）A.B. C.D.解析：22.下面的程序段运行后，变量 S的值变为“65666768”，则程序中“表达式”为i=1Do While(表达式)S=S&ASC(Chr
24、$(i+64)i=i+1LoopA) i5 B) Not(i5) C) i5 D) i=5（分数：1.00）A.B.C. D.解析：23.VBA表达式 DateSerial(2004-1，8-2，0)返回的值是A) 2004-5-31 B) 2004.5.31C) 2003.5.31 D) 2003-6-1（分数：1.00）A.B.C. D.解析：24.已定义好有参函数 f(m)，其中形参 m是整型变量。下面调用该函数，传递实参为 5，将返回的函数值赋值给变量 t。以下正确的是A) t=f(m) B) t=Call f(m) C) t=f(5) D) t=Call f(5)（分数：1.00）A
25、.B.C. D.解析：二、填空题(总题数：28，分数：28.00)25.VBA中，在模块的声明中，可以使用 1 语句将数组的默认下标定为 1。（分数：1.00）填空项 1:_ （正确答案：Option Base 1）解析：26.VBA语法与 1 编程语言互相兼容。（分数：1.00）填空项 1:_ （正确答案：Visual Basic）解析：27.VBE的代码窗口顶部包含两个组合框，左侧为对象列表，右侧为 1。（分数：1.00）填空项 1:_ （正确答案：过程列表）解析：28.VBA编辑中，要得到15，75上的随机整数可以用表达式 1。（分数：1.00）填空项 1:_ （正确答案：Int(15+
26、61*RnD)）解析：29.如下程序的功能为：使用 WhileWend语句来增加计数变量的值。如果条件判断值为 True，则循环内的语句将一直执行下去。当 Counter_时循环中止。Dim CounterCounter=0While Counter20Counter=Counter+1Wend（分数：1.00）填空项 1:_ （正确答案：19）解析：30.已知如下程序段：Dim MyNumberMyNumber=Fix(99.2)执行以上程序段后，MyNumber 为_。（分数：1.00）填空项 1:_ （正确答案：99）解析：31.有如下程序：Function GetChoice(Ind
27、As Integer)GetChoice=Choose(Ind，“Speedy“，“United“，“Federal“)End Function如果 Ind赋值为 1，程序执行后 GetChoice=_。（分数：1.00）填空项 1:_ （正确答案：Speedy）解析：32.已知如下程序段：Dim A，B，C，MyCheckA=10:B=8:C=6MyCheck=BA And BC执行以上程序段后，MyCheck 为_。（分数：1.00）填空项 1:_ （正确答案：False）解析：33.已知如下程序段：Dim MyNumberMyNumber=2+2执行以上程序段后，MyNumber 为_。
28、（分数：1.00）填空项 1:_ （正确答案：4）解析：34.模块包含了一个声明区域和一个或多个子过程或函数过程(以 1 开头)。（分数：1.00）填空项 1:_ （正确答案：Function）解析：35.已知如下程序段：Dim MyString，LastWordMyString=“Mid Function Demo“LastWord=Mid(MyString，14，4)执行以上程序段后，LastWord 为_。（分数：1.00）填空项 1:_ （正确答案：Demo）解析：36.VBA的逻辑值在表达式当中进行算术运算时，True 值被当作 1、False 值被当作 0来处理。（分数：1.00）
29、填空项 1:_ （正确答案：1）解析：37.已知如下程序段：Dim MyNumberMyNumber=Int(-99.8)执行以上程序段后，MyNumber 为_。（分数：1.00）填空项 1:_ （正确答案：-100）解析：38.已知如下程序段：Dim MyNumberMyNumber=Int(99.8)执行以上程序段后，MyNumber 为_。（分数：1.00）填空项 1:_ （正确答案：99）解析：39.VBA的“定时”操作功能是通过窗体的 1 事件过程完成的。（分数：1.00）填空项 1:_ （正确答案：定时）解析：40.断点的功能是 1。（分数：1.00）填空项 1:_ （正确答案：
30、中断程序的执行）解析：41.VBA中打开窗体的命令语句是 1。（分数：1.00）填空项 1:_ （正确答案：Docmd.OpenForm）解析：42.说明变量最常用的方法，是使用 1 结构。（分数：1.00）填空项 1:_ （正确答案：DimAs）解析：43.已知如下程序段：Dim AnyString，MyStrAnyString=“Hello World“MyStr=Left(AnyString，7)执行以上程序段后，MyStr 为_。（分数：1.00）填空项 1:_ （正确答案：Hello W）解析：44.已知如下程序段：Dim AnyString，MyStrAnyString=“Hell
31、o World“MyStr=Right(AnyStfing，1)执行以上程序段后，MyStr 为_。（分数：1.00）填空项 1:_ （正确答案：d）解析：45.已知如下程序段：Dim A，B，MyCheckA=10:B=8MyCheck=A And B执行以上程序段后，MyCheck 为_。（分数：1.00）填空项 1:_ （正确答案：8）解析：46.已知如下程序段：Dim MyNumberMyNumber=Abs(-50.3)执行以上程序段后，MyNumber 为_。（分数：1.00）填空项 1:_ （正确答案：50.3）解析：47.已知如下程序段：Dim MyValueMyValue=V
32、al(“24 and 57“)执行以上程序段后，MyValue=_。（分数：1.00）填空项 1:_ （正确答案：24）解析：48.VBA语言中， 1 函数的功能是显示消息信息。（分数：1.00）填空项 1:_ （正确答案：MsgBox）解析：49.有如下程序段：Dim Number，Digits，MyStringNumber=53IfNumber10 ThenDigits=2ElseDigits=3End If将该程序段中的 If语句用单行格式应该写成_。（分数：1.00）填空项 1:_ （正确答案：If Number10 Then Digits=2 Else Digits=3）解析：50.
33、已知如下程序段：Dim SearchString，SearchChar，MyPosSearchString=“XXpXXpXXPXXP“SearchChar=“P“MyPos=Instr(4，SearchString，SearchChar，1)执行以上程序段后，MyPos 为_。（分数：1.00）填空项 1:_ （正确答案：6）解析：51.已知如下程序段：Dim MyNumber，Var1，Vat2Var1=“34“:Vat2=“6“MyNumber=Var1+Vat2执行以上程序段后，MyNumber 为_。（分数：1.00）填空项 1:_ （正确答案：346）解析：52.用 VBA编程操作本地数据库时，提供一种 DAO数据库打开的快捷方式是 CurrentDB( )，而相应也提供一种 ADO的默认连接对象是_。（分数：1.00）填空项 1:_ （正确答案：CurrentProject.Connection）解析：
