代码题解析DOC.docx
《代码题解析DOC.docx》由会员分享，可在线阅读，更多相关《代码题解析DOC.docx（32页珍藏版）》请在冰豆网上搜索。
代码题解析DOC
1、设置所建命令按钮bC的单击事件，使用户单击该命令按钮后，CDID标签的显示颜色改为红色。
要求用VBA代码实现。
注意：
不允许修改窗体对象"fCollect"中未涉及的控件和属性；不允许修改表对象"tCollect"和查询对象"qT"。
本题相关知识点：
ForeColor前景颜色；255红色代码
PrivateSubbC_Click（）
CDID_标签.ForeColor=255标签（CDID_标签）.前景颜色（ForeColor）=255（红色代码）
EndSub
2、（3）补充窗体"fTest"上"test1"按钮（名为"bt1"）的单击事件代码，实现以下功能：
打开窗体，在文本框"tText"中输入一段文字，然后单击窗体"fTest"上"test1"按钮（名为"bt1"），程序实现将文本框内容作为窗体上标签"bTitle"的标题显示。
注意：
不允许修改窗体对象"fTest"中未涉及的控件和属性；只允许在"*****Add*****"与"*****Add*****"之间的空行内补充语句、完成设计。
本题相关知识点：
Caption显示标题
PrivateSubbt1_Click（）
'*****Add*****
bTitle.Caption=tText标签（bTitle）的.显示标题（Caption）=来自文本框（tText）中输入的内容
'*****Add*****
EndSub
3、（4）单击"刷新"按钮（名为"bt1"），事件过程动态设置窗体记录源为查询对象"qEmp"，实现窗体数据按性别条件动态显示；单击"退出"按钮（名为"bt2"），关闭窗体。
注意：
不允许修改数据库中的表对象"tEmp"；不允许修改查询对象"qEmp"中未涉及的内容；不允许修改窗体对象"fEmp"中未涉及的控件和属性；已给事件过程，只允许在"*****Add*****"与"*****Add*****"之间的空行内补充语句、完成设计，不允许增删和修改其它位置已存在的语句。
本题相关知识点：
RecordSource记录源
PrivateSubbt1_Click（）
'动态设置窗体记录源属性
'*****Add1*****
RecordSource=”qEmp”窗体或报表的记录源（RecordSource）是来自哪个表或查询=表名或查询
'*****Add1*****名（“qEmp”就是本题中要求作为记录来源的表名）（注意：
表名或查询
'刷新窗体名必须加“”）
Me.Requery
EndSub
PrivateSubbt2_Click（）
'关闭窗口
'*****Add2*****
DoCmd.Close关闭窗体、报表、表都用固定语句：
DoCmd.Close
'*****Add2*****
EndSub
4、（5）在窗体中有一个"显示全部记录"命令按钮（名称为bList），单击该按钮后，应实现将"tStudent"表中的全部记录显示出来的功能。
现已编写了部分VBA代码，请按照VBA代码中的指示将代码补充完整。
要求：
修改后运行该窗体，并查看修改结果。
注意：
不允许修改窗体对象"fQuery"和"fStudent"中未涉及的控件、属性；不允许修改表对象"tStudent"。
对于VBA代码，只允许"****************"与"****************"之间的一空行内补充语句、完成设计，不允许增删和修改其它位置已存在的语句。
本题相关知识点：
select语句格式：
select字段列表from表名
PrivateSubCommand4_Click（）
BBB.Form.RecordSource="select*fromtStudentwhere姓名like'"&Me!
[Text2]&"*'"
EndSub
PrivateSubbList_Click（）
'*****请在下面双引号内添入适当的SELECT语句****'
BBB.Form.RecordSource="select*fromtStudent“选择（select）通配符星号（*）所有记录来
'************************************************'自于（from）表名（tStudent）
[Text2]=""
EndSub
PrivateSub命令7_Click（）
DoCmd.Close
EndSub
5、（5）在窗体中有一个"退出"命令按钮（名称为bQuit），单击该按钮后，应关闭"fStudent"窗体。
现已编写了部分VBA代码，请按照VBA代码中的指示将代码补充完整。
要求：
修改后运行该窗体，并查看修改结果。
注意：
不允许修改窗体对象"fGrade"和"fStudent"中未涉及的控件、属性；不允许修改表对象"tStudent"和"tGrade"。
对于VBA代码，只允许"****************"与"****************"之间的一空行内补充语句、完成设计，不允许增删和修改其它位置已存在的语句。
本题相关知识点：
关闭窗体DoCmd.Close
PrivateSubbQuit_Click（）
'***********请在下面填入一行语句***********'
DoCmd.Close关闭窗体、报表、表都用固定语句：
DoCmd.Close
'********************************************'
EndSub
6、（3）补充窗体"fTest"上"test1"按钮（名为"bt1"）的单击事件代码，实现以下功能：
打开窗体，在文本框"tText"中输入一段文字，然后单击窗体"fTest"上"test1"按钮（名为"bt1"），补充代码设置窗体上标签"bTitle"的标题为文本框"tText"输入内容与文本串"等级考试测试"的连接并消除连接串的前导和尾随空白字符；
注意：
不允许修改窗体对象"fTest"中未涉及的控件和属性；只允许在"*****Add1*****"与"*****Add1*****"之间的空行内补充语句、完成设计。
本题相关知识点：
Trim去前后空格
PrivateSubbt1_Click（）
'*****Add1*****
bTitle.Caption=Trim（tText+”等级考试测试”）标签的（bTitle）.显示标题（Caption）=去前后空'*****Add1*****格（Trim）（文本框（tText）中输入的内容+固定的
EndSub字符串“等级考试测试”）
7、（5）在窗体中还有"修改"和"保存"两个命令按钮，名称分别为"CmdEdit"和"CmdSave"，其中"保存"命令按钮在初始状态为不可用，当单击"修改"按钮后，应使"保存"按钮变为可用。
现已编写了部分VBA代码，请按照VBA代码中的指示将代码补充完整。
要求：
修改后运行该窗体，并查看修改结果。
注意：
不允许修改窗体对象"fEdit"和"fEuser"中未涉及的控件、属性；不允许修改表对象"tAddr"和"tUser"。
对于VBA代码，只允许在"****************"与"****************"之间的一空行内补充语句、完成设计，不允许增删和修改其它位置已存在的语句。
本题相关知识点：
Enabled可用性
PrivateSubCmdEdit_Click（）
用户名_1.Enabled=True
Me!
Lremark.Visible=True
Me!
口令_1.Visible=True
Me!
备注_1.Visible=True
Me!
tEnter.Visible=True
'****************请在下面添加一条语句****************'
CmdSave.Enabled=True命令按钮de（CmdSave）.可用性（Enabled）=可用（可用就是真值True）
'******************************************************'
EndSub
PrivateSubcmdquit_Click（）
DoCmd.Close
EndSub
PrivateSubCmdSave_Click（）
IfMe!
口令_1=Me!
tEnterThen
DoCmd.RunSQL（"updatetUser"&"set用户名='"&Me!
用户名_1&"'"&"where用户名='"&Me!
用户名_1&"'"）
DoCmd.RunSQL（"updatetUser"&"set口令='"&Me!
口令_1&"'"&"where用户名='"&Me!
用户名_1&"'"）
DoCmd.RunSQL（"updatetUser"&"set备注='"&Me!
备注_1&"'"&"where用户名='"&Me!
用户名_1&"'"）
Forms!
fEdit.Refresh
DoCmd.GoToControl"cmdedit"
CmdSave.Enabled=False
Me!
用户名_1=Me!
用户名
Me!
口令_1=Me!
口令
Me!
备注_1=Me!
备注
Me!
tEnter=""
Me!
用户名_1.Enabled=False
Me!
口令_1.Visible=False
Me!
备注_1.Visible=False
Me!
tEnter.Visible=False
Me!
Lremark.Visible=False
Else
MsgBox"请重新输入口令！
",vbOKquit
EndIf
EndSub
PrivateSubForm_Load（）
Me!
用户名_1=Me!
用户名
Me!
口令_1=Me!
口令
Me!
备注_1=Me!
备注
EndSub
8、.（4）按照以下窗体功能，补充事件代码设计。
窗体功能：
打开窗体、单击"计算"按钮（名为bt），事件过程使用ADO数据库技术计算出表对象"tEmp"中党员职工的平均年龄，然后将结果显示在窗体的文本框"tAge"内并写入外部文件中。
注意：
不允许修改数据库中表对象"tEmp"未涉及的字段和数据；不允许修改窗体对象"fEmp"中未涉及的控件和属性。
代码设计只允许在"*****Add*****"与"*****Add*****"之间的空行内填补一行语句、完成设计，不允许增删和修改其它位置已存在的语句。
程序必须运行并生成外部文件（out.dat）后才能得分。
本题相关知识点：
EOF文件结束
PrivateSubbt_Click（）
DimcnAsNewADODB.Connection
DimrsAsNewADODB.Recordset
DimstrSQLAsString
DimsageAsSingle
'设置当前数据库连接
Setcn=CurrentProject.Connection
strSQL="selectavg（年龄）fromtEmpwhere党员否"
rs.OpenstrSQL,cn,adOpenDynamic,adLockOptimistic
'*****Add1*****
Ifrs.EOFThen如果（If）记录集de（rs）.遍历结束（EOF）那么（Then）
'*****Add1*****那么会执行下边的语句。
MsgBox"无党员职工的年龄数据"
sage=0
ExitSub
Else
sage=rs.Fields（0）
EndIf
'*****Add2*****
tAge=sage平均年龄（tAge）赋值给=文本框（sage）
'*****Add2*****
rs.Close
cn.Close
Setrs=Nothing
Setcn=Nothing
'以下是外部文件写入操作
IfDir（CurrentProject.Path&"\out.dat",vbDirection）<>vbNullStringThen
KillCurrentProject.Path&"\out.dat"
EndIf
OpenCurrentProject.Path&"\out.dat"ForOutputAs#1
Print#1,sage
Close#1
EndSub
9、.（4）单击"退出"按钮（名为"bt2"），关闭窗体。
补充事件代码。
注意：
不允许修改数据库中的表对象"tEmp"；不允许修改查询对象"qEmp"中未涉及的内容；不允许修改窗体对象"fEmp"中未涉及的控件和属性；已给事件过程，只允许在"*****Add*****"与"*****Add*****"之间的空行内补充语句、完成设计，不允许增删和修改其它位置已存在的语句。
本题相关知识点：
DoCmd.Close关闭窗体
PrivateSubbt1_Click（）
'刷新窗体
Me.Requery
EndSub
PrivateSubbt2_Click（）
'关闭窗口
'*****Add*****
DoCmd.Close关闭窗体的语句是：
DoCmd.Close
'*****Add*****
EndSub
10、（5）在窗体中还有"修改"和"保存"两个命令按钮，名称分别为"CmdEdit"和"CmdSave"，其中"保存"命令按钮在初始状态为不可用，当单击"修改"按钮后，"保存"按钮变为可用，同时在窗体的左侧显示出相应的信息和可修改的信息。
如果在"口令"文本框中输入的内容与在"确认口令"文本框中输入的内容不相符，当单击"保存"按钮后，屏幕上应弹出如下图所示的提示框。
现已编写了部分VBA代码，请按照VBA代码中的指示将代码补充完整。
要求：
修改后运行该窗体，并查看修改结果。
注意：
不允许修改窗体对象"fEdit"和"fEuser"中未涉及的控件、属性；不允许修改表对象"tAddr"和"tUser"。
只允许在"*****Add*****"与"*****Add*****"之间的空行内补充一行语句、完成设计，不允许增删和修改其它位置已存在的语句。
本题相关知识点：
MsgBox消息框
PrivateSubCmdEdit_Click（）
用户名_1.Enabled=True
Me!
Lremark.Visible=True
Me!
口令_1.Visible=True
Me!
备注_1.Visible=True
Me!
tEnter.Visible=True
CmdSave.Enabled=True
EndSub
PrivateSubcmdquit_Click（）
DoCmd.Close
EndSub
PrivateSubCmdSave_Click（）
IfMe!
口令_1=Me!
tEnterThen
DoCmd.RunSQL（"updatetUser"&"set用户名='"&Me!
用户名_1&"'"&"where用户名='"&Me!
用户名_1&"'"）
DoCmd.RunSQL（"updatetUser"&"set口令='"&Me!
口令_1&"'"&"where用户名='"&Me!
用户名_1&"'"）
DoCmd.RunSQL（"updatetUser"&"set备注='"&Me!
备注_1&"'"&"where用户名='"&Me!
用户名_1&"'"）
Forms!
fEdit.Refresh
DoCmd.GoToControl"cmdedit"
CmdSave.Enabled=False
Me!
用户名_1=Me!
用户名
Me!
口令_1=Me!
口令
Me!
备注_1=Me!
备注
Me!
tEnter=""
Me!
用户名_1.Enabled=False
Me!
口令_1.Visible=False
Me!
备注_1.Visible=False
Me!
tEnter.Visible=False
Me!
Lremark.Visible=False
Else
'*************************Add*************************'
MsgBox“请重新输入口令！
”消息框（MsgBox）的固定格式：
MsgBox“要提示的消息内容”'*************************Add*************************'注意：
提示的内容中有标点符号一定要打
EndIf上，而且是在输入法状态输入。
MsgBox
EndSub后边接的是双引号“”
PrivateSubForm_Load（）
Me!
用户名_1=Me!
用户名
Me!
口令_1=Me!
口令
Me!
备注_1=Me!
备注
EndSub
11、（4）试根据以下窗体功能要求，对已给的命令按钮事件过程进行补充和完善。
在"fEmp"窗体上单击"输出"命令按钮（名为"btnP"），弹出一输入对话框，其提示文本为"请输入大于0的整数值"。
输入1时，相关代码关闭窗体（或程序）；
输入2时，相关代码实现预览输出报表对象"rEmp"；
输入>=3时，相关代码调用宏对象"mEmp"以打开数据表"tEmp"。
注意：
不允许修改数据库中的宏对象"mEmp"；不允许修改窗体对象"fEmp"和报表对象"rEmp"中未涉及的控件和属性；不允许修改表对象"tEmp"中未涉及的字段和属性；已给事件过程，只允许在"*****Add*****"与"****Add******"之间的空行内补充语句、完成设计，不允许增删和修改其它位置已存在的语句。
本题相关知识点：
DoCmd.OpenReport打开报表；InputBox输入框
PrivateSubbtnP_Click（）
DimkAsString
'*****Add1*****
K=InputBox（“请输入大于0的整数值”）输入框（InputBox）的固定格式：
要输入的内容=inputbox（“提
'*****Add1*****示内容”）注意：
提示的内容中有标点符号一定要打上，而且是
Ifk=""ThenExitSub在输入法状态输入。
InputBox后边接的是小括号里包含双引
SelectCaseVal（k）号。
（“”）
CaseIs>=3
DoCmd.RunMacro"mEmp"
Case2
'*****Add2*****
DoCmd.OpenReport“rEmp”,acViewPreviewDoCmd.对象（DoCmd.）打开报表（OpenReport）
'*****Add2*****报表名称必须加双引号（“rEmp”），并以预
Case1览（acViewPreview）方式输出。
DoCmd.Close
EndSelect
EndSub
12、（4）试根据以下窗体功能要求，对已给的命令按钮事件过程进行补充和完善。
在"fEmp"窗体上单击"输出"命令按钮（名为"btnP"），弹出一输入对话框，其提示文本为"请输入大于0的整数值"。
输入1时，相关代码关闭窗体（或程序）；
输入2时，相关代码实现预览输出报表对象"rEmp"；
输入>=3时，相关代码调用宏对象"mEmp"以打开数据表"tEmp"。
注意：
不允许修改数据库中的宏对象"mEmp"；不允许修改窗体对象"fEmp"和报表对象"rEmp"中未涉及的控件和属性；不允许修改表对象"tEmp"中未涉及的字段和属性；已给事件过程，只允许在"*****Add*****"与"****Add******"之间的空行内补充语句、完成设计，不允许增删和修改其它位置已存在的语句。
本题相关知识点：
Case语句是依次测试的，并执行第一个符合Case条件的相关的程序代码后，即使再有其他符合条件的分支也不会再执行，然后程序继续向下执行，即从接在EndSelect终止语句的下一行程序继续执行下去。
；ADOrs.EOF=False记录集没有结束的表达式
PrivateSubbtnP_Click（）
DimkAsString
k=InputBox（"请输入大于0的整数值"）
Ifk=""ThenExitSub
SelectCaseVal（k）
'*****Add1*****
CaseIs>=3如果输入的整数值满足于>=3这个条件执行下边语句。
'*****Add1*****
DoCmd.RunMacro"mEmp"
Case2
'*****Add2*****
DoCmd.OpenReport“rEmp”,acViewPreviewDoCmd.对象（DoCmd.）打开报表
'*****Add2*****报表名称必须加双引号（“rEmp”），并以预
Case1览（acViewPreview）方式输出。
DoCmd.Close
EndSelect
EndSub
13、.（4）按照以下窗体功能，补充事件代码设计。
在窗体的四个文本框内输入合法的职工信息后，单击"追加"按钮（名为bt1），程序首先判断职工编号是否重复，如果不重复则向表对象"tEmp"中添加职工纪录，否则出现提示；当点击窗体上的"退出"按钮（名为bt2）时，关闭当前窗体。
注意：
不允许修改表对象"tEmp"中未涉及的结构和数据；不允许修改窗体对象"fEmp"中未涉及的控件和属性；代码设计只允许在"*****Add*****"与"*****Add*****"之间的空行内补充语句、完成设计，不允许增删和修改其它位置已存在的语句。
本题相关知识点：
ADOrs.EOF=False记录集没有结束的表达式
PrivateSubbt1_Click（）
DimADOcnAsNewADODB.Connection
DimADOrsAsNewADODB.Recordset
DimstrDBAsString
'建立连接
SetADOcn=CurrentProject.Connection
ADOrs.ActiveConnection=ADOcn
ADOrs.Open"Select编号FromtEmpWhere编号='"+tNo+"'",,adOpenForwardOnly,adLockReadOnly
'*****Add1*****
升级会员 