与要求
目的：
通过简单的输入/输出程序设计的操作练习，使学生熟悉面向对象程序设计的基本思 想，掌握对象的引用、属性的设置、方法的调用以及事件代码的编写，为第 6 章做好铺 垫。
要求：
掌握对象的引用、属性的设置、方法的调用以及事件代码的编写。
教学重点
对象的引用、属性的设置、方法的调用。教学难点
事件代码的编写。教学方法
利用案例教学法让学生和老师同步操作每个步骤，然后进行指导解决学生实际操作中 遇到的相应问题，最后进行总结归纳讲解学生遇到的共性问题。时间分配
实践导入（5 分钟）
1．分析本章的目的和要求；2．教师 针对本章的目的和要求进行指导； 3．教 师总结分析本章知识点，并举例详细讲 解。
实践讲授（15 分钟）
用 vfp 演示实践内容的操作步骤及讲 解（15 分钟）
教学小结（5 分钟）
案例与演示相结合，通过表单给学生演 示面向对象程序设计的步骤。观察各操作 结果，给定实现目标，总结各方法。
实践环节（60 分钟）
表单的练习。
实践环节小结（5 分钟）
总结学生在实际操作过程中出现的问 题。
教 学 进 程 与 设 计
实践导入：（5 分钟）
进行理论教学中重点知识点的回顾，同时说明本节实践课程需要操 作的内容。
实践讲授：（15 分钟）
一、对象引用的格式 1．绝对引用
引用地址从最外层容器直到目标对象。
要访问表单上的文本框对象
<表单名>.TEXT1
要访问表单集上某表单上文本框对象。
<表单集名>.FORM1.TEXT1 2．相对引用
引用地址从参照物到目标对象。
二、设置属性 1．设置单个属性
在事件或方法程序中用命令设置属性，语法如下：
【格式 1】<对象引用>.<对象属性>=<值>
【格式 2】<对象引用>-><对象属性>=<值>
2．设置多个属性
当对一个对象一次设置多个属性时，With …EndWith 结构可以简 化设置过程。语法如下：
【格式】
With <对象引用>
.<属性 1> = <值 1>
……
.<属性 n> = <值 n>
EndWith
三、方法程序的调用
每一类对象都有特定的方法程序，表单的常用方法程序如表 5-6 所 示。
【格式】<对象引用>.<方法程序>
备注
教 学 进 程 与 设 计
教学小结（5 分钟）
本节课着重介绍了表单对象及对象的引用、事件与方法程序的使 用。通过表单来练习对象的引用、事件与方法的使用。
实践环节（60 分钟）
一、表单的练习
1、建立一个表单 myform1.scx，完成下列要求：
① 表单标题（caption）设置为“中英转换”，Autocenter 设置 为.T.；
② 在表单上添加一个标签控件（Label1），标签上显示“欢迎光 临！”，字号为 24（fontsize）；
③ 向 表 单 内 添 加 两 个 命 令 按 钮 ， 单 击 “ 显 示 英 文 ” 命 令 按 钮
（Command1）时，完成如下操作：
标 签 上 显 示 改 为 “ Welcom!” ， 字 的 颜 色 为 红 色
（RGB(255,0,0)）。
④ 单击“退出”命令按钮（Command2）时，关闭表单。
2、建立一个表单 myform2.scx，完成下列要求：
① 表单标题设置为“考试系统”；
② 在 表 单 上 添 加 一 个 标 签 控 件 （ Label1 ） ， 一 个 文 本 框
（text1），标签上显示“欢迎使用考试系统”8 个字，字的颜色为红色
（ForeColor=255,0,0 ）；
③ 向 表 单 内 添 加 两 个 命 令 按 钮 ， 单 击 “ 确 定 ” 命 令 按 钮
（Command1）时，完成如下操作：
标 签 上 显 示 改 为 “ 欢 迎 使 用 本 软 件 ” ， 字 的 颜 色 为 黑 色
（ RGB(0,0,0) ） ， 字 体 为 “ 宋 体 ” （ fontname 属 性 ） ， 字 号 为 20(fontsize属性)，标签的宽度改为 200（width 属性）
代码为：with thisform.label1 .caption=”欢迎使用本软件”
.forecolor=rgb(0,0,0) .fontname=”宋体”
.fontsize=20 .width=200 endwith
④ 单击“退出”命令按钮（Command2）时，关闭表单。
代码为：thisform.release
备注
教 学 进 程 与 设 计
3、建立一个表单 myform3.scx，完成下列要求：利用文本框输入 球的半径，然后按“计算”按钮，得到球的面积。
① 表单标题（caption）设置为“圆的面积”，Autocenter 设置 为.T.；
② 在表单上添加两个标签控件（Label1、Label2）,标签上分别显 示 “ 圆 的 半 径 ” ， 字 号 为 16 （ fontsize ） ， “ 圆 的 面 积 ” ， 字 号 为 16（fontsize）。
③ 向 表 单 内 添 加 两 个 命 令 按 钮 ， 单 击 “ 计 算 ” 命 令 按 钮
（Command1）时，计算圆的面积。
R=thisform.text1.value Thisform.text2.value=pi()*r*r
④ 单击“退出”命令按钮（Command2）时，关闭表单。
代码为：thisform.release
4、建立一个表单 myform4.scx，完成下列要求：
① 表单标题（caption）设置为“控件的使用”，Autocenter 设置 为.T.；
② 在表单上 添加 1 个标签控件（ Label1 ）和 1 个文本 框控件
（text1）,标签文本字号为 16（fontsize）；
③ 向 表 单 内 添 加 两 个 命 令 按 钮 ， 单 击 “ 显 示 ” 命 令 按 钮
（Command1）时，文本框显示当前的系统日期，标签显示“欢迎大家 的到来！”；
④ 单击“退出”命令按钮释放表单。
二、操作题目显示结果
1、设计界面和运行结果如图所示。
2、设计界面和运行结果如图所示。
备注
教 学 进 程 与 设 计
3、设计界面和运行结果如图所示。
4、设计界面和运行结果如图所示。
实践环节小结（5 分钟）
本次实践主要内容是让学生进行面向程序设计的操作，学生通过表 单的练习要掌握对象的引用、属性的设置、方法的调用以及事件代码的 编写。
上机内容指导、答疑，注意共性问题的讲解与总结。
备注
学 生 注 意 记 录 操 作 结 果 ， 以 备 检 查 。 教 师 要 对 本 次 实 验 进 行 验 收 ， 并 记 入 平 时 成绩。
习题作业
1．如何在代码中使用对象？
2．如何利用代码设置属性？
3．如何在表单实现方法的调用？