简单应用部分代码题题面及答案
14套（3）补充窗体\上\按钮（名为\）的单击事件代码，实现以下功能：打开窗体，
在文本框\中输入一段文字，然后单击窗体\上\按钮（名为\），程序实现将文本框内容作为窗体上标签\的标题显示。 注意：不允许修改窗体对象\中未涉及的控件和属性；只允许在\与\之间的空行内补充语句、完成设计。 Option Compare Database Private Sub bt1_Click()
'*****Add*****
Me.bTitle.Caption = Me.tText
'*****Add*****
End Sub
22套（3）补充窗体\上\按钮（名为\）的单击事件代码，实现以下功能：
打开窗体，在文本框\中输入一段文字，然后单击窗体\上\按钮（名为\），补充代码设置窗体上标签\的标题为文本框\输入内容与文本串\等级考试测试\的连接并消除连接串的前导和尾随空白字符；
注意：不允许修改窗体对象\中未涉及的控件和属性；只允许在\与\之间的空行内补充语句、完成设计。 Option Compare Database Private Sub bt1_Click()
'*****Add1*****
bTitle.Caption = Trim(tText + \等级考试测试\
'*****Add1*****
End Sub
16.3（5）设置所建命令按钮bC的单击事件，使用户单击该命令按钮后，CDID标签的显示颜色改为红色。要求用VBA代码实现。 注意：不允许修改窗体对象\中未涉及的控件和属性；不允许修改表对象\和查询对象\。
本题相关知识点：ForeColor 前景颜色 ； 255 红色代码 Private Sub bC_Click()
CDID_标签.ForeColor = 255 标签（CDID_标签） . 前景颜色（ForeColor）=255（红色代码） End Sub
18.2（3）补充窗体\上\按钮（名为\）的单击事件代码，实现以下功能：打开窗体，在文本框\中输入一段文字，然后单击窗体\上\按钮（名为\），程序实现将文本框内容作为窗体上标签\的标题显示。 注意：不允许修改窗体对象\中未涉及的控件和属性；只允许在\与\之间的空行内补充语句、完成设计。 本题相关知识点：Caption 显示标题 Private Sub bt1_Click() '*****Add*****
bTitle.Caption=tText 标签（bTitle）的. 显示标题（Caption）=来自文本框（tText）中输入的内容 '*****Add***** End Sub
23.3.（4）单击\刷新\按钮（名为\），事件过程动态设置窗体记录源为查询对象\，实现窗体数据按性别条件动态显示；单击\退出\按钮（名为\），关闭窗体。
注意：不允许修改数据库中的表对象\；不允许修改查询对象\中未涉及的内容；不允许修改窗体对象\中未涉及的控件和属性；已给事件过程，只允许在\与\之间的空行内补充语句、完成设计，不允许增删和修改其它位置已存在的语句。 本题相关知识点：RecordSource 记录源 Private Sub bt1_Click()
'动态设置窗体记录源属性 '*****Add1*****
RecordSource=”qEmp” 窗体或报表的记录源（RecordSource）是来自哪个表或查询=表名或查询 '*****Add1***** 名（“qEmp”就是本题中要求作为记录来源的表名）（注意：表名或查询 '刷新窗体 名必须加“ ” ） Me.Requery End Sub
Private Sub bt2_Click() '关闭窗口
'*****Add2*****
DoCmd.Close 关闭窗体、报表、表都用固定语句：DoCmd.Close '*****Add2***** End Sub 24.3. （5）在窗体中有一个\显示全部记录\命令按钮（名称为bList），单击该按钮后，应实现将\表中的全部记录显示出来的功能。现已编写了部分VBA代码，请按照VBA代码中的指示将代码补充完整。 要求：修改后运行该窗体，并查看修改结果。 注意：不允许修改窗体对象\和\中未涉及的控件、属性；不允许修改表对象\。对于VBA代码，只允许\与\之间的一空行内补充语句、完成设计，不允许增删和修改其它位置已存在的语句。
本题相关知识点：select语句格式：select 字段列表 from 表名 Private Sub Command4_Click()
BBB.Form.RecordSource = \姓名 like '\End Sub
Private Sub bList_Click()
'***** 请在下面双引号内添入适当的SELECT语句 ****'
BBB.Form.RecordSource = \ select * from tStudent “ 选择(select) 通配符星号（*）所有记录来 '************************************************' 自于（from） 表名（tStudent） [Text2] = \End Sub
Private Sub 命令7_Click() DoCmd.Close End Sub
25.3.（5）在窗体中有一个\退出\命令按钮（名称为bQuit），单击该按钮后，应关闭\窗体。现已编写了部分VBA代码，请按照VBA代码中的指示将代码补充完整。 要求：修改后运行该窗体，并查看修改结果。
注意：不允许修改窗体对象\和\中未涉及的控件、属性；不允许修改表对象\和\。对于VBA代码，只允许\与\之间的一空行内补充语句、完成设计，不允许增删和修改其它位置已存在的语句。 本题相关知识点：关闭窗体 DoCmd.Close Private Sub bQuit_Click()
'*********** 请在下面填入一行语句 ***********'
DoCmd.Close 关闭窗体、报表、表都用固定语句：DoCmd.Close '********************************************' End Sub
26.2.（3）补充窗体\上\按钮（名为\）的单击事件代码，实现以下功能：
打开窗体，在文本框\中输入一段文字，然后单击窗体\上\按钮（名为\），补充代码设置窗体上标签\的标题为文本框\输入内容与文本串\等级考试测试\的连接并消除连接串的前导和尾随空白字符；
注意：不允许修改窗体对象\中未涉及的控件和属性；只允许在\与\之间的空行内补充语句、完成设计。 本题相关知识点：Trim 去前后空格 Private Sub bt1_Click() '*****Add1*****
bTitle.Caption= Trim (tText+”等级考试测试”) 标签的（bTitle）. 显示标题（Caption）=去前后空 '*****Add1***** 格（Trim）（文本框（tText）中输入的内容+ 固定的 End Sub 字符串“等级考试测试”）
26．3 （5）在窗体中还有\修改\和\保存\两个命令按钮，名称分别为\和\，其中\保存\命令按钮在初始状态为不可用，当单击\修改\按钮后，应使\保存\按钮变为可用。现已编写了部分VBA代码，请按照VBA代码中的指示将代码补充完整。 要求：修改后运行该窗体，并查看修改结果。
注意：不允许修改窗体对象\和\中未涉及的控件、属性；不允许修改表对象\和
\。对于VBA代码，只允许在\与\之间的一空行内补充语句、完成设计，不允许增删和修改其它位置已存在的语句。 本题相关知识点：Enabled 可用性 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= True 命令按钮de（CmdSave） . 可用性（Enabled）=可用（可用就是真值True） '******************************************************' End Sub
Private Sub cmdquit_Click() DoCmd.Close End Sub
Private Sub CmdSave_Click() If Me!口令_1 = Me!tEnter Then
DoCmd.RunSQL (\用户名='\用户名_1 & \用户名='\Me!用户名_1 & \
DoCmd.RunSQL (\口令='\口令_1 & \用户名='\用户名_1 & \
DoCmd.RunSQL (\备注='\备注_1 & \用户名='\用户名_1 & \
Forms!fEdit.Refresh
DoCmd.GoToControl \ 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 \请重新输入口令！\ End If End Sub
Private Sub Form_Load() Me!用户名_1 = Me!用户名 Me!口令_1 = Me!口令 Me!备注_1 = Me!备注 End Sub
27．3 .（4）按照以下窗体功能，补充事件代码设计。
窗体功能：打开窗体、单击\计算\按钮（名为bt），事件过程使用ADO数据库技术计算出表对象\中党员职工的平均年龄，然后将结果显示在窗体的文本框\内并写入外部文件中。 注意：不允许修改数据库中表对象\未涉及的字段和数据；不允许修改窗体对象\中未涉及的控件和属性。代码设计只允许在\与\之间的空行内填补一行语句、完成设计，不允许增删和修改其它位置已存在的语句。程序必须运行并生成外部文件（out.dat）后才能得分。 本题相关知识点：EOF 文件结束 Private Sub bt_Click()
Dim cn As New ADODB.Connection Dim rs As New ADODB.Recordset Dim strSQL As String Dim sage As Single '设置当前数据库连接
Set cn = CurrentProject.Connection
strSQL = \年龄) 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 Else
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 & \ Kill CurrentProject.Path & \ End If
Open CurrentProject.Path & \ Print #1, sage Close #1 End Sub
28．3 .（4）单击\退出\按钮（名为\），关闭窗体。补充事件代码。
注意：不允许修改数据库中的表对象\；不允许修改查询对象\中未涉及的内容；不允许修改窗体对象\中未涉及的控件和属性；已给事件过程，只允许在\与\之间的空行内补充语句、完成设计，不允许增删和修改其它位置已存在的语句。 本题相关知识点： DoCmd.Close 关闭窗体 Private Sub bt1_Click() '刷新窗体 Me.Requery End Sub
Private Sub bt2_Click() '关闭窗口
'*****Add*****
DoCmd.Close 关闭窗体的语句是：DoCmd.Close '*****Add***** End Sub
30.3.（5）在窗体中还有\修改\和\保存\两个命令按钮，名称分别为\和\，其中\保存\命令按钮在初始状态为不可用，当单击\修改\按钮后，\保存\按钮变为可用，同时在窗体的左侧显示出相应的信息和可修改的信息。如果在\口令\文本框中输入的内容与在\确认口令\文本框中输入的内容不相符，当单击\保存\按钮后，屏幕上应弹出如下图所示的提示框。现已编写了部分VBA代码，请按照VBA代码中的指示将代码补充完整。
要求：修改后运行该窗体，并查看修改结果。
注意：不允许修改窗体对象\和\中未涉及的控件、属性；不允许修改表对象\和\。只允许在\与\之间的空行内补充一行语句、完成设计，不允许增删和修改其它位置已存在的语句。 本题相关知识点：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 = True End Sub
Private Sub cmdquit_Click() DoCmd.Close End Sub
Private Sub CmdSave_Click() If Me!口令_1 = Me!tEnter Then
DoCmd.RunSQL (\用户名='\用户名_1 & \用户名='\