题目内容:
在考生文件夹下,存在一个数据库文件“samp3.accdb”,里面已经设计好表对象“tStudent”,同时还设计出窗体对象“fQuery”、“fStudent”和“fCount”。请在此基础上按照以下要求补充“fQuery”和“fCount”窗体的设计。 (1)加载“fQuery”时重置窗体标题并改为“显示查询信息”,将窗体中“退出”命令按钮(名称为“命令7”)上显示的文字颜色自动改为红色(红色值为255),字体粗细改为“加粗”(加粗值为700)。请按照VBA代码中的指示将实现此功能的代码补充完整。
(2)在“fQuery”窗体距主体节上边0.4 cm、左边0.4 cm位置添加一个矩形控件,其名称为“tRim”;矩形宽度为16.6 cm、高度为1.2 cm、特殊效果为“凿痕”。将窗体边框改为“对话框边框”样式,取消窗体中的水平和垂直滚动条、记录选择器、导航按钮和分隔线。
(3)在“fQuery”窗体中有一个“显示全部记录”命令按钮(名称为bList),单击该按钮后,应实现将“tStudent”表中的全部记录显示出来的功能。现已编写了部分VBA代码,请按照VBA代码中的指示将代码补充完整。
要求:修改后运行该窗体,并查看修改结果。
(4)在“fCount”窗体中有两个列表框、一个文本框和一个命令按钮,名称分别为“List0”、“Listl”、“tData”和“Cmd”。在“tData”文本框中输入一个数,单击“Cmd”按钮,程序将判断输入的值是奇数还是偶数,如果是奇数将填人“List0”列表中,否则填人“Listl”列表中。根据以上描述,请按照VBA代码中的指示将代码补充完整。
注意:不允许修改窗体对象“fQuery”、“fStudent”和“fCount”中未涉及的控件、属性;不允许修改表对象“tStudent”。程序代码只允许在“*****Add*****”与“*****Add*****”之间的空行内补充一行语句、完成设计,不允许增删和修改其它位置已存在的语句。
参考答案:
答案解析: