《Access2010应用基础》单元练习八 创建模块

一、选择题1．窗体模块和报表模块都属于（ ）A．标准模块 B． 类模块 C．过程模块 D．函数模块2．模块是存储代码的容器，其中窗体就是一种（ ）A．类模块 B．标准模块 C．子过程 D．函数过程3．以下关于模块的说法，不正确的是（ ）A．窗体模块和报表模块属于类模块，它们从属于各自的窗体和报表B．窗体模块和报表模块属于局部特性，其作用范围局限在所属窗体或报表内部C．窗体模块和报表模块中的过程可以调用标准模块中已经定义好的过程D．窗体模块和报表模块生命周期是伴随着应用程序的打开而开始、关闭而结束4．以下关于标准模块的说法，不正确的是（ ）A．标准模块一般用于存放其他Access数据对象使用的公共过程B．Access系统中可以通过创建新的模块对象而进入其代码设计环境C．标准模块所有的变量函数都具有全局特性，是公共的D．标准模块的生命周期是伴随着应用程序的打开而开始、关闭而结束5．在模块中执行宏Macro1的格式为（ ）A．Functio.Runmacro B．Docmd.Runmcro C．Sub.RunmcroMacro D．RunmcroMacro6．以下关于变量的叙述，错误的是（ ）A．变量名的命名同字段命名一样，但变量命名不能包含有空格或除了下划线符号外的任何其他的标点符号B．变量名不能使用VBA的关键字C．VBA中对变量名的大小写敏感，变量名“NewYear”和“newyear”代表的是两不同的变量D．根据变量直接定义与否，将变量划分为隐含型变量和显式变量7.变量声明语句Dimma，表示变量a是（ ）A．整型 B．双精度型 C．字符型 D．变体型8．可以判定某个日期表达式能否转换为日期或时间的函数是（ ）A．CDate B．IsDate C．Date D．IsText9．定义了10个整型构成的数组，数组元素为NewArray（1）至NewArray（10）的选项是（ ）A．DimNewArray（10）AsInterger B．DimNewArray（1To10）AsIntergerC．DimNewArray（10）Interger D．DimNewArray（1To10）Interger10．定义了三维数组A（5，5，5），则该数组的元素个数为（ ）A． 15 B．25 C． 125 D．21611．以下有关优先级的比较，正确的是（ ）A．算术运算符>关系运算符>连接运算符 B．算术运算符>连接运算符>逻辑运算符 C．连接运算符>算术运算符>关系运算符 D．逻辑运算符>关系运算符>算术运算符12．VBA中定义符号常量可以用关键字（ ）A．Const B．Dim C．Public D．Static13．VBA中定义局部变量可以用关键字（ ）A．Const B．Dim C．Public D．Static14．以下内容中不属于VBA提供的数据验证函数是（ ）A．IsText B．IsDate C．IsNumeric D．IsNull15．VBA的逻辑值进行进行算术运算时，True值被当做（ ）A．0 B．-1 C． 1 D．任意值16．以下可以得到“2+6=8”的结果的VBA表达式是（ ）A．“2+6”&“=”& 2+6 B．“2+6”+“=”+2+6 C．2+6&“=”&2+6 D．2+6+“=”+2+617．表达式“13+4”&“=”&（13+4）的运算结果为（ ）A．13+4 B．&13+4 C．（13+4）& D．13+4=1718．VBA表达式Chr（Asc（Ucase（‘abodefg’）））返回的值是（ ）A．A B．97 C．a D．6519．表达式“10.2\5”返回的值是（ ）A．0 B．1 C．2 D．2.0420．VBA表达式Iif（0，20，30）的值为（ ）A．20 B．30 C．25 D．1021．函数Len（“Access数据库”）的值是（ ）A．9 B．12 C．15 D．1822．函数Right（Left（Mid（“Access_DateBase”，10，3），2），1）的值是（ ）A．a B．B C．t D．空格23．表达式“教授”<“助教”返回的值是（ ）A．True B．False C．1 D．024．在下列逻辑表达式中，能正确表示条件“m和n至少有一个为偶数”的是（）A．mMOD2=1OrnMOD2=1 B．mMOD2=1AndnMOD2=1 C．mMOD2=0OrnMOD2=0 D．mMOD2=0AndnMOD2=025．VBA程序中，可以实现代码注释功能的是（ ）A．方括号[] B．单引号’ C．双引号”” D．冒号：26．以下程序段运行后，消息框的输出结果是（ ）a=sqr(5)b=sqr(4)c=a>bMsgboxc+2A．-1 B．1 C．2 D．出错27．语句SelectCaseX中，X为一整型变量，下列Case语句中，表达式错误的是（ ）A．CaseIs>20 B．Case1To10 C．Case2,4,6 D．CaseX>1028．假定有以下循环结构：DoUntil条件 循环体Loop则正确的叙述是（ ）A．如果条件值为0，则一次循环体也不执行B．如果条件值为0，则至少执行一次循环体C．如果条件值不为0，则至少执行一次循环体D．不论条件是否为0，至少要执行一次循环体29．程序段：ForS=5To1S=2*SNextS该循环执行的次数为（ ）A．1 B．3 C．5 D．030．程序段D=#2013-12-21#T=#10：09：11#M=Month（D）S=Second（T）M和S的返回值分别是（ ）A．2013，12 B．12，11 C．21，12 D．8，931．程序段：Str=“计算机科学技术”Str=Mid（Str，5）A．计算机科学 B．机科学技术 C．计算 D．学技术32．在VBE的立即窗口输入如下命令，输出结果是（ ）X=4=5?XA．True B．False C．4=5 D．语句出错33．VBA定时操作中，需要创建窗体的“计时器间隔”属性值，其计量单位是（ ）A． 微秒 B．毫秒 C．秒 D．分钟34．在VBA中，过程参数的传递方式有传值和（ ）两种。A．传语句 B．传循环 C．传址 D．传声明35．在定义有参函数时，要想实现某个参数的双向传递，就应当说明该形参为传址调用形式，设置选项是（）A．BYvalB．ByRefC．Optional D．Paramarray36．Sub过程和function过程最根本的区别是（）A．Sub过程的过程名不能返回值，而funtion过程能通过过程名返回值B．Sub过程可以使用call语句或直接便用过程名，而function过程不能C．两种过程的传递方式不同D．Function过程可以有参数，Sub过程不能有参数37．VBA中用实参X和Y调用有参过程PPSSUM(a,b)的正确形式是（）A．PPSSUMA,B B．PPSSUMX,YC．CallPPSSUM(A,B) D．CallPPSSUMX,Y38．要想在过程Proc调用后返回形参x和y的变化结果，下列定义的语句正确的是（ ）A．SubProc(XAsInteger,YAsInteger)B．SubProc(ByvalXAsInteger,YAsInteger)C．SubProc(XAsInteger,ByvalYAsInteger)D．SubProc(ByvalXAsInteger,ByvalYAsInteger)39．在Access中，如果变量定义在模块的过程内部，当过程代码执行时才可见，则这种变量使用域为（ ）A．程序范围B．全局范围C．模块范围 D．局部范围 40．执行下列VBA语句后，变量A的值是()A=1：B=3：C=4*A–BIFA*2–1<=BTHENB=2*B+CIFB–A>CTHENA=A+1：C=C-1Else A=A-1ENDIFA．0B．1 C．2 D．341．假定有以下函数过程：Funtionfun(SAsstring)AsstringDimSlAsstringForI=1toLen（S）Sl=Ucase(Mid(S,I,1))+SlNextIFun=SlEndFunction那函数Fun（“abcdefg“）的输出结果为（ ）A．abcdefg B．ABCDEFG C．gfedcba D．GFEDCBA42．执行下列VBA语句后，变量n的值是（ ）n=0Fork=8to0step-3n=n+1NextkA．1 B．2 C．3 D．843．下面过程运行之后，则变量J的值为（）PrivateSubFun()DimJAsIntegerJ=2DOJ=J*3LoopWhileJ<15EndSubA．2 B．6 C．15 D．1844．下面的过程执行之后，则变量j的值为（ ）PrivateSubFun（）DimJAsIntegerJ=5DoJ=J+2LoopWhileJ>10EndSubA．5 B．7 C．15 D．1145．假定有以下程序段：N=0Fora=1to5Forb=2to10step2 N=N+1NextbNexta运行完毕后，n的值是（）A．0 B．1 C．10 D．2546．假定有以下程序段：Fori=1to3N=0Forj=-4to-1N=N+1NextjNexti运行完毕后n的值是（）A．0 B．3 C．4 D．1247．在窗体上添加一个命令按钮（名为Command1），然后编写如下事件过程：PrivateSubCommand1_Click()ForI=1To4X=4ForJ=1To3X=3ForK=1To2X=X+6NextKNextJNextIMsgboxXEndSub打开窗体后，单击命令按钮，消息框输入的结果是( )A．7 B．15 C．157 D．53848．下面Main过程运行之后，则变量J的值为（ ）PrivateSubMainsub（）DimJAsIntergerJ=5CallGetDate（J）EndSubPrivateSubGetDate（ByReffAsInteger）f=f*2+sgn(-1)EndSubA． 5 B．7 C．9 D．1049．在代码中定义了一个子过程：SubP（a,b）…EndSub下列调用该过程的形式中，正确的是（ ）A．CallP B．CallP（10，20） C．P（10，20） D．CallP10，2050．在窗体中有一个名为Command1的命令按钮，事件代码如下：PrivateSubCommand1_Click（）Dimm(10)Fork=1To10 m(k)=11-kNextkX=6MsgBoxm2+m(X)EndSub打开窗体，单击命令按钮，消息框的输出结果是（ ）A．2 B．4 C．3 D．551．在窗体中有一个名为Run34的命令按钮，事件代码如下：PrivateSubRun34_Click（）F1=1F2=1Forn=3To7 F=F1+F2 F1=F2 F2=FNextnMsgboxFEndSub打开窗体，单击命令按钮，消息框的输出结果是（ ）A．13 B．8 C．21 D．其他结果52．在窗体中有一个命令按钮Command1，编写事件代码如下：PrivateSubCommand1_Click（）DimsAsIntegerS=P(1)+P(2)+P(3)+P(4)Debug．PrintsEndSubPrivateFunctionP(NASInteger)DimSumAsIntegerSum=0ForI=1ToN Sum=Sum+INextIP=SumEndFunction打开窗体运行后，单击命令按钮，输出的结果是（ ）A．15 B．20 C．25 D．3553．假设有如下Sub过程：SubSfun（XAsSingle，YAsSingle）T=XX=T/YY=TMODYEndSub在窗体中添加一个命令按钮（名为Command1），编写如下事件过程：PrivateSubCommand1_Click（）DimAAsSingleDimBAsSingleA=5B=4CALLSfun(A，B)MsgboxA&Chr（10）+Chr（13）&BEndSub打开窗体运行后，单击命令按钮，消息框中有两行输出，内容分别为（ ）1和1 B．1.25和1 C． 1.25和4 D．5和454．有如下VBA程序段：Sum=0N=0Fori=1to5 X=N/i N=N+1 Sum=Sum+XNexti以上For循环计算Sum，完成的表达式是（ ）A．1+1/1+2/3+3/4+4/5 B．1+1/2+1/3+1/4+1/5C．1/2+2/3+3/4+4/5 D．1/2+1/3+1/4+1/555．在窗体中有一个命令按钮Command1，对应的事件代码如下：PrivateSubCommand1_Click()Dimnum%r，a%，b%，i%Fori=1To10 Num=Inputbox(“请输入数据：”，“输入”，1) IfInt(num/2)=num/2Then a=a+1 Else b=b+1 EndIfNextiMsgbox(“运行结果：a=”&Str(a)&“，b=”&Str(b))EndSub运行以上事件过程所完成的功能是（ ）A． 对输入的10个数求累加和 B． 对输入的10个数求各自的余数，然后再进行累加C． 对输入的10个数据分别统计整数和非整数的个数D． 对输入的10个数据分别统计偶数和奇数的个数56．下列过程的功能是：通过对象变量返回当前窗体RecordSet属性记录集引用，消息框中输出记录集的记录（即窗体记录源）个数SubGetRecNum（）DimRsAsObjectSetRs=Me.RecordSetMsgboxEndSub程序空白处应填写的是（ ）A． Country B．Rs.Count C． RecordCount D． Rs.RecordCount57．在窗体中有一个名称为Command1的命令按钮，单击该按钮从键盘接收学生成绩表，如果输入的成绩不在0到100分之间，则要求重新输入；如果输入的成绩正确，则进入后续程序处理。Command1命令按钮的Click事件代码如下：PrivateSubCommand1_Click()DimFlagAsBooleanResult=0Flag=TrueDoWhileFlag Result=Val(Inputbox(“请输入学生成绩：”，”输入”)) IfResult>=0AndResult<=100Then Else Msgbox“成绩输入错误，请重新输入！” EndIf Loop Rem成绩输入正确后的程序代码略EndSub程序中有一空白处，需要填入一条语句使程序完成其功能。下列选项中错误的语句是（ ）A．Flag=False B．Flag=NotFlag C．Flag=True D．ExitDo58．ADO的含义是（ ）A．开放数据库互连应用编程接口 B．数据库访问对象C．动态链接库 D．Active数据对象59．在For循环体一定的条件下要提前退出循环可以通过（ ）语句A． Exit B．ExitDo C．ExitFor D．Quit60．用于打开“XS”窗体的语句正确的是（ ）A．DoCMD.OpenFormXs B．DoCMD.OpenForm“Xs”C．OpenFormXs D．OpenForm“Xs”61．下面程序段的功能是实现“学生”表中“年龄”字段值加1DimStrAsStringStr=””Docmd.RunSQLStr空白处应填入的程序代码是（ ）A．年龄=年龄+1 B．Update学生Set年龄=年龄+1C．Set年龄=年龄+1 D．Edit年龄=年龄+162．窗体上添加有3个命令按钮，分别命名为Command1、Command2和Command3。编写Command1的单击事件过程，完成的功能为：当单击按钮Command1时，按钮Command2可用，按钮Command3不可见，正确的程序代码是（ ）A．PrivateSubCommand1_Click()Command2.Visible=TrueCommand3.Visible=FalseEndSubB．PrivateSubCommand1_Click()Command2.Enabled=TrueCommand3.Enabled=FalseEndSubC．PrivateSubCommand1_Click()Command2.Enabled=TrueCommand3.Visible=FalseEndSubD．PrivateSubCommand1_Click()Command2.Visible=TrueCommand3.Enabled=FalseEndSub63．程序调试的目的在于（ ）A． 验证程序代码的正确性 B．执行程序代码C．查看程序代码的变量 D．查找和解决程序代码的错误64．在代码调试时，使用Debug.Print语句显示指定变量结果的窗口是（ ）A．属性窗口 B．本地窗口 C．立即窗口 D．监视窗口65．在标准模块中，按组合键（ ）可以运行当前子过程A．Alt+F5 B．F5 C．Ctrl+F5 D．Shift+F5二、填空题1．与窗体或报表中的控件有关的模块叫模块。2．模块是由VBA声明和组成的单元。3．定义了数组A（2To5，5），则该数组的元素个数为。4．在VBA中双精度的类型标识是。5．VBA的逻辑值在表达式当中进行算术运算时，True值被当作，False值被当作处理。6．在VBA中，要得到[24，68]区间的随机整数，可用表达式表示。7．VBA中变量作用域分为3个层次，这3个层次的变量是、和。8．在模块的说明区域中，用关键字说明的变量是全局范围的变量，而用或关键字说明的变量是属于模块范围的变量。9．要在程序或函数的实例间保留局部变更的值，可以用关键字代替Dim。10．VBA语言中，函数Inputbox输入的数据的数据类型是。11．VBA的3种流程控制结构是、和。12．VBA的有参过程定义，形参用说明，表明该形参为传值调用；形参用Byref说明，表明该形参为。13．设有如下代码：X=1Do X=X+2LoopUntil运行程序，要求循环体执行3次后结束循环，在空白处填入适当语句。14．有如下VBA代码，运行结束后，变量N的值是，变量I的值是。N=0ForI=1To3 ForJ=-4To-1 N=N+1 NextJNextI15．设有以下窗体单击事件过程：PrivateSubForm_Click()A=1ForI=1to3 SelectCaseI Case1,3 A=A+1 Case2,4 A=A+2 EndSelectNextIMsgboxAEndSub打开窗体运行后，单击窗体，则消息框的输出内容是。16．调用子过程GetABS后，消息框中显示的内容为。SubGetABs()DimXX=-5IfX>0Then X=XElse X=-XEndIfMsgboxXEndSub17．运行子过程TestParm，在立即窗口中的输出结果为。SubTestParm（）DimStrASStringStr=“中国”CallSubParm（Str）Debug.PrintStrEndSubSubSubParm（ByRefPstrAsString）Pstr=“China”EndSub18．在窗体中添加一个命令按钮Command1和在窗体中添加一个命令按钮Command1和一个文本框Text1,编写事件代码如下：Privatesubcommand1_click()DimaAsInteger,yAsInteger,zAsIntegerX=5：y=7：z=0Me!Text1=””Callpl(x,y,z)Me!Text1=zEndSubSubpl(aAsinteger,bAsInteger,CAsInteger)C=a+bEndSub打开窗体后，单击命令按钮，文本框中显示的内容是______。19．在窗体中有命令按钮Command1,编写其Click事件代码，实现的功能是接收从键盘输入的10个大于0的整数，找出其中的最大值和对应的输入位置。请依据上述功能要求将程序补充完整。PrivateSubCommand1_Click()max=0max_n=0ForI=1To10Num=Val(InPutBox(“请输入第”&I&“个大于0的整数：“))Ifnum﹥maxThen___________Max_n=________EndIfNextIMsgBox(“最大值为第”&max_n&“个输入的”&max)EndSub20.窗体中有一个名为Command1的命令按钮和一个名为Text1的文本框，事件代码如下：Privatesubcommand1_click()Dima(10)AsInteger,b(10)AsIntegern=3Fori=1To5a(i)=ib(n)=2*n+1NextiMe!Text1=a(n)+b(n)EndSub打开窗体，单击命令按钮，文本框Text1中显示的内容是_______。21．在窗体上有一个名为num2的文本框和run11的命令按钮，事件代码如下：PrivateSubruln11_click()SelectCasenum2Case>=60Result=”及格”Case60To84Result=”通过”CaseIs﹥=85Result=”优秀”CaseElseResult=“不合格”EndSelectMsgBoxresultEndSub打开窗体，在文