1、模块(二)及答案解析(总分：110.00，做题时间：90 分钟)一、选择题(总题数：47，分数：47.00)1.单击窗体上 Command1命令按钮时，执行如下事件过程Private Sub Command1_Click( )a$=“software and hardware“b$=Right(a$，8)c$=Mid(a$，1，8)MsgBox a$，b$，c$，1End Sub则在弹出的信息框的标题栏中显示的信息是（分数：1.00）A.software and hardwareB.softwareC.hardwareD.12.给定 13期 DD，可以计算该日当前月最大天数的正确表达式是（分数
2、：1.00）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)，Month(D)+1，0)3.表达式(“周“刘“)返回的值是（分数：1.00）A.FalseB.TrueC.-1D.14.以下内容中不属于 VBA提供的数据验证函数是（分数：1.00）A.IsTextB.IsDateC.IsNumericD.IsNull5.连接式“2+3“&“=“&(2+3)的运算结果为（分数：1.00）A.“2+3=2+3“B.“2+3=5“C.
3、“5=5“D.“5=2+3“6.VBA中用实际参数 a和 b调用有参函数过程 Area(m，n)的正确形式是（分数：1.00）A.Area m，nB.Area a，bC.Call Area(m，n)D.Call Area a，b7.VBA表达式 DateSerial(2004-1，8-2，0)返回的值是（分数：1.00）A.2004-5-31B.2004.5.31C.2003.5.31D.2003-6-18.以下关于过程和过程参数的描述中，错误的是（分数：1.00）A.过程的参数可以是控件名称B.用数组作为过程的参数时，使用的是“传址”方式C.只有函数过程能够将过程中处理的信息传回到调用的程序
4、中D.窗体可以作为过程的参数9.在日期/时间数据类型中，每个字段需要几个字节的存储空间（分数：1.00）A.4B.8C.12D.1610.如图 8-2所示的为 VBE界面的“代码”窗口，其中圈出的部分为（分数：1.00）A.B.C.D.11.VBA中定义符号常量可以用关键字（分数：1.00）A.ConstB.DimC.PublicD.Static12.下面程序段执行的结果是Dim i As Integer，S As IntegerS=0For i=1 to 10 step 1S=S+iNext i（分数：1.00）A.S=0B.S=10C.死循环D.S=5513.VBA的逻辑值进行算术运算时，
5、True 值被当做（分数：1.00）A.0B.-1C.1D.任意值14.VBA中定义局部变量可以用关键字（分数：1.00）A.ConstB.DimC.PublicD.Staffc15.下面表达式为假的是（分数：1.00）A.(43)B.(4 Or(32)=1)C.(4 And(32)=1)D.(Not(3=4)16.设有如下的记录类型Type studentNumber As StringName As StringAge As IntegerEnd Type则正确引用该记录类型变量的代码是（分数：1.00）A.Student.name=“张红“B.Dim s As Student s.nam
6、e=“张红“C.Dim S As Type Student s.name=“张红“D.Dim s As Type s.name=“张红“17.已定义好有参函数 f(m)，其中形参 m是整型变量。下面调用该函数，传递实参为 5，将返回的函数值赋值给变量 t。以下正确的是（分数：1.00）A.t=f(m)B.t=Call f(m)C.t=f(5)D.t=Call f(5)18.ADO对象模型中可以打开 RecordSet对象的是（分数：1.00）A.只能是 Connection对象B.只能是 Command对象C.可以是 Connection对象和 Command对象D.不存在19.能够实现从指定
7、记录集里检索特定字段值的函数是（分数：1.00）A.NzB.DSumC.DLookupD.Rnd20.VBA中不能进行错误处理的语句结构是（分数：1.00）A.On Error Then标号B.On Error GoTo标号C.On Error Resume NextD.On Error GoTo21.函数 Right(Left(Mid(“Access DataBase“，10，3)，2)，1)返回的值是（分数：1.00）A.tB.空格C.aD.B22.VBA表达式 If(0，20，30)的值为（分数：1.00）A.20B.30C.25D.1023.属于 Access系统内部常量的是（分数：1
8、.00）A.0B.1C.NotD.On24.下面过程运行之后，则变量 J的值为Private Sub Fun( )Dim J As IntegerJ=2DoJ=J*3Loop While J15End Sub（分数：1.00）A.2B.6C.15D.1825.在有参函数设计时，要想实现某个参数的“双向”传递，就应当说明该形参为“传址”调用形式。其设置选项是（分数：1.00）A.ByValB.ByRefC.OptionalD.ParamArray26.如图 8-3所示的为 VBE界面的“代码”窗口，其中圈出的部分为（分数：1.00）A.B.C.D.27.表达式(-12.7 Mod -5)返回的值
9、是（分数：1.00）A.-1B.-2C.-3D.-428. （分数：1.00）A.B.C.D.29.以下消除字符串尾部回车换行的函数过程Public Function TrimCrLf(ByVal InString As String)As StringDo While(_)InString=Left(InString，Len(InString)-1)LoopTrimCrLf=InStringEnd Function过程中的空白处应为（分数：1.00）A.While Right(InString，1)=Chr(13)B.While Right(InString，1)=Chr(10)C.Whil
10、e Right(InString，1)=Chr(13) Or Right(InString，1)=Chr(10)D.While Right(InString，1)=Chr(13) And Right(InString，1)=Chr(10)30.将数学表达式 （分数：1.00）A.B.C.D.31.下面 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 Sub（分数：1.0
11、0）A.5B.7C.9D.1032.VBA数据类型符号“&”表示的数据类型是（分数：1.00）A.整数B.长整数C.单精度数D.双精度数33.VBA“定时”操作中，需要创建窗体的“计时器间隔(TiemrInterval)”属性值。其计量单位是（分数：1.00）A.微秒B.毫秒C.秒D.分钟34.在 VBA代码调试过程中，能够显示出所有在当前过程中变量声明及变量信息的是（分数：1.00）A.快速监视窗口B.监视窗口C.立即窗口D.本地窗口35.函数 String(n，字符串)的功能是（分数：1.00）A.把数值型数据转换为字符串B.返回由 n个字符组成的字符串C.从字符串中取出 n个字符D.从字
12、符串中第 n个字符的位置开始取子字符串36.下面过程运行之后，则变量 J的值为Private Sub Fun( )Dim JAs IntegerJ=5DoJ=J+2Loop While J10End Sub（分数：1.00）A.5B.7C.9D.1137.窗体模块属于（分数：1.00）A.标准模块B.类模块C.全局模块D.局部模块38.表达式(10.25)返回的值是（分数：1.00）A.0B.1C.2D.2.0439.函数 Len(Tim(“ABC“ & Space(1)& “计算机“)返回的值为（分数：1.00）A.6B.7C.9D.1040.下面的程序段运行后，变量 S的值变为“65666
13、768”，则程序中“表达式”为i=1Do While(表达式)S=S&ASC(Chr$(i+64)i=i+1Loop（分数：1.00）A.i5B.Not(i5)C.i5D.i=541.从字符串 A=“123456“中返回子串 B=“34“的正确表达式为（分数：1.00）A.B=Mid(A，3，2)B.B=Right(Left(A，4)，2)C.B=Left(Right(A，4)，2)D.)，)和)42.执行如下语句：a=InputBox(“1“，“2“，“3“，“4“，5)将显示一个输入的对话框，在对话框的输入区中显示的信息是（分数：1.00）A.1B.2C.3D.443.DAO模型层次中处在
14、最顶层的对象的是（分数：1.00）A.DBEngineB.WorkspaceC.DatabaseD.RecordSet44.下列算式正确的是（分数：1.00）A.Fix(2.8)=3B.Fix(-2.8)=-3C.Fix(-2.8)=-2D.以上都正确45.函数 Intstr(“67“，“1234567“)返回的值是（分数：1.00）A.“67”B.“1234567”C.5D.646.定义了二维数组 A(2 t0 5，5)，则该数组的元素个数为（分数：1.00）A.25B.36C.20D.2447.如图 8-1所示的为 VBE界面的“代码”窗口，其中圈出的部分为（分数：1.00）A.B.C.D
15、.二、填空题(总题数：62，分数：63.00)48.VBA的全称是 1。（分数：1.00）填空项 1:_49.模块包含了一个声明区域和一个或多个子过程或函数过程(以 1 开头)。（分数：1.00）填空项 1:_50.窗体模块和报表模块都属于 1。（分数：1.00）填空项 1:_51.说明变量最常用的方法，是使用 1 结构。（分数：1.00）填空项 1:_52.VBA中变量作用域分为 3个层次，这 3个层次是局部变量、模块变量和 1。（分数：1.00）填空项 1:_53.VBA的三种流程控制结构是顺序结构、选择结构和 1。（分数：1.00）填空项 1:_54.VBA中使用的三种选择函数是 1，S
16、witch 和 Choose。（分数：1.00）填空项 1:_55.VBA提供了多个用于数据验证的函数。其中 IsDate函数用于合法日期验证； 1 函数用于判定输入数据是否为数值。（分数：1.00）填空项 1:_56.VBA的有参过程定义，形参用 ByRef说明，表明该形参为 1。（分数：1.00）填空项 1:_57.VBA的错误处理主要使用 1 语句结构。（分数：1.00）填空项 1:_58.On Error Goto 0语句的含义是 1。（分数：1.00）填空项 1:_59.VBE编辑环境调试工具中，立即窗口的功能是 1。（分数：1.00）填空项 1:_60.VBA语言中，函数 Inpu
17、tBox的功能是 1。（分数：1.00）填空项 1:_61.VBA语言中， 1 函数的功能是显示消息信息。（分数：1.00）填空项 1:_62.VBA的“定时”操作功能是通过窗体的 1 事件过程完成的。（分数：1.00）填空项 1:_63.VBA中打开窗体的命令语句是 1。（分数：1.00）填空项 1:_64.断点的功能是 1。（分数：1.00）填空项 1:_65.VBA的逻辑值在表达式当中进行算术运算时，True 值被当作 1、False 值被当作 0来处理。（分数：1.00）填空项 1:_66.Access的窗体或报表事件可以有两种方法来响应；宏对象和 1。（分数：1.00）填空项 1:_
18、67.VBA编辑中，要得到15，75上的随机整数可以用表达式 1。（分数：1.00）填空项 1:_68.VBA中主要提供了 3种数据库访问接口：ODBC API，DAO 和 1。（分数：1.00）填空项 1:_69.用 VBA编程操作本地数据库时，提供一种 DAO数据库打开的快捷方式是 CurrentDB( )，而相应也提供一种 ADO的默认连接对象是_。（分数：1.00）填空项 1:_70.DAO模型中，主要的控制对象有：DBEngine，Workspace，Database，RecordSet， 1，QueryDef 和Error。（分数：1.00）填空项 1:_71.ADO对象模型主要有
19、：Connection，Command， 1，Field 和 Error 5个对象。（分数：1.00）填空项 1:_72.Nz函数主要用于处理 1 值时的情况。（分数：1.00）填空项 1:_73.标准模块中的公共变量和公共过程具有 1 性。（分数：1.00）填空项 1:_74.模块是装着 1 的容器。（分数：1.00）填空项 1:_75.VBA语法与 1 编程语言互相兼容。（分数：1.00）填空项 1:_76.VBE的全称是 1。（分数：1.00）填空项 1:_77.VBE的代码窗口顶部包含两个组合框，左侧为对象列表，右侧为 1。（分数：1.00）填空项 1:_78.VBA中，在模块的声明中
20、，可以使用 1 语句将数组的默认下标定为 1。（分数：1.00）填空项 1:_79.以下程序段的功能是：创建一个字符串，其内容为由 0到 9的十个数字所组成的字符串，每个字符串之间用空格隔开。外层循环使用一个变量当做循环计数器，每循环一次，变量值减一。请将下列程序补充完整。Dim Words，Chars，MyStringFlor Words=10 T0 1 Step -1ForChars=0 To 9MyString=_Next CharsMyString=_Next Words（分数：2.00）填空项 1:_80.MyStr=“Hello“ & “Word“的返回值为 1。（分数：1.00）
21、填空项 1:_81.已知如下程序段：Dim MyNumberMyNumber=2+2执行以上程序段后，MyNumber 为_。（分数：1.00）填空项 1:_82.已知如下程序段：Dira MvNumber，Var1，Var2Var1=“34“:Var2=6MyNumber=Var1+Var2执行以上程序段后，MyNumber 为_。（分数：1.00）填空项 1:_83.已知如下程序段：Dim MyNumber，Var1，Vat2Var1=“34“:Vat2=“6“MyNumber=Var1+Vat2执行以上程序段后，MyNumber 为_。（分数：1.00）填空项 1:_84.已知如下程序段
22、：Dim A，B，C，MyCheckA=10:B=8:C=6MyCheck=BA And BC执行以上程序段后，MyCheck 为_。（分数：1.00）填空项 1:_85.已知如下程序段：Dim A，B，MyCheckA=10:B=8MyCheck=A And B执行以上程序段后，MyCheck 为_。（分数：1.00）填空项 1:_86.已知如下程序段：Dim MyNumberMyNumber=Abs(-50.3)执行以上程序段后，MyNumber 为_。（分数：1.00）填空项 1:_87.已知如下程序段：Dim MyNumberMyNumber=Int(99.8)执行以上程序段后，MyN
23、umber 为_。（分数：1.00）填空项 1:_88.已知如下程序段：Dim MyNumberMyNumber=Fix(99.2)执行以上程序段后，MyNumber 为_。（分数：1.00）填空项 1:_89.已知如下程序段：Dim MyNumberMyNumber=Int(-99.8)执行以上程序段后，MyNumber 为_。（分数：1.00）填空项 1:_90.已知如下程序段：Dim MyNumberMyNumber=Fix(-99.8)执行以上程序段后，MyNumber 为_。（分数：1.00）填空项 1:_91.已知如下程序段：Dim SearchString，SearchChar，
24、MyPosSearchString=“XXpXXpXXPXXP“SearchChar=“P“MyPos=Instr(4，SearchString，SearchChar，1)执行以上程序段后，MyPos 为_。（分数：1.00）填空项 1:_92.已知如下程序段：Dim SearchString，SearchChar，MyPosSearchString=“XXpXXpXXPXXP“SearchChar=“P“MyPos=Instr(SearchString，SearchChar)执行以上程序段后，MyPos 为_。（分数：1.00）填空项 1:_93.已知如下程序段：Type CustomerR
25、ecordID As IntegerName As String * 10Address As String * 30End TypeDim Customer As CustomerRecordDim MyLenMyLen=Len(Customer)执行以上程序段后，MyLen 为_。（分数：1.00）填空项 1:_94.已知如下程序段：Dim MyInt As IntegerDim MyLenMyLen=Len(MyInt)执行以上程序段后，MyLen 为_。（分数：1.00）填空项 1:_95.已知如下程序段：Dim AnyString，MyStrAnyString=“Hello Worl
26、d“MyStr=Left(AnyString，7)执行以上程序段后，MyStr 为_。（分数：1.00）填空项 1:_96.已知如下程序段：Dim AnyString，MyStrAnyString=“Hello World“MyStr=Right(AnyStfing，1)执行以上程序段后，MyStr 为_。（分数：1.00）填空项 1:_97.已知如下程序段：Dim AnyString，MyStrAnyString=“Hello World“MyStr=Right(AnyString，20)执行以上程序段后，MyStr 为_。（分数：1.00）填空项 1:_98.已知如下程序段：Dim MyS
27、tring，LastWordMyString=“Mid Function Demo“LastWord=Mid(MyString，14，4)执行以上程序段后，LastWord 为_。（分数：1.00）填空项 1:_99.已知如下程序段：Dim LowerCase，UpperCaseLowerCase=“Hello World 1234“UpperCase=UCase(LowerCase)执行以上程序段后，Uppercase 为_。（分数：1.00）填空项 1:_100.已知如下程序段：Dim MyString，TrimStringMyString=“-Trim-“TrimString=LTrim
28、(MyString)执行以上程序段后，TrimString=_。（分数：1.00）填空项 1:_101.已知如下程序段：Dim MyString，TrimStringMyString=“-Trim-“TrimString=LTrim(RTrim(MyString)执行以上程序段后，TrimString=_。（分数：1.00）填空项 1:_102.已知如下程序段：Dim MyCharMyChar=Chr(97)执行以上程序段后，MyChar=_。（分数：1.00）填空项 1:_103.已知如下程序段：Dim MyCharMyChar=Chr(37)执行以上程序段后，MyChar=_。（分数：1.
29、00）填空项 1:_104.已知如下程序段：Dim MyValueMyValue=Val(“24 and 57“)执行以上程序段后，MyValue=_。（分数：1.00）填空项 1:_105.如下程序的功能为：使用 GoTo语句在一个过程内的不同程序段间作流程控制，在此程序中不执行的语句是_。Sub GotoStatementDemo( )Dim Number，MyStringNumber=1If Number=1 Then GoTo Linel Else GoTo Line2Linel：MyString=“Number equals 1“GoTo LastLineLine2：MyString
30、=“Number equals 2“LastLine：Debug.Print MyString将“Number equals 1“显示在”立即”窗口。End Sub（分数：1.00）填空项 1:_106.有如下程序段：Dim Number，Digits，MyStringNumber=53IfNumber10 ThenDigits=2ElseDigits=3End If将该程序段中的 If语句用单行格式应该写成_。（分数：1.00）填空项 1:_107.如下程序的功能为：使用 WhileWend语句来增加计数变量的值。如果条件判断值为 True，则循环内的语句将一直执行下去。当 Counter_
31、时循环中止。Dim CounterCounter=0While Counter20Counter=Counter+1Wend（分数：1.00）填空项 1:_108.有如下程序：Function MatchUp(CityName As String)Matchup=Switch(CityName=“London“，“English“，CityName_=“Rome“，“Italian“，CityName=“Paris“，“French“)End Function如果 CityName赋值为“Paris“则 MatchUp=_。（分数：1.00）填空项 1:_109.有如下程序：Function
32、GetChoice(Ind As Integer)GetChoice=Choose(Ind，“Speedy“，“United“，“Federal“)End Function如果 Ind赋值为 1，程序执行后 GetChoice=_。（分数：1.00）填空项 1:_模块(二)答案解析(总分：110.00，做题时间：90 分钟)一、选择题(总题数：47，分数：47.00)1.单击窗体上 Command1命令按钮时，执行如下事件过程Private Sub Command1_Click( )a$=“software and hardware“b$=Right(a$，8)c$=Mid(a$，1，8)Ms
33、gBox a$，b$，c$，1End Sub则在弹出的信息框的标题栏中显示的信息是（分数：1.00）A.software and hardwareB.softwareC.hardware D.1解析：2.给定 13期 DD，可以计算该日当前月最大天数的正确表达式是（分数：1.00）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)，Month(D)+1，0) 解析：3.表达式(“周“刘“)返回的值是（分数：1.00）A.Fals
34、e B.TrueC.-1D.1解析：4.以下内容中不属于 VBA提供的数据验证函数是（分数：1.00）A.IsText B.IsDateC.IsNumericD.IsNull解析：5.连接式“2+3“&“=“&(2+3)的运算结果为（分数：1.00）A.“2+3=2+3“B.“2+3=5“ C.“5=5“D.“5=2+3“解析：6.VBA中用实际参数 a和 b调用有参函数过程 Area(m，n)的正确形式是（分数：1.00）A.Area m，nB.Area a，b C.Call Area(m，n)D.Call Area a，b解析：7.VBA表达式 DateSerial(2004-1，8-2，
35、0)返回的值是（分数：1.00）A.2004-5-31B.2004.5.31C.2003.5.31 D.2003-6-1解析：8.以下关于过程和过程参数的描述中，错误的是（分数：1.00）A.过程的参数可以是控件名称B.用数组作为过程的参数时，使用的是“传址”方式C.只有函数过程能够将过程中处理的信息传回到调用的程序中 D.窗体可以作为过程的参数解析：9.在日期/时间数据类型中，每个字段需要几个字节的存储空间（分数：1.00）A.4B.8 C.12D.16解析：10.如图 8-2所示的为 VBE界面的“代码”窗口，其中圈出的部分为（分数：1.00）A.B. C.D.解析：11.VBA中定义符号
36、常量可以用关键字（分数：1.00）A.Const B.DimC.PublicD.Static解析：12.下面程序段执行的结果是Dim i As Integer，S As IntegerS=0For i=1 to 10 step 1S=S+iNext i（分数：1.00）A.S=0B.S=10C.死循环D.S=55 解析：13.VBA的逻辑值进行算术运算时，True 值被当做（分数：1.00）A.0B.-1C.1 D.任意值解析：14.VBA中定义局部变量可以用关键字（分数：1.00）A.ConstB.Dim C.PublicD.Staffc解析：15.下面表达式为假的是（分数：1.00）A.(
37、43)B.(4 Or(32)=1)C.(4 And(32)=1) D.(Not(3=4)解析：16.设有如下的记录类型Type studentNumber As StringName As StringAge As IntegerEnd Type则正确引用该记录类型变量的代码是（分数：1.00）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=“张红“解析：17.已定义好有参函数 f(m)，其中形参 m是整型变量。下面调用该函数，
38、传递实参为 5，将返回的函数值赋值给变量 t。以下正确的是（分数：1.00）A.t=f(m)B.t=Call f(m)C.t=f(5) D.t=Call f(5)解析：18.ADO对象模型中可以打开 RecordSet对象的是（分数：1.00）A.只能是 Connection对象B.只能是 Command对象C.可以是 Connection对象和 Command对象 D.不存在解析：19.能够实现从指定记录集里检索特定字段值的函数是（分数：1.00）A.NzB.DSumC.DLookup D.Rnd解析：20.VBA中不能进行错误处理的语句结构是（分数：1.00）A.On Error Then
39、标号 B.On Error GoTo标号C.On Error Resume NextD.On Error GoTo解析：21.函数 Right(Left(Mid(“Access DataBase“，10，3)，2)，1)返回的值是（分数：1.00）A.tB.空格C.a D.B解析：22.VBA表达式 If(0，20，30)的值为（分数：1.00）A.20B.30 C.25D.10解析：23.属于 Access系统内部常量的是（分数：1.00）A.0B.1C.NotD.On 解析：24.下面过程运行之后，则变量 J的值为Private Sub Fun( )Dim J As IntegerJ=2D
40、oJ=J*3Loop While J15End Sub（分数：1.00）A.2B.6C.15D.18 解析：25.在有参函数设计时，要想实现某个参数的“双向”传递，就应当说明该形参为“传址”调用形式。其设置选项是（分数：1.00）A.ByValB.ByRef C.OptionalD.ParamArray解析：26.如图 8-3所示的为 VBE界面的“代码”窗口，其中圈出的部分为（分数：1.00）A.B.C.D. 解析：27.表达式(-12.7 Mod -5)返回的值是（分数：1.00）A.-1B.-2C.-3 D.-4解析：28. （分数：1.00）A.B. C.D.解析：29.以下消除字符串
41、尾部回车换行的函数过程Public Function TrimCrLf(ByVal InString As String)As StringDo While(_)InString=Left(InString，Len(InString)-1)LoopTrimCrLf=InStringEnd Function过程中的空白处应为（分数：1.00）A.While Right(InString，1)=Chr(13)B.While Right(InString，1)=Chr(10)C.While Right(InString，1)=Chr(13) Or Right(InString，1)=Chr(10)
42、D.While Right(InString，1)=Chr(13) And Right(InString，1)=Chr(10)解析：30.将数学表达式 （分数：1.00）A.B.C. D.解析：31.下面 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 Sub（分数：1.00）A.5B.7C.9 D.10解析：32.VBA数据类型符号“&”表示的数据类型是（分数：1.0
43、0）A.整数B.长整数 C.单精度数D.双精度数解析：33.VBA“定时”操作中，需要创建窗体的“计时器间隔(TiemrInterval)”属性值。其计量单位是（分数：1.00）A.微秒B.毫秒 C.秒D.分钟解析：34.在 VBA代码调试过程中，能够显示出所有在当前过程中变量声明及变量信息的是（分数：1.00）A.快速监视窗口B.监视窗口C.立即窗口 D.本地窗口解析：35.函数 String(n，字符串)的功能是（分数：1.00）A.把数值型数据转换为字符串B.返回由 n个字符组成的字符串 C.从字符串中取出 n个字符D.从字符串中第 n个字符的位置开始取子字符串解析：36.下面过程运行之
44、后，则变量 J的值为Private Sub Fun( )Dim JAs IntegerJ=5DoJ=J+2Loop While J10End Sub（分数：1.00）A.5B.7 C.9D.11解析：37.窗体模块属于（分数：1.00）A.标准模块B.类模块C.全局模块 D.局部模块解析：38.表达式(10.25)返回的值是（分数：1.00）A.0B.1C.2 D.2.04解析：39.函数 Len(Tim(“ABC“ & Space(1)& “计算机“)返回的值为（分数：1.00）A.6B.7 C.9D.10解析：40.下面的程序段运行后，变量 S的值变为“65666768”，则程序中“表达式
45、”为i=1Do While(表达式)S=S&ASC(Chr$(i+64)i=i+1Loop（分数：1.00）A.i5B.Not(i5)C.i5 D.i=5解析：41.从字符串 A=“123456“中返回子串 B=“34“的正确表达式为（分数：1.00）A.B=Mid(A，3，2)B.B=Right(Left(A，4)，2)C.B=Left(Right(A，4)，2)D.)，)和) 解析：42.执行如下语句：a=InputBox(“1“，“2“，“3“，“4“，5)将显示一个输入的对话框，在对话框的输入区中显示的信息是（分数：1.00）A.1B.2C.3 D.4解析：43.DAO模型层次中处在最顶层的对象的是（分数：1.00）A.DBEngine B.WorkspaceC.DatabaseD.RecordSet解析：44.下列算式正确的是（分数：1.00）A.Fix(2.8)=3B.Fix(-2.8)=-3C.Fix(-2.8)=-2 D.以上都正确解析：45.函数 Intstr
