国家二级ACCESS机试(选择题)模拟试卷334(题后含答案及解析)

国家二级ACCESS机试（选择题）模拟试卷334(题后含答案及解析)题型有：1.选择题选择题1．如果变量A是Boolean型，则下列赋值语句中，正确的是()。A．A=＂No＂B．A=．No．C．A=#TURE#D．A=2＜10正确答案：D解析：Boolean类型变量的取值只能取true或false，其中选项A是字符型常量；选项B写法有误；选项C可以在数据库查询中作为查询条件使用；选项D是将一个表达式的值赋给Boolean型变量A，选项中2＜10为真，所以A取值为true。故选择D选项。2．下列选项中，与VBA语句:DimNew％，sum!等价的是()。A．DimNewAsInteger，sumAsSingleB．DimNewAsInteger，sumAsDoubleC．DimNewAsDouble，sumAsSingleD．DimNewAsDouble，sumAsInteger正确答案：A解析：题中VBA语句：DimNew％，sum!的功能是定义一个整数New和一个单精度数sumo在VBA数据类型中，符号“％”表示整数，符号“!”表示单精度数，符号“@”表示货币，符号“$”表示字符串。与本题等价的声明语句为：DimNewAsInteger，sumAsSingle，故选择A选项。3．下列程序段运行结束后，变量c的值是()。a=24b=328selecteaseb＼lOcase0c=a*10+bcaselto9c=a*100+bcase10to99c=a*1000+bendselectA．537B．2427C．24328D．240328正确答案：C解析：整数除法“＼”是对两个操作题做树法并返回一个整数。程序中SelectCase语句中b＼10的值为32，程序执行Case10to99后边的c=a*1000+b语句，即c=24*1000+328=24328。故选择C选项。4．窗体上有命令按钮commandl，对应的Click事件过程如下：PrivateSubCommandl_Cliek()DimxAsIntegerx=InputBox(＂请输入x的值＂)，SelectCasexCase1，2，4，10CaseElseDebug．Print＂A＂Debug．Print＂D＂Case5To9Debug．Print＂B＂CaseIs=3Debug．Print＂C＂EndSelectEndSub窗体打开运行，单击命令按钮，在弹出的输入框中输入3，则立即窗口上显示的内容是()。A．CB．AC．BD．D正确答案：A解析：在SelectCase语句中，Case表达式可以是下列4种格式之一。①单一数值或一行并列的数值，用来与“表达式”的值进行比较，成员之间以逗号隔开。②由关键字To分割开的两个数值或表达式之间的范围。③关键字Is接关系运算符，如＜＞、＜、＜=、=、＞=或＞，后面再接变量或精确的值。④关键字CaseElse后的表达式，是在前面的Case条件都不满足时执行。本题中输入“3”，与第三个Case语句匹配，程序输出字符“C”，故选择A选项。5．下列If语句的功能是统计性别为男、职称为副教授以上且年龄小于40岁的人数，错误的语句是()。A．Ifsex=＂男＂Andage＜40InStr(duty，＂教授＂)＞0Thenn=n+1B．Ifsex=＂男“Andage＜40lnStr(duty=＂教授＂orduty=＂副教授＂)＞0Then13=13+1C．Ifsex=＂男＂Andage＜40Right(duty，2)=＂教授＂Thenn=13．+1D．Ifsex=＂男＂Andage＜40And(duty=＂教授＂Orduty=＂副教授＂)Thenn=n+1正确答案：D解析：选项A、B、C均在第二个条件age<40后面缺少And关键字进行与第三个条件的连接，语法结构错误。故选择D选项。6．由“Fori=lTo16Step3＂决定的循环结构被执行()。A．4次B．5次C．6次D．7次正确答案：C解析：题目考查的是For循环结构，循环初值i为1，终值为16，每次执行循环i依次加3，则i分别为1、4、7、10、13、16，则循环执行6次。故选择C选项。7．要求循环执行2次后结束循环，【】处应填入的语句是()。x=1Dox=x+2LoopUntil【】A．x＜=5B．x＜5C．x＞=5D．x＞5正确答案：C解析：本题考查Do…LoopUntil循环控制结构的用法。该结构的特点是先执行，后判断，循环语句至少执行一次。Until当条件为假时，执行循环体内的语句。题目要求循环执行2次。第一次执行x=3，第二次执行x=5，然后条件为真，结束循环。故条件为真时x至少要等于5。故选择C选项。8．运行下列程序，结果是()。PrivateSubCommand32_Click()fO=1：fl=1：k=l=5f=f0+flf0=flfl=fk=k+lLoopMsgBox＂f=＂&fEndSubDoWhilek＜A．f=5B．f=7C．f=8D．f：13正确答案：D解析：本题考查DoWhile循环语句：k=1时，f=l+1=2，f0=1，fl=2，k=1+l=2；k=2时，f=3，f0=2，fl=3，k=2+1=3；k=3时，f=5，f0=3，fl=5，k=3+1=4；k=4时，f=8，f0=5，fl=8，k=4+l=5；k=5时，f=13，f0=8，fl=13，k=6，不再满足循环条件跳出循环，此时f=13。故选择D选项。9．有如下事件程序，运行该程序后输出结果是()。PrivateSubCommand33_Click()DimxAsInteger，yAsIntegerx=1：y=0DoUntily＜=25y=y+x*xx=x+1LoopMsgBox＂x=＂&x&＂．y=＂&YEndSubA．x=1，y=0B．x=4，y=25C．x=5，y=30D．输出其他结果正确答案：A解析：Dountil循环采用的是先判断条件后执行循环体的做法，如果条件为True，则循环体一次都不执行。否则进入循环体执行。本题中的循环停止条件是y＜=25，而y=0，满足条件表达式，则不进入循环体，x、y的值不变，仍为1、0。故选择A选项。10．窗体中有文本框为Textl和Text2。运行程序时单击“运行”按钮Commandl，在Textl中输入整数m(m＞0)，在Text2中显示输出m的全部除1和自身之外的因子。例如，20的因子有2，4，5，10，输出结果为“2，4，5，10”；16的因子为2，4，8，输出结果为“2，4，8”。事件代码如下：PrivateSubCommandl_Click()m=Val(Me!Textl)resule=＂＂k=2DoIfmModk=0Thenresult=result&k&＂．＂k=k+1LoopWhile【】Me!Text2=resultEndSub程序【】处应填写的语句是()A．k＞mB．k＜mC．k＞=mD．k＜=m正确答案：B解析：Do循环是查找m的因子，循环的条件是因子k小于m，因子k初始值为2，循环结束的条件是k增加到m一1结束，即k＜m。故选择B选项。11．窗体中有文本框Textl。运行程序，输入大于0的整数m，单击按钮Commandl，程序显示由星号组成的高度和上底均为m的等腰梯形形。例如，当m=5时，显示图形如下。*********************************************事件代码如下。PrivateSubCommandl_Click()m=Val(Me!Textl)result=””Fork=1TomForn=lTo【】Ifn＜m—k+lThenresult=result&””Elseresuh=result&”*”EndIfNextnresult=result+Chr(13)NextkMsgBoxresult，，”运行结果”EndSub程序【】处应填写的语句是()。A．k+2*m一2B．k+2*mC．k+m一1D．k+m正确答案：A解析：本题考查的是for循环执行过程，通过for循环输出等腰梯形。第一个循环用于控制输出的行数，第二个for循环用于控制每行输出的字符数。从图中可看出，第l行，4个空格，5个*字符；第2行，3个空格，7个*字符；第3行，2个空格，9个*字符；第4行，1个空格，11个*字符；第5行，0个空格，13个*字符；可看出行号与输出空格关系，假定有输入的为整数m，第k行，应输出m—k个空格；同理，第k行，应输出k+2*m一2个*号字符。故选择A选项。12．有Click事件对应的程序如下：PrivateSubCommandl_Click()DimsumAsDouble．xAsDoublesum=0n=0Fori=1To5x=n／in=n+1sum=sum+XNextiEndSub该程序通过For循环计算一个表达式的值，该表达式是()。A．1+1／2+2／3+3／4+4／5B．1／2+2／3+3／4+4／5C．1+1／2+1／3+1／4+1／5D．1／2+1／3+1／4+1／5正确答案：B解析：本题考查了For循环控制结构的应用，本题中循环共执行了5次，每次各变量赋值情况如下表所示：ixnsum10／11021／221／232／331／2+2／343／441／2+2／3+3／454／551／2+2／3+3／4+4／5循环结束后，sum最后的值为1／2+2／3+3／4+4／5，故选择B选项。13．下列四种形式的循环设计中，循环次数最少的是()。A．a=5：b=8DoUntila＜bb=b+lLoopB．a=5：b=8DDa=a+1LoopWhilea＜bC．a=5：b=8Doa=a+1LoopUntila＜bD．a=5：b=8DoUntila＞ba=a+lLoop正确答案：A解析：本题考查循环结构的使用，Do…LoopUntil和DoUntil…Loop都是当条件为假时，重复执行循环体，直到条件为真或遇到ExitDo才结束循环；Do…LoopWhile循环当条件为真时，执行循环体，当条件为假时，结束循环，选项A条件为真，循环一次也不执行；选项B循环执行3次；选项C循环执行1次；选项D循环执行4次。故选择A选项。14．下列不属于VBA函数的是()。A．ChooseB．IfC．IIfD．Switch正确答案：B解析：IIf函数、Switch函数和Choose函数是VBA提供的3个条件函数，而If是程序流程控件的条件语句，不是函数。故选择B选项。15．在VBA中，下列关于过程的描述中正确的是()。A．过程的定义可以嵌套，但过程的调用不能嵌套B．过程的定义不可以嵌套，但过程的调用可以嵌套C．过程的定义和过程的调用均可以嵌套D．过程的定义和过程的调用均不能嵌套正确答案：B解析：在VBA中过程不可以嵌套定义，即不可以在一个过程中定义另一个过程，但是过程可以嵌套调用。故选择B选项。16．在窗体上有一个命令按钮Commandl，编写事件代码如下：PrivateSubCommandl_Click()DimxAsInteger，yAsIntegerX=12：y=32CallProc(x，y)Debug．Printx；yEndSubPublicSubProc(nAsInteger，ByValmAsInteger)n=nMod10m=mMod10EndSub打开窗体运行后，单击命令按钮，立即窗口上输出的结果是()。A．232B．123C．22D．1232正确答案：A解析：参数有两种传递方式：传址传递ByRef和传值传递ByVal。如果没有说明传递类型，则默认为传址传递。在函数Proc(nAsInteger,ByValmAsInteger)参数中，形参n默认为传址传递，形参的变化将会返回到实参，即形参nmod10(12mod10)得到的结果2将返回给实参x，即x=2；而y为传值类型，不因形参的变化而变化，所以输出的x和Y应为2和32。故选择A选项。17．假定有以下两个过程：Subsl(ByValxAsInteger，ByValyAsInteger)DimtAsIntegert=xX=yy=tEndSubSubS2(xAsInteger，yAsInteger)下列说法正确的是()。DimtAsIntegert=x：x=y：y=tEndSubA．用过程Sl可以实现交换两个变量的值的操作,S2不能实现B．用过程S2可以实现交换两个变量的值的操作,Sl不能实现C．用过程S1和S2都可以实现交换两个变量的值的操作D．用过程S1和S2都不可以实现交换两个变量的值的操作正确答案：B解析：VBA中定义过程时如果省略传值方式则默认为按地址传递，过程S2中省略了参数传递方式说明，因此，参数将按传址调用，而过程S1由于声明为按值传递(ByVal)，所以会按传值调用参数。而在过程调用时，如果按传值调用，实参只是把值传给了形参，在过程内部对形参值进行改变不会影响实参变量，按址调用却不同，这种方式是把实参的地址传给了形参，在过程中对形参值进行改变也会影响实参的值。因此，过程S2能够交换两个变量的值，而s1不能实现。故选择B选项。18．窗体中有命令按钮Commandl和文本框Textl，事件过程如下：Functionresult(ByValxAsInteger)AsBooleanIfXMod2=0Thenresult=TrueElseresult=FalseEndIfEndFunctionPrivateSubCommandl_Click()x=Val(1nputBox(”请输入一个整数”))If【】ThenTextl=Str(X)&”是偶数．”ElseTextl=Str(x)&”是奇数．”EndIfEndSub运行程序，单击命令按钮，输入19，在Textl中会显示“19是奇数”。那么在程序的括号内应填写()。A．NOTresult(x)B．result(x)C．result(x)=”奇数”D．result(x)=”偶数”正确答案：B解析：本题程序是判断奇偶性的程序，函数Result用来判断x是否是偶数，如果x是偶数，那么ResuIt的返回值为真，否则返回值为假，单击命令按钮时执行的过程是输入整数x，然后调用Result函数，如果值为真，文本框会显示输入的值是偶数，否则显示输入的值为奇数。调用Result函数且Result函数值为真时的表达式为：Result(X)。故选择B选项。19．窗体中有一个命令按钮“Commandl”和一个文本框“Textl”，编写如下程序：Functionresult(xAsInteger)AsBooleanIf【】Thenresult=TrueElseresu]t=FalseEndIfEndFunctionPrivateSubCommandl_Click()x=Val(InputBox(”请输入一个整数”))IfNotresult(x)ThenTextl=Str(x)&”是奇数．”ElseTextl=Str(x)&”是偶数．”EndIfEndSub程序运行后单击命令按钮，在输入对话框中输入121，则“Textl”中显示“121是奇数”。那么程序的【】处应填写A．xMod2=1B．xMod2==lC．xMod2==0D．XMod2=0正确答案：D解析：result函数返回的是布尔值：true或false，根据主调过程Commandl—Click中条件判断语句：IfNotresult(x)ThenTextl=Str(x)&”是奇数．”ElseTextl=Str(x)&”是偶数．”EndIf可知，当“result(x)”返回值是true时，显示“是偶数”；当“result(x)”返回值是false时，显示“是奇数”，所以程序中的【】处，应该是判断变量“x”的奇偶性，如果是偶数，则返回“true”，否则返回“false”，故本题应该填入语句“xMod2=0”。故选择D选项。20．窗体中有文本框Textl、Text2和Text3。运行时在Textl中输入整数m，在Text2中输入整数n(m＜n)，单击按钮Commandl，计算m到n之间(含m和n)全部奇数之和，然后在Text3中输出结果。事件代码如下：PrivateSubCommand1_Click()m=Val(Me!Textl)n=Val(Me!Text2)sum=0For【】TonStep2sum=sum+kNextkMe!Text3=sumEndSub程序【】处应填写的语句是()。A．k=IIf(mMod2=1，m，m+1)B．k=IIf(mMod2＜＞l，m，m+1)C．k=IIf(mMod2＞1，In，m+1)D．k=IIf(mMod2＜1，m，m+1)正确答案：A解析：本题考查的是for循环的初始条件。题目要求输出m和n的所有奇数之和，因此初始条件应该是一个奇数，即大于或等于m的最小奇数。本题mmod2=l，说明m为奇数，则表达式返回m值，即k=m，否则mmod2=0；m为偶数，则m+1为奇数，返回m+1。故选择A选项。21．能够实现从指定记录集里检索特定字段值的函数是()。A．NzB．FindC．LookupD．DLookup正确答案：D解析：DLookup函数是从指定记录集里检索特定字段的值，可以直接在VBA、宏、查询表达式或计算控件使用，而且主要用于检索来自外部表字段中的数据。故选择D选项。22．下列代码实现的功能是：窗体中一个名为tNum的文本框，运行时在其中输入课程编号，程序在“课程表”中查询，找到对应的“课程名称”显示在另一个名为tName文本框中。PrivateSubtNum_AfierUpdate()Me!tName=【】EndSub要使程序可以正确运行，【】处应该填写的是()。A．DLookup(＂课程名称＂，＂课程表＂，＂课程编号=＂&Me!tNum&＂＂)B．DLookup(＂课程表＂，＂课程名称＂，＂课程编号=＂&Me!tNum&＂＂)C．DLookup(＂课程表＂，＂课程编号=“&Me!tNum&＂＂，＂课程名称＂)D．DLookup(＂课程名称＂，＂课程编号=“&Me!tNum&＂＂，＂课程表”)正确答案：A解析：根据题意，【】处的代码应实现的功能是在“课程表”中查询出“课程编号”等于tNum文本框中数据的“课程名称”，需要使用DLookup函数。DLookup函数的格式为：DLookup(表达式，记录集[，条件式])。其中表达式用来指定要查询的字段，即题中的“课程名称”。记录集用来指定要查询的范围，即题中的“课程表”。条件式用来指定查询条件，即题中的“课程编号=’”&Me!tNum&”“＇”，故选择A选项。23．已知“产品表”(产品编码，产品名称，单价)，另有“新产品表”(产品编码，产品名称，单价)。如果根据产品编码，一件产品只在“新产品表”中出现，则要将该产品追加到“产品表”中；如果一件产品在“产品表”和“新产品表”中同时出现，则用“新产品表”中的单价修改“产品表”中相应产品的单价。为实现上述功能要求，应使用的方法是()。A．更新查询B．追加查询C．生成表查询D．编VBA程序正确答案：D解析：根据题目描述，若产品编码只在“新产品表”中出现，需要追加至“产品表”，可用追加查询；若产品编码在“产品表”和“新产品表”中同时出现，需要修改“产品表”中相应产品的单价，可用更新查询。为了同时满足上述功能要求，应编写VBA程序进行判断后执行相应操作。故选择D选项。24．为使窗体每隔0．5秒钟激发一次计时器事件(timer事件)，则应将其Interval属性值设置为()。A．5000B．500C．5D．0．5正确答案：B解析：窗体的计时器事件发生间隔由Interval属性设定，该属性值以毫秒为单位，1000毫秒为1秒，0．5秒即500毫秒，因此，应将Interval值设置为500。故选择B选项。25．窗体中有一个名称为tText文本框和一个名为bCommand命令按钮，并编写了相应的事件过程。运行此窗体，在文本框中输入一个字符，则命令按钮上的标题变为“说明”。以下能够实现上述功能的事件过程是()。A．PrivateSubtText_Change()bCommand．Caption=＂说明＂EndSubB．PrivateSubbCommand_Click()Caption=＂说明＂EndSubC．PrivateSubtText_Click()bCommand．Caption=＂说明＂EndSubD．PrivateSubbCommand_Change()Caption=＂说明＂EndSub正确答案：A解析：本题考查控件的基本属性和事件过程，题目要求通过在文本框中输入一个字符来触发事件，而能触发的只有tText的Change事件，另外，在给某个控件的属性赋值时，不可省略控件名，命令按钮控件的标题属性为“Caption”，故选择A选项。26．ADO对象模型中有5个主要对象，他们是Connection、Command、RecordSet、Error和()。A．DatabaseB．WorkspaceC．FieldD．DBEngine正确答案：C解析：在VBA中提拱了Active数据对象(ADO)作为数据库的访问接口，ADO对象模型中包括5个主要对象，即Connection连接，代表到数据库的连接；Recordset记录集，代表数据库记录的一个集合；Command命令，代表一个SQL命令；Error错误，代表数据库访问中产生的意外；Field字段，代表记录集中的字段数据信息。故选择C选项。27．ADO对象模型中可以打开并返回RecordSet对象的是()。A．只能是Connection对象B．只能是Command对象C．可以是Connection对象和Command对象D．不存在正确答案：C解析：Recordset对象只代表一个记录集，这个记录集是一个连接的数据库中的表或者是Command对象的执行结果返回的记录集。Connection对象用于建立与数据库的连接，通过连接可从应用程序访问数据源，因此，可以打开和返回RecordSet对象。Command对象在建立Connection后，可以发出命令操作数据源，也可以打开并返回RecordSet对象。故选择C选项。28．下列程序的功能是返回当前窗体的记录集：SubGetRecNum()DimrsAsObjectSetrs=【】MsgBoxrs．RecordCountEndSub为保证程序输出记录集(窗体记录源)的记录数，括号内应填入的语句是()。A．Me．RecordsetB．Me．RecordLocksC．Me．RecordSourceD．Me．RecordSelectors正确答案：A解析：程序中rs是对象变量，指代窗体对象，set语句是将当前窗体中的记录集对象赋给rs对象，Me表示当前窗体，用Me指明记录集来自于窗体，Recordset属性设置窗体、报表、列表框控件或组合框控件的记录源，用Me．Recordset代表指定窗体的记录源，即记录源来自于窗体。而RecordSourse属性用来设置数据源，格式为RecordSourse=数据源。因此题目空缺处应填Me．RecordSet。故选择A选项。29．在VBA代码调试过程中，能够显示出所有在当前过程中的变量声明及变量值信息的是()。A．快速监视窗口B．监视窗口C．立即窗口D．本地窗口正确答案：D解析：本地窗口内部自动显示出所有在当前过程中的变量声明及变量值。本地窗口打开后，列表中的第一项内容是一个特殊的模块变量。对于类模块，定义为Me。Me是对当前模块定义的当前实例的引用。由于它是对象引用，因而可以展开显示当前实例的全部属性和数据成员。30．采用ADO对“职工管理．accdb”文件中“职工表”的字段“退休年龄”加5。SubSetAgePlus()DimcnAsNewADODB．Connection’连接对象DimrsAsNewADODB．Recordset’记录集对象DimfdAsADODB．Field’字段对象DimstrConnectAsString’连接字符串DimstrSQLAsString’查询字符串Setcn=CurrentProject．ConnectionstrSQL=＂Select退休年龄from职工表＂rs．OpenstrSQL，cn，adOpenDynamic，adLockOptimistic，adCmdTextSetfd=rs．Fields(＂退休年龄＂)DoWhileNotrs．EOF。fd=fd+5【】rs．MoveNextLooprs．Closecn．CloseSetrs=NothingSetcn=NothingEndSub程序【】处应填写的语句是()。A．rs．Ed