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)本地窗口