VBA模块习题PPT课件

.,1,Ch8模块习题,.,2,目录,基本概念模块面向对象程序设计编程基础数据类型常量、变量、运算符与表达式、函数数组流程控制顺序结构分支结构循环结构过程数据库编程,.,3,基本概念：模块,模块,标准模块,类模块,宏,VBA代码容器，实现复杂数据库应用,声明,过程,.,4,在下列关于宏和模块的叙述中，正确的是（）。A模块是能够被程序调用的函数B通过定义宏可以选择或更新数据C宏或模块都不能是窗体或报表上的事件代码D宏可以是独立的数据库对象，可以提供独立的操作动作能被“对象所识别的动作”和“对象可执行的活动”分别称为对象的（）。A方法和事件B事件和方法C事件和属性D过程和方法,.,5,基本概念：面向对象程序设计,对象,属性（静态特征）,方法（动态特征）,事件,静态赋值：属性窗口,动态赋值：代码,对象可执行的活动,对象所识别的动作,.,6,窗体上添加有3个命令按钮，分别命名为command1、command2、command3。编写command1的单击事件过程，完成的功能为：当单击command1时，按钮command2可用，按钮command3不可见，以下正确的是（）APrivateSubcommand1_Click()command2.Visible=Truecommand3.Visible=FalseEndSubCPrivateSubcommand1_Click()command2.Enabled=Truecommand3.Visible=FalseEndSub,BPrivateSubcommand1_Click()command2.Enabled=Truecommand3.Enabled=FalseEndSubDPrivateSubcommand1_Click()command2.Visible=Truecommand3.Enabled=FalseEndSub,.,7,假定窗体的名称为frmTest，则把窗体的标题设置为“AccessTest”的语句是（）。AMe=AccessTestBMe.Caption=AccessTestCMe.text=AccessTestDMe.Name=AccessTest“Access的控件对象可以设置某个属性来控制对象是否可用（不可用时显示为灰色状态）。需要设置的属性是（）。ADefaultBCancelCEnabledDVisible,.,8,在窗体中有一个标签Label0，标题为“测试进行中”；有一个命令按钮Command1，事件代码如下：PrivateSubCommand_Click()Label0.Caption=标签EndSubPrivateSubForm_Load()Form.Caption=举例Command1.Caption=移动EndSub打开窗体后单击命令按钮，屏幕显示（）。,.,9,发生在控件接受焦点之前的事件是（）。AEnterBExitCGotFocusDLostFocus,窗体打开时事件发生的顺序：Open-Load-Resize窗体关闭时事件发生的顺序：DeActive-Unload-Close,.,10,编程基础：数据类型,数据类型,基本,自定义,Byte,String$,Integer%,Long4AsIntegerDDimA(3;4)AsInteger语句DimNewArray(10)AsInteger的含义是（）A定义了一个整型变量且初值为10B定义了10个整数构成的数组C定义了11个整数构成的数组D将数组的第10个元素设置为整型,.,28,流程控制,顺序结构,分支结构,循环结构,.,29,VBA程序的多条语句可以写在一行中，其分隔符必须使用符号（）。A:B,C;D.在Access中，如果要处理具有复杂条件或循环结构的操作，则应该使用的对象是（）。A窗体B模块C宏D报表,.,30,流程控制：分支结构,If条件1Then语句块1ElseIf条件2Then语句块2Else语句块NEndIf,SelectCase表达式Case值1语句块1Case值2语句块2CaseElse语句块nEndSelect,IIF(条件，语句块1，语句块2)Switch(条件1，语句1，条件2，语句2，)Choose(表达式，值1，值2),条件1,语句1,语句1,语句N,条件2,Yes,No,Yes,No,.,31,在窗体上添加一个命令按钮command1，代码如下：PrivateSubcommand1_Click()A=75IfA60ThenI=1IfA70ThenI=2IfA80ThenI=3IfA90ThenI=4MsgBoxIEndSub打开窗体后单击命令按钮，消息框的输出结果是（）A1B2C3D4,PrivateSubcommand1_Click()A=75IfA60ThenI=1ElseIfA70ThenI=2ElseIfA80ThenI=3ElseIfA90ThenI=4EndIfMsgBoxIEndSubI=1,.,32,在窗体上添加一个文本框Text1，代码如下：PrivateSubForm_Click()x=Val(InputBox(“请输入x的值”)y=1ifx0theny=2text1.value=yEndSub打开窗体后在输入框中输入12，text1的输出结果是（）A1B2C3D4下列Case语句中错误的是（）ACase0To10BCaseIs10CCaseIs10AndIs10,.,33,流程控制：循环结构1,For循环变量=初值to终值Step步长循环体Next,循环条件,语句,循环体,No,Yes,DoWhile循环条件循环体Loop,DoUntil循环条件循环体Loop,循环条件,语句,循环体,No,Yes,While循环条件循环体Wend,.,34,流程控制：循环结构,循环条件,语句,循环体,No,Yes,Do循环体LoopWhile循环条件,Do循环体LoopUntil循环条件,循环条件,语句,循环体,Yes,No,不论条件是否为真，至少执行一次循环体,.,35,在窗体上添加一个命令按钮command1，代码如下：PrivateSubcommand1_Click()fori=1to4x=4forj=1to3x=3fork=1to2x=x+6nextknextjnextIMsgBoxxEndSub打开窗体后单击命令按钮，消息框的输出结果是（）A7B15C157D538,i=4x=4j=1x=3k=1x=x+6=3+6=9k=2x=x+6=3+6=15j=2x=3k=1x=x+6=3+6=9k=2x=x+6=3+6=15,.,36,运行以下程序段：X=2Y=4Dox=x*yy=y+1LoopWhiley4X的值是（）A2B4C8D20,.,37,在窗体上添加一个命令按钮command1，代码如下：PrivateSubcommand1_Click()s=“ABBACDDCBA”fori=6to2step-2x=mid(s,i,i)y=left(s,i)z=right(s,i)z=x&y&znextIMsgBoxzEndSub打开窗体后单击命令按钮，消息框的输出结果是（）A.AABAABB.ABBABAC.BABBADBBABBA,s=“ABBACDDCBA”i=2x=mid(s,2,2)=“BB”y=left(s,2)=“AB”z=right(s,2)=“BA”z=x&y&z=“BBABBA”,.,38,窗体代码如下：PrivateSubForm_Click()a=1forI=1to3selectcaseIcase1,3a=a+1case2,4a=a+2endselectnextIMsgBoxaEndSub打开窗体后单击窗体，结果是（）A3B4C5D6,.,39,窗体代码如下：PrivateSubForm_Click()dimsumasdouble,xasdoublesum=0n=0forI=1to5x=n/In=n+1sum=sum+xnextIEndSub该程序计算的是下面哪个表达式的值（）A1+1/2+2/3+3/4+4/5B1+1/2+1/3+1/4+1/5C1/2+2/3+3/4+4/5D1/2+1/3+1/4+1/5,.,40,在窗体中使有一个文本框（名为n）接受输入的值，有一个命令按钮run，事件代码如下：PrivateSubrun_Click()result=Fori=1ToMe!nForj=1ToMe!nresult=result+*Nextjresult=result+Chr(13)+Chr(10)NextiMsgBoxresultEndSub打开窗体后，如果通过文本框输入的值为4，单击命令按钮后输出的图型是ABCD*,.,41,下列四种形式的循环设计中，循环次数最少的是：（）Aa=5:b=8DOa=a+1LoopWhileabCa=5:b=8DOUntila=0Andresult7,.,46,窗体代码如下：PrivateSubCommand1_Click（）MsgBoxf(24,18)EndSubPublicFunctionf(masinteger,nasinteger)asintegerDoWhilemnDoWhilemnm=m-nLoopDoWhilemx=5b-y=4t=x=5x=t/y=5/4=1.25y=tmody=5mod4=1,.,52,在窗体中添加一个名称为Command1的命令按钮，然后编写如下程序：PublicxAsIntegerPrivateSubCommand1_Click()x=10Calls1Call为调用过程的专用语句Calls2用法为：Call子过程名（参数）MsgBoxxEndSubPrivateSubs1()全程变量X起作用x=x+20x=x+20=10+20=30,返回给公有变量XEndSubPrivateSubs2()DimxAsInteger此X是子程序S2中的变量.只在S2起作用x=x+20EndSub窗体打开运行后，单击命令按钮，则消息框的输出结果为A）10B）30C）40D）50,.,53,在过程定义中有语句：PrivateSubGetData(ByReffAsInteger)其中“ByRef”的含义是：A传值调用B传址调用C形式参数D实际参数若要在子过程Proc1调用后返回两个变量的结果，下列过程定义语句中有效的是：ASubProc1(n,m)BSubProc1(ByValn,m)CSubProc1(n,ByValm)DSubProc1(ByValn,ByValm),ByRef关键字或省略不写，表示参数传递是传址方式。,Byval含义是参数按照值传递，省略即按照地址传递，也相当于输入了ByRef.注：Sub名后面的内容表明：（n，m）均为传址方式，过程调用结束后，将n和m的值返回给实参。而加入了关键字：ByVal表明是直接返回值，但Sub又没有返回值的概念，所以就什么也没有传递。,.,54,在过程定义中有语句PrivateSubGetData(ByvaldataAsInteger)其中Byval的含义是A传值调用B传址调用C形式参数D实际参数若要在子过程Proc1调用后返回两个变量的结果，下列过程定义语句中有效的是：A)SubProc1(n,m)Byval参数省略，表示变量n和m均是传址调用；B)SubProc1(ByValn,m)变量n为传值调用，但Sub不行，所以不返回n值；C)SubProc1(n,ByValm)变量m为传值调用，但Sub不行，所以不返回m值；D)SubProc1(ByValn,ByValm)变量n和m均为传值调用，不返回n和m值；,根据上面介绍的Sub过程不能返回值，只能返回地址，正确的是A，也相当于Subproc1(ByRefn,ByRefm),.,55,在VBA中，下列关于过程的描述正确的是（）A过程的定义可以嵌套，但过程的调用不能嵌套B过程的定义不可以嵌套，但过程的调用能嵌套C过程的定义和过程的调用均可以嵌套D过程的定义和过程的调用均不可以嵌套现有一个已经建好的窗体，窗体中有一命令按钮，单击此按钮，将打开“tEmployee”表，如果采用VBA代码完成，下面语句正确的是Adocmd.openformtEmployeeBdocmd.openviewtEmployeeCdocmd.opentabletEmployeeDdocmd.openreporttEmployee,.,56,打开“学生信息录入”窗体，如果采用VBA代码完成，下面语句正确的是Adocmd.openform学生信息录入Bdocmd.openview学生信息录入Cdocmd.opentable学生信息录入Ddocmd.openreport学生信息录入“在VBA代码调试过程中，能够显示出所有在当前过程中变量声明及变量值信息的是A快速监视窗口B监视窗口C立即窗口D本地窗口VBA中不能进行错误处理的语句结构是AOnErrorThen标号BOnErrorGoto标号COnErrorResumeNextDOnErrorGoto0,.,57,数据库编程,数据库编程,DAO：数据库访问对象,ADO：Active数据对象,RecordSet记录集对象,第一条记录,第二条记录,最后一