考生文件夹下存在一个数据库文件“samp3. accdb”,里面已经设计好表对象“tStudent”,同时还设计出窗体对象“fQuery”、“fStudent”和“fCount”。请在此基础上按照以下要求补充“fQuery”和“fCount”窗体的设计。

admin2017-02-21  26

问题 考生文件夹下存在一个数据库文件“samp3. accdb”,里面已经设计好表对象“tStudent”,同时还设计出窗体对象“fQuery”、“fStudent”和“fCount”。请在此基础上按照以下要求补充“fQuery”和“fCount”窗体的设计。
在“fCount”窗体中有两个列表框、一个文本框和一个命令按钮,名称分别为“Listo”、“List1”、“tData”和“Cmd”。在“tData”文本框中输入一个数,单击“Cmd”按钮,程序将判断输入的值是奇数还是偶数,如果是奇数,将填入“Listo”列表中,否则填入“List1”列表中。
根据以上描述,请按照VBA代码中的指示将代码补充完整。
注意:不允许修改窗体对象“fQuery”、“fStudent”和“fCount”中未涉及的控件、属性;不允许修改表对象“tStudent”。程序代码只允许在“*****Add*****”与“*****Add*****”之间的空行内补充一行语句、完成设计,不允许增删和修改其他位置已存在的语句。

选项

答案【操作步骤】 步骤1:选择“窗体”对象,右键单击“fCount”窗体,在弹出的快捷菜单中选择“设计视图”命令。 步骤2:右键单击“Cmd”按钮,在弹出的快捷菜单中选择“属性”命令,打开“属性表”对话框,单击该对话框下的“事件”选项卡,然后单击该选项卡的“单击”行右侧的事件生成器按钮,进入VBA代码编辑区。 步骤3:在“’*****Add*****”区域的空白行中输入“If x Mod 2=1 Then”。 步骤4:单击快速工具栏中的“保存”按钮,然后关闭VBA代码编辑区。 步骤5:单击快速工具栏中的“保存”按钮,然后关闭“设计视图”。

解析 设置窗体和控件属性,增加窗体控件,编码设置窗体命令按钮的单击事件。第1、3小题直接右键单击窗体选择器,选择“属性”命令,设置加载事件,在VBA代码编辑区实现代码编辑。第2小题在窗体的设计视图中增加控件,对控件属性进行设置;第4小题右键单击控件,选择“属性”命令,通过VBA编程设置单击事件。
转载请注明原文地址:https://kaotiyun.com/show/CrBD777K
0

最新回复(0)