access笔试题（8章 - 模块）

一、选择题

【例1】以下关于类模块的说法不正确的是

A)窗体模块和报表模块都属于类模块，它们从属于各自的窗体或报表

B)窗口模块和报表模块具有局部特性，其作用范围局限在所属窗体或报表内部 C)窗体模块和报表模块中的过程可以调用标准模块中已经定义好的过程

D)窗口模块和报表模块生命周期是伴随着应用程序的打开而开始、关闭结束 【例2】以下关于标准模块的说法不正确的是

A)标准模块一般用于存放其他Access数据库对象使用的公共过程 B)在Access系统中可以通过创建新的模块对象而进入其代码设计环境 C)标准模块所有的变量或函数都具有全局特性，是公共的

D)标准模块的生命周期是伴随着应用程序的运行而开始、关闭结束 【例3】在模块中执行宏“macro1”的格式为是（D）

A)function.RunMacro MacroName B)DoCmd.RunMacro macro1 C)Sub.RunMacro macro1 D)RunMacro macro1 【例 4】以下有关VBA中变量的叙述错误的是()

A)变量名的命名同字段命名一样，但变量命名不能包含有空格或除了下划线符号外的任何其他的标点符号

B)变量名不能使用VBA的关键字

C)VBA中对变量名的大小写敏感，变量名“Newyear”和“newyear”代表的是两个不同的变量

D)根据变量直接定义与否，将变量划分为隐含型变量和显式变量 【例5】在“NewVar=528”语句中，变量NewVar的类型默认为(B) A)Boolean B)Variant C)Double D)Integer 【例6】以下将变量NewVar定义为Interger型正确的是 A)integer NewVar B)Dim NewVar Of Integer

C)Dim NewVar As Integer D)Dim Interger NewVar

【例7】可以判定某个日期表达式能否转换为日期或时间的函数是 A)CDate B)IsDate C)Date D)IsText

【例8】以下哪个选项定义了10个整型数构成的数组，数组元素为NewArray(1)至NewArray(10)

A)Dim NewArray(10) As Integer B)Dim NewArray(1 To 10)As Integer C)Dim NewArray(10) Integer D)Dim NewArray(1 To 10) Integer 【例9】以下有关优先级的比较，正确的是

A)算术运算符>关系运算符>连接运算符 B)算术运算符>连接运算符>逻辑运算符 C)连接运算符>算术运算符>关系运算符 D)逻辑运算符>关系运算符>算术运算符 【例10】程序段：

For S=5 To 10 Step 1 S=2*S Next S

该循环执行的次数为

A)1 B)2 C)3 D)4 【例11】程序段： Dim I As Integer I=Int(-3.25)

I的返回值是

A)-3 B)-4 C)3 D)3.25 【例12】程序段： Dim M As Single Dim N As Single Dim P As Single M=Abs(-7) N=Int(-2.4) P=M+N P的返回值是

A)9 B)-9 C)5 D)4 【例13】程序段： str1=\ str2=\

s=Instr(str1, str2)

t=Instr(3,\ s的返回值是

A)3 B)4 C)5 D)6 【例14】程序段：

Dim str As String*10 Dim i

Str1=\ i=12

len1=Len(i)

str2=Right(str1,4) len1的返回值是

A)121 B)10 C)2 D)0 【例15】程序段： D=#2004-8-1# T=#12:08:20# MM=Month(D) SS=Second(T) MM的返回值是

A)2004 B)8 C)1 D)2004-8-1 【例16】程序段： str1=\

str2=\计算机等级考试\ str3=Right(str1,3) str3的返回值是

A)hel B)loworld C)rld D)hellowo 【例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 【例18】程序段：

Str=\计算机科学技术\ Str=Mid(str,5) Str的返回值是

A)计算机科学 B)机科学技术 C)计算 D)学技术

8.5 同步练习 一、选择题

(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+1 I=I*2 Next I

当循环结束后，变量I的值为

A)10 B)11 C)22 D)16

(5)以下内容中不属于VBA提供的数据验证函数是

A)IsText B)IsDate C)IsNumeric D)IsNull

(6)VBA“定时”操作中，需要创建窗体的“计时器间隔(TimerInterval)”属性值。其计量单位是

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 B)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)DLookup D)Rnd (14)DAO模型层次中处在最顶层的对象的是

A)DBEngine B)Workspace C)Database D)Recordset (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)) D)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)的运算结果为

A)\ B)\ C)\ D)\(21)VBA表达式Chr(Asc(Ucase(\返回的值是 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)IsNumeric D)IsNull (25)假定有以下函数过程：

Function Fun(S As String) As String Dim s1 As String For i=1 to Len(S)

s1=UCase(Mid(S,i,1))+s1 Next i Fun=s1 End

Fun(\的输出结果为

A)abcdefg B)ABCDEFG C)gfedcba D)GFEDCBA

(26)已定义好有参函数f(m)，其中形参m是整型量。下面调用该函数，传递实参为5，将返回的函数值赋给变量t。以下正确的是

A)t=f(m) B)t=Call f(m) C)t=f(5) D)t=Call(5)

(27)在有参函数设计时，要想实现某个参数的“双向”传递，就应当说明该形参为“传址”调用形式。其设置选项是

A)ByVal B)ByRef C)Optional D)ParamArray (28)运行下面的程序段： For k=5 to 10 Step 2 k=k*2 Next k 则循环次数为

A)1 B)2 C)3 D)5

(29)VBA的逻辑值进行算术运算时，True值被当作 A)0 B)-1 C)1 D)任意值

(30)VBA中不能进行错误处理的语句结构是

A)On Error Then 标号 B) On Error Goto 标号 C) On Error Resume Next D) On Error Goto 0

(31)VBA中用实际参数a和b调用有参过程Area(m，n)的正确形式是 A)Area m,n B)Area a,b C)Call Area(m,n) D)Call Area a,b (32)表达式(\周\刘\返回的值是

A)False B)True C)-1 D)1 (33)下列算式正确的是

A)Fix(2.8)=3 B)Fix(-2.8)=-3 C)Fix(-2.8)=-2 D)以上都正确 (34)从字符串A=\中返回子串B=\的正确表达式为

A)B=Mid(A,3,2) B)B=Right(left(A,4),2) C)B=left(Right(A,4),2) D) A)、B)和C) (35)下面表达式为假的是

A)(4>3) B)((40 Or (3>2))=-1) C)((4 And (3<2))=1) D)(Not (3>=4)) (36)表达式(10.2\\5)返回的值是

A)0 B)1 C)2 D)2.04 (37)VBA表达式(12 Mod -5)返回的值为 A)0 B)1 C)2 D)-2 (38)表达式(-12.7 Mod -5)返回的值是 A)-1 B)-2 C)-3 D)-4

(39)能够实现从指定记录集里检索特定字段值的函数是 A)Nz B)DSum C)Dlookup D)Rnd (40)关于模块，下面叙述错误的是

A)是Access系统中的一个重要对象

B)以VBA语言为基础，以函数和子过程为存储单元 C)模块包括全局模块和局部模块

D)能够完成宏所不能完成的复杂操作 (41)窗体模块属于

A)标准模块 B)类模块 C)全局模块 D)局部模块 (42)函数String(n,字符串)的功能是

A)把数值型数据转换为字符串 B)返回由n个字符组成的字符串 C)从字符串中取出n个字符

D)从字符串中第n个字符的位置开始取子字符串 (43)以下关于过程和过程参数的描述中，错误的是 A)过程的参数可以是控件名称

B)用数组作为过程的参数时，使用的是“传址”方式

C)只有函数过程能够将过程中处理的信息传回到调用的程序中 D)窗体可以作为过程的参数

(44)若焦点位于文本框中，则能够触发OnKeyPress事件的操作是

A)单击鼠标 B)双击文本框 C)鼠标滑过文本框 D)按下键盘上的某个键 (45)能够触发窗体的MouseDown事件的操作是

A)单击鼠标 B)拖动窗体 C)鼠标滑过窗体 D)按下键盘上的某个键 (46)能够触发窗体的DblCliCk事件的操作是

A)单击鼠标 B)双击窗体 C)鼠标滑过窗体 D)按下键盘上的某个键 (47)VBA数据类型符号“&”表示的数据类型是

A)整数 B)长整数 C)单精度数 D)双精度数 (48)VBA数据类型符号“%”表示的数据类型是

A)整数 B)长整数 C)单精度数 D)双精度数 (49)变量声明语句Dim NewVar表示变量是什么变量 A)整型 B)长整型 C)变体型 D)双精度数 (50) 图标所代表的数据对象是

A)查询 B)模块 C)宏 D)窗体 (51)返回值为真的表达式为

A)(10>4 And 1>=2) B)(10>4 or 1>=2) C)Not (4<>3) D)(4<3) (52)VBA表达式Dateserial(2004-1,8-2,0)返回的值是

A)2004-5-31 B)2004.5.31 C)2003.5.31 D)2003-6-1 (53)函数Instr(\返回的值是

A)\ B)\ C)5 D)6

(54)函数Len(Tim(\＆ Space(1) & \计算机\返回的值为 A)6 B)7 C)9 D)10

(55)在日期/时间数据类型中，每个字段需要几个字节的存储空间 A)4 B)8 C)12 D)16 (56)执行如下语句：

a=InputBox(\

将显示一个输入的对话框，在对话框的输入区中显示的信息是 A)1 B)2 C)3 D)4

(57)函数Right(Left(Mid(\返回的值是 A)t B)空格 C)a D)B (58)属于Access系统内部常量的是 A)0 B)1 C)Not D)On (59)函数Mid(\，4，3)返回的值是

A)\ B)\ C)\ D)\(60)DAO模型中处在最顶层的对象是

A)DBEngine B)Workspace C)Database D)Recordset (61)ADO模型中可以打开Recodset对象的是

A)Connection对象 B)Command对象 C)Connection对象和Command对象 D)不存在

(62)给定日期DD，可以计算该日期当月最大天数的正确表达式是 A)Day(DD)

B)Day(Dateserial(Year(DD),Month(DD),Day(DD))) C)Day(Dateserial(Year(DD,Month(DD),0)) D)Day(Dateserial(Year(DD),Month(DD)+1,0))

(63)将数学表达式Cos2(a+b)+5e2写成VBA的表达式，其正确的形式是 A)Cos(a+b)A2+5.exp(2) B)Cos(a+b)^2+5*exp(2) C)Cos(a+b)^+5*ln(2) D)Cos^2(a+b)+5*In(2)

a2?n?14)(64)将数学表达式(写成VBA的表达式，其正确的形式是

(b2?n?1?c) A)a^(2*n+1)/(b^(2*n-1)*c)^4 B)(a^(2*n+1)/(b^((2*n-1)*c)))^4 C)(a^(2*n+1)/(b^(2*n-1)*c))^4 D)a^(2*n+1)/(b^((2*n-1)*c))^4 (65)已知程序段： s=0

For i=1 to 10 step 2 s=s+1 i=i*2 Next i

当循环结束后，变量i，S的值分别为

A)22,3 B)11,4 C)10,5 D)16,6

(66)单击窗体上Command1命令按钮时，执行如下事件过程 Private Sub Command_Click() a$=\ b$=Right(a$,8) c$=Mid(a$,1,8)

MsgBox a$, , b$,c$,1 End Sub

则在弹出的信息框的标题栏中显示的信息是

A) software and hardware B) software C)hardware D)1 (67)以下是统计字符串中特定字符个数和的函数

Private Function CountOccurence%(ByVal SearchIn$,ByVal SearchFor$) Dim Number As Long, Pos As Long Pos=Instr(SearchIn, SearchFor) Do While __________ Number=Number+1

Pos=Instr(______,SearchIn, SearchFor) Loop

CountOccurence= Number End Function

程序中的两个空白处应分别为

A)Pos<>0，Pos+1 B) Pos<>0，Pos-1 C)Pos=0,Pos+1 D) Pos=0，Pos-1 (68)下面过程运行之后，则变量J的值为 Private Sub Fun() Dim J As integer J=5 Do

J=J+2

Loop While J>10 End Sub

A)5 B)7 C)9 D)11

(69)以下消除字符串尾部回车换行的函数过程

Public Function TrimCrLf(ByVal Instring As String)As String Do While(_______)

Instring=Left(Instring,left(Instring)-1) Loop

TrimCrLf = Instring End Function 过程中的空白处应为

A)Right(Instring,1)=Chr(13) B)Right(Instring,1)=Chr(10)

C)Right(Instring,1)=Chr(13) Or Right(Instring,1)=Chr(10) D)Right(Instring,1)=Chr(13) And Right(Instring,1)=Chr(10) (70)下面程序段执行的结果是 Dim i As Integer, S As Integer S=0

For i=1 to 10 step 1 S=S+i Next i

A)S=0 B)S=10 C)死循环 D)S=55 (71)设有如下的记录类型 Type student

Number As String Name As String Age As Integer End 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=\张红\

(72)以下是替换字符串中指定字符的函数过程

Function sReplace(Searchhline As String, SearchFor As String, ReplaceWith As String)As String

Dim vSearchline As String, found As Integer found=Instr(Searchhline, SearchFor) vsearchline= Searchline If found<>0 Then vSearchline=\ If found>1 Then

vSearchline= vSearchline+ ReplaceWith If _________

+Right$(SearcbLine,Len(Searchline)-found-Len(SearchFor)+1) End If End If End If

sReplace = vSearchline End Function

过程中的空白处应该为

A)found B)found-1 C)found+Len(SearchFor) D)found+Len(SearchFor)-1 (73)以下过程的功能是向数组中增加字符，则程序中空白处应为 Private Sub AddToArray(arr$(), arraycount%,ByVal charstring$) Dim i%, found As Boolean Found=False

For i=1 To arraycount

If array(i)= charstring Then Found=True Next i

If Not found Then

arraycount= arraycount+1 ____________

arr(arraycount)= charstring End If End Sub

A)ReDim arr(arraycount) B)ReDim Presserve arr(arraycount) C)Dim arr(arraycount) D)Dim Presserve arr(arraycount) (74)以下从十进制向十六进制转换的函数

Function Hexn(Idata As Long, iLen As Integer) As String Dim Res As String, Tempstr As string, nb As Integer Res= Hex(Idata) nb=iLen-Len(Res) If nb>0 Then

Tempstr = String$(nb,48) Res= Tempstr ＆ Res End If

If Len(Res)>iLen Then Res=Right$(Res, iLen) Hexn=Res End If

则Hexn(33,4)返回的值为：

A)21 B)20 C)0021 D)0020 (75)下面过程运行之后，则变量J的值为 Private Sub Fun() Dim J As Integer J=2 Do

J=J*3

Loop While J<15 End Sub

A)2 B)6 C)15 D)18

(76)下面过程运行之后，变量S的值变为\，则程序中“表达式”为 i=1

Do while(表达式)

S=S & ASC(Chr$(i+64)) i=i+1 Loop

A)i>5 B)Not(i<>5) C)i<5 D)i=5 (77)下面Main过程运行之后，则变量J的值为 Private Sub MainSub() Dim J As Integer J=5 Do

Call GetData(J) End Sub

Private Sub GetData(ByRef f As Integer) f=f*2+Sgn(-1) End Sub

A)5 B)7 C)9 D)10

(78)VBA中定义符号常量可以用关键字

A)Const B)Dim C)Public D)static (79)VBA中定义全局变量可以用关键字

A)Const B)Dim C)Public D)static (80)VBA中定义静态变量可以用关键字

A)Const B)Dim C)Public D)static

(81)VBA“定时”操作中，需要创建窗体的“计时器间隔(TimerInterval)”属性值。其计量单位是

A)微秒 B)毫秒 C)秒 D)分钟

(82)在VBA代码调试过程中，能够显示出所有在当前过程中变量声明及变量值信息的是

A)快速监视窗口 B)监视窗口 C)立即窗口 D)本地窗口

(83)如图8-1所示的为VBE界面的“代码”窗口，其中圈出的部分为 A)“对象”框 B)“过程”框 C)声明 D)过程

(84)如图8-2所示的为VBE界面的“代码”窗口，其中圈出的部分为 A)“对象”框 B)“过程”框 C)声明 D)过程

(85)如图8-3所示的为VBE界面的“代码”窗口，其中圈出的部分为 A)“对象”框 B)“过程”框 C)声明 D)过程

(86)如图8-4所示的为VBE界面的“代码”窗口，其中圈出的部分为 A)“对象”框 B)“过程”框 C)声明 D)过程

二、填空题

(1)VBA的全称是____________。

(2)模块包含了一个声明区域和一个或多个子过程或函数过程(以__________________开头)。 (3)窗体模块和报表模块都属于__________________。

(4)说明变量最常用的方法，是使用_____________________结构。

(5)VBA中变量作用域分为3个层次，这3个层次是局部变量、模块变量和___________________________。

(6)在模块的说明区域中，用____________关键字声明的变量是模块范围的变量。

(7)在模块的说明区域中，用Public或____________关键字声明的变量是属于全局范围的变量。

(8)要在程序或函数的实例间保留局部变量的值，可以用________关键字代替Dim。 (9)用户定义的数据类型可以用____________关键字声明。

(10)VBA的三种流程控制结构是顺序结构、选择结构和_______________。 (11)VBA中使用的三种选择函数是________，Switch和Choose。

(12)VBA提供了多个用于数据验证的函数。其中IsDate函数用于合法日期验证；_______函数用于判定输入数据是否为数值。

(13)VBA的有参过程定义，形参用_________说明，表明该形参为传值调用。 (14)VBA的有参过程定义，形参用ByRef说明，表明该形参为___________。 (15)VBA的错误处理主要使用__________________语句结构。 (16)On Error Goto 0语句的含义是_____________。

(17)On Error Resume Next语句的含义是____________。

(18)VBE编辑环境调试工具中，本地窗口的功能是_________。 (19)VBE编辑环境调试工具中，立即窗口的功能是_________。

(20)VBE编辑环境调试工具中，监视窗口的功能是_______________。 (21)VBA语言中，函数InputBox的功能是_________。 (22)VBA语言中，______函数的功能是显示消息信息。

(23)VBA的“定时”操作功能是通过窗体的_________事件过程完成的。 (24)VBA中打开窗体的命令语句是____________； (25)断点的功能是____________。

(26)VBA的逻辑值在表达式当中进行算术运算时，True值被当作______、False值被当作0来处理。

(27)Access的窗体或报表事件可以有两种方法来响应；宏对象和___________。 (28)VBA编辑中，要得到[15,75]上的随机整数可以用表达式______。

(29)VBA中主要提供了3种数据库访问接口：ODBC API，DAO和_________。 (30)DAO对象模型采用分层结构，其中位于最顶层的对象是________。 (31)用VBA编程操作本地数据库时，提供一种DAO数据库打开的快捷方式是CurrentDB()，而相应也提供一种ADO的默认连接对象是____________。 (32)DAO模型中，主要的控制对象有：DBEngine，Workspace，Database，Recordset，_________，QueryDef和Error。

(33)ADO对象模型主要有：Connection，Command，_________，Field和Error 5个对象。 (34)NZ函数主要用于处理______值时的情况。 (35)DLookUP函数的功能是______。

(36)标准模块中的公共变量和公共过程具有______性。 (37)模块是装着___________的容器。

(38)在模块的过程定义中，可以使用DoCmd对象的_________方法运行设计好的宏。 (39)VBA语法与__________编程语言互相兼容。 (40)VBE的全称是__________。

(41)VBE属性窗口提供了“按字母序”和___________两种属性查看形式。

(42)VBE的代码窗口顶部包含两个组合框，左侧为对象列表，右侧为___________。 (43)当不再需要动态数组时，可以使用___________将其设置为零个元素，释放内存。 (44)VBA中，在模块的声明中，可以使用__________语句将数组的默认下标定为1。 (45)为控件对象指定变量名时，必须使用__________关键字。 (46)以下程序段的功能是：创建一个字符串，其内容为由0到9的十个数字所组成的字符串，每个字符串之间用空格隔开。外层循环使用一个变量当作循环计数器，每循环一次，变量值减一。请将下列程序补充完整。 Dim Words，Chars，Mystring For Words=10 TO 1 Step -1 For Chars=0 To 9

Mystring=_________ Next Chars

Mystring=__________ Next Words

(47)请在下列程序段的横线处填写对应语句的功能。 Sub ExitstatementDemo() Dim I, MyNum DO

For I=1 TO 1000

MyNum=Int(Rnd*1000) Select Case MyNum

Case 7：Exit For '_________ Case 8：Exit Do '__________ Case 9：Exit Sub '_________ End Select Next Loop End Sub

(48)Mystr=\＆ \的返回值为_____________。 (49)已知如下程序段： Dim MyNumber MyNumber =2+2

执行以上程序段后，MyNumber为______。 (50)已知如下程序段：

Dim MyNumber, Var1, Var2 Var1=\

MyNumber = Var1+ Var2

执行以上程序段后，MyNumber为____________。 (51)已知如下程序段：

Dim MyNumber, Var1 Var2

Var1=\ MyNumber = Var1+ Var2

执行以上程序段后，MyNumber为____________。 (52)已知如下程序段： Dim A, B, C, MyCheck A=10: B=8: C=6

MyCheck =A>B And B>C

执行以上程序段后，MyCheck为____________。 (53)已知如下程序段： Dim A, B, C, MyCheck A=10: B=8: C=6

MyCheck =B>A And B>C

执行以上程序段后，MyCheck为____________。 (54)已知如下程序段： Dim A, B, C, MyCheck A=10: B=8: D=Null

MyCheck =A>B And B>D

执行以上程序段后，MyCheck为____________。 (55)已知如下程序段： Dim A, B, C, MyCheck A=10: B=8

MyCheck =A And B

执行以上程序段后，MyCheck为____________。 (56)已知如下程序段： Dim MyNumber

MyNumber=Abs(50.3)

执行以上程序段后，MyNumber为______。 (57)已知如下程序段： Dim MyNumber

MyNumber =Abs(-50.3)

执行以上程序段后，MyNumber为______。 (58)已知如下程序段： Dim MyNumber

MyNumber=Int(99.8)

执行以上程序段后，MyNumber为______。 (59)已知如下程序段： Dim MyNumber

MyNumber= Fix(99.2)

执行以上程序段后，MyNumber为______。 (60)已知如下程序段： Dim MyNumber

MyNumber=Int(-99.8)

执行以上程序段后，MyNumber为_______。 (61)已知如下程序段：

Dim MyNumber

MyNumber=Fix(-99.8)

执行以上程序段后，MyNumber为_______。 (62)已知如下程序段：

Dim Searchstring, SearchChar, MyPos Searchstring=\ SearchChar=\

MyPos=Instr(4, Searchstring,SearchChar,1)

执行以上程序段后，MyPos为_____________。 (63)已知如下程序段：

Dim Searchstring, SearchChar, MyPos Searchstring=\ SearchChar=\

MyPos=Instr(1, Searchstring,SearchChar,0)

执行以上程序段后，MyPos为_______________。 (64)已知如下程序段：

Dim Searchstring, SearchChar, MyPos Searchstring=\ SearchChar=\

MyPos=Instr(Searchstring,SearchChar)

执行以上程序段后，MyPos为______________。 (65)已知如下程序段：

Dim Searchstring, SearchChar, MyPos Searchstring=\ SearchChar=\

MyPos=Instr(1, Searchstring, \

执行以上程序段后，MyPos为________________________。 (66)已知如下程序段： Type CustomerRecord ID As Integer

Name As String *10 Address As String *30 End Type

Dim Customer As CustomerRecord Dim MyLen

MyLen =Len(Customer)

执行以上程序段风，MyLen为________。 (67)已知如下程序段：

Dim MyCur As Currency Dim MyLen

MyLen=Len(MyCur)

执行以上程序段后，MyLen为__________。 (68)已知如下程序段： Dim MyInt As Integer

Dim MyLen

MyLen=Len(MyInt)

执行以上程序段后，MyLen为___________。 (69)已知如下程序段： Dim Mystring, MyLen Mystring =\ MyLen=Len(Mystring)

执行以上程序段后，MyLen为________。 (70)已知如下程序段： Dim Anystring, MyStr Anystring =\ MyStr =Left(Anystring, 1)

执行以上程序段后，MyStr为________。 (71)已知如下程序段： Dim Anystring, MyStr Anystring =\ MyStr =Left(Anystring,7)

执行以上程序段后，MyStr为________。 (72)已知如下程序段： Dim Anystring, MyStr Anystring =\ MyStr =Left(Anystring,20)

执行以上程序段后，MyStr为________。 (73)已知如下程序段： Dim Anystring, MyStr Anystring =\ MyStr =Right(Anystring,1)

执行以上程序段后，MyStr为________。 (74)已知如下程序段： Dim Anystring, MyStr Anystring =\ MyStr =Right(Anystring,6)

执行以上程序段后，MyStr为________。 (75)已知如下程序段： Dim Anystring, MyStr Anystring =\ MyStr =Right(Anystring,20)

执行以上程序段后，MyStr为________。 (76)已知如下程序段：

Dim Mystring, FirstWord

Mystring =\ FirstWord =Mid(Mystring,1,3)

执行以上程序段后，FirstWord为________。 (77) 已知如下程序段：

Dim Mystring, Lastword

Mystring =\ Lastword=Mid(Mystring,14,4)

执行以上程序段后，Lastword为________。 (78)已知如下程序段：

Dim Mystring, Midwords

Mystring =\ Lastword=Mid(Midwords,5)

执行以上程序段后，Midwords为________。 (79)已知如下程序段：

Dim LowerCase,UpperCase LowerCase =\ UpperCase =Ucase(LowerCase)

执行以上程序段后，UpperCase为________。 (80)已知如下程序段：

Dim LowerCase,UpperCase UpperCase =\ LowerCase =Lcase(UpperCase)

执行以上程序段后，LowerCase为________。 (81)已知如下程序段：

Dim Mystring,Trimstring Mystring=\

Trimstring=Ltrim(Mystring)

执行以上程序段后，Trimstring=__________。 (82)已知如下程序段：

Dim Mystring，Trimstring Mystring=\

Trimstring=Rtrim(Mystring)

执行以上程序段后，Trimstring=__________。 (83)已知如下程序段：

Dim Mystring,Trimstring Mystring=\

Trimstring=Ltrim(Rtrim(Mystring))

执行以上程序段后，Trimstring=__________。 (84)已知如下程序段：

Dim Mystring，Trimstring Mystring=\ Trimstring=Trim(Mystring)

执行以上程序段后，Trimstring=__________。 (85)已知如下程序段： Dim MyChar MyChar=Chr(65)

执行以上程序段后，MyChar=________。 (86)已知如下程序段：

Dim MyChar MyChar= Chr(97)

执行以上程序段后，MyChar=_________。 (87)已知如下程序段： Dim MyChar MyChar=Chr(62)

执行以上程序段后，MyChar=_________。 (88)已知如下程序段： Dim MyChar MyChar=Chr(37)

执行以上程序段后，MyChar=________。 (89)已知如下程序段： Dim MyValue

MyValue = Val(\

执行以上程序段后，MyValue=_________。 (90)已知如下程序段： Dim MyValue

MyValue = Val(\

执行以上程序段后，MyValue=_________。 (91)已知如下程序段： Dim MyValue

MyValue = Val(\

执行以上程序段后，MyValue=_________。

(92)如下程序的功能为：内层的Do…Loop语句循环到第10次时将标志值设置为False，并用Exit Do语句强制退出内层循环。外层循环则在检查到标志值为False时，马上退出。请填空。

Dim Check, Counter Check =True: Counter=0 Do

Do While Counter＜20 Counter =Counter +1 If Counter=10 Then ________ Exit DO End If Loop Loop

(93)如下程序的功能为：使用Goto语句在一个过程内的不同程序段间作流程控制，在此程序中用于不执行的语句是____________。 Sub GotostatementDemo() Dim Number, MyString Number=1

If Number =1 Then Goto Line1 Else Goto Line2 Line1:

MyString =\ Goto LastLine line2:

MyString =\ LastLine:

Debug.Paint MyString '将“Number equals 1”显示在“立即”窗口。 End Sub

(94)有如下程序段：

Dim Number, Digits, Mystring Number=53

If Number<10 Then Digits=2 Else

Digits=3 End If

将该程序段中的If语句用单行格式应该写成_________。

(95)如下程序的功能为：使用while…Wend语句来增加计数变量的值。如果条件判断值为True，则循环内的语句将一直执行下去。当Counter__________时循环中止。 Dim Counter Counter = 0

While Counter<20 Counter=Counter +1 Wend

(96)如下程序的功能为：使用IIf函数来判断CheckIt过程之TestMe参数的值，如果参数值大于1000则传回____________，否则传回______。 Function CheckIt(TestMe As Integer)

CheckIt=IIf(TestMe>1000,\ End Function (97)有如下程序：

Function MatchUp(CityName As String)

Matchup=Switch(Cityname=\

=\

End Function

如果CityName赋值为\，则Matchup=_________。 (98)有如下程序：

Function GetChoice(Ind As Integer)

GetChoice=Choose(Ind,\ End Function

如果Ind赋值为1，程序执行后CetChoice=______________。

同步练习答案 一、选择题

(1)A) (2)C) (3)D) (4)C) (5)A) (6)B) (7)C) (8)B) (9)C) (10)B)

(11)A) (12)B) (13)C) (14)A) (15)C) (16)D) (17)B) (18)C) (19)B) (20)B) (21)A) (22)D) (23)D) (24)A) (25)D) (26)C) (27)B) (28)A) (29)B) (30)A) (31)B) (32)A) (33)C) (34)D) (35)C) (36)C) (37)C) (38)C) (39)C) (40)C) (41)B) (42)B) (43)C) (44)D) (45)A) (46)B) (47)B) (48)A) (49)C) (50)B) (51)B) (52)C) (53)D) (54)B) (55)B) (56)C) (57)C) (58)D) (59)C) (60)A) (61)C) (62)D) (63)B) (64)C) (65)A) (66)C) (67)A) (68)B) (69)C) (70)D) (71)B) (72)D) (73)B) (74)C) (75)D) (76)C) (77)C) (78)A) (79)C) (80)D) (81)B) (82)C) (83)A) (84)C) (85)B) (86)D)

二、填空题

(1)Visual Basic for Application (2)Function

(3)类模块 (4)Dim…As… (5)全局变量 (6)Private (7)Global (8)Static (9)Type…End Type (10)循环结构 (11)IIf

(12)IsNumeric (13)ByVal (14)传址调用 (15)On Error (16)取消错误处理 (17)忽略错误并执行下一条语句

(18)显示所有当前过程中变量声明及变量值的变化

(19)在中断模式下安排一些调试语句并显示其值的变化 (20)选择监视表达式并显示其值的变化

(21)输入数据对话框 (22)MsgBox (23)定时 (24)Domd.OpenForm (25)中断程序的执行 (26)-1 (27)事件过程 (28)Int(15+61*Rnd) (29)ADO (30)DBEngine (31)CurrentProject.Connection (32)Field (33)Recordset (34)Null (35)从指定记录集里检索特定字段的值 (36)全局

(37)VBA代码 (38)RunMacro (39)Visual Basic (40)Visual Basic Editor (41)“按分类序” (42)过程列表 (43)ReDim (44)Option Base (45)Set (46)Mystring & Chars Mystring & \

(47)如果是7，退出For…Next循环如果是29，退出Do…Loop循环 (48)Hello World (49)4 (50)40 (51)346 (52)True (53)False (54)Null (55)8 (56)50.3 (57)50.3 (58)99 (59)99 (60)-100 (61)-99 (62)6 (63)9 (64)9 (65)0

(66)42 (67)8 (68)2

(69)11 (70)H (71)Hello W (72)Hello World (73)d (74) World (75)Hello Word (76)Mid (77)Demo (78)Funcion Demo (79)HELLO WORLD 1234 (80)hello world 1234 (81)<-Trim-> (82) <-Trim-> (83)<-Trim-> (84)<-Trim-> (85)A (86)a (87)> (88)％ (89)2457 (90)2457 (91)24

(92)Check=False Until Check=False (93)Mystring=\(94)If Number<10 Then Digits=2 Else Digits=3

(95)>19 (96)Large Small (97)French (98)Speedy

(66)42 (67)8 (68)2

(69)11 (70)H (71)Hello W (72)Hello World (73)d (74) World (75)Hello Word (76)Mid (77)Demo (78)Funcion Demo (79)HELLO WORLD 1234 (80)hello world 1234 (81)<-Trim-> (82) <-Trim-> (83)<-Trim-> (84)<-Trim-> (85)A (86)a (87)> (88)％ (89)2457 (90)2457 (91)24

(92)Check=False Until Check=False (93)Mystring=\(94)If Number<10 Then Digits=2 Else Digits=3

(95)>19 (96)Large Small (97)French (98)Speedy

本文来源：https://www.bwwdw.com/article/vhaa.html