国家二级ACCESS机试选择题（模块与VBA编程基础）模拟试卷2（共233题）

国家二级ACCESS机试选择题（模块与VBA编程基础）模拟试卷2（共7套）（共233题）国家二级ACCESS机试选择题（模块与VBA编程基础）模拟试卷第1套一、选择题(本题共40题，每题1.0分，共40分。)1、用来测试当前读写位置是否达到文件末尾的函数是A、EOFB、FileLenC、LenD、LOF标准答案：A知识点解析：在到达文件末尾之前，EOF函数一直返回False，到达文件末尾时，EOF返回True；FileLen函数返回一个文件的长度，单位为字节；Len返回文本串的字符数；LOF函数返回某文件的字节数。2、下列表达式中，能够保留变量x整数部分并进行四舍五入的是A、Fix(x)B、Rnd(x)C、Round(x)D、Int(x)标准答案：C知识点解析：Fix(x)和Int(x)返回x的整数部分，对于小数部分完全舍弃。Rnd(x)返回一个随机数，Round(x)保留x的整数部分并进行四舍五入。3、VBA程序中，可以实现代码注释功能的是A、方括号([])B、冒号(：)C、双引号(”)D、单引号(’)标准答案：D知识点解析：一个好的程序一般都有注释语句。这对程序的维护有很大的好处。在VBA程序中，注释可以通过以下两种方式实现：使用Rem语句，格式为：Rem注释语句用单引号“’”，格式为：注释语句4、在窗口中有一个标签Label0和一个命令按钮Commandl，Commandl的事件代码如下：PrivateSubCommandl_Click()Labe10．Left=Labe10．Left+100EndSub打开窗口，单击命令按钮，结果是A、标签向左加宽B、标签向右加宽C、标签向左移动D、标签向右移动标准答案：D知识点解析：Left表示的是控件的左边距，所以left+100表示控件向右移动。5、假定有以下循环结构DoUntil条件循环体Loop则正确的叙述是A、如果“条件”值为0，则一次循环体也不执行B、如果“条件”值为0，则至少执行一次循环体C、如果“条件”值不为0，则至少执行一次循环体D、不论“条件”是否为“真”，至少要执行一次循环体标准答案：B知识点解析：本题考查V．BA中DoUntil…Loop循环的知识。对于这种循环结构，首先看条件判断在循环体的前面还是后面，如果是先判断条件，则有可能一次也不执行循环体；如果是后判断条件，则无论条件如何至少执行一次循环体。在Until循环中条件为False时执行循环体，条件为True时退出循环；在While循环中条件为True时执行循环体，条件为False时退出循环，这一点要注意区分清楚。本题中是先判断条件，条件值为0表示条件是False，则至少执行一次循环体。6、假定有以下程序段n=0fori=lto3forj=-4to-1n=n+1nextjnexti运行完毕后，n的值是A、0B、3C、4D、12标准答案：D知识点解析：本题考查VBA中嵌套For循环的知识。这种问题要注意分析清楚每次循环的变化以及循环的次数。在这个循环中，内循环执行4次，外循环执行3次，所以里面的循环体语句n=n+1共执行12次，所以最终n的值为12。7、以下程序段运行结束后，变量X的值为X=2y=4DoX=x*yY=y+lLoopWhiley＜4A、2B、4C、8D、20标准答案：C知识点解析：本题考查VBA中循环的知识。在本题中用了Do…LoopWhile循环，先运行循环体后判断条件，当条件满足时继续循环，条件不满足时退出循环体。在本题中第一次循环结束后y的值为5已经不满足条件，故此本循环只执行一次，x的值为2*4=8。8、在窗体上添加一个命令按钮(名为Commandl)，然后编写如下事件过程：PrivateSubCommandlClick()Fori=1To4X=4Fori=1To3X=3Fork=1To2X=x+6NextkNextjNextiMsgBoxXEndSub打开窗体后，单击命令按钮，消息框的输出结果是A、7B、15C、157D、528标准答案：B知识点解析：本题考查VBA中多重循环的知识。见到多重循环的问题不要害怕，认真地分析清楚每一次循环这种问题就迎刃而解了。比如这个例子，我们看到，在每一次外循环开始的时候都把x的值置为4，所以我们只分析最后一次循环就可以了；同理中层循环每一次开始前都把x置为3，所以这个问题最后实际上就是x的初值为3，执行最内层循环直到结束就可以了。根据程序内循环执行两次，最后x=3+6+6=15。9、在窗体中添加一个名称为Commandl的命令按钮，然后编写如下事件代码：PrivateSubCommandlClick()Dima(10，10)Form=2TO4Forn=4To5a(m，n)=m*nNextnNextmMsgBoxa(2，5)+a(3，4)+a(4，5)EndSub窗体打开运行后，单击命令按钮，则消息框的输出结果是A、22B、32C、42D、52标准答案：C知识点解析：本题考查数组和二重循环的知识。在这个问题中，我们实际上可以分析出，数组元素的值就是该元素的两个下标之积(循环范围内)。所以最后的三个数组元素的和也就是2*5+3*4+4*5=42。10、在窗体中添加一个名称为Commandl的命令按钮，然后编写如下事件代码：PrivateSubCommandlClick()A=75IfA＞60ThenI=1IfA＞70ThenI=2IfA＞80Then1=3IfA＞90Then1=4MsgBoxIEndSub窗体打开运行后，单击命令按钮．则消息框的输出结果是A、1B、2C、3D、4标准答案：B知识点解析：本题考查VBA中选择结构的知识。在本题中用了多个If分支结构，这些结构是顺序的而不是嵌套的，所以会顺序执行判断是否满足条件。首先75大于60。所以i=1，然后再判断75大于70。所以i=2，再接着判断75既不大于80也不大于90，所以最后消息框里输出的i值为2。11、在窗体中添加一个名称为Commandl的命令按钮，然后编写如下事件代码：PrivateSubCommand1Click()S=“ABBACDDCBA”ForI=6T02．Step-2x=Mid(s，I，I)y=Lefl(s，I)z=Right(s，I)z=X&Y&ZNextIMsgBoxZEndSub窗体打开运行后，单击命令按钮，则消息框的输出结果是A、AABAABB、ABBABAC、BABBAD、BBABBA标准答案：D知识点解析：本题考查VBA中循环和取子串函数的知识。在VBA中有三种取子串函数：Left函数用于在字符串左端开始取n个字符；Right函数用于在字符串右端开始取n个字符(注意子串中字符的顺序与母串中相同)；Mid函数可以实现在任何位置取任何长度的子串。在本题中由于循环每次都会为z赋一个新的值Right(s，i)，所以只有最后一次循环中的z值才有意义。最后一次循环时i=2，所以D选项正确。12、在窗体中添加一个名称为Commandl的命令按钮，然后编写如下事件代码：PrivateSubCommandlClick()a=75Ifa＞60Thenk=1Elselfa＞70Thenk=2Elselfa＞80Thenk=3Elselfa＞90Thenk=4EndlfMsgBoxkEndSub窗体打开运行后，单击命令按钮，则消息框的输出结果是A、1B、2C、3D、4标准答案：A知识点解析：本题考查多分支选择的知识。这个问题比较简单，只要知道这是一个多分支选择结构，当执行某分支后就会退出分支执行分支下面的语句就可以做对。本题中第一一个分支条件就得到满足，所以执行k=1后退出分支结构，最终结果k=1。13、设有如下窗体单击事件过程：PrivateSubFormClick()a=lFori=1To3SelectCaseiCase1．3a=a+1Case2，4a=a+2EndSelectNextiMsgBoxaEndSub打开窗体运行后，单击窗体，则消息框的输出的结果是A、3B、4C、5D、6标准答案：C知识点解析：本题考查VBA程序设计中的多分支选择和循环的知识。在本题的程序中，共循环三次，第一次i的值为1，故此执行Case语句中的a=a+1；第二次i的值为2，故此执行Case语句中的a=a+2；第一次i的值为3，故此执行Case语句中的a=a+1。所以最后a的值为1+1+2+1=5。14、设有如下程序：PrivateSubCommandl_Click()DimsumAsDouble，xAsDoubleSum=0n=0Fori=1To5x=n／in=n+lsum=sum十xNextIEndSub该程序通过For循环来计算一个表达式的值，这个表达式是A、1+1／2+2／3+3／4+4／5B、1+1／2+1／3+l／4+1／5C、1／2+2／3+3／4+4／5D、1／2+1／3+1／4+1／5标准答案：C知识点解析：本题考查VBA中循环结构的知识。这类问题需要分析出每一次循环所做的操作。第一次循环时，i=1，n=0，x=0／1，所以累加上去的是0／1；第二次循环时，i=2，n=1，x=1／2，所以累加上去的是1／2；第三次循环时，i=3，n=2，x=2／3，所以累加上去的是2／3；循环5次后累加的应该是0／1+1／2+2／3+3／4+4／5。15、下列Case语句中错误的是A、Case0To10B、CaseIs＞10C、CaseIs＞10AndIs＜50D、Case3,5Is＞10标准答案：C知识点解析：本题考查SelectCase语句的知识。Case语句的后面可以包含一个值、一组枚举值、一个值的范围以及比较运算符。但是当Case语句使用Is关键字的时候就不能再加入逻辑运算符如And等。16、下列不是分支结构的语句是A、If…Then…EndIFB、While…WendC、If…Thell…Else…EndlfD、Select…Case…EndSelect标准答案：B知识点解析：本题考查控制结构的知识。选项A是一个单分支选择结构；选项C是一个双分支选择结构；选项D是一个多分支选择结构；选项B是一个循环结构。17、在窗体中使用一个文本框(名为n)接受输入的值，有一个命令按钮run，事件代码如下：PrivateSubrunClick()result=“”Fori=lToMe!nForj=lToMe!nresult=result+“*”Nextjresult=result+Chr(13)+Chr(10)NextiMesgBoxresultEndSub打开窗体后，如果通过文本框输入的的值为4，单击命令按钮后输出的图型是A、

B、

C、

D、

标准答案：A知识点解析：本题考查二重循环的知识。在这个二重循环中，外循环的执行次数为4，内循环的执行次数也为4，并且每次内循环退出后都要换行，所以最后结果为一个4*4的矩阵，矩阵的每个元素都为“*”。18、VBA程序流程控制的方式是A、顺序控制和分支控制B、顺序控制和循环控制C、循环控制和分支控制D、顺序、分支和循环控制标准答案：D知识点解析：本题考查结构化程序设计的知识。VBA是一种结构化的程序设计方式，结构化的程序设计方式要求程序只能由顺序、分支和循环三种基本控制结构组成。19、下列四种形式的循环设计中，循环次数最少的是A、a=5：b=8DoA=a+1LoopWhilea＜bB、a=5：b=8Doa=a+lLoopUntila＜bC、a=5：b=8DoUntila＜bb=b+lLoopD、a=5：b=8DoUntila＞ba=a+1Loop标准答案：C知识点解析：本题考查VBA中循环的知识。对于这种循环结构，首先看条件判断在循环体的前面还是后面，如果是先判断条件，则有可能一次也不执行循环体；如果是后判断条件，则无论条件如何至少执行一次循环体。在IJntil循环中条件为False时执行循环体，条件为True时退出循环；在While循环中条件为True时执行循环体，条件为False时退出循环，这一点要注意区分清楚。本题中的A循环执行4次，B循环执行1次，C循环一次也不执行，D循环执行4次。20、在窗体中有一个命令按钮run35，对应的事件代码如下：PrivateSubrun35Enter()DimnumAsIntegerDimaAsIntegerDimbAsIntegerDimiAsIntegerFori=lTo10num=InputBox(“请输入数据：”，“输入”，1)IfInt(num／2)=num／2Thena=a+lElseB-b+1EndIfNextiMsgBox(“运行结果：a=”＆Str(a)&：“，b=”＆Str(b))EndSub运行以上事件所完成的功能是A、对输入的10个数据求累加和B、对输入的10个数据求各自的余数，然后再进行累加C、对输入的10个数据分别统计有几个是整数，有几个是非整数D、对输入的10个数据分别统计有几个是奇数，有几个是偶数标准答案：D知识点解析：本题考查程序设计的知识。本题的重点在于判断Int(num／2)=num／2是什么样的条件。对于任意一个整数来说，若其除2后为整数，也就是Int(num／2)=num／2成立，说明该数是一个偶数；反之若其除2后不为整数，此时Int(num／2)必然不等于num／2，也就是一个整数不可能等于一个小数，说明该数是一个奇数。所以本题的功能是对输入的数据分别统计奇偶数的个数。21、在VBA中，错误的循环结构是A、DoWhile条件式循环体LoopB、DoUntil条件式循环体LoopC、DoUntil循环体Loop条件式D、Do循环体LoopWhile条件式标准答案：C知识点解析：“条件式”放在While或Until后面。22、在窗体中有一个命令按钮(名称为run34)，对应的事件代码如下：PfivteSubrun34_Click()sum=0Fori=10To1Step-2sum=sum+iNextiMsgBoxsumEndSub运行以上事件，程序的输出结果是A、10B、30C、55D、其他结果标准答案：B知识点解析：i=10，每循环一次递减2。第一次循环结果：i=10，sum=sum+i=0+10=10第二次循环结果：i=8，sum=sum+i=10+8=18第三次循环结果：i=6，sum=sum+i=18+6=24第四次循环结果：i=4，sum=sum+i=24+4=28第五次循环结果：i=2，sum=sum+i=28+2=3023、在窗体中有一个名称为run35的命令按钮，单击该按钮从键盘接收学生成绩，如果输入的成绩不在0到100分之间，则要求重新输入；如果输入的成绩正确，则进入后续程序处理。run35命令按钮的Click的事件代码如下：PfivteSubrun35_Click()DimflagAsBoolcanresult=0flag=TrueDoWhileflagresult=Val(InputBox(“请输入学生成绩:”输入”))Ifresult＞=0Andresult＜=100Then_____________ElseMsgBox“成绩输入错误，请重新输入”EndIfLoopRem成绩输入正确后的程序代码略EndSub程序中有一空白处，需要填入一条语句使程序完成其功能。下列选项中错误的语句是A、flag=FalseB、nag=NotflagC、flag=TrueD、ExitDo标准答案：C知识点解析：根据题目要求，当输入正确的成绩后，进入后续的程序处理，Flag初始为True，进入dowhile循环，循环条件为Flag。当输入错误的成绩时，提示信息并不改变Flag标记，即还为True，继续进行循环；当输入正确成绩时，应将Flag标记为False，这样才可以跳出循环，继续后续的程序处理，否则将一直停留在循环这里。24、下列四个选项中，不是VBA的条件函数的是A、ChooseB、IfC、IIfD、Switch标准答案：B知识点解析：本题考查条件函数的知识。VBA中的条件函数共有3个：IIF函数根据表达式的真假值返回两个表达式之一；Switch函数对表达式列表求值，并返回一个Variant类型的值或与列表中第一个为True的表达式相关联的表达式；Choose函数从参数列表中选择值并返回。25、设有如下过程：x=lDox=x+2LoopUntil_______________运行程序，要求循环体执行3次后结束循环，空白处应填入的语句是A、x＜=7B、x＜7C、x＞=7D、x＞7标准答案：C知识点解析：本题考查循环的基础知识。本题目要求循环3次，当第3次循环结束时x的值为7，而Until型循环的特点是当条件表达式为真的时候结束循环，故此条件应该是x＞=7。26、在窗体中添加一个名称为Commandl的命令按钮，然后编写如下事件代码：PrivateSubCommandl_Click()MsgBoxf(24，18)EndSubPublicFunctionf(mAsInteger，nAsInteger)AsIntegerDoWhilem＜＞nDoWhilem＞nm=m-nLoopDoWhilem＜nn=n-mLoopLoopf=mEndFunction窗体打开运行后，单击命令按钮，则消息框的输出结果是A、2B、4C、6D、8标准答案：C知识点解析：本题考查VBA程序设计的知识。当调用函数时，形参m=24，n=18；然后进入循环，由于m＞n，所以执行m=m-n，m的值变为6；第2次循环时由于m＜n，所以执行n=n—m，n的值变为12；第3次循环时由于m＜n，所以执行n=n—m，n的值变为6，此时结束循环返回6。27、在窗体中有一个文本框Textl，编写事件代码如下：PfivateSubForm_Click()X=val(Inputbox(“输入X的值”))Y=1lfX＜＞0ThenY=2TextlValue=YEndSub打开窗体运行后，在输入框中输入整数12，文本框Textl中输出的结果是A、1B、2C、3D、4标准答案：B知识点解析：根据题意，可知首先将输入的数值赋给X，Y初始值为1，接着判断X是否不为0(即输入的值是否不为0)，如果不为0，则Y的值为2，并且将Y的值赋给文本框Textl。由于题意中输入的是12，不为0，此时Y的值为2，所以文本框中输出的结果为2。28、在窗体中有一个命令按钮Commandl和一个文本框Textl，编写事件代码如下：PrivateSubCommandl_Click()ForI=1To4x=3Forj=1To3Fork=1T02x=x+3NextkNextjNextITextl．value=Str(x)EndSub打开窗体运行后，单击命令按钮，文本框Textl输出的结果是A、6B、12C、18D、2l标准答案：D知识点解析：各层循环过程及结果如下表所示：运行结束后，X的最终值为2l。29、在窗体中有一个命令按钮Commandl，编写事件代码如下：PrivateSubCommandI_Click()DimSAsIntegerS=P(1)+P(2)+P(3)+P(4)debug．PrintSEndSubPublicFunctionP(NASInteger)DimSumAsIntegerSum=0Fori=lToNSum=Sum+iNextiP=SumEndFunction打开窗体运行后，单击命令按钮，输出结果是A、15B、20C、25D、35标准答案：B知识点解析：从函数P的代码可知，其功能是计算从1到N的和，在命令按钮的单击事件代码中，可知S为P(1)，P(2)，P(3)，P(4)的和，显然P(1)=1，P(2)=1+2=3，P(3)=1+2+3=6，P(4)=1+2+3+4=10，所以S=l+3+6+10=20。30、由“Fori=lTo9Step-3”决定的循环结构，其循环体将被执行A、0次B、1次C、4次D、5次标准答案：A知识点解析：循环变量I从1到9按递减顺序，由于1一3=-2不满足条件，所以一次也不执行。31、在窗体上有一个命令按钮Commandl和一个文本框Textl，编写事件代码如下PrivateSubCommandl_Click()Dimi，j,xFori=1To20sep2x=0Forj=iTo20step3x=x+lNextjNextiTextl．Value=Str(x)EndSub打开窗体运行后，单击命令按钮，文本框中显示的结果是A、1B、7C、17D、400标准答案：A知识点解析：外循环每次循环都将x重置为0，所以只看外循环的最后一次即i=20时，此时内循环i=i=20开始以步长为2开始递增，递增一次执行X=X+1=O+l=l后便结束循环，所以最后文本框显示的结果为1。32、在窗体上有一个命令按钮Commandl，编写事件代码如下：PrivateSubCommandl_Click()DimYAsIntegery=0DoY=InPutBox{“Y”)If(yMod10)+Int(y／10)=10ThenDebug．Printy；LoopUntilY=0EndSub打开窗体运行后，单击命令按钮，依次输入10、37、50、55、64、20、28、19、-19、0，立即窗口上输出的结果是A、375564281919B、105020C、1050200D、3755642819标准答案：D知识点解析：立即窗口显示输入的数字。当输入第一个数字10时，(ymod10)+int(y／10)=0+1=1不等于10，不显示；当输入第二个数字37时，(ymod10)+int(y／10)=7+3=10，显示数字37，依次类推，结果为选项D)。33、若变量i的初值为8，则下列循环语句中循环体的执行次数为DoWhilei＜=17i=i+2LoopA、3次B、4次C、5次D、6次标准答案：C知识点解析：DoWhile…Loop循环结构是当条件为假时，重复执行循环体，直至条件表达式为真，结束循环。34、InputBox函数的返回值类型是A、数值B、字符串C、变体D、视输入的数据而定标准答案：B知识点解析：InputBox输入框：在对话框中显示提示，等待使用者输入文字或按一下按钮，再返回包含文本框内容的字符串类型值。35、下列能够交换变量X和Y值的程序段是A、Y=X：X=YB、Z=X：Y=Z：X=YC、Z=X：X=Y：Y=ZD、Z=X：W=Y：Y=Z：X=Y标准答案：C知识点解析：想要交换X与Y的值，需要另一个变量作为中间变量Z，先把X值赋给Z，再把Y值赋给X，最后把z的值赋给Y，交换完毕。36、窗体中有命令按钮commanddl和文本框Textl，事件过程如下：Functionresult(ByValxAsInteger)AsBooleanIfxMod2=0Thenresult=TrueElseresult=FalseEndIfEndFunctionPrivateSubCommandI_Click()x=Val(InputBox(“请输入一个整数”))If_________ThenTextl=str(x、)&“是偶数．”ElseTextl=str(x)&“是奇数．”EndIfEndSub运行程序，单击命令按钮，输入19，在Textl中会显示“19是奇数”。那么在程序的空白处应填写A、result(x)=“偶数”B、result(x)C、result(x)=“奇数”D、NOTresult(x)标准答案：B知识点解析：result函数返回的是布尔值：True或False，xMod2=0表示如果一个数除以2为O代表是偶数，那么返回True值，所以条件判断时只要调用result(x)即可。37、窗体有命令按钮Commandl和文本框Textl，对应的事件代码如下：PrivateSubCommandl—Click()Fori=1To4x=3Forj=1To3Fork=lTo2x=x+3NextkNextiNextiTextl．Value=Str(x)EndSub运行以上事件过程，文本框中的输出是A、6B、12C、18D、21标准答案：D知识点解析：此处嵌套三层循环，最外层循环总是把x值初始化为3，所以只看内两层循环的次数及累加，内两层一共循环3，-2=6次，每次x的值累加3，即共累加6木3：18，再加上初始值x=3+18=21。38、窗体中有命令按钮run34，对应的事件代码如下：PrivateSubrun34_nter()DimnumAsInteger，aAsInteger，bAsInteger，iAsIntegerFori=1To10num=InputBox(“请输入数据：”，“输入”)IfInt(num／2)=num／2Thena=a+lElseb=b+lEndIfNextiMsgBox(“运行结果：a=“&Str(a)&”，b=“&Str(b))EndSub运行以上事件过程，所完成的功能是A、对输入的10个数据求累加和B、对输入的10个数据求各自的余数，然后再进行累加C、对输入的10个数据分别统计奇数和偶数的个数D、对输入的10个数据分别统计整数和非整数的个数标准答案：C知识点解析：因num变量为整型，所以每次输入的数据是整数，int函数是取整函数，如果num为整数，则int(num／2)与num／2相等，否则不等，所以此事件代码完成的功能是统计输入奇数与偶数的个数。39、运行下列程序，输入数据8、9、3、0后，窗体中显示结果是PrivateSubForm_click()DimsumAsInteger，mAsIntegersum=0Dom=InputBox(“输入m”)sum=sum+mLoopUntilm=0MsgBoxsumEndSubA、0B、17C、20D、2l标准答案：C知识点解析：Do…UntilLoop循环结构是当条件为假时，重复执行循环体，直至条件表达式为真，结束循环。当输入8、9、3三个数字条件(m=0)不成立，所以累加，直到输入0后结束，即8+9+3=20。40、运行下列程序段，结果是Form=10to1step0k=k+3NextmA、形成死循环B、循环体不执行即结束循环C、出现语法错误D、循环体执行一次后结束循环标准答案：B知识点解析：FOR是循环语句，当step＞=0时，to前数字要小于后面数字，否则将不执行。本题中to前数字是10大于后面数字1则不执行此循环体，直接跳过。国家二级ACCESS机试选择题（模块与VBA编程基础）模拟试卷第2套一、选择题(本题共30题，每题1.0分，共30分。)1、下列变量名中，合法的是A、4AB、A—1C、ABC一1D、private标准答案：C知识点解析：变量名必须以字母开头，大小写等价，不能包括空格或除下划线“”之外的其他字符，不能使用VBA的关键字，变量名长度小于255个字符。2、下列表达式中，能正确表示条件“x和Y都是奇数”的是A、xMod2=0AndYMod2=0B、xMod2=0OrYMod2=0C、xMod2=1AndYMod2=1D、XMod2=1OrYMod2=1标准答案：C知识点解析：Mod取余函数，奇数。mod2=1偶数mod2=0证明x、y都是奇数，即用AND(与)操作符。3、下列给出的选项中，非法的变量名是A、SumB、Integer2C、RemD、Forml标准答案：C知识点解析：变量名必须以字母开头，大小写等价，不能包括空格或除下划线“”之外的其他字符，不能使用VBA的关键字，变量名长度小于255个字符，本题中选项C)为关键字，不能作为变量名使用。4、表达式“B=INT(A+0．5)”的功能是A、将变量A保留小数点后1位B、将变量A四舍五入取整C、将变量A保留小数点后5位D、舍去变量A的小数部分标准答案：B知识点解析：Int(＜数值表达式＞)函数为取整函数，返回数值表达式的整数部分。参数为负值时，返回小于等于参数值的第一个负数。5、VBA语句“DimNewArray(10)asInteger”的含义是A、定义10个整型数构成的数组NewArrayB、定义11个整型数构成的数组NewArrayC、定义1个值为整型数的变量NewArray(10)D、定义1个值为10的变量NewArray标准答案：B知识点解析：dimnewarray(10)asinteger表示定义了11个整型数构成的数组，数组元素为newarray(0)至newarray(10)。6、将一个数转换成相应字符串的函数是A、StrB、StringC、AscD、Chr标准答案：A知识点解析：各函数的功能如下表所示：而选项C)的Asc只是在SQL语句中实现排序为升序的功能。7、VBA中定义符号常量使用的关键字是A、ConstB、DimC、PublicD、Static标准答案：A知识点解析：在VBA编程过程中，如果在代码中要反复使用相同的值，或者代表一些具有特定意义的数字或字符串，可以用符号常量形式来表示，符号常量使用关键字Const来定义，格式如下：Const符号常量名称：常量值8、可以用InputBox函数产生“输入对话框”。执行语句：st=InputBox(“请输入字符串”，”字符串对话框”,“aaaa”)当用户输入字符串“bbbb”，按OK按钮后，变量st的内容是A、aaaaB、请输入字符串C、字符串对话框D、bbbb标准答案：D知识点解析：输入框用于在一个对话框中显示提示，等待用户输入正文并按下按钮、返回包含文本框内容的字符串数据信息。它的功能在vBA中是以函数的形式调用，其使用格式如下：InputBox(prompt[，title][，default][，xpos][，ypos][，helpfile，context])InputBox有关参数说明如表9-4所示。9、下列不属于VBA函数的是A、ChooseB、IfC、IIfD、Switch标准答案：B知识点解析：IIf()函数，该函数可用于选择操作。调用格式为：IIf(条件表达式，表达式1，表达式2)功能：函数根据“条件表达式”的值来决定返回值。如果“条件表达式”的值为“真”(Tme)，函数返回“表达式1”的值；“条件表达式”的值为“假”(Flase)，函数返回“表达式2”的值。Switch()函数，该函数可用于多条件选择操作。调用格式为：Switch(条件式1，表达式1[，条件式2，表达式2]…[，条件式n，表达式n])功能：函数分别根据“条件式1”、“条件式2”…“条件式n”的值来决定返回值。条件式是由左至右进行计算判断的，函数将返回第一个条件式为True的对应“表达式”的值。Choose()函数，调用格式为：Choose(数值表达式，表达式1[，表达式2]…[，表达式n])功能：函数根据“数值表达式”的值决定返回值。若不考虑变量的小数的定义位数，当“数值表达式”值大于1、小于2时，函数将返回“表达式1”的值；值大于2、小于3，返回“表达式2”的值，依此类推。以上3种函数均为VBA的函数。10、下列关于VBA事件的叙述中，正确的是A、触发相同的事件可以执行不同的事件过程B、每个对象的事件都是不相同的C、事件都是由用户操作触发的D、事件可以由程序定义标准答案：A知识点解析：事件是由系统定义的，事件的过程是由程序员定义的，因此触发相同的事件可以执行不同的事件过程：不同的对象可能有相同的实现，如很多控件都具有“获取焦点”事件。有些事件并不是用户触发的，如Resize事件。事件是由系统定义供程序员使用的，并不能由程序员定义。11、用来测试当前读写位置是否达到文件末尾的函数是A、EOFB、FileLenC、LenD、LOF标准答案：A知识点解析：在到达文件末尾之前，EOF函数一直返回False，到达文件末尾时，EOF返回True；FileLen函数返回一个文件的长度，单位为字节；Len返回文本串的字符数；LOF函数返回某文件的字节数。12、下列表达式中，能够保留变量X整数部分并进行四舍五入的是A、Fix(x)B、Rnd(x)C、Round(x)D、Int(x)标准答案：C知识点解析：Fix(x)和Int(x)返回x的整数部分，对于小数部分完全舍弃。Rnd(x)返回一个随机数，Round(x)保留x的整数部分并进行四舍五入。13、VBA程序中，可以实现代码注释功能的是A、方括号([])B、冒号(：)C、双引号(”)D、单引号(’)标准答案：D知识点解析：一个好的程序一般都有注释语句。这对程序的维护有很大的好处。在VBA程序中，注释可以通过以下两种方式实现：使用Rem语句，格式为：Rem注释语句用单引号“’”，格式为：’注释语句14、在窗口中有一个标签Label0和一个命令按钮Commandl，Commandl的事件代码如下：PrivateSubCommandl_Click()Label0．Left=Labe10．Left+100EndSub打开窗口，单击命令按钮，结果是A、标签向左加宽B、标签向右加宽C、标签向左移动D、标签向右移动标准答案：D知识点解析：Left表示的足控件的左边距，所以left100表示控件向右移动。15、假定有以下循环结构DoUntil条件循环体Loop则正确的叙述是A、如果“条件”值为0，则一次循环体也不执行B、如果“条件”值为0，则至少执行一次循环体C、如果“条件”值不为0，则至少执行一次循环体D、不论“条件”是否为“真”，至少要执行一次循环体标准答案：B知识点解析：本题考查VBA中DoUntil…Loop循环的知识。对于这种循环结构，首先看条件判断在循环体的前面还是后面，如果是先判断条件，则有可能一次也不执行循环体；如果是后判断条件，则无论条件如何至少执行一次循环体。在Until循环中条件为False时执行循环体，条件为True时退出循环；在While循环中条件为True时执行循环体，条件为False时退出循环，这一点要注意区分清楚。本题中是先判断条件，条件值为0表示条什是False，则至少执行一次循环体。16、假定有以下程序段n=0fori=1to3forj=-4to-1n=n+1nextjnexti运行完毕后，n的值是A、0B、3C、4D、12标准答案：D知识点解析：本题考查VBA中嵌套For循环的知识。这种问题要注意分析清楚每次循环的变化以及循环的次数。在这个循环中，内循环执行4次，外循环执行3次，所以里面的循环体语句n=n+1共执行12次，所以最终n的值为12。17、以下程序段运行结束后，变量X的值为X=2Y=4DOX=x*yY=y+1LoopWhiley＜4A、2B、4C、8D、20标准答案：C知识点解析：本题考查VBA中循环的知识。在本题中用了Do…LoopWhile循环，先运行循环体后判断条件，当条件满足时继续循环，条件不满足时退出循环体。在本题中第一次循环结束后y的值为5已经不满足条件，故此本循环只执行一次，x的值为2*4=8。18、在窗体上添加一个命令按钮(名为Commandl)，然后编写如下事件过程：PrivateSubCommandl_Click()Fori=1To4X=4Forj=1To3x=3Fork=1To2X=x+6NextkNextjNextiMsgBoxXEndSub打开窗体后，单击命令按钮，消息框的输出结果是A、7B、15C、157D、528标准答案：B知识点解析：本题考查VBA中多重循环的知识。见到多重循环的问题不要害怕，认真地分析清楚每一次循环这种问题就迎刃而解了。比如这个例子，我们看到，在每一次外循环开始的时候都把x的值置为4，所以我们只分析最后一次循环就可以了：同理中层循环每一次开始前都把x置为3，所以这个问题最后实际上就是x的初值为3，执行最内层循环直到结束就可以了。根据程序内循环执行两次，最后x=3+6+6=15。19、在窗体中添加一个名称为Commandl的命令按钮，然后编写如下事件代码：PrivateSubCommandl_Click()Dima(10，10)Form=2To4Forn=4To5a(m，n)=m*nNextnNextmMsgBoxa(2，5)+a(3，4)+a(4，5)EndSub窗体打开运行后，单击命令按钮，则消息框的输出结果是A、22B、32C、42D、52标准答案：C知识点解析：本题考查数组和二重循环的知识。在这个问题中，我们实际上可以分析出，数组元素的值就是该元素的两个下标之积(循环范围内)。所以最后的三个数组元素的和也就是2*5+3*4+4*5=42。20、在窗体中添加一个名称为Commandl的命令按钮，然后编写如下事件代码：PrivateSubCommandl_Click()A=75IfA＞60ThenI=1IfA＞70ThenI=2IfA＞80ThenI=3IfA＞90ThenI=4MsgBoxIEndSub窗体打开运行后，单击命令按钮，则消息框的输出结果是A、1B、2C、3D、4标准答案：B知识点解析：本题考查VBA中选择结构的知识。在本题中用了多个If分支结构，这些结构是顺序的而不是嵌套的，所以会顺序执行判断是否满足条件。首先75大于60。所以i=1，然后再判断75大于70。所以i=2，再接着判断75既不大于80也不大于90，所以最后消息框里输出的i值为2。21、在窗体中添加一个名称为Commandl的命令按钮，然后编写如下事件代码：PrivateSubCommandl_Click()s=”ABBACDDCBA”ForI=6To2．Step-2x=Mid(s，I，I)Y=Left(s，I)z=Right(s，I)z=X&Y&ZNextIMsgBoxZEndSub窗体打开运行后，单击命令按钮，则消息框的输出结果是A、AABAABB、ABBABAC、BABBAD、BBABBA标准答案：D知识点解析：本题考查VBA中循环和取子串函数的知识。在VBA中有三种取子串函数：Left函数用于在字符串左端开始取n个字符：Right函数用于在字符串右端开始取n个字符(注意子串中字符的顺序与母串中相同)；Mid函数可以实现在任何位置取任何长度的子串。在本题中由于循环每次都会为z赋一个新的值Right(s，i)，所以只有最后一次循环中的z值才有意义。最后一次循环时i=2，所以D选项正确。22、在窗体中添加一个名称为Commandl的命令按钮，然后编写如下事件代码：PrivateSubCommandl_Click()a=75Ifa＞60Thenk=1Elselfa＞70Thenk=2Flselfa＞80Thenk=3Elselfa＞90Thenk=4EndIfMsgBoxkEndSub窗体打开运行后，单击命令按钮，则消息框的输出结果是A、1B、2C、3D、4标准答案：A知识点解析：本题考查多分支选择的知识。这个问题比较简单，只要知道这是～个多分支选择结构，当执行某分支后就会退出分支执行分支下面的语句就可以做对。本题中第一个分支条件就得到满足，所以执行k=1后退出分支结构，最终结果k=1。23、设有如下窗体单击事件过程：PrivateSubForm_Click()a=1Fori=1To3SelectCaseiCase1，3a=a+1Case2，4a=a+2EndSelectNextiMsgBoxaEndSub打开窗体运行后，单击窗体，则消息框的输出的结果是A、3B、4C、5D、6标准答案：C知识点解析：本题考查VBA程序设计中的多分支选择和循环的知识。在本题的程序中，共循环三次，第一次i的值为1，故此执行Case语句中的a=a+1；第二次i’的值为2，故此执行Case语句中的a=a+2；第一次i的值为3，故此执行Case语句中的a=a+1。所以最后a的值为1+1+2+1=5。24、设有如下程序：PrivateSubCommandl_Click()DimsumAsDouble，xAsDoubleSum=0n=0Fori=1To5x=n／in=n+1sum=sum+xNext1EndSub该程序通过For循环来计算一个表达式的值，这个表达式是A、1+1／2+2／3+3／4+4／5B、1+1／2+1／3+1／4+1／5C、1／2+2／3+3／4+4／5D、1／2+1／3+1／4+1／5标准答案：C知识点解析：本题考查VBA中循环结构的知识。这类问题需要分析出每一次循环所做的操作。第一次循环时，i=1，n=0，x=0／1，所以累加上去的是0／1；第二次循环时，i=2，n=1，x=1／2。所以累加上去的是1／2；第三次循环时，i=3，n=2，x=2／3，所以累加上去的是2／3；循环5次后累加的应该是0／1+1／2+2／3+3／4+4／5。25、下列Case语句中错误的是A、Case0To10B、CaseIs＞10C、CaseIs＞10AndIs＜50D、Case3,5Is＞10标准答案：C知识点解析：本题考查SelectCase语句的知识。Case语句的后面可以包含一个值，一组枚举值、一个值的范围以及比较运算符。但是当Case语句使用ls关键字的时候就不能再加入逻辑运算符如And等。26、下列不是分支结构的语句是A、If…Then…EndlFB、While…WendC、If…Then…Else…EndlfD、Select…Case…EndSelect标准答案：B知识点解析：本题考查控制结构的知识。选项A是个单分支选择结构：选项c是一个双分支选择结构;选项D是一个多分支选择结构；选项B是一个循环结构。27、在窗体中使用一个文本框(名为n)接受输入的值，有一个命令按钮run，事件代码如下：PrivateSubrun_Click()result=””Fori=1ToMe!nForj=1ToMe!nresult=-result”*”Nextjresult=result+Chr(13)+Chr(10)NextiMesgBoxresultEndSub打开窗体后，如果通过文本框输入的的值为4，单击命令按钮后输出的图型是A、****************B、****************C、****************************D、****************标准答案：A知识点解析：本题考查二重循环的知识。在这个二重循环中，外循环的执行次数为4，内循环的执行次数也为4，并且每次内循环退出后都要换行，所以最后结果为一个4*4的矩阵，矩阵的每个元素都为”*”。28、VBA程序流程控制的方式是A、顺序控制和分支控制B、顺序控制和循环控制C、循环控制和分支控制D、顺序、分支和循环控制标准答案：D知识点解析：本题考查结构化程序设计的知识。VBA是一种结构化的程序设计方式，结构化的程序设计方式要求程序只能由顺序、分支和循环三种基本控制结构组成。29、下列四种形式的循环设计中，循环次数最少的是A、a=5：b=8DOA=a+1LoopWhilea＜bB、a=5：b=8DOa=a+1LoopUntila＜bC、a=5：b=8DoUntila＜bb=b+1LoopD、a=5：b=8DoUntila＞ba=a+1Loop标准答案：C知识点解析：本题考查VBA中循环的知识。对于这种循环结构，首先看条件判断在循环体的前面还是后面，如果是先判断条件，则有可能一次也不执行循环体；如果是后判断条件，则无论条件如何至少执行一次循环体。在Until循环中条件为False时执行循环体，条件为True时退出循环；在While循环中条件为True时执行循环体，条件为False时退出循环。这一点要注意区分清楚。本题中的A循环执行4次，B循环执行1次，C循环一次也不执行，D循环执行4次。30、在窗体中有一个命令按钮run35，对应的事件代码如下：PrivateSubrun35_Enter()DimnumAsIntegerDimaAsIntegerDimbAsIntegerDimiAsIntegerFori=1To10num=InputBox(”请输入数据：”，”输入”，1)IfInt(num／2)=num／2Thena=a+1ElseB=b+1EndIfNextiMsgBox(”运行结果：a：”＆Str(a)＆：”，b=”＆Str(1)))EndSub运行以上事件所完成的功能是A、对输入的10个数据求累加和B、对输入的10个数据求各自的余数，然后再进行累加C、对输入的10个数据分别统计有几个是整数，有几个是非整数D、对输入的10个数据分别统计有几个是奇数，有几个是偶数标准答案：D知识点解析：本题考查程序设计的知识。本题的重点在于判断Int(num／2)=num／2是什么样的条件。对于任意一个整数来说，若其除2后为整数，也就是Int(num／2)=num／2成立，说明该数是一个偶数：反之若其除2后不为整数，此时Int(num／2)必然不等于hum／2，也就是一个整数不可能等于一个小数，说明该数是一个奇数。所以本题的功能是对输入的数据分别统计奇偶数的个数。国家二级ACCESS机试选择题（模块与VBA编程基础）模拟试卷第3套一、选择题(本题共39题，每题1.0分，共39分。)1、在下列关于宏和模块的叙述中，正确的是A、模块是能够被程序调用的函数B、通过定义宏可以选择或更新数据C、宏或模块都不能是窗体或报表上的事件代码D、宏可以是独立的数据库对象，可以提供独立的操作动作标准答案：D知识点解析：本题考查宏和模块的知识。模块是能够被程序调用的函数，里面不能包含窗体或报表的事件代码；宏是一个或多个操作的序列，可以通过宏选择或更新数据，宏里面也不能包含窗体或报表的事件代码；宏是数据对象的一部分，不能独立存在，只能依存于数据对象来进行操作。2、下列不属于类模块对象基本特征的是A、事件B、属性C、方法D、函数标准答案：D知识点解析：类模块中没有函数的概念。3、使用Function语句定义一个函数过程，其返回值的类型A、只能是符号常量B、是除数组之外的简单数据类型C、可在调用时由运行过程决定D、由函数定义时As子句声明标准答案：D知识点解析：本题考查VBA中函数的知识。VBA中的函数在定义时可以使用As指定函数返回值的类型，这个返回值的类型可以是简单数据类型，也可以是数组。如果在定义时没有指定类型则默认返回值为变体型。4、在Access中，如果要处理具有复杂条件或循环结构的操作，则应该使用的对象是A、窗体B、模块C、宏D、报表标准答案：B知识点解析：本题考查VBA程序设计的知识。模块是能够被程序调用的函数，可以在模块中放置任意复杂的代码段。而窗体只能设计自己的事件，报表也不能设计复杂的代码，宏里面只能设计宏操作。5、在Access中，如果变量定义在模块的过程内部，当过程代码执行时才可见，则这种变量的作用域为A、程序范围B、全局范围C、模块范围D、局部范围标准答案：D知识点解析：B)变量定义在标准模块的所有过程之外的起始位置，运行时在所有类模块和标准模块的所有子过程与函数过程中都可见。C)变量定义在模块的所有过程之外的起始位置，运行时在模块所包含的所有子过程和函数过程中可见。D)变量定义在模块的过程内部，过程代码执行时才可见。6、下列叙述中，正确的是A、Sub过程无返回值，不能定义返回值类型B、Sub过程有返回值，返回值类型只能是符号常量C、Sub过程有返回值，返回值类型可在调用过程时动态决定D、Sub过程有返回值，返回值类型可由定义时的As子句声明标准答案：A知识点解析：Sub过程(又称子过程)以关键词Sub开始，以EndSub结束，其定义语句语法格式为：[Public|Private|Static]Sub子过程名([＜形参＞])[．As数据类型][＜子过程语句＞][ExitSub][＜子过程语句＞]EndSub对于子过程，可以传送参数和使用参数来调用它，但不返回任何值。7、以下可以得到“2*5=10”结果的VBA表达式为A、”2*5”＆”=”＆2*5B、”2*5”+”=”+2*5C、2*5”=”2*5D、2*5+”=”+2*5标准答案：A知识点解析：本题考查VBA中的字符串连接符。VBA中字符串连接符包含“&”和“+”，其中“+”号要求连接的两端必须都是字符串，而“&”则会将两端的非字符串转换为字符串后进行连接。所以正确的表达式为：”2*5”&”=”＆2*5。8、执行语句：MMsBox"AAAA",vbOKCancel+vbQuestion，”BBBB”之后，弹出的信息框外观样式是A、

B、

C、

D、

标准答案：C知识点解析：本题考查VBA对话框函数MsgBox。消息窗MsgBox函数用于显示消息，等待用户单击按钮，并返回一个整型值。基本格式：MsgBox(提示，[按钮风格]，[标题])。显然，本题中的提示是“AAAA”，按钮风格是vbOKCancel+vbQuestion即问号提示，标题是"BBBB"。9、下列逻辑表达式中，能正确表示条件“X和Y都是奇数”的是A、XMod2=1OrYMod2=1B、xMod2=0OrYMod2=0C、xMod2=1AndYMod2=1D、xMod2=0AndYMod2=0标准答案：C知识点解析：本题考查逻辑表达式的知识。判断奇偶数是程序设计中常见的判断，xMod2=1代表x是奇数。如果要表达X、y都是奇数，则应该用And连接两个表达式来表示“与”，故此C选项正确。10、VBA程序的多条语句可以写在一行中，其分隔符必须使用符号A、：B、’C、；D、，标准答案：A知识点解析：本题考查VBA程序设计的基础知识。VBA中，原则上一行只能书写一条语句，语句后面用回车作为结束符。如果有特殊情况需要在一行上书写多条语句时，这些语句之间要用“：”分隔。11、VBA表达式3*3\3／3的输出结果是A、0B、1C、3D、9标准答案：D知识点解析：本题考查VBA中运算符的知识。在VBA中的运算符都具有其优先级，最基本的就是算术运算符>连接运算符>比较运算符>逻辑运算符，在各个种类的运算符中还有不同的优先级，比如在算术运算中乘法和除法的优先级就高于整除运算，所以本题的表达式实际上是(3*3)＼(3／3)，结果为9。12、在窗体中添加一个命令按钮(名称为Commandl)，然后编写如下代码：PrivateSubCommand1_Click()a=0：b=5：c=6MsgBoxa=b+cEndSub窗体打开运行后，如果单击命令按钮，则消息框的输出结果为A、11B、a=11C、0D、False标准答案：D知识点解析：本题考查Msgbox函数的知识。在VBA中的MsgBox函数中，第一个参数是提示信息，第二个参数是按钮和图表的类型，若省略的话要有逗号占位，第三个参数是对话框的标题。其中第一个参数必须为字符串或者数字，不能是逻辑表达式或赋值语句。如果是非法数据，将会在消息框中显示“False”。13、在窗体上添加一个命令按钮(名为Commandl)和一个文本框(名为Textl)，并在命令按钮中编写如下事件代码：PrivateSubCommandl_Click()m=2．17n=Len(Str$(m)+Space(5))Me!Text1=nEndSub打开窗体运行后，单击命令按钮，在文本框中显示A、5B、8C、9D、10标准答案：D知识点解析：本题考查基本字符串函数的知识。在VBA中，Str函数用于将数字转换成字符串，2．17转换成字符串“2．17”，后面再连接上5个空格，然后用Len函数来求长度。最后结果为10。14、有语句：s=Int(100*Rnd)，执行完毕后，s的值是A、[0，99]的随机整数B、[0，100]的随机整数C、[1，99]的随机整数D、[1，100]的随机整数标准答案：A知识点解析：本题考查随机函数的知识。Rnd是一个随机数函数，此函数的返回值是一个(0，1)这个开区间内的数。此函数乘以100后得到(0，100)开区间内的随机数，取整后即是[0，99]的随机整数。可以推出，得到任意闭区间[x，y]内随机整数的公式为：x+Int(Rnd*(y-x+1))。15、InputBox函数的返回值类型是A、数值B、字符串C、变体D、数值或字符串(视输入的数据而定)标准答案：B知识点解析：本题考查输入框的知识。InputBox函数用于在屏幕上弹出一个输入框，框中有若干提示信息，同时接收用户输入的值作为返回值，该值类型是一个字符串。16、如下程序段定义了学生成绩的记录类型，由学号、姓名和三门课程成绩(百分制)组成。TypeStudnoAsIntegernameAsStringscore(1to3)AsSingleEndType若对某个学生的各个数据项进行赋值，下列程序段中正确的是A、DimSAsStudStud．no=1001Stud．name=”舒宜”Stud．score=78，88，96B、DimSAsStudS．no=1001S．name=”舒宜”S．score=78，88，96C、DimSAsStudStud．no=1001Stud．name=”舒宜”Stud．score(1)=78Stud．score(2)=88Stud．score(3)=96D、DimSAsStudS．no=1001S．name=”舒宜”S．score(1)=78S．score(1)=88S．score(1)=96标准答案：D知识点解析：本题考查记录类型和数组的知识。在VBA中，可以使用Type关键字来自定义记录类型，定义好记录类型之后，就可以声明记录型变量。要想引用记录变量中的成员必须使用．运算符，格式为变量名.成员名。当某个成员是数组的时候，对数组元素的访问要遵循数组元素的访问原则即数组名（小下标）的形式。故此D选项正确。17、在窗体中有一个标签Lbl和一个命令按钮Commandl，事件代码如下：OptionCompareDatabaseDimaAsString*10PrivateSubCommandl_Click()a=”1234”b=Len(a)Me．Lb1．Coption=bEndSub打开窗体后单击命令按钮，窗体中显示的内容是A、4B、5C、10D、40标准答案：C知识点解析：本题考查VBA中定长字符串的知识。当声明一个变量为string类型时，如果不加长度说明，则为变长字符串；如果加上长度说明，则为定长字符串。定长字符串变量无论给它赋予何值，．长度都为初始声明时指定的长度。由于声明a的长度为10，故Len(a)=10，所以C选项是正确的.18、从字符串S中的第2个字符开始获得4个字符的子字符串函数是A、Mid$(s，2，4)B、Left$(s，2，4)C、Rigth(s，4)D、Lefi$(s，4)标准答案：A知识点解析：本题考查取子串函数的知识。在VBA中有三种取子串函数：Left函数用于在字符串左端开始取n个字符；Right函数用于在字符串右端开始取n个字符(注意子串中字符的顺序与母串中相同)；Mid函数可以实现在任何位置取任何长度的子串。截取第2个字符开始的4个字符应该用Mid(s,2，4)。19、语句DimNewArray(10)AsInteger的含义是A、定义了一个整型变量且初值为10B、定义了10个整数构成的数组C、定义了11个整数构成的数组D、将数组的第10元素设置为整型标准答案：C知识点解析：本题考查VBA中数组的知识。数组变量由变量名和数组下标构成，我们通常使用Dim语句来定义数组，其格式为：Dim数组名（[下标下限to]下标上限）As数据类型其中下标下限缺省为0。数组中的元素个数即为下标上限-下标下限+1。20、表达式Fix(-3．25)和Fix(3．75)的结果分别是A、-3．3B、-4，3C、-3，4D、-4，4标准答案：A知识点解析：取整函数Fix(＜数值表达式＞)：返回数值表达式的整数部分。21、能够实现从指定记录集里检索特定字段值的函数是A、DCountB、DlookupC、DMaxD、DSum标准答案：B知识点解析：本题考查系统函数的知识。DCount函数可用于确定指定记录集中的记录数；DMax函数可用于确定指定记录集中的最小值和最大值：DSum函数可用于计算指定记录集中值集的总和；DLookup函数可用于从指定记录集获取特定字段的值。22、执行语句：MsgBox”AAAA”，vbOKCancel+vbQuestion，”BBBB”之后，弹出的信息框A、标题为“BBBB”、框内提示符为“惊叹号”、提示内容为“AAAA”B、标题为“AAAA”、框内提示符为“惊叹号”、提示内容为“BBBB”C、标题为“BBBB”、框内提示符为“问号”、提示内容为“AAAA”D、标题为“AAAA”、框内提示符为“问号”、提示内容为“BBBB”标准答案：C知识点解析：在VBA中可以函数的形式调用，格式为：Msgbox(prompt[，buttons][,title][,helpfile,context])Msgbox用于打开一个信息框，等待用户单击按钮并返回一整数值，告诉系统用户单击了哪一个按钮，若不需要返回值，可直接作为命令语句使用，显示提示信息。23、窗体中有3个命令按钮，分别命名为Cmdl、Cmd2和Cmd3。当单击Cmdl按钮时，Cmd2按钮变为可用，Cmd3按钮变为不可见。下列Cmdl的单击事件过程中，正确的是A、PrivateSubCmdl_Click()Cmd2．Visible=TmeCmd3．Visible=FalSeEndSubB、PrivateSubCmdl_Click()Cmd2．Enabled=TmeCmd3．Enabled=FalseEndSubC、PrivateSubCmdl_Click()Cmd2．Enabled=TrueCmd3．Visible=FalseEndSubD、PrivateSubCmdl_Click()Cmd2．Visible=TrueCmd3．Enabled=FalseEndSub标准答案：C知识点解析：Enabled属性指定一个控件能否接受焦点和响应用户产生的事件。如果启用对象，则该值为True。如果为False，则用户不能使用鼠标、击键、加速键或热键处理该控件。Visible决定对象是否可见，如果属性值为True，则控件可见，如果属性为False，则控件不可见。24、用于获得字符串S最左边4个字符的函数是A、Left(S，4)B、Left(S，1，4)C、Leflstr(S，4)D、Leftstr(S，0，4)标准答案：A知识点解析：Left函数的格式是：Left(字符表达式，数值表达式)。其功能是返回一个值，该值是从字符表达式左侧第1个字符开始，截取的若干个字符。其中，字符个数是数值表达式的值。当字符表达式是Null时，返回Null值：当数值表达式值为0时，返回一个空串；当数值表达式大于或等于字符表达式的字符个数时，返回字符表达式。25、下列数据类型中，不属于VBA的是A、长整型B、布尔型C、变体型D、指针型标准答案：D知识点解析：传统的BASIC语言使用类型说明标点符号来定义数据类型，VBA则除此之外，还可以使用类型说明字符来定义数据类型。在使用vB代码中的字节、整数、长整数、自动编号、单精度和双精度数等的常量和变量与Access的其他对象进行数据交换时，必须符合数据表、查询、窗体和报表中相应的字段属性。26、下列数组声明语句中，正确的是A、DimA[3，4]AsIntegerB、DimA(3，4)AsIntegerC、DimA[3；4]AsIntegerD、DimA(3；4)AsInteger标准答案：B知识点解析：数组是由一组具有相同数据类型的变量(称为数组元素)构成的集合。数组变量由变量名和数组下标组成，在VBA中不允许隐含声明数组，可用Dim语句来声明数组。数组定义的格式为：Dim数组名（[下标下界to]下标上界）As数据类型下标下界的缺省值为0，数组元素从“数组名(0)”至“数组名(下标上界)”；如果设置下标下界非0，要使用to选项。VBA也支持多维数组。可以在数组下标中加人多个数值，并以逗号分开，由此来建立多维数组。27、在已建窗体中有一命令按钮(名为Commandl)，该按钮的单击事件对应的VBA代码为：PrivateSubCommandl_Click()subT．Form．RecordSource=”select*from雇员”EndSub单击该按钮实现的功能是A、使用select命令查找“雇员”表中的所有记录B、使用select命令查找并显示“雇员”表中的所有记录C、将subT窗体的数据来源设置为一个字符串D、将subT窗体的数据来源设置为“雇员”表标准答案：D知识点解析：SQL语句是将雇员表中的所有数据查询出来，并显示在subT窗体上。28、能够实现从指定记录集里检索特定字段值的函数是A、N2B、FindC、LookupD、ELookup标准答案：D知识点解析：Nz函数可以将NuIl值转换为0、空字符串(“”)的指定值。Dlookup函数是从指定记录集里检索特定字段的值。29、如果X是一个正的实数，保留两位小数、将千分位四舍五入的表达式是A、0．01*Int(x+0．05)B、0．01*Int(100*(X+0．005))C、0．01*Int(x+0．005)D、0．01*Int(100*(X+0．005))标准答案：B知识点解析：Int(＜数值表达式＞)函数为取整函数，返回数值表达式的整数部分。30、在模块的声明部分使用“OptionBasel”语句，然后定义二维数组A(2to5,5)则该数组的元素个数为A、20B、24C、25D、36标准答案：B知识点解析：Dim数组名([下标下限to]下标上限)缺省情况下，下标下限为0，元素个数=(下标上限一下标上限+1)；如果to选项可以安排非0下限，使用逗号间隔可定义多维数组。数组A(2to5,5)为二维数组，元素个数=(5．2+1)*(5-0+1)=4*6=24。31、在窗体上有一个命令按钮Commandl，编写事件代码如下：PrivateSubCommandl_Click()DimdlAsDate，d2AsDatedl=#12／25／2009#d2=#1／5／2010#MsgBox