在窗体中添加一个标签LblResult和一个命令按钮Command1，然后编写程序。程序的功能是单击命令按钮，

在考生文件夹下有一个“Acc3．mdb”数据库。 (1)以“成绩表”为数据源，创建“成绩登录”窗体，如图3所示。用文本框显示“选课ID”和“成绩”字段。用组合框显示“学号”和“课程编号”字段。(2)在“成绩登录”窗体中添加页眉标签“成绩登录系统”属性设置为“宋体”、“12号字”、“加粗”并“居中”。在窗体中添加“添加记录”和“保存记录”按钮，进行添加记录和保存记录操作。设置窗体宽度为“7．698cm”，“弹出方式”。 (3)以“课程”表为数据源自动创建窗体“课程”。 (4)在“课程”窗体中添加“课程信息”页眉标签，标签文字字体为“宋体”、“l2号”、“加粗”、“居中显示”。在页脚添加“下一记录”、“前一记录”、“添加记录”、“保存记录”和“关闭窗体”。设置窗体为“弹出方式”。结果如图4所示。

以下要求补充窗体设计：

(1)在窗体的窗体页眉节区位置添加一个标签控件，其名称为“bTitle”，标题显示为“员工信息输出”。

(2)在主体节区位置添加一个选项组控件，将其命名为“opt”，选项组标签显示内容为“性别”，名称为“bopt”。

(3)在选项组内放置2个单选按钮控件，选项按钮分别命名为"opt1”和"opt2”，选项按钮标签显示内容分别为“男”和“女”，名称分别为“boptl”和“bopt2”。

(4)在窗体页脚节区位置添加两个命令按钮，分别命名为“bOk”和“bQuit”，按钮标题分别为“确定”和“退出”。

(5)将窗体标题设置为“员工信息输出”。

注意：不允许修改窗体对象“fStaff”中已设置好的属性。

照以下要求补充窗体设计。 （1）在窗体的窗体页眉节区位置添加一个标签控件，其名称为“bTitle”，标题显示为“员工信息输出”。 （2）在主体节区位置添加一个选项组控件，将其命名为“opt”，选项组标签显示内容为“性别”，名称为“bopt”。 （3）在选项组内放置2个单选按钮控件，选项按钮分别命名为“Optl”和“opt2”，选项按钮标签显示内容分别为“男”和“女”，名称分别为“boptl”和“bopt2”。 （4）在窗体页脚节？？区位置添加两个命令按钮，分别命名为“bOk”和“bQuit”，按钮标题分别为“确定”和“退出”。 （5）将窗体标题设置为“员工信息输出”。 注意：不允许修改窗体对象“tStaff‘中已设置好的属性 ？？

1的Click事件代码：

程序运行后，在文本框中输入20，单击命令按钮后，标签中的内容为（）。

A. 20是一个奇数

B. 20

C. 20是一个偶数

D. 2

基础上按照以下要求补充窗体设计：

(1)在窗体的窗体页眉节区位置添加一个标签控件，其名称为“bTitle”，标题显示为“窗体测试样例”。

(2)在窗体主体节区内添加2个复选框控件，复选框选项按钮分别命名为“optl”和“opt2”，对应的复选框标签显示内容分别为“类型a”和“类型b”，标签名称分别为“boptl”和“bopt2”。

(3)分别设置复选框选项按钮optl和opt2的“默认值”属性为假值。

(4)在窗体页脚节区位置添加一个命令按钮，命名为“bTest”，按钮标题为“测试”。

(5)设置命令按钮bTest的单击事件属性为给定的宏对象ml。

(6)将窗体标题设置为“测试窗体”。

注意：不允许修改窗体对象iTest中未涉及的属性；不允许修改宏对象ml。

。窗体加载时，将添加标签标题设置为系统当前日期。窗体“加载”事件已提供，请补充完整。 注意：不允许修改窗体对象“tEmployee”中未涉及的控件和属性；不允许修改表对象“tEmployee”和宏对象“m1”． 程序代码只允许在“*******Add****”“*****Ad*****”之间的空行内补充一行语句、完成设计，不允许增删和修改其他位置已存在的语句。

在考生文件夹下有一个“Acc3．mdb”数据库。 (1)以“产品入库表”为数据源，创建“产品入库”窗体，如图4所示。在窗体中添加标签“产品入库表”(宋体，12号，加粗，居中显示)。在窗体中显示“日期”和“入库数量”文本框，显示“标志”复选框。(2)设置日期的默认值为“当天日期”。在窗体中显示“产品代码”，产品代码用组合框显示，自行输入“产品信息”表中的所有产品代码，并将其数值保存到“产品代码”字段中。在窗体中添加“添加记录”、“保存记录”和“删除记录”按钮，分别实现添加记录、保存记录和删除记录操作。

ate Sub Commandl_Click（） s=0fori=lt015x=2*i．1ifx mod 3=0 then s=s+ln=n+1next iLabell．Caption=sEndSub运行完毕后，单击命令按钮，则标签中显示的内容是（）。

A.4

B.5

C.6

D.7

若干列表项。当双击列表框中的某个项目时，在标签Labe1中显示所选中的项目，如图所示。请在空白处填入适当的内容，将程序补充完整。

Private Sub Form_Load（）

List1.AddItem "北京"

List1.AddItem "上海"

List1.AddItem "河北"

End Sub

Private Sub List1 【9】 （）

Labe1.Caption= 【10】

End Sub