VBA填空选择(答案)

1.假设固体的名称为fmTest，则把固体的标题设置为“AccessTes的语句是A) Me=AccessTestB)Me.Caption二AccessTestC)Me.text=AccessTestD)Me.Name=AccessTest讲解：窗体的标题属性用me.caption,D选项Name代表名称，但窗体没有名称属性，Form.caption执行语句：MsgBox“AAAA，vbOKCancel+vbQuestion,“BBB之后,弹出的信息框外观样式是C讲解：消息框第一个参数：提示信息（必不可少的），第二个参数：按钮+图标类型，第三个参数：标题VBA的自动运行宏，必须命名为o讲解：命名为AutoExec的宏在打开数据库时会自动运行。要取消自动运行，打开数据库时按住shift键即可Access的窗体对象或报表事件可以有两种方法响应：宏对象和一答案：事件过程下图所示的窗体上有一个命令按钮（名称为Command1）和一个选项组（名称为Frame）,选项组上显示“Frame文本的标签控件名称为Labell,若将选项组上显示文本“Frame改为汉字“性别”，应使用的语句是0讲解：标签上的文本使用caption属性在当前窗体上，若要实现将焦点移动到指定控件，应使用的宏操作命令是若在“销售总数”窗体中有“订货总数”文本框控件，能够正确引用控件值的是A) Forms.销售总数.订货总数B) Forms!销售总数.订货总数C) Forms.销售总数!订货总数D) Forms!销售总数!订货总数讲解：引用窗体控件值格式：Forms!窗体名川控件名在VBA中要判断一个字段的值是否为Null,应该使用的函数是9IsNULL题中使用下图，窗体的名称为fmTest,窗体中有一个标签和一个命令按钮，名称分别为Labell和bChange-在“窗体视图”显示该窗体时，要求在单击命令按钮后标签上显示的文字颜色变为红色，以下能实现该操作的语句是A) label1.ForeColor=255B)bChange.ForeColor=255C)labell.ForeColor=255D)bChange.ForeColor=255标签文本颜色：ForeColor,值为数字型若将窗体的标题设置为“改变文字显示颜色”，应使用的语句是A) Me=改变文字显示颜色”B) Me.Caption二改变文字显示颜色”C) Me.text二改变文字显示颜色”D) Me.Name二改变文字显示颜色”11. 在“窗体视图”中显示窗体时，窗体中没有记录选定器，应将窗体的“记录选定器”属性值设置为A) 是B)否C)有D)无12. 为窗体或报表上的控件设置属性值的正确宏操作命令是A) SetB)SetDataC)SetWamingsD)SetValue13. 因修改文本框中的数据而触发的事件是A)ChangeB)EditC)GetfocusD)LostFocus14.2007.4(10)退出Access应用程序的VBA代码是【10】。Docmd.Quit直接在属性窗口设置对象的属性，属于“静态”设置方法，在代码窗口中由VBA代码设置对象的属性叫做“一动态”设置方法。15. Access中用于执行指定的SQL语言的宏操作名RunSQL_。RunMacro发生在控件接收焦点之前的事件是A)EnterB)ExitC)GotFocusD)LostFocus16. 如果加载一个窗体，先被触发的事件是A. Load事件B.Open事件C.Click事件D.DbClick事件17. 现有一个已经建好的窗体，窗体中有一命令按钮，单击此按钮，将打开“tEmployee表，如果采用VBA代码完成，下面语句正确的是A. docmd.openformtEmployee打开窗体B. docmd.openviewtEmployeedocmd.opentabletEmployee打开表C. docmd.openreporttEmployee打开报表在VBA中要打开名为“学生信息录入”的窗体，应使用的语句是A）DoCmd.OpenForm数据信息录入B）OpenForm”数据信息录入”C）DoCmd.OpenWindow数据信息录入D）OpenWindow数据信息录入18. Access的控件对象可以设置某个属性来控制对象是否可用（不可用时显示为灰色状态）。需要设置的属性是A. Default默认值B. Cancel针对按钮设置，如果值为真，按ESC自动执行该按钮功能Enabled可用不可用D.Visible可见不可见19. 在窗体中添加了一个文本框和一个命令按钮（名称分别为tText和bCommand）,并编写了相应的事件过程。运行此窗体后，在文本框中输入一个字符，则命令按钮上的标题变为“计算机等级考试”。以下能实现上述操作的事件过程是DB)PrivateSubtText_Click()bCommand.Caption计算机等级考试”EndSubB)PrivateSubtText_Click()bCommand.Caption计算机等级考试”EndSubAPrivateSubbCommand_Click（）Caption=计算机等级考试EndSubC)PrivateSubbCommand_Change()Caption=计算机等级考试EndSubD)PrivateSubtText_Change()bCommand.Caption=计算机等级考试”EndSub讲解：事件应该是在文本框的内容发生变化时执行，所以为文本框的change事件23.2006.4（填14）窗体中有两个命令按钮：“显示”（控件名为cmdDisplay）种，测试（控件名为cmdTest）。以下事件过程的功能是：单击“测试”按钮时，窗体上弹出一个消息框。如果单击消息框的“确定”按钮，隐藏窗体上的“显示”命令按钮；单击“取消”按钮关闭窗体。按照功能要求，将程序补充完整。PrivateSubcmdTest_Click()AnswerAmsgbox(隐藏按钮”，vbOKCancel)IfAnswer=vbOKThencmdDisplay.Visible二falseElseDocmd.CloseEndIfEndSub24. 下列过程的功能是：通过对象变量返回当前窗体的Recordset属性记录集引用，消息框中输出记录集的记录(即窗体记录源)个数SubGetRecNum()DimrsAsObjectSetrs=Me.RecordsetMsgBoxEndSub程序空白处应填写的是：A)CountB)rs.CountC)RecordCountD)rs.RecordCount25. 下列程序段的功能是实现“学生”表中“年龄”字段值加1DimStrAsStringStr二Docmd.RunSQLStr空白处应填入的程序代码是年龄=年龄+1A) Update学生Set年龄二年龄+1Set年龄二年龄+1B) Edit学生年龄=年龄+126.006.9傾9)某窗体中有一命令按钮，名称为C1。要求在窗体视图中单击此命令按钮后，命令按钮上显示的文字颜色为棕色(棕色代码为128)，实现该操作的VBA语句是_cl.forecolor=128。27. 在窗体上有一个文本框控件，名称为Textlo同时，窗体加载时设置其计时器间隔为1秒、计时器触发事件过程则实现在Textl文本框中动态显示当前日期和时间。请补充完整。PrivateSubForm_Load()Me.TimerInterval=1000EndSubPrivateSub_Form_Timer(窗体的计时器触发事件Me.Textl二Now()EndSub28. 假设某数据库已建有宏对象“宏1”，“宏1”中只有一个宏操作SetValue,其中第一个参数项目为“Labe。.Caption第二个参数表达式为“Tex。”,窗体“fmTest”中有一个标签LabelO和一个文本框Text。，现设置控件TextO的“更新后”事件为运行“宏1”，则结果是A)将文本框清空B)将标签清空C) 将文本框中的内容复制给标签的标题，使二者显示相同内容将标签的标题复制到文本框，使二者显示相同内容讲解：setvalue宏，第一个参数：要设置的项目，第二个参数：给第一个参数设置的具体值29.2007.9(32)在窗体中有一个标签Label。，标题为“测试进行中”；有一个命令按钮Command1；事件代码如下：PrivateSubCommandl_Click()LabelO.Caption=标签”EndSubPrivateSubForm_Load()Form.Caption=举例”Command1.Caption=移动EndSub打开窗体后单击命令按钮，屏幕显示。30在下图所示的窗体上，有一个标有“显示”字样的命令按钮（名称为Command1）和一个文本框（名称为textl）。当单击命令按钮时，将变量sum的值显示在文本框内，正确的代码是（）。Me!Textl.Caption=sumA) Me!Textl.Value=sumvalue属性：可以为文本型或数字型数据Me!Textl.Text=sumtext属性：只能为文本型数据B) Me!Text.Visible二sum31. 在VBA中，实现窗体打开操作的命令是()A)DoCmd.OpenFormB)OpenFormC)Do.OpenFormD)DoOpcn.Form32. 执行语句：MsgBox”AAAA,vbOKCancel+vbQuetion,“BBBB后，弹出的信息框A）标题为“BBBB、框内提示符为“惊叹号”、提示内容为“AAAAB）标题为“AAAA、框内提示符为“惊叹号”、提示内容为“BBBBc）标题为“bbbB、框内提示符为“问号”、提示内容为“aaaAd）标题为“aaaA、框内提示符为“问号、提示内容为“bbbB33. ）窗体中有3个命令按钮，分别命名为Commandl、Command2和Command3当单击Commandl按钮时，Command2按钮变为可用，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=false34. T列程序段的功能是实现“学生”表中“年龄”字段值加1DimStrAsStringStr=Docmd.RunSQLStrstr应该为SQL语句空白处应填入的程序代码是A)年龄=年龄+1B) Update学生Set年龄二年龄+1C) Set年龄二年龄+1D) Edit学生年龄=年龄+1现有一个登录窗体如下图所示。打开窗体后输入用户名和密码，登录操作要求在20秒内完成,如果在20秒内没有完成登陆操作,则倒计时达到0秒时自动关闭登录窗体，窗体的右上角是显示倒计时的标签Itimeo事件代码如下，要求填空完成事件过程。-!x|用尸若r開记时：却僅交OptionCompareDatabaseDimflagAsBooleanDimiAsIntegerPrivateSubForm_Load()flag=true14Me.Timerlnterval=1000i=0EndSubPrivateSubForm_Timer()Ifflag=TrueAndi20ThenMe!ITime.Caption=20ii=i+l15ElseDoCmd.CloseEndIfEndSubPrivateSubOK_Click()登录程序略如果用户名和密码输入正确，贝ij:falg=FalseEndSub35. 在窗体文本框Text1中输入“456AbC后，立即窗口上输出的结果是456aBc。chr(52)=”4”PrivateSubTextl_KeyPress(KeyAsciiAsInteger)SelectCaseDeyAscii代表输入字符的ASCII码Case97To122Debug.PrintUcase(Chr(KeyAscii);Case65To90Debug.PrintLcase(Chr(KeyAscii);Case48To57Debug.PrintChr(KeyAscii);CaseElseKeyAscii=0EndSelectEndSub37.13下列子过程的功能是：将当前数据库文件中”学生表”的学生”年龄”都加1,请在程序空白的地方填写适当的语句，使程序实现所需要的功能PrvateSubSetAgePlusl_Click（）DimdbAsDAO.DatabaseDimrsAsDAO.RecordsetDimfdAsDAO.FieldSetdb=CurrentDb（）Setrs=db.OpenRecordset（学生表）setfd=rs.field（“年龄”）DoWhileNotrs.EOFrs.Editfd=fd+1rs.Updategmovenext_Looprs.Closedb.CloseSetrs二NothingSetdb=NothingEndSub38. 数据库中有工资表，包括“姓名”、“工资”和“职称”等字段，现要对不同职称的职工增加工资，规定教授职称增加15%,副教授职称增加10%,其他人员增加5%o下列程序的功能是按照上述规定调整每位职工的工资，并显示所涨工资之总和。请在空白处填入适当的语句，使程序可以完成指定的功能。PrivateSubCommand5_Click（）DimwsAsDAO.WorkspaceDimdbAsDAO.DatabaseDimrsAsDAO.RecordsetDimgzAsDAO.FieldDimzcAsDAO.FieldDimsumAsCurrencyDimrateAsSingleSetdb=CurrentDb（）Setrs=db.OpenRecordset（I资表”）Setgz=rs.Fields（工资”）Setzc=rs.Fields(职称”)sum=0DoWhileNot14rs.eofrs.EditSelectCasezcCaseIs=教授rate-0.15CaseIs=副教授”rate-0.1CaseElserate0.05EndSelectsumsum+gz*rategz=gz+gz*rate【15】rs.updaters.MoveNextLooprs.Closedb.CloseSetrs=NothingSetdb=NothingMsgBox涨工资总计:&sumEndSub39. (13)现有用户登录界面如下:CH：?匹驾RamLinK.m窗体中名为username的文本框用于输入用户名，名为pass的文本框用于输入用户的密码。用户输入用户名和密码后，单击“登录”名为login的按钮，系统查找名为“密码表”的数据表，如果密码表中有指定的用户名且密码正确，则系统根据用户的“权限”分别进入“管理员窗体”和“用户窗体”：如果用户名或密码输入错误，贝y给出相应的提示信息。密码表中的字段均为文本类型，数据如下图。密7#福码I叔限IChen1-34怎Zhang、S6：8待哗?.|-T?-?-rWang,|？/!11:；I单击“登录”按钮后相关的事件代码如下，请补充完整。PrivateSublogin_Click()DimstrAsStringDimrsAsNewADODB只ecordsetDimfdAsADODB.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=ElseSetfd二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事件ElselfMeitxtAge30_13Then非法范围数据输入的验证MsgBox”年龄为15-30范围数据！,vbc,”警告Cancel=True，取消BeforeUpdate事件ElseMsgBox”数据验证OK!,vblnformation,通告”EndIfEndSub已知一个名为“学生”的Access数据库，库中的表“stud“存储学生的基本信息，包括学号、姓名、性别和籍贯。下面程序的功能是：通过下图所示的窗体向“stub表中添加学生记录，对应“学号”、“姓名”和“籍贯”的四个文本框的名称分别为tNo、tName、tSex和tRes当单击窗体中的“增加“命令按钮(名称为Commandl)时，首先判断学号是否重复，如果不重复则向“stud“表中添加学生记录：如果学号重复，则给出提示信息。3“*1|11(清依据所要求的功能，将如下程序补充完整PrivateSubForri)_Load()、打开窗口时，连接Access数据库SetADOcn=CurrentProject,ConnectionEndSubDimADOcnAsNewADODB.ConneetionPrivateSubCommandl_Click()、增加学生记录DimStrSQLAsStringDimADOrsAsNewADODB,RecordsetSetADOrs,ActiveConnection=ADOcnADOrs.OpennSelect学号FromStudWhere学号=+tNo+IFNotADOrs.eof【14】Then如果该学号的学生记录已经存在，则显示提示信息MsgBox”你输入的学号已存在，不能增加！“Else增加新学生的记录strSQL二InsertIntostud(学号，姓名，性别，籍贯)”strSQL二strSQL+Values(+tNo+,+tName+tSex+tRes+)”ADOen.Execute【15】strSQLMsgBox添加成功，请继续！”EndIfADOrs.CloseSetADOrs二NothingEndSub