VBA填空选择答案.docx
《VBA填空选择答案.docx》由会员分享，可在线阅读，更多相关《VBA填空选择答案.docx（13页珍藏版）》请在冰豆网上搜索。
VBA填空选择答案
1.假设窗体的名称为fmTest，则把窗体的标题设置为“AccessTest”的语句是
A）Me=“AccessTest”B）Me.Caption=“AccessTest”
C）Me.text=“AccessTest”D）Me.Name=“AccessTest”
讲解：
窗体的标题属性用me.caption，D选项Name代表名称，但窗体没有名称属性,Form.caption
2.执行语句：
MsgBox“AAAA”，vbOKCancel+vbQuestion,“BBBB”之后，弹出的信息框外观样式是C
讲解：
消息框第一个参数：
提示信息（必不可少的），第二个参数：
按钮+图标类型，第三个参数：
标题
3.VBA的自动运行宏，必须命名为AutoExec。
讲解：
命名为AutoExec的宏在打开数据库时会自动运行。
要取消自动运行，打开数据库时按住shift键即可
4.Access的窗体对象或报表事件可以有两种方法响应：
宏对象和
答案：
事件过程
5.下图所示的窗体上有一个命令按钮（名称为Command1）和一个选项组（名称为Framel），选项组上显示“Framel”文本的标签控件名称为Labell，若将选项组上显示文本“Frame1”改为汉字“性别”，应使用的语句是label1.caption=”性别”。
讲解：
标签上的文本使用caption属性
6.在当前窗体上，若要实现将焦点移动到指定控件，应使用的宏操作命令是GotoControl。
7.若在“销售总数”窗体中有“订货总数”文本框控件，能够正确引用控件值的是
A）Forms.[销售总数].[订货总数]
B）Forms!
[销售总数].[订货总数]
C）Forms.[销售总数]!
[订货总数]
D）Forms!
[销售总数]!
[订货总数]
讲解：
引用窗体控件值格式：
Forms!
[窗体名]!
[控件名]
8.在VBA中要判断一个字段的值是否为Null,应该使用的函数是【9】IsNULL。
题中使用下图，窗体的名称为fmTest，窗体中有一个标签和一个命令按钮，名称分别为Label1和bChange。
9.在“窗体视图”显示该窗体时，要求在单击命令按钮后标签上显示的文字颜色变为红色，以下能实现该操作的语句是
A）label1.ForeColor=255B）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.在“窗体视图”中显示窗体时，窗体中没有记录选定器，应将窗体的“记录选定器”属性值设置为
A）是B）否C）有D）无
12.为窗体或报表上的控件设置属性值的正确宏操作命令是
A）SetB）SetDataC）SetWarningsD）SetValue
13.因修改文本框中的数据而触发的事件是
A）ChangeB）EditC）GetfocusD）LostFocus
14.2007.4（10）退出Access应用程序的VBA代码是【10】。
Docmd.Quit
15.直接在属性窗口设置对象的属性，属于“静态”设置方法，在代码窗口中由VBA代码设置对象的属性叫做“__动态_____”设置方法。
16.Access中用于执行指定的SQL语言的宏操作名___RunSQL__。
RunMacro
17.发生在控件接收焦点之前的事件是
A）Enter B）Exit C）GotFocus D）LostFocus
18.如果加载一个窗体，先被触发的事件是
A．Load事件 B．Open事件
C．Click事件 D．DbClick事件
19.现有一个已经建好的窗体，窗体中有一命令按钮，单击此按钮，将打开“tEmployee”表，如果采用VBA代码完成，下面语句正确的是
A．docmd.openform″tEmployee″ 打开窗体
B．docmd.openview″tEmployee″
C．docmd.opentable″tEmployee″ 打开表
D．docmd.openreport″tEmployee″打开报表
20.在VBA中要打开名为“学生信息录入”的窗体，应使用的语句是
A）DoCmd.OpenForm”数据信息录入”
B）OpenForm”数据信息录入”
C）DoCmd.OpenWindow”数据信息录入”
D）OpenWindow”数据信息录入”
21.Access的控件对象可以设置某个属性来控制对象是否可用（不可用时显示为灰色状态）。
需要设置的属性是
A．Default默认值
B．Cancel针对按钮设置，如果值为真，按ESC自动执行该按钮功能
C．Enabled 可用不可用
D．Visible可见不可见
22.在窗体中添加了一个文本框和一个命令按钮（名称分别为tText和bCommand），并编写了相应的事件过程。
运行此窗体后，在文本框中输入一个字符，则命令按钮上的标题变为“计算机等级考试”。
以下能实现上述操作的事件过程是D
讲解：
事件应该是在文本框的内容发生变化时执行，所以为文本框的change事件
23.2006.4（填14）窗体中有两个命令按钮：
“显示”（控件名为cmdDisplay）和“测试”（控件名为cmdTest）。
以下事件过程的功能是：
单击“测试”按钮时，窗体上弹出一个消息框。
如果单击消息框的“确定”按钮，隐藏窗体上的“显示”命令按钮；单击“取消”按钮关闭窗体。
按照功能要求，将程序补充完整。
PrivateSubcmdTest_Click（）
Answer= msgbox （“隐藏按钮”，vbOKCancel）
IfAnswer=vbOKThen
cmdDisplay.Visible= false
Else
Docmd.Close
EndIf
EndSub
24.下列过程的功能是：
通过对象变量返回当前窗体的Recordset属性记录集引用，消息框中输出记录集的记录（即窗体记录源）个数
SubGetRecNum（）
DimrsAsObject
Setrs=Me.Recordset
MsgBox
EndSub
程序空白处应填写的是：
A）Count B）rs.Count C）RecordCount D）rs.RecordCount
25.下列程序段的功能是实现“学生”表中“年龄”字段值加1
DimStrAsString
Str=" "
Docmd.RunSQLStr
空白处应填入的程序代码是
A）年龄=年龄+1
B）Update学生Set年龄=年龄+1
C）Set年龄=年龄+1
D）Edit学生年龄=年龄+l
26.006.9（填9）某窗体中有一命令按钮，名称为C1。
要求在窗体视图中单击此命令按钮后，命令按钮上显示的文字颜色为棕色（棕色代码为128），实现该操作的VBA语句是_c1.forecolor=128___。
27.在窗体上有一个文本框控件，名称为Text1。
同时，窗体加载时设置其计时器间隔为1秒、计时器触发事件过程则实现在Text1文本框中动态显示当前日期和时间。
请补充完整。
PrivateSubForm_Load（）
Me.TimerInterval=1000
EndSub
PrivateSub__Form_Timer（）_____窗体的计时器触发事件
Me.Text1=Now（）
EndSub
28.假设某数据库已建有宏对象“宏1”，“宏1”中只有一个宏操作SetValue,其中第一个参数项目为“[Label0].[Caption]”,第二个参数表达式为“[Text0]”,窗体“fmTest”中有一个标签Label0和一个文本框Text0,现设置控件Text0的“更新后”事件为运行“宏1”，则结果是
A）将文本框清空B）将标签清空
C）将文本框中的内容复制给标签的标题，使二者显示相同内容
D）将标签的标题复制到文本框，使二者显示相同内容
讲解：
setvalue宏，第一个参数：
要设置的项目，第二个参数：
给第一个参数设置的具体值
29.2007.9（32）在窗体中有一个标签Label0，标题为“测试进行中”；有一个命令按钮Command1；事件代码如下：
PrivateSubCommand1_Click（）
Label0.Caption="标签"
EndSub
PrivateSubForm_Load（）
Form.Caption="举例"
Command1.Caption="移动"
EndSub
打开窗体后单击命令按钮，屏幕显示______。
A）
B）
C）
D）
30.在下图所示的窗体上，有一个标有“显示”字样的命令按钮（名称为Command1）和一个文本框（名称为text1）。
当单击命令按钮时，将变量sum的值显示在文本框内，正确的代码是（ ）。
A）Me!
Text1.Caption=sum
B）Me!
Text1.Value=sumvalue属性：
可以为文本型或数字型数据
C）Me!
Text1.Text=sumtext属性：
只能为文本型数据
D）Me!
Text1.Visible=sum
31.在VBA中，实现窗体打开操作的命令是（）。
A）DoCmd.OpenForm B）OpenForm
C）Do.OpenForm D）DoOpcn.Form
32.执行语句：
MsgBox”AAAA”,vbOKCancel+vbQuetion,“BBBB”之后，弹出的信息框
A）标题为“BBBB”、框内提示符为“惊叹号”、提示内容为“AAAA”
B）标题为“AAAA”、框内提示符为“惊叹号”、提示内容为“BBBB”
C）标题为“BBBB”、框内提示符为“问号”、提示内容为“AAAA”
D）标题为“AAAA”、框内提示符为“问号”、提示内容为“BBBB”
33.）窗体中有3个命令按钮，分别命名为Command1、Command2和Command3。
当单击Command1按钮时，Command2按钮变为可用，Command3按钮变为不可见。
下列Command1的单击事件过程中，正确的是：
Ａ）privatesubCommand1_Click（）
Command2.Visible=true
Command3.Visible=false
Ｂ）privatesubCommand1_Click（）
Command2.Enable=true
Command3.Enable=false
Ｃ）privatesubCommand1_Click（）
Command2.Enable=true
Command3.Visible=false
Ｄ）privatesubCommand1_Click（）
Command2.Visible=true
Command3.Enable=false
34.下列程序段的功能是实现“学生”表中“年龄”字段值加1
DimStrAsString
Str=" "
Docmd.RunSQLStrstr应该为SQL语句
空白处应填入的程序代码是
A）年龄=年龄+1
B）Update学生Set年龄=年龄+1
C）Set年龄=年龄+1
D）Edit学生年龄=年龄+l
35.现有一个登录窗体如下图所示。
打开窗体后输入用户名和密码，登录操作要求在20秒内完成，如果在20秒内没有完成登陆操作，则倒计时达到0秒时自动关闭登录窗体，窗体的右上角是显示倒计时的标签Itime。
事件代码如下，要求填空完成事件过程。
OptionCompareDatabase
DimflagAsBoolean
DimiAsInteger
PrivateSubForm_Load（）
flag=true【14】
Me.TimerInterval=1000
i=0
EndSub
PrivateSubForm_Timer（）
Ifflag=TrueAndi<20Then
Me!
ITime.Caption=20–i
i=i+1【15】
Else
DoCmd.Close
EndIf
EndSub
PrivateSubOK_Click（）
'登录程序略
'如果用户名和密码输入正确，则：
falg=False
4
EndSub
36.在窗体文本框Textl中输入“456AbC”后，立即窗口上输出的结果是456aBc。
chr（52）=”4”
PrivateSubTextl_KeyPress（KeyAsciiAsInteger）
SelectCaseDeyAscii代表输入字符的ASCII码
Case97To122“a”~”z”
Debug.PrintUcase（Chr（KeyAscii））;
Case65To90“A”~”Z”
Debug.PrintLcase（Chr（KeyAscii））;
Case48To57“0”~”9”
Debug.PrintChr（KeyAscii）;
CaseElse
KeyAscii=0
EndSelect
EndSub
37.13,下列子过程的功能是:
将当前数据库文件中”学生表”的学生”年龄”都加1,请在程序空白的地方填写适当的语句,使程序实现所需要的功能
PrvateSubSetAgePlus1_Click（）
DimdbAsDAO.Database
DimrsAsDAO.Recordset
DimfdAsDAO.Field
Setdb=CurrentDb（）
Setrs=db.OpenRecordset（“学生表”）
setfd=rs.field（“年龄”）
DoWhileNotrs.EOF
rs.Edit
fd=fd+1
rs.Update
rs.movenext
Loop
rs.Close
db.Close
Setrs=Nothing
Setdb=Nothing
EndSub
38.数据库中有工资表，包括“姓名”、“工资”和“职称”等字段，现要对不同职称的职工增加工资，规定教授职称增加15%，副教授职称增加10%，其他人员增加5%。
下列程序的功能是按照上述规定调整每位职工的工资，并显示所涨工资之总和。
请在空白处填入适当的语句，使程序可以完成指定的功能。
PrivateSubCommand5_Click（）
DimwsAsDAO.Workspace
DimdbAsDAO.Database
DimrsAsDAO.Recordset
DimgzAsDAO.Field
DimzcAsDAO.Field
DimsumAsCurrency
DimrateAsSingle
Setdb=CurrentDb（）
Setrs=db.OpenRecordset（"工资表"）
Setgz=rs.Fields（"工资"）
Setzc=rs.Fields（"职称"）
sum=0
DoWhileNot【14】rs.eof
rs.Edit
SelectCasezc
CaseIs="教授"
rate=0.15
CaseIs="副教授"
rate=0.1
CaseElse
rate=0.05
EndSelect
sum=sum+gz*rate
gz=gz+gz*rate
【15】rs.update
rs.MoveNext
Loop
rs.Close
db.Close
Setrs=Nothing
Setdb=Nothing
MsgBox"涨工资总计:
"&sum
EndSub
39.（13）现有用户登录界面如下：
窗体中名为username的文本框用于输入用户名，名为pass的文本框用于输入用户的密码。
用户输入用户名和密码后，单击“登录”名为login的按钮，系统查找名为“密码表”的数据表，如果密码表中有指定的用户名且密码正确，则系统根据用户的“权限”分别进入“管理员窗体”和“用户窗体”：
如果用户名或密码输入错误，则给出相应的提示信息。
密码表中的字段均为文本类型，数据如下图。
单击“登录”按钮后相关的事件代码如下，请补充完整。
PrivateSublogin_Click（）
DimstrAsString
DimrsAsNewADODB.Recordset
DimfdAsADODB.Field
Setcn=CurrentProject.Connection
logname=Trim（Me!
uscrname）
pass=Trim（Mc!
pass）
IfLen（Nz（logname））=0Then
MsgBox"请输入用户名"
ElseIfLen（Nz（pass））=0Then
MsgBox"请输入密码"
Else
str="select*from 密码表where 用户名='" & logname &"'and 密码='" & pass & "'"
rs.Open str,cn, adOpenDynamic, adLockOptimistic, adCmdText
If ____rs.eof_______ Then没有找到相应的记录
MsgBox"没有这个用户名或密码输入错误，请重新输入"
Me.username=""
Mc.pass=""
Else
Set___fd_______=rs.Fields（"权限"）
If fd="管理员" Then
DoCmd.Close
DoCmd.OpenForm "管理员窗体"
MsgBox "欢迎您，管理员"
Else
DoCmd.Close
DoCmd.OpenForm "用户窗体"
MsgBox "欢迎使用会员管理系统"
EndIf
EndIf
EndIf
EndSub
40.对窗体test上文本框控件txtAge中输入的学生年龄数据进行验证。
要求：
该文本框中只接受大于等于15且小于等于30的数值数据，若输入超出范围则给出提示信息。
该文本控件的BeforeUpdate事件过程代码如下，请在空白处填入适当的语句，使程序可以完成指定的功能。
PrivateSubtxtAge_BeforeUpdate（CancelAsInteger）
IfMe!
txtAge=""OrIsNull（Me!
txtAge）Then'数据为空时的验证
MsgBox"年龄不能为空！
",vbCritical,"警告"
Cancel=True '取消BeforeUpdate事件
ElseIfIsNumeric（Me!
txtAge）=FalseThen
'非数值数据输入的验证
MsgBox"年龄必须输入数值数据！
",vbCritical,"警告"
Cancel=True '取消BeforeUpdate事件
ElseIfMe!
txtAge<15OrMe!
txtAge__>30__[13]____Then'非法范围数据输入的验证
MsgBox"年龄为15-30范围数据！
",vbc,"警告"
Cancel=True '取消BeforeUpdate事件
Else
MsgBox"数据验证OK！
",vbInformation,"通告"
EndIf
EndSub
41.
已知一个名为“学生”的Access数据库，库中的表“stud“存储学生的基本信息，包括学号、姓名、性别和籍贯。
下面程序的功能是：
通过下图所示的窗体向“stub”表中添加学生记录，对应“学号”、“姓名”和“籍贯”的四个文本框的名称分别为tNo、tName、tSex和tRes.当单击窗体中的“增加“命令按钮（名称为Commandl）时，首先判断学号是否重复，如果不重复则向“stud“表中添加学生记录：
如果学号重复，则给出提示信息。
PrivateSubForm_Load（）
、打开窗口时，连接Access数据库
SetADOcn=CurrentProject,Connection
EndSub
DimADOcnAsNewADODB.Conneetion
PrivateSubCommandl_Click（）
、增加学生记录
DimStrSQLAsString
DimADOrsAsNewADODB,Recordset
SetADOrs,ActiveConnection=ADOcn
ADOrs.Open”Select学号FromStudWhere学号=““+tNo+“‘”
IFNotADOrs.eof【14】Then
‘如果该学号的学生记录已经存在，则显示提示信息
MsgBox”你输入的学号已存在，不能增加！
“
Else
‘增加新学生的记录
strSQL=“InsertIntostud（学号，姓名，性别，籍贯）”
strSQL=strSQL+”Values（‘”+tNo+”‘,’”+tName+”‘,’“+tSex”‘，’+tRes+”‘）”
ADOen.Execute【15】strSQL。
MsgBox“添加成功，请继续！
”
EndIf
ADOrs.Close
SetADOrs=Nothing
EndSub
升级会员 