VBA填空选择答案x

.假设固体的名称为fmTest,则把固体的标题设置为“AccessTest”的语句是A)Me="AccessTest" B)Me.Caption="AccessTest"C)Me.text="AccessTest" D)Me.Name="AccessTest"讲解：窗体的标题属性用me.caption,D选项Name代表名称，但窗体没有名称属性， Form.caption执行语句：MsgBox“AAAA"，vbOKCancel+vbQuestion,“BBBB”之后，弹出的信息框外观样式是C讲解：消息框第一个参数：提示信息（必不可少的），第二个参数：按钮+图标类型，第三个参数：标题VBA的自动运行宏，必须命名为 o讲解：命名为AutoExec的宏在打开数据库时会自动运行。要取消自动运行，打开数据库时按住shift键即可Access的窗体对象或报表事件可以有两种方法响应：宏对象和一答案：事件过程下图所示的窗体上有一个命令按钮（名称为Command1）和一个选项组（名称为Framel），选项组上显示“Framel”文本的标签控件名称为Labell,若将选项组上显示文本“Framel”改为汉字“性别”，应使用的语句是 O讲解：标签上的文本使用caption属性在当前窗体上，若要实现将焦点移动到指定控件，应使用的宏操作命令是O若在“销售总数”窗体中有“订货总数”文本框控件，能够正确引用控件值的是Forms.［销售总数］.［订货总数］Forms!［销售总数］.［订货总数］Forms.［销售总数］!［订货总数］Forms!［销售总数］!［订货总数］讲解：引用窗体控件值格式：Forms!［窗体名川控件名］8.在VBA中要判断一个字段的值是否为Null,应该使用的函数是［9］IsNULL。题中使用下图，窗体的名称为fmTest,窗体中有一个标签和一个命令按钮，名称分别为Labell和bChange-9.在“窗体视图”显示该窗体时，要求在单击命令按钮后标签上显示的文字颜色变为红色，以下能实现该操作的语句是labelLForeColor=255B)bChange.ForeColor=255C)labell.ForeColor="255"D)bChange.ForeColor="255"标签文本颜色：ForeColor,值为数字型10,若将窗体的标题设置为“改变文字显示颜色”，应使用的语句是A)Me="改变文字显示颜色”Me.Caption="改变文字显示颜色”Me.text="改变文字显示颜色”Me.Name="改变文字显示颜色〃在“窗体视图”中显示窗体时，窗体中没有记录选定器，应将窗体的“记录选定器”属性值设置为A) 是 B)否 C)有D)无为窗体或报表上的控件设置属性值的正确宏操作命令是A)Set B)SetData C)SetWamingsD)SetValue因修改文本框中的数据而触发的事件是A)ChangeB)EditC)Getfocus D)LostFocus14.2007.4(10)退出Access应用程序的VBA代码是【10】。Docmd.Quit直接在属性窗口设置对象的属性，属于“静态”设置方法，在代码窗口中由VBA代码设置对象的属性叫做“一动态”设置方法。Access中用于执行指定的SQL语言的宏操作名RunSQL_。RunMacro发生在控件接收焦点之前的事件是A)EnterB)ExitC)GotFocusD)LostFocus18.如果加载一个窗体，先被触发的事件是Load事件 B.Open事件C.Click事件 D.DbClick事件现有一个已经建好的窗体，窗体中有一命令按钮，单击此按钮，将打开“tEmployee”表，如果采用VBA代码完成，下面语句正确的是A.docmd.openform"tEmployee"打开窗体docmd.openview"tEmployee"docmd.opentable"tEmployee"打开表docmd.openreport"tEmployee"打开报表20.在VBA中要打开名为“学生信息录入”的窗体，应使用的语句是DoCmd.OpenForm"数据信息录入"OpenForm”数据信息录入”DoCmd.OpenWindow"数据信息录入"OpenWindow"数据信息录入"Access的控件对象可以设置某个属性来控制对象是否可用（不可用时显示为灰色状态）。需要设置的属性是Default默认值Cancel针对按钮设置，如果值为真，按ESC自动执行该按钮功能Enabled可用不可用Visible可见不可见在窗体中添加了一个文本框和一个命令按钮（名称分别为tText和bCommand），并编写了相应的事件过程。运行此窗体后，在文本框中输入一个字符，则命令按钮上的标题变为“计算机等级考试”。以下能实现上述操作的事件过程是DB)PrivateSubtText_Click()bCommand.Caption"B)PrivateSubtText_Click()bCommand.Caption"计算机等级考试EndSubCaption=〃计算机等级考试〃EndSubPrivateSubbCommand_Change()CaptionPrivateSubbCommand_Change()Caption=〃计算机等级考试〃EndSubPrivateSubtText_Change()bCommand.Caption=〃计算机等级考试”EndSub讲解：事件应该是在文本框的内容发生变化时执行，所以为文本框的change事件23.2006.4（填14）窗体中有两个命令按钮：“显示”（控件名为cmdDisplay）种，测试"（控件名为cmdTest）。以下事件过程的功能是：单击“测试”按钮时，窗体上弹出一个消息框。如果单击消息框的“确定”按钮，隐藏窗体上的“显示”命令按钮；单击“取消”按钮关闭窗体。按照功能要求，将程序补充完整。PrivateSubcmdTest_Click()Answer八msgbox("隐藏按钮"，vbOKCancel)IfAnswer=vbOKThencmdDisplay.Visible=falseElseDocmd.CloseEndIfEndSub.下列过程的功能是：通过对象变量返回当前窗体的Recordset属性记录集引用，消息框中输出记录集的记录(即窗体记录源)个数SubGetRecNum()DimrsAsObjectSetrs=Me.RecordsetMsgBox EndSub程序空白处应填写的是：A)CountB)rs.CountC)RecordCountD)rs.RecordCount.下列程序段的功能是实现“学生”表中“年龄”字段值加1DimStrAsStringStr=""Docmd.RunSQLStr空白处应填入的程序代码是年龄=年龄+1Update学生Set年龄=年龄+1Set年龄=年龄+1Edit学生年龄=年龄+126.006.9(填9)某窗体中有一命令按钮，名称为C1。要求在窗体视图中单击此命令按钮后，命令按钮上显示的文字颜色为棕色(棕色代码为128),实现该操作的VBA语句是_cl.forecolor=128—。.在窗体上有一个文本框控件，名称为Textlo同时，窗体加载时设置其计时器间隔为1秒、计时器触发事件过程则实现在Textl文本框中动态显示当前日期和时间。请补充完整。PrivateSubForm_Load()Me.TimerInterval=1000EndSubPrivateSub_Form_Timer()窗体的计时器触发事件Me.Textl=Now()EndSub.假设某数据库已建有宏对象“宏1”，“宏1”中只有一个宏操作SetValue其中第一个参数项目为“1@6&。].[Caption]”,第二个参数表达式为“[Text。]"，窗体"fmTest”中有一个标签LabelO和一个文本框Text。，现设置控件TextO的“更新后”事件为运行“宏1”，则结果是A)将文本框清空 B)将标签清空将文本框中的内容复制给标签的标题，使二者显示相同内容将标签的标题复制到文本框，使二者显示相同内容讲解：setvalue宏，第一个参数：要设置的项目，第二个参数：给第一个参数设置的具体值29.2007.9(32)在窗体中有一个标签Label。，标题为“测试进行中”；有一个命令按钮Command1;事件代码如下：PrivateSubCommandl_Click()LabelO.Caption="标签”EndSubPrivateSubForm_Load()Form.Caption="举例”Command1.Caption="移动"EndSub打开窗体后单击命令按钮，屏幕显示。

B)D)B)D)30.在下图所示的窗体上，有一个标有“显示”字样的命令按钮（名称为Command1）和一个文本框（名称为textl）。当单击命令按钮时，将变量sum的值显示在文本框内，正确的代码是O。Me!Textl.Caption=sum可以为文本型或数字型数据Me!Textl.Text=sumtext属性：只能为文本型数据Me!Textl.Visible=sum.在VBA中，实现窗体打开操作的命令是()。A)DoCmd.OpenFormB)OpenFormC)Do.OpenFormD)DoOpcn.Form.执行语句：MsgBox"AAAA”,vbOKCancel+vbQuetion,“BBBB”之后，弹出的信息框A）标题为“BBBB”、框内提示符为“惊叹号”、提示内容为“AAAA”B）标题为“AAAA”、框内提示符为“惊叹号”、提示内容为“BBBB”C）标题为“BBBB”、框内提示符为“问号”、提示内容为“AAAA”D）标题为“AAAA”、框内提示符为“问号”、提示内容为“BBBB”.）窗体中有3个命令按钮，分别命名为Commandl、Command2和Commands□当单击Commandl按钮时，Command!按钮变为可用，Command3按钮变为不可见。下列Commandl的单击事件过程中，正确的是：A)privatesubCommandl_Click()Command2.Visible=trueCommands.Visible=falseB)privatesubCommandl_Click()Command2.Enable=trueCommands.Enable=falseC)privatesubCommandl_Click()Command2.Enable=trueCommands.Visible=falseD)privatesubCommandl_Click()Command2.Visible=trueCommands.Enable=falseT列程序段的功能是实现“学生”表中“年龄”字段值加1DimStrAsStringStr=""Docmd.RunSQLStrstr应该为SQL语句空白处应填入的程序代码是年龄=年龄+1Update学生Set年龄=年龄+1Set年龄=年龄+1Edit学生年龄=年龄+1现有一个登录窗体如下图所示。打开窗体后输入用户名和密码，登录操作要求在20秒内完成,如果在20秒内没有完成登陆操作,则倒计时达到0秒时自动关闭登录窗体，窗体的右上角是显示倒计时的标签Itimeo事件代码如下，要求填空完成事件过程。OptionCompareDatabaseDimflagAsBooleanDimiAsIntegerPrivateSubForm_Load()flag=true[14]Me.Timerlnterval=1000i=0EndSubPrivateSubForm_Timer()Ifflag=TrueAndi<20ThenMe!ITime.Caption=20—ii=i+l[15]ElseDoCmd.CloseEndIfEndSubPrivateSubOK_Click()'登录程序略'如果用户名和密码输入正确，贝ij：falg=FalseEndSub36.在窗体文本框Text1中输入“456人6小后，立即窗口上输出的结果是456aBe。 chr(52)="4”PrivateSubTextl_KeyPress(KeyAsciiAsInteger)SelectCaseDeyAseii代表输入字符的ASCII码Case97To122Debug.PrintUease(Chr(KeyAseii));Case65To90Debug.PrintLease(Chr(KeyAseii));Case48To57Debug.PrintChr(KeyAseii);CaseElseKeyAseii=0EndSeleetEndSub37.13,下列子过程的功能是:将当前数据库文件中”学生表”的学生”年龄”都加1,请在程序空白的地方填写适当的语句，使程序实现所需要的功能PrvateSubSetAgePlusl_Click（）DimdbAsDAO.DatabaseDimrsAsDAO.RecordsetDimfdAsDAO.FieldSetdb=CurrentDb（）Setrs=db.OpenRecordset（“学生表”）setfd=rs.field（“年龄”）DoWhileNotrs.EOFrs.Editfd=fd+1rs.Updaters.movenextLooprs.Closedb.CloseSetrs=NothingSetdb=NothingEndSub数据库中有工资表，包括“姓名”、“工资”和“职称”等字段，现要对不同职称的职工增加工资，规定教授职称增加15%,副教授职称增加10%,其他人员增加5%o下列程序的功能是按照上述规定调整每位职工的工资，并显示所涨工资之总和。请在空白处填入适当的语句，使程序可以完成指定的功能。PrivateSubCommand5_Click（）DimwsAsDAO.WorkspaceDimdbAsDAO.DatabaseDimrsAsDAO.RecordsetDimgzAsDAO.FieldDimzcAsDAO.FieldDimsumAsCurrencyDimrateAsSingleSetdb=CurrentDb（）Setrs=db.OpenRecordset（"I资表”）Setgz=rs.Fields（"工资”）Setzc=rs.Fields("职称”)sum=0DoWhileNot[14]rs.eofrs.EditSelectCasezcCaseIs="教授"rate-0.15CaseIs="副教授”rate-0.1CaseElserate—0.05EndSelectsum—sum+gz*rategz=gz+gz*rate【15】rs.updaters.MoveNextLooprs.Closedb.CloseSetrs=NothingSetdb=NothingMsgBox"涨工资总计:"&sumEndSub(13)现有用户登录界面如下:CH： ••RamLinK.-Am匹驾窗体中名为username的文本框用于输入用户名，名为pass的文本框用于输入用户的密码。用户输入用户名和密码后，单击“登录”名为login的按钮，系统查找名为“密码表”的数据表，如果密码表中有指定的用户名且密码正确，则系统根据用户的“权限”分别进入“管理员窗体”和“用户窗体”：如果用户名或密码输入错误，则给出相应的提示信息。密码表中的字段均为文本类型，数据如下图。__7#密 I I 4 福一码_制限TOC\o"1-5"\h\zChen[1-34 怎Zhang、S6：8待哗 •.|-T”一■» «•—-r"Wang, |⑵'•./'!!11'：； I单击“登录”按钮后相关的事件代码如下，请补充完整。PrivateSublogin_Click()DimstrAsStringDimrsAsNewADODB.RecordsetDimfdAsADODB.FieldSetcn=CurrentProject.Connectionlogname=Trim(Me!username)pass=Trim(Mc!pass)IfLen(Nz(logname))=0ThenMsgBox"请输入用户名"ElselfLen(Nz(pass))=OThenMsgBox"请输入密码”Elsestr="select*from密码表where用户名-"&logname&"'and密码='"&pass&"'"rs.Openstr,cn,adOpenDynamic,adLockOptimistic,adCmdTextIfrs.eofThen没有找到相应的记录MsgBox”没有这个用户名或密码输入错误，请重新输入"Me.username=""Mc.pass=""ElseSet—fd=rs.Fields（"权限”）Iffd="管理员"ThenDoCmd.CloseDoCmd.OpenForm”管理员窗体”MsgBox"欢迎您，管理员”ElseDoCmd.CloseDoCmd.OpenForm”用户窗体”MsgBox”欢迎使用会员管理系统”EndIfEndIfEndIfEndSub.对窗体test上文本框控件txtAge中输入的学生年龄数据进行验证。要求：该文本框中只接受大于等于15且小于等于30的数值数据，若输入超出范围则给出提示信息。该文本控件的BeforeUpdate事件过程代码如下，请在空白处填入适当的语句，使程序可以完成指定的功能。PrivateSubtxtAge_BeforeUpdate(CancelAsInteger)IfMeitxtAge=""OrIsNull(MeitxtAge)Then'数据为空时的验证MsgBox”年龄不能为空！",vbCritical,"警告”Cancel=True，取消BeforeUpdate事件ElselfIsNumeric(Me!txtAge)=FalseThen，非数值数据输入的验证MsgBox"年龄必须输入数值数据！",vbCritical,"警告”Cancel=True，取消BeforeUpdate事件ElselfMeitxtAge<15OrMe!txtAge_>30__[13]Then'非法范围数据输入的验证MsgBox”年龄为