代码题解析.docx

代码题解析.docx

《代码题解析.docx》由会员分享，可在线阅读，更多相关《代码题解析.docx（32页珍藏版）》请在冰豆网上搜索。

代码题解析

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*****

If