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

admin2022-04-02  32

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

选项

答案【操作步骤】 步骤l:右键单击“fCount”窗体,在弹出的快捷菜单中选择“设计视图”命令。 步骤2:选中“Cmd”按钮控件,单击“设计”选项卡下“工具”功能组中的“属性表”按钮。 步骤3:在“属性表”对话框中单击“事件”选项卡,单击“单击”行右侧的事件生成器按钮,进入VBA代码编辑区。 步骤4:在“Private Sub Cmd_Click()”事件过程中添加如下代码:“If x Mod 2=1 Then”,如图2.25所示。 [*] 步骤4:按Ctrl+S组合键保存修改,关闭VBA代码编辑器,关闭设计视图。

解析
转载请注明原文地址:https://kaotiyun.com/show/Tyvp777K
0

最新回复(0)