代码题解析DOC.docx

1、代码题解析DOC1、设置所建命令按钮bC的单击事件，使用户单击该命令按钮后，CDID标签的显示颜色改为红色。要求用VBA代码实现。注意：不允许修改窗体对象fCollect中未涉及的控件和属性；不允许修改表对象tCollect和查询对象qT。本题相关知识点：ForeColor 前景颜色 ； 255 红色代码Private Sub bC_Click()CDID_标签.ForeColor = 255 标签（CDID_标签） . 前景颜色（ForeColor）=255（红色代码）End Sub2、（3）补充窗体fTest上test1按钮（名为bt1）的单击事件代码，实现以下功能：打开窗体，在文本框tT

2、ext中输入一段文字，然后单击窗体fTest上test1按钮（名为bt1），程序实现将文本框内容作为窗体上标签bTitle的标题显示。注意：不允许修改窗体对象fTest中未涉及的控件和属性；只允许在*Add*与*Add*之间的空行内补充语句、完成设计。本题相关知识点：Caption 显示标题Private Sub bt1_Click() *Add* bTitle.Caption=tText 标签（bTitle）的. 显示标题（Caption）=来自文本框（tText）中输入的内容 *Add*End Sub3、（4）单击刷新按钮（名为bt1），事件过程动态设置窗体记录源为查询对象qEmp，实现窗

3、体数据按性别条件动态显示；单击退出按钮（名为bt2），关闭窗体。注意：不允许修改数据库中的表对象tEmp；不允许修改查询对象qEmp中未涉及的内容；不允许修改窗体对象fEmp中未涉及的控件和属性；已给事件过程，只允许在*Add*与*Add*之间的空行内补充语句、完成设计，不允许增删和修改其它位置已存在的语句。本题相关知识点：RecordSource 记录源Private Sub bt1_Click() 动态设置窗体记录源属性 *Add1* RecordSource=”qEmp” 窗体或报表的记录源（RecordSource）是来自哪个表或查询=表名或查询 *Add1* 名（“qEmp”就是本题

4、中要求作为记录来源的表名）（注意：表名或查询 刷新窗体 名必须加“ ” ） Me.RequeryEnd SubPrivate Sub bt2_Click() 关闭窗口 *Add2*DoCmd.Close 关闭窗体、报表、表都用固定语句：DoCmd.Close *Add2*End Sub4、（5）在窗体中有一个显示全部记录命令按钮（名称为bList），单击该按钮后，应实现将tStudent表中的全部记录显示出来的功能。现已编写了部分VBA代码，请按照VBA代码中的指示将代码补充完整。要求：修改后运行该窗体，并查看修改结果。注意：不允许修改窗体对象fQuery和fStudent中未涉及的控件、属性

5、；不允许修改表对象tStudent。对于VBA代码，只允许*与*之间的一空行内补充语句、完成设计，不允许增删和修改其它位置已存在的语句。本题相关知识点：select语句格式：select 字段列表 from 表名Private Sub Command4_Click() BBB.Form.RecordSource = select * from tStudent where 姓名 like & Me!Text2 & *End SubPrivate Sub bList_Click()* 请在下面双引号内添入适当的SELECT语句 * BBB.Form.RecordSource = select *

6、 from tStudent “ 选择(select) 通配符星号（*）所有记录来* 自于（from） 表名（tStudent） Text2 = End SubPrivate Sub 命令7_Click() DoCmd.CloseEnd Sub5、（5）在窗体中有一个退出命令按钮（名称为bQuit），单击该按钮后，应关闭fStudent窗体。现已编写了部分VBA代码，请按照VBA代码中的指示将代码补充完整。要求：修改后运行该窗体，并查看修改结果。注意：不允许修改窗体对象fGrade和fStudent中未涉及的控件、属性；不允许修改表对象tStudent 和tGrade。对于VBA代码，只允许*

7、与*之间的一空行内补充语句、完成设计，不允许增删和修改其它位置已存在的语句。本题相关知识点：关闭窗体 DoCmd.Close Private Sub bQuit_Click()* 请在下面填入一行语句 * DoCmd.Close 关闭窗体、报表、表都用固定语句：DoCmd.Close*End Sub6、（3）补充窗体fTest上test1按钮（名为bt1）的单击事件代码，实现以下功能：打开窗体，在文本框tText中输入一段文字，然后单击窗体fTest上test1按钮（名为bt1），补充代码设置窗体上标签bTitle的标题为文本框tText输入内容与文本串等级考试测试的连接并消除连接串的前导和尾

8、随空白字符；注意：不允许修改窗体对象fTest中未涉及的控件和属性；只允许在*Add1*与*Add1*之间的空行内补充语句、完成设计。本题相关知识点：Trim 去前后空格Private Sub bt1_Click() *Add1* bTitle.Caption= Trim (tText+”等级考试测试”) 标签的（bTitle）. 显示标题（Caption）=去前后空 *Add1* 格（Trim）（文本框（tText）中输入的内容+ 固定的End Sub 字符串“等级考试测试”）7、（5）在窗体中还有修改和保存两个命令按钮，名称分别为CmdEdit和CmdSave，其中保存命令按钮在初始状态为

9、不可用，当单击修改按钮后，应使保存按钮变为可用。现已编写了部分VBA代码，请按照VBA代码中的指示将代码补充完整。要求：修改后运行该窗体，并查看修改结果。注意：不允许修改窗体对象fEdit和fEuser中未涉及的控件、属性；不允许修改表对象tAddr和tUser。对于VBA代码，只允许在*与*之间的一空行内补充语句、完成设计，不允许增删和修改其它位置已存在的语句。本题相关知识点：Enabled 可用性Private Sub CmdEdit_Click() 用户名_1.Enabled = True Me!Lremark.Visible = True Me!口令_1.Visible = True

10、Me!备注_1.Visible = True Me!tEnter.Visible = True* 请在下面添加一条语句 * CmdSave.Enabled= True 命令按钮de（CmdSave） . 可用性（Enabled）=可用（可用就是真值True）*End SubPrivate Sub cmdquit_Click()DoCmd.CloseEnd SubPrivate Sub CmdSave_Click() If Me!口令_1 = Me!tEnter Then DoCmd.RunSQL (update tUser & set 用户名= & Me!用户名_1 & & where 用户名

11、= & Me!用户名_1 & ) DoCmd.RunSQL (update tUser & set 口令= & Me!口令_1 & & where 用户名= & Me!用户名_1 & ) DoCmd.RunSQL (update tUser & 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

12、 = Me!用户名_1.Enabled = False Me!口令_1.Visible = False Me!备注_1.Visible = False Me!tEnter.Visible = False Me!Lremark.Visible = False Else MsgBox 请重新输入口令！, vbOKquit End IfEnd SubPrivate Sub Form_Load() Me!用户名_1 = Me!用户名 Me!口令_1 = Me!口令 Me!备注_1 = Me!备注End Sub8、 .（4）按照以下窗体功能，补充事件代码设计。窗体功能：打开窗体、单击计算按钮（名为bt）

13、，事件过程使用ADO数据库技术计算出表对象tEmp中党员职工的平均年龄，然后将结果显示在窗体的文本框tAge内并写入外部文件中。注意：不允许修改数据库中表对象tEmp未涉及的字段和数据；不允许修改窗体对象fEmp中未涉及的控件和属性。代码设计只允许在*Add*与*Add*之间的空行内填补一行语句、完成设计，不允许增删和修改其它位置已存在的语句。程序必须运行并生成外部文件（out.dat）后才能得分。本题相关知识点：EOF 文件结束Private Sub bt_Click() Dim cn As New ADODB.Connection Dim rs As New ADODB.Recordset

14、 Dim strSQL As String Dim sage As Single 设置当前数据库连接 Set cn = CurrentProject.Connection strSQL = select avg(年龄) from tEmp where 党员否 rs.Open strSQL, cn, adOpenDynamic, adLockOptimistic *Add1* If rs. EOF Then 如果（If）记录集de（rs） . 遍历结束（EOF） 那么（Then） *Add1* 那么会执行下边的语句。 MsgBox 无党员职工的年龄数据 sage = 0 Exit Sub Els

15、e sage = rs.Fields(0) End If *Add2* tAge = sage 平均年龄（tAge）赋值给=文本框（sage） *Add2* rs.Close cn.Close Set rs = Nothing Set cn = Nothing 以下是外部文件写入操作 If Dir(CurrentProject.Path & out.dat, vbDirection) vbNullString Then Kill CurrentProject.Path & out.dat End If Open CurrentProject.Path & out.dat For Output

16、As #1 Print #1, sage Close #1End Sub9、.（4）单击退出按钮（名为bt2），关闭窗体。补充事件代码。注意：不允许修改数据库中的表对象tEmp；不允许修改查询对象qEmp中未涉及的内容；不允许修改窗体对象fEmp中未涉及的控件和属性；已给事件过程，只允许在*Add*与*Add*之间的空行内补充语句、完成设计，不允许增删和修改其它位置已存在的语句。本题相关知识点： DoCmd.Close 关闭窗体 Private Sub bt1_Click() 刷新窗体 Me.RequeryEnd SubPrivate Sub bt2_Click() 关闭窗口 *Add* Do

17、Cmd.Close 关闭窗体的语句是：DoCmd.Close *Add*End Sub10、（5）在窗体中还有修改和保存两个命令按钮，名称分别为CmdEdit和CmdSave，其中保存命令按钮在初始状态为不可用，当单击修改按钮后，保存按钮变为可用，同时在窗体的左侧显示出相应的信息和可修改的信息。如果在口令文本框中输入的内容与在确认口令文本框中输入的内容不相符，当单击保存按钮后，屏幕上应弹出如下图所示的提示框。现已编写了部分VBA代码，请按照VBA代码中的指示将代码补充完整。 要求：修改后运行该窗体，并查看修改结果。注意：不允许修改窗体对象fEdit和fEuser中未涉及的控件、属性；不允许修改

18、表对象tAddr和tUser。只允许在*Add*与*Add*之间的空行内补充一行语句、完成设计，不允许增删和修改其它位置已存在的语句。本题相关知识点：MsgBox 消息框Private Sub CmdEdit_Click() 用户名_1.Enabled = True Me!Lremark.Visible = True Me!口令_1.Visible = True Me!备注_1.Visible = True Me!tEnter.Visible = True CmdSave.Enabled = TrueEnd SubPrivate Sub cmdquit_Click()DoCmd.CloseEn

19、d SubPrivate Sub CmdSave_Click() If Me!口令_1 = Me!tEnter Then DoCmd.RunSQL (update tUser & set 用户名= & Me!用户名_1 & & where 用户名= & Me!用户名_1 & ) DoCmd.RunSQL (update tUser & set 口令= & Me!口令_1 & & where 用户名= & Me!用户名_1 & ) DoCmd.RunSQL (update tUser & set 备注= & Me!备注_1 & & where 用户名= & Me!用户名_1 & ) Forms!

20、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）的固定格式：Ms

21、gBox “要提示的消息内容” *Add*注意：提示的内容中有标点符号一定要打 End If 上，而且是在输入法状态输入。MsgBox End Sub 后边接的是双引号“”Private Sub Form_Load() Me!用户名_1 = Me!用户名 Me!口令_1 = Me!口令 Me!备注_1 = Me!备注End Sub11、（4）试根据以下窗体功能要求，对已给的命令按钮事件过程进行补充和完善。在fEmp窗体上单击输出命令按钮（名为btnP），弹出一输入对话框，其提示文本为请输入大于0的整数值。 输入 1 时，相关代码关闭窗体（或程序）； 输入 2 时，相关代码实现预览输出报表对象r

22、Emp； 输入 =3 时，相关代码调用宏对象mEmp 以打开数据表tEmp。注意：不允许修改数据库中的宏对象mEmp；不允许修改窗体对象fEmp和报表对象rEmp中未涉及的控件和属性；不允许修改表对象tEmp中未涉及的字段和属性；已给事件过程，只允许在*Add*与*Add*之间的空行内补充语句、完成设计，不允许增删和修改其它位置已存在的语句。本题相关知识点：DoCmd.OpenReport 打开报表 ；InputBox 输入框Private Sub btnP_Click()Dim k As String*Add1*K=InputBox(“请输入大于0的整数值” ) 输入框（InputBox）的

23、固定格式：要输入的内容=inputbox(“提*Add1* 示内容”)注意：提示的内容中有标点符号一定要打上，而且是If k = Then Exit Sub 在输入法状态输入。InputBox后边接的是小括号里包含双引Select Case Val(k) 号。（“”） Case Is = 3 DoCmd.RunMacro mEmp Case 2 *Add2* DoCmd.OpenReport “rEmp”,acViewPreview DoCmd.对象 （DoCmd .）打开报表（OpenReport） *Add2* 报表名称必须加双引号（“rEmp”） ，并以预 Case 1 览（acView

24、Preview）方式输出。 DoCmd.CloseEnd SelectEnd Sub12、（4）试根据以下窗体功能要求，对已给的命令按钮事件过程进行补充和完善。在fEmp窗体上单击输出命令按钮（名为btnP），弹出一输入对话框，其提示文本为请输入大于0的整数值。 输入 1 时，相关代码关闭窗体（或程序）； 输入 2 时，相关代码实现预览输出报表对象rEmp； 输入 =3 时，相关代码调用宏对象mEmp 以打开数据表tEmp。注意：不允许修改数据库中的宏对象mEmp；不允许修改窗体对象fEmp和报表对象rEmp中未涉及的控件和属性；不允许修改表对象tEmp中未涉及的字段和属性；已给事件过程，只允

25、许在*Add*与*Add*之间的空行内补充语句、完成设计，不允许增删和修改其它位置已存在的语句。本题相关知识点：Case语句是依次测试的，并执行第一个符合Case条件的相关的程序代码后，即使再有其他符合条件的分支也不会再执行，然后程序继续向下执行，即从接在End Select终止语句的下一行程序继续执行下去。；ADOrs .EOF=False 记录集没有结束的表达式Private Sub btnP_Click()Dim k As Stringk = InputBox(请输入大于0的整数值)If k = Then Exit SubSelect Case Val(k) *Add1* Case Is

26、 =3 如果输入的整数值满足于=3这个条件 执行下边语句。 *Add1* DoCmd.RunMacro mEmp Case 2 *Add2* DoCmd.OpenReport “rEmp”,acViewPreview DoCmd.对象 （DoCmd .）打开报表 *Add2* 报表名称必须加双引号（“rEmp”） ，并以预 Case 1 览（acViewPreview）方式输出。 DoCmd.CloseEnd SelectEnd Sub13、 .（4）按照以下窗体功能，补充事件代码设计。在窗体的四个文本框内输入合法的职工信息后，单击追加按钮（名为bt1），程序首先判断职工编号是否重复，如果不重

27、复则向表对象tEmp中添加职工纪录，否则出现提示；当点击窗体上的退出按钮（名为bt2）时，关闭当前窗体。注意：不允许修改表对象tEmp中未涉及的结构和数据；不允许修改窗体对象fEmp中未涉及的控件和属性；代码设计只允许在*Add*与*Add*之间的空行内补充语句、完成设计，不允许增删和修改其它位置已存在的语句。本题相关知识点：ADOrs .EOF=False 记录集没有结束的表达式Private Sub bt1_Click() Dim ADOcn As New ADODB.Connection Dim ADOrs As New ADODB.Recordset Dim strDB As String 建立连接 Set ADOcn = CurrentProject.Connection ADOrs.ActiveConnection = ADOcn ADOrs.Open Select 编号 From tEmp Where 编号= + tNo + , , adOpenForwardOnly, adLockReadOnly *Add1*