VBA填空选择答案.docx

1、VBA填空选择答案1. 假设窗体的名称为fmTest，则把窗体的标题设置为“Access Test”的语句是 A) Me = “Access Test” B) Me.Caption = “Access Test” C) Me.text = “Access Test” D) Me.Name = “Access Test”讲解：窗体的标题属性用me.caption，D选项Name代表名称，但窗体没有名称属性, Form.caption2. 执行语句：MsgBox “AAAA”，vbOKCancel + vbQuestion ,“BBBB”之后，弹出的信息框外观样式是C讲解：消息框第一个参数：提示信

2、息（必不可少的），第二个参数：按钮+图标类型，第三个参数：标题3. VBA的自动运行宏，必须命名为 AutoExec 。讲解：命名为AutoExec的宏在打开数据库时会自动运行。要取消自动运行，打开数据库时按住shift键即可4. Access的窗体对象或报表事件可以有两种方法响应：宏对象和 答案：事件过程5. 下图所示的窗体上有一个命令按钮（名称为Command1）和一个选项组（名称为Framel），选项组上显示“Framel”文本的标签控件名称为Labell，若将选项组上显示文本“Frame1”改为汉字“性别”，应使用的语句是 label1.caption=”性别” 。讲解：标签上的文本使

3、用caption属性6. 在当前窗体上，若要实现将焦点移动到指定控件，应使用的宏操作命令是 GotoControl 。7. 若在“销售总数”窗体中有“订货总数”文本框控件，能够正确引用控件值的是A）Forms.销售总数.订货总数B）Forms!销售总数.订货总数C）Forms.销售总数!订货总数 D）Forms!销售总数!订货总数讲解：引用窗体控件值格式：Forms!窗体名!控件名8. 在 VBA 中要判断一个字段的值是否为 Null,应该使用的函数是【9】 IsNULL 。题中使用下图，窗体的名称为fmTest，窗体中有一个标签和一个命令按钮，名称分别为Label1和bChange。9. 在

4、“窗体视图”显示该窗体时，要求在单击命令按钮后标签上显示的文字颜色变为红色，以下能实现该操作的语句是A）label1.ForeColor = 255 B）bChange.ForeColor = 255 C）label1.ForeColor = 255 D）bChange.ForeColor = 255标签文本颜色：ForeColor,值为数字型10. 若将窗体的标题设置为“改变文字显示颜色”，应使用的语句是A）Me =改变文字显示颜色 B）Me.Caption=改变文字显示颜色C）Me.text=改变文字显示颜色 D）Me.Name=改变文字显示颜色11. 在“窗体视图”中显示窗体时，窗体中没

5、有记录选定器，应将窗体的“记录选定器”属性值设置为A）是 B）否 C）有 D）无12. 为窗体或报表上的控件设置属性值的正确宏操作命令是A）Set B）SetData C）SetWarnings D）SetValue13. 因修改文本框中的数据而触发的事件是A) Change B）Edit C）Getfocus D）LostFocus14. 2007.4(10)退出Access应用程序的VBA代码是 【10】 。Docmd.Quit15. 直接在属性窗口设置对象的属性，属于“静态”设置方法，在代码窗口中由 VBA 代码设置对象的属性叫做“_动态_”设置方法。16. Access 中用于执行指定

6、的 SQL 语言的宏操作名_RunSQL_。RunMacro17. 发生在控件接收焦点之前的事件是 A）Enter B）ExitC）GotFocus D）LostFocus18. 如果加载一个窗体，先被触发的事件是ALoad 事件 BOpen事件 CClick 事件 DDbClick事件19. 现有一个已经建好的窗体，窗体中有一命令按钮，单击此按钮，将打开“tEmployee”表，如果采用VBA代码完成，下面语句正确的是Adocmd.openform tEmployee 打开窗体 Bdocmd.openview tEmployee Cdocmd.opentable tEmployee 打开表D

7、docmd.openreport tEmployee 打开报表20. 在VBA中要打开名为“学生信息录入”的窗体，应使用的语句是 A）DoCmd . OpenForm ”数据信息录入” B）OpenForm ”数据信息录入”C）DoCmd . OpenWindow ”数据信息录入” D）OpenWindow ”数据信息录入”21. Access的控件对象可以设置某个属性来控制对象是否可用（不可用时显示为灰色状态）。需要设置的属性是ADefault 默认值 BCancel 针对按钮设置，如果值为真，按ESC自动执行该按钮功能 CEnabled 可用不可用 DVisible 可见不可见22. 在窗

8、体中添加了一个文本框和一个命令按钮（名称分别为tText和bCommand），并编写了相应的事件过程。运行此窗体后，在文本框中输入一个字符，则命令按钮上的标题变为“计算机等级考试”。以下能实现上述操作的事件过程是D讲解：事件应该是在文本框的内容发生变化时执行，所以为文本框的change事件23. 2006.4(填14) 窗体中有两个命令按钮：“显示”（控件名为cmdDisplay）和“测试”（控件名为cmdTest）。以下事件过程的功能是：单击“测试”按钮时，窗体上弹出一个消息框。如果单击消息框的“确定”按钮，隐藏窗体上的“显示”命令按钮；单击“取消”按钮关闭窗体。按照功能要求，将程序补充完整

9、。Private Sub cmdTest_Click()Answer= msgbox（“隐藏按钮”，vbOKCancel）If Answer=vbOK Then cmdDisplay.Visible= false ElseDocmd.CloseEnd IfEnd Sub24. 下列过程的功能是：通过对象变量返回当前窗体的Recordset属性记录集引用，消息框中输出记录集的记录（即窗体记录源）个数Sub GetRecNum( )Dim rs As ObjectSet rs = Me.RecordsetMsgBox End Sub程序空白处应填写的是：A）CountB）rs.CountC）Rec

10、ordCountD）rs. RecordCount25. 下列程序段的功能是实现“学生”表中“年龄”字段值加1Dim Str As String Str= Docmd.RunSQL Str空白处应填入的程序代码是A）年龄=年龄+1B）Update学生 Set 年龄=年龄+1C）Set 年龄=年龄+1D）Edit 学生年龄=年龄+l26. 006.9(填9) 某窗体中有一命令按钮，名称为C1。要求在窗体视图中单击此命令按钮后，命令按钮上显示的文字颜色为棕色（棕色代码为128），实现该操作的VBA语句是_c1.forecolor=128_。27. 在窗体上有一个文本框控件，名称为Text1。同时，

11、窗体加载时设置其计时器间隔为1秒、计时器触发事件过程则实现在Text1 文本框中动态显示当前日期和时间。请补充完整。Private Sub Form_Load() Me.TimerInterval=1000End SubPrivate Sub _Form_Timer()_ 窗体的计时器触发事件 Me.Text1=Now()End Sub28. 假设某数据库已建有宏对象“宏1”，“宏1”中只有一个宏操作SetValue,其中第一个参数项目为“Label0.Caption”,第二个参数表达式为“Text0”,窗体“fmTest”中有一个标签Label0和一个文本框Text0,现设置控件Text0的

12、“更新后”事件为运行“宏1”，则结果是A）将文本框清空 B）将标签清空C）将文本框中的内容复制给标签的标题，使二者显示相同内容D）将标签的标题复制到文本框，使二者显示相同内容讲解：setvalue宏，第一个参数：要设置的项目，第二个参数：给第一个参数设置的具体值29. 2007.9（32）在窗体中有一个标签Label0，标题为“测试进行中”；有一个命令按钮Command1；事件代码如下： Private Sub Command1_Click( ) Label0.Caption = 标签 End Sub Private Sub Form_Load( ) Form.Caption = 举例 Com

13、mand1.Caption = 移动 End Sub 打开窗体后单击命令按钮，屏幕显示_。 A） B） C） D）30. 在下图所示的窗体上，有一个标有“显示”字样的命令按钮（名称为 Command1）和一个文本框（名称为 text1）。当单击命令按钮时，将变量 sum 的值显示在文本框内，正确的代码是（）。A）Me!Text1.Caption=sum B）Me!Text1.Value=sum value属性：可以为文本型或数字型数据C）Me!Text1.Text=sum text属性：只能为文本型数据D）Me!Text1.Visible=sum31. 在 VBA 中，实现窗体打开操作的命令是

14、（ ）。A）DoCmd.OpenForm B）OpenForm C）Do.OpenForm D）DoOpcn.Form32. 执行语句：MsgBox ”AAAA”, vbOKCancel+vbQuetion, “BBBB”之后，弹出的信息框A）标题为“BBBB”、框内提示符为“惊叹号”、提示内容为“AAAA”B）标题为“AAAA”、框内提示符为“惊叹号”、提示内容为“BBBB”C）标题为“BBBB”、框内提示符为“问号”、提示内容为“AAAA”D）标题为“AAAA”、框内提示符为“问号”、提示内容为“BBBB”33. ）窗体中有3个命令按钮，分别命名为Command1、Command2和 Co

15、mmand3。当单击Command1按钮时，Command2按钮变为可用，Command3按钮变为不可见。下列Command1的单击事件过程中，正确的是：）private sub Command1_Click()Command2.Visible = trueCommand3.Visible = false）private sub Command1_Click() Command2.Enable = trueCommand3.Enable = false）private sub Command1_Click() Command2.Enable = true Command3.Visible =

16、false）private sub Command1_Click()Command2.Visible = trueCommand3.Enable = false34. 下列程序段的功能是实现“学生”表中“年龄”字段值加1Dim Str As String Str= Docmd.RunSQL Str str应该为SQL语句空白处应填入的程序代码是A）年龄=年龄+1B）Update学生 Set 年龄=年龄+1C）Set 年龄=年龄+1D）Edit 学生年龄=年龄+l35. 现有一个登录窗体如下图所示。打开窗体后输入用户名和密码，登录操作要求在20秒内完成，如果在20秒内没有完成登陆操作，则倒计时达

17、到0秒时自动关闭登录窗体，窗体的右上角是显示倒计时的标签Itime。事件代码如下，要求填空完成事件过程。 Option Compare Database Dim flag As Boolean Dim i As Integer Private Sub Form_Load( )flag = true 【14】 Me.TimerInterval = 1000 i = 0 End Sub Private Sub Form_Timer( ) If flag = True And i 20 Then Me!ITime.Caption = 20 i i = i+1 【15】 Else DoCmd.Clos

18、e End If End Sub Private Sub OK_Click( ) 登录程序略 如果用户名和密码输入正确，则：falg=False4 End Sub36. 在窗体文本框Text l中输入“456AbC”后，立即窗口上输出的结果是 456aBc 。 chr(52)=”4”Private Sub Textl_KeyPress(KeyAscii As Integer)Select Case DeyAscii 代表输入字符的ASCII码Case 97 To 122 “a”z” Debug.Print Ucase(Chr(KeyAscii);Case 65 To 90 “A”Z” Debu

19、g.Print Lcase(Chr(KeyAscii);Case 48 To 57 “0”9” Debug.Print Chr(KeyAscii); Case Else KeyAscii = 0End SelectEnd Sub37. 13,下列子过程的功能是:将当前数据库文件中”学生表”的学生”年龄”都加1,请在程序空白的地方填写适当的语句,使程序实现所需要的功能Prvate Sub SetAgePlus1_Click() Dim db As DAO.Database Dim rs As DAO.Recordset Dim fd As DAO.Field Set db=CurrentDb()

20、 Set rs=db.OpenRecordset(“学生表”) set fd=rs.field(“年龄”) Do While Not rs.EOF rs.Edit fd= fd+1 rs.Update rs.movenext Loop rs.Close db.Close Set rs=Nothing Set db=NothingEnd Sub38. 数据库中有工资表，包括“姓名”、“工资”和“职称”等字段，现要对不同职称的职工增加工资，规定教授职称增加15%，副教授职称增加10%，其他人员增加5%。下列程序的功能是按照上述规定调整每位职工的工资，并显示所涨工资之总和。请在空白处填入适当的语句，

21、使程序可以完成指定的功能。Private Sub Command5_Click()Dim ws As DAO.WorkspaceDim db As DAO.DatabaseDim rs As DAO.RecordsetDim gz As DAO.FieldDim zc As DAO.FieldDim sum As CurrencyDim rate As SingleSet db = CurrentDb()Set rs = db.OpenRecordset(工资表）Set gz = rs.Fields(工资)Set zc = rs.Fields(职称)sum = 0Do While Not 【1

22、4】rs.eofrs.EditSelect Case zcCase Is = 教授rate = 0.15Case Is = 副教授rate = 0.1Case Elserate = 0.05End Selectsum = sum + gz * rategz = gz + gz * rate【15】rs.updaters.MoveNextLooprs.Closedb.CloseSet rs = NothingSet db = NothingMsgBox 涨工资总计: & sumEnd Sub39. （13）现有用户登录界面如下：窗体中名为 username 的文本框用于输入用户名，名为 pass

23、 的文本框用于输入用户的密码。用户输入用户名和密码后，单击“登录”名为 login 的按钮，系统查找名为“密码表”的数据表，如果密码表中有指定的用户名且密码正确，则系统根据用户的“权限”分别进入“管理员窗体”和“用户窗体”：如果用户名或密码输入错误，则给出相应的提示信息。密码表中的字段均为文本类型，数据如下图。单击“登录”按钮后相关的事件代码如下，请补充完整。Private Sub login_Click( )Dim str As String Dim rs As New ADODB.RecordsetDim fd As ADODB.Field Set cn=CurrentProject.Co

24、nnectionlogname=Trim(Me!uscrname)pass=Trim(Mc!pass)If Len(Nz(logname)=0 ThenMsgBox 请输入用户名ElseIf Len(Nz(pass)=0 ThenMsgBox 请输入密码Else str=select*from密码表 where用户名= &logname& and密码= &pass& rs.Openstr, cn,adOpenDynamic,adLockOptimistic,adCmdTextIf_rs.eof_Then 没有找到相应的记录 MsgBox 没有这个用户名或密码输入错误，请重新输入 Me.user

25、name= Mc.pass= Else Set _fd_ =rs.Fields(权限)If fd=管理员ThenDoCmd.Close DoCmd.OpenForm管理员窗体MsgBox欢迎您，管理员Else DoCmd.Close DoCmd.OpenForm用户窗体MsgBox欢迎使用会员管理系统End If End If End If End Sub 40. 对窗体test上文本框控件txtAge中输入的学生年龄数据进行验证。要求：该文本框中只接受大于等于15且小于等于30的数值数据，若输入超出范围则给出提示信息。该文本控件 的BeforeUpdate事件过程代码如下，请在空白处填入适当

26、的语句，使程序可以完成指定的功能。Private Sub txtAge_BeforeUpdate(Cancel As Integer)If Me!txtAge = Or IsNull (Me!txtAge) Then 数据为空时的验证 MsgBox 年龄不能为空！, vbCritical, 警告 Cancel = True 取消BeforeUpdate事件 ElseIf IsNumeric(Me!txtAge) = False Then 非数值数据输入的验证 MsgBox 年龄必须输入数值数据！, vbCritical, 警告 Cancel = True 取消BeforeUpdate事件 El

27、seIf Me!txtAge 30_13_Then 非法范围数据输入的验证 MsgBox 年龄为15-30范围数据！, vbc, 警告 Cancel = True 取消BeforeUpdate事件 Else MsgBox 数据验证OK！, vbInformation, 通告 End IfEnd Sub41. 已知一个名为“学生”的Access数据库，库中的表“stud“存储学生的基本信息，包括学号、姓名、性别和籍贯。下面程序的功能是：通过下图所示的窗体向“stub” 表中添加学生记录，对应“学号”、“姓名”和“籍贯”的四个文本框的名称分别为tNo、tName、tSex 和tRes.当单击窗体中

28、的“增加“命令按钮（名称为Commandl）时，首先判断学号是否重复，如果不重复则向“stud“表中添加学生记录：如果学号重复，则给出提示信息。 Private Sub Form_Load（）、打开窗口时，连接Access数据库 Set ADOcn=CurrentProject,ConnectionEnd SubDim ADOcn As New ADODB.ConneetionPrivate Sub Commandl_Click（）、增加学生记录 Dim StrSQL As StringDim ADOrs As New ADODB,RecordsetSet ADOrs ,ActiveConne

29、ction=ADOcnADOrs.Open”Select 学号From Stud Where 学号=“+tNo+“” IF Not ADOrs.eof 【14】 Then如果该学号的学生记录已经存在，则显示提示信息 MsgBox”你输入的学号已存在，不能增加！“ Else增加新学生的记录 strSQL=“Insert Into stud （学号，姓名，性别，籍贯）” strSQL=strSQL+”Values（”+tNo+”,”+tName+” ,“+tSex”，+tRes+” ）”ADOen.Execute 【15】strSQL 。 MsgBox “添加成功，请继续！” End IfADOrs.CloseSet ADOrs=NothingEnd Sub