【题目描述】
考生文件夹下有一个数据库文件“samp3.accdb”,其中已经设计好表对象“产品”、“供应商”,查询对象“按供应商查询”,窗体对象“characterS”和宏对象“打开产品表”、“运行查询”和“关闭窗口”。请按以下要求完成设计。
1.创建一个名为“menu”的窗体,要求如下。
(1)对窗体进行如下设置:在距窗体左边l厘米、距上边0.6厘米处依次水平放置三个命令按钮“显示产品表”(名为“btl”)、“查询”(名为“bt2”)和“退出”(名为“bt3”),命令按钮的宽度均为2厘米,高度为1.5厘米,每个命令按钮相隔1厘米。
(2)设置窗体标题为“主菜单”。
(3)当单击“显示产品表”命令按钮时,运行宏“打开产品表”,就可以浏览“产品”表;当单击“查询”命令按钮时,运行宏“运行查询”,即可启动查询“按供应商查询”;当单击“退出”命令按钮时,运行宏“关闭窗口”,关闭“menu”窗体。
2.窗体“characterS”中有两个文本框,名称分别为“bTxtl”和“bTxt2”,还有一个命令按钮,名称为“bc”。窗体功能为:单击“bc”按钮将“bTxtl”文本框中已输入的字符串反向显示在“bTxt2”文本框中。请按照VBA代码中的指示将代码补充完整。
注意:不允许修改数据库中的表对象“产品”、“供应商”,查询对象“按供应商查询”和宏对象“打开产品表”、“运行查询”和“关闭窗口”;不允许修改窗体对象“characterS”中未涉及的控件和属性。程序代码只允许在“*******Add******”与“*******Add******”之间的空行内补充一行语句、完成设计,不允许增删和修改其他位置已存在的语句。
【我提交的答案】:
【参考答案分析】:
【考点分析】本题考点:窗体中属性的设置、命令按钮控件属性的设置、VBA编程等。
【解题思路】第1题(1)(2)通过在窗体的设计视图中用鼠标右键单击该控件,从弹出的快捷菜单中选择“属性”命令,设置属性;第(3)小题直接用鼠标右键单击控件名,从弹出的快捷菜单中选择“宏事件”命令;第2小题使用FOR循环实现逆序。
1.(1)【操作步骤】
步骤1:单击“创建”选项卡下“窗体”组中的“窗体设计”按钮,如图4.67所示。按Ctrl+s组合键,弹出“另存为”对话框,在“窗体名称(N)”文本框里输入“menu”,然后单击“确定”按钮。
步骤2:单击“设计”选项卡下“控件”组中的“按钮”控件,如图4.68所示,然后在窗体任意位置单击,关闭弹出的“命令按钮向导”对话框。右键单击新建的按钮,从弹出的快捷菜单中选择“属性”命令,在打开的“属性表”对话框中,单击“全部”选项卡,在其“名称”行中输入“btl”,“标题”行中输入“显示产品表”,“宽度”行中输入“2cm”,“高度”行中输入“l.5cm”,“上边距”行中输入“0.6cm”,“左”行中输入“1cm”,如图4.69所示。关闭属性窗口。
步骤3:单击“设计”选项卡“控件”组中的“按钮”控件。右键单击该按钮,从弹出的快捷菜单中选择“属性”命令,在打开的“属性表”对话框中,单击“全部”选项卡,在其“名称”行中输入“bt2”,“标题”行中输入“查询”,“宽度”行中输入“2cm”,“高度”行中输入“1.5cm”,“上边距”行中输入“0.6cm”,“左”行中输入“4cm”。关闭属性窗口。
步骤4:单击“设计”选项卡“控件”组中的“按钮”控件。右键单击该按钮,从弹出的快捷菜单中选择“属性”命令,在打开的“属性表”对话框中,单击“全部”选项卡,在其“名称”行中输入“bt3”,“标题”行中输入“退出”,“宽度”行中输入“2cm”,“高度”行中输入“1.5cm”,“上边距”行中输入“0.6cm”,“左”行中输入“7em”,最终结果如图4.70所示。关闭属性窗口。
1.(2)【操作步骤】
在窗体设计视图的任意区域右击,在弹出的快捷菜单中选择“属性”命令,单击“所选内容的类型”右侧的下三角按钮,在弹出的下拉列表中选择“窗体”命令,即可进入窗体属
性,选择“全部”选项卡,在其“标题”行中输入“主菜单”。
1.(3)【操作步骤】
步骤1:右键单击命令按钮“btl”,在弹出的快捷菜单中选择“属性”命令。在打开的“属性表”对话框中,单击“事件”选项卡,在“单击”行中选择下拉列表框的值为“打开产品表”,如图4.71所示。关闭属性窗口。
步骤2:右键单击命令按钮“bt2”,在弹出的快捷菜单中选择“属性”命令。在打开的“属性表”对话框中单击“事件”选项卡,在“单击”行中选择下拉列表框的值为“运行查询”,关闭属性窗口。
步骤3:右键单击命令按钮“bt3”,在弹出的快捷菜单中选择“属性”命令。在打开的“属性表”对话框中,单击“事件”选项卡,在“单击”属性行中选择下拉列表框的值为“关闭窗口”,关闭属性窗口。
2.【操作步骤】
步骤1:选择“窗体”对象,右键单击“characters”窗体,在弹出的快捷菜单中选择“设计视图”命令。
步骤2:右键单击命令按钮“bc”,在弹出的快捷菜单中选择“属性”命令。
步骤3:在打开的“属性表”对话框中,在“事件”选项卡
′设置循环
′设置循环
*********Addl*********
For i=Len(s1)To 1 Step-1
′设置循环
*********Addl *********
′设置循环
将结果显示在bTxt2中
′设置循环
*********Add2*********
Me.bTxt2=s2
′设置循环
*********Add2*********
操作题的考生文件夹在哪呢?