2012年VFP上机练习题及参考操作答案V

第三题
根据以下要求，完成基本操作，所需文件在指定文件夹下：
1．从 SCORE_MANAGER 数据库中删除名为 NEW_VIEW1 的视图(在数据库设计器中，右单击视图，选择删除即可)。

2．用SQL 命令向SCORE1 表中插入一条记录：学号为“993503433”、课程号为“0001”、成绩为 99。

(在 VFP 命令窗口中执行命令：insert into score1 (学号,课程号,成绩) values("993503433","0001",99)，不用考虑打开表 ) p100
第四题
1.在指定文件夹下打开数据库文件 college（modi data college），物理删除该数据库中的temp 表(在数据库设计器中右单击该表选择删除，在提示框中再选择删除，注意此操作要求物理删除表，所以不要选择移去，移去操作仅把表转换为自由表，而不是从磁盘上物理删除表)，然后将三个自由表“教师表”、“课程表”和“学院表”添加到该数据库中。

3.使用SQL 语句查询“教师表”中工资大于4500 的教师的全部信息，将查询结果按职工号升序排列，查询结果存储于文本文件 one.txt 中，SQL 语句存储于文件two.prg 中。

SQL 命令： select * from 教师表 where 工资>4500 order by 职工号to file
one.txt
用modi comm 命令建立一个程序文件two.prg,把上面的语句输入后保存即可。

第
五
题
在指定文件夹下打开数据库“宾馆”，完成以下操作： 1.打开“客户”表，为“性别”字段增加约束性规则：性别只能取“男”或“女”，默
认值为“女”，表达式为性别$“男
女”。

2．为“入住”表创建一个主索引，索引名为fkkey，索引表达式为“客房号+客户
号”。

(在表设计器中建立入住字段的索引，？？在索引标签中设置其为主索引，在索引名处输入fkkey，在表达式处输入：客房号+客户号)
3.根据各表的名称、字段名的含义和存储的内容建立表之间的永久联系（参见课
本
3.7.3 节的第二部分），并根据要求建立相应的普通索引，索引名与创建索引的字段名相同，升序排序。

第六题本题应该归入简单应
用题
第七题
根据以下要求，完成基本操作，所需文件（或要保存文件）均在指定文件夹
下：1.在指定文件夹下建立一个名为"外汇管理"的数据库。

（create data
外汇管理）2.将表currency_sl和表rate_exchange添加到新建立的数据库中。

3. 将表rate_exchange 中" 买出价" 字段的名称改为" 现钞卖出价" 。

（modi stru rate_exchange，或者在数据库设计器中右单击表rate_exchange，选择“修改”后在
表设计器中修改）
4.通过"外币代码"字段为表rate_exchange和currency_sl建立一对多永久联系
(需要首先建立相关索引)。

（参见课本3.7.3节的第二部分）
第八题
在指定文件夹下完成如下操作：
1. 创建一个名为"订单管理"的数据库，并将已有的employee 和orders 两个表添
加到该数据库中。

新建一个名为customer 的表，表结构如下：
客户号字符型
(4) 客户名字
符型(36) 地址
字符型(36)
执行Create customer 命令，在表设计器中设置以上字段；
也可以使用SQL 命令直接建立：create table customer(客户号 C(4),客户名 C(36), 地址 C(36))
2. 为orders 表建立一个普通索引，索引名为je，索引表达式为"金额"，降序索引。

3. 通过"客户号"分别为customer 表建立主索引，为orders 建立普通索引，索引
名和索引表达式均为"客户号"，通过"客户号"为customer 表和orders 表之间建立一
个一对多的
永久联系。

第九题
在指定文件夹下完成如下操作：
1. 创建一个名为"订单管理"的数据库，并将已有的employee、orders 和customer 三个表添加到该数据库中。

他的字段是哪个？
2. 为orders 表建立一个普通索引，索引名为nf，索引表达式为"year(签订日期)"。

为employee 表建立主索引，为orders 建立普通索引，索引名和索引表达式均为"职员号
（参见课"。

通过"职员号"在employee 表和orders 表之间建立一个一对多的永久联系。

本3.7.3 节的第二部分）
3. 为上述建立的联系设置参照完整性约束：更新规则为"限制"，删除规则为"级联"，插入规则为"限制"。

（参见课本3.8.3 节）
第十题
在指定文件夹下，完成如下操作:
1. 将当前文件夹下的自由表 CLASS(班级表)和 TEACHER(教师表)添加到学生数据库SDB 中；为班级表 CLASS 创建一个主索引和普通索引（升序），主索引的索引名和索引表达式均为班级号；普通索引的索引名和索引表达式均为班主任号。

为教师表TEACHER 创建一个主索引，索引名和索引表达式均为教师号；
2. 通过"班级号"字段建立班级表CLASS 和学生表STUDENT 表间的永久联系。

通过班级表 CLASS 的"班主任号"字段与教师表 TEACHER 的"教师号"字段建立班级表 CLASS 和
教师表TEACHER 间的永久联系；（参见课本3.7.3 节的第二部分）？？？
3．为以上建立的两个联系设置参照完整性约束：更新规则为"级联"；删除规则为"限制"；插入规则为"限制"。

（参见课本3.8.3 节）
前面的已经看了
第十一题
根据以下要求，完成基本操作题，所有文件保存在指定文件夹下： 1.在指定文件下建立数据库BOOK，并把数据表rsgz 添加到该数据库中。

2.将表RSGZ 的所有记录的应发工资和实发工资计算出来填充到相应字段中，应发工资为基本工资、职务补贴的和，实发工资为应发工资减去社会保险和公积金。

方式1 使用replace 命令，
use rsgz
repl all 应发工资 with 基本工资+职务补贴，实发工资 with 应发工资-社会保险-公积金
方式2 使用SQL 的update 命令,此时不用考虑表是否打开，直接执行以下命令:
update rsgz set 应发工资=基本工资+职务补贴,实发工资=应发工资-社会保险
-
公积金
3.为表RSGZ 建立普通索引PK，索引表达式为“实发工资”，并用select 统计实发工资在1000 元以上（含1000）的人数，将结果保存在表ren.Dbf 中
SQL 命令：select count(*) from rsgz where 实发工资>=1000 into table ren 第十二题
根据以下要求，完成基本操作题，所有文件保存在指定文件夹下： 1.在指定文件下建立数据库BOOK，并把数据表rsda 添加到该数据库中。

2.在表 RSDA 中物理删除姓名为“马超频”的记录,将“职称”为“讲师”的进行逻辑删除，并将姓名为“王为冬”的职称改为“教授”。

（可以使用命令方式，或许打开表在浏览方式下用鼠标点击删除、修改更快些哦，总共11 条记录，不会很累的......）
3.为表RSDA 建立以工作时间长短进行索引,索引名称为PK，按降序排列。

第十三题
根据以下要求，完成基本操作题，所有文件保存在指定文件夹下： 1.在指定文件下建立数据库BOOK，并把数据表RSGL 添加到该数据库中。

2.为表 RSGZ 的“性别”字段，添加字段有效性，该字段的有效性规则为只能是“男”或“女”（打开数据库设计器，右单击表选择修改，在表设计器中选择性别字段，在下方的字段有效性规则栏内填写：性别$“男女”），输入错误则显示“该字段只能是男或女”(规则框内填写,注意提示信息是字符串，需要用字符串界定符界定)，其默认值为“男”（默认值为字符型的不要忘记字符串界定符）。

3.将表RSGL 中的“职务”字段删除，并修改“文化程度”字段的宽度为10。

第十四题
根据以下要求，完成基本操作题，所有文件保存在指定文件夹下： 1.在指定文件下打开数据库BOOK，并把数据表RSGZ 和RSDA 添加到该数据库中,把数据
表RSGL 从数据库中移去(注意“移去”和“删除”的区别) 。

2.为表 RSGZ 建立以“编号”为关键字的普通索引，为表 RSDA 建立以“编号”为关键字的主索引，删除表RSDA 中以PK 为索引名的索引。

3.为表 RSDA 和 RSGZ 建立以“编号”作为关联字的一对多永久关系。

（参见课本3.7.3 节的第二部分）
第十五题
根据以下要求，完成基本操作题，所有文件保存在指定文件夹下： 1.在指定文件下打开数据库 BOOK，并把数据表 RSBM 添加到该数据库中,移去数据表
RSGZ 和RSda。

(注意移去不是物理删除)
2. 为表RSBM 建立以“部门名”为关键字的主索引，为表RSgl 建立以“部门名”
为关键字的普通索引，删除表RSDA 中以PK 为索引名的索引。

3.为表 RSBM 和 RSGL 建立以“部门名”作为关联字的一对多永久关系。

（参见课本3.7.3 节的第二部分）
第十六题
根据以下要求，完成基本操作题，所有文件保存在指定文件夹下： 1.在指定文件下打开数据库 BOOK，并把数据表 RSBM 添加到该数据库中,移去数据表
RSGL。

2.将表RSGZ 的基本工资超过800 的所有记录的应发工资和实发工资计算出来填充到相应字段中，应发工资为基本工资、职务补贴的和，实发工资为应发工资减去社会保险和公积金。

方式1 使用replace 命令，
use rsgz
repl all 应发工资 with 基本工资+职务补贴，实发工资 with 应发工资-社会保险-公积金 for 基本工资>800
方式2 使用SQL 的update 命令,此时不用考虑表是否打开，直接执行以下命令: update rsgz set 应发工资=基本工资+职务补贴,实发工资=应发工资-社会保
险-
公积金 where 基本工资>800
3.为表RSGZ 建立索引表达式为“编号”的主索引，并用SELECT 统计已计算出实发工资记录的个数，将结果保存在表ren.Dbf 中。

SQL 命令：select count(*) from rsgz where 实发工资>0 into table ren
第十七题
根据以下要求，完成基本操作题，所有文件保存在指定文件夹下： 1.在指定文件下建立数据库BOOK，并把数据表XSDA 和XSCJ 添加到该数据库中。

2.将表 XSCJ 的所有记录的总分计算出来填充到相应字段中(打开表后，使用replace all 总分 with 各科成绩相加,也可以使用菜单或 SQL 的update 命令)，为表XSCJ 建立以“学号”作为关键字的主索引，为表XSDA 建立以“学号”作为关键字的主索引。

3.为表 XSDA 和 XSCJ 建立以“编号”作为关联字的一对一永久关系。

（参见课本3.7.3 节的第二部分）
第十八题
根据以下要求，完成基本操作题，所有文件保存在指定文件夹下： 1.在指定文件下建立数据库BOOK，并把数据表XSDA 和XSCJ 添加到该数据库中。

2.将表 XSCJ 的所有记录的总分计算出来填充到相应字段中（同上题），按总分建立以 PK 为索引名的索引，降序排列。

3.使用SELECT 统计出XSCJ 数据表中总分320 以上（含320）的人数，将结果保存在表 ren.Dbf 中。

SQL 命令： select count(*) from xscj where 总分>=320 into table ren 注意必须正确执行第二步，算出总分后才可以做这一步，否则表 REN.DBF 中的结果可
能不对。

第十九题
根据以下要求，完成基本操作题，所有文件保存在指定文件夹下： 1.在指定文件下打开数据库BOOK，并把数据表XSDA 和XSCJ 添加到该数据库中,移去数
据表RSGZ。

2. 为表 XSDA 建立以“学号”为关键字的主索引，索引标识名为“学号”，为表XSCJ 建立以“学号”为关键字的候选索引，索引标识名为“x h”，删除表 XSDA 中以 PK 为索引名的索引。

3.为表XSDA 和XSCJ 建立以“学号”作为关联字的一对一永久关系。

（参见课本3.7.3 节的第二部分）
第二十题
根据以下要求，完成基本操作题，所有文件保存在指定文件夹下： 1.在指定文件下建立数据库BOOK，并把数据表XSDA 和XSCJ 添加到该数据库中。

2.将表XSCJ 的所有记录的总分和平均分计算出来填充到相应字段中，建立按总分
由高到低的索引（降序索引），索引名称为PK。

（参照前面类似的操作，或用菜单方式做）
3.逻辑删除总分大于360 的记录。

正确执行第二步后再执行命令：delete for 总分>360,当然也可以使用 SQL 的delete from xscj where 总分>360,再不会的话就打开表的浏览窗口，用鼠标点击删除标记吧，反正只有一个记录需要删除，我就不信这个题不得分…嘎嘎
六．根据以下要求，完成基本操作，所需文件在指定文件夹下：
1．打开表单 one，向其中添加一个组合框(Combo1)，并将其设置为下拉列表框（设置Combo1 的style 属性）。

设置组合框的RowSource 和RowSourceType 属性，使组合框 Combo1 的显示条目为“上海”、“北京”(不要使用命令方式指定这两个属性)，显示情况如下图所示 (设置 Combo1 的 RowSource 属性值为“上海,北京”----注意不要输入双引号啦！，RowSourceType 属性设置为1-值)。

2．向表单one 中添加两个命令按钮“统计”和“退出”，名称分别为Command1 和Command2 （Command1 命令按钮的caption 属性设置为“统计”，Command2 命令按钮的caption 属性设置为“退出”）。

为“退出”命令按钮的Click 事件编写一条命令，执行该命令时关闭并释放表单（Command2 命令的单击事件程序为：thisform.release）。

3．为表单one 中的"统计"命令按钮的Click 事件编写一条SQL 命令，执行该命令时，将“歌手表”中所有"歌手出生地"与组合框(Combo1)指定的内容相同的歌手的全部信息存入自由表 birthplace 中。

（select * from 歌手表where 歌手出生地=bo1.value into table birthplace）
简单应用题
要做好本部分题目，必须详细学习课本第六章的表单基本操作，属性设置，常用控件的使用及课本示例，特别要熟练掌握课本第六章
的全部例子（6.3.11 页框、6.3.13 图像、6.3.14 ActiveX 控件除外，
本学期这三种控件不在要求的考核范围内）。

第一题
在指定文件夹下完成如下简单应用：
1.打开表单myform001，把表单（名称为Form1(注意表单名称和表单保存后的磁盘文件名没有直接关系，可以不同)）标题改为“成绩管理系统”(form1 对象的caption 属性设置为“成绩管理系统”,在表单设计器界面中点击表单空白处，使表单为当前对象，然后在属性框中设置caption 的文本为指定的内容，不要输入引号)，将文本“欢迎使用成绩查询系统”（名称为 label1 的标签）改为颜色属性值为 222,100,50(标签的forecolor 属性)，黑体(标签的 fontname 属性设置为黑体)。

最后在表单上添加“关闭”（名称为 Command1）命令按钮 (Command1 命令按钮的 caption 属性设置为“关闭”)，单击此按钮关闭表单（Command1 命令的单击事件程序为：thisform.release）。

保存并运行表单。

2. 打开表单myform002，表单中已有一个标签（名称为label1），按标签要求完成操作。

需要建立二个命令按钮“计算”和“关闭”（名称分别为 Command1 和 Command2）(Command1 命令按钮的caption 属性设置为“计算”，Command2 命令按钮的caption 属性设置为“关闭”，注意题目中添加多个控件的，要严格按题目说明对应控件的名称关系，否则影响得分)，三个文本框（text1、text2、text3），结果放在text3 中，单击“计算”按钮,完成标签要求，单击“关闭”按钮关闭表单（Command2 命令的单击事件程序为：thisform.release）。

在text 中输入22，在text2 中输入36，保存并运行表单。

注意把三个文本框按钮的属性value 值事先设置为0，使得他们默认接收的数据为数值型，否则无法进行数学计算。

其他方法可以处理，但是麻烦些。

Command1 计算按钮的单击事件程序：
thisform.text3.value=thisform.text1.value+thisform.text2.v
alue 注意：完成表单设计后要运行表单的所有功能。

第二题
在指定文件夹下完成如下简单应用：
1.打开表单myform001，把表单（名称为Form1）标题改为“欢迎您”（设置表单的caption），将文本“欢迎您访问系统”（名称为label1 的标签）改为25 号（设置
label1 的fontsize）
黑体（设置label1 的fontname）。

最后在表单上添加“关闭”（名称为Command1）命令按钮（Command1 命令按钮的caption 属性设置为“关闭”，单击此按钮关闭表单（Command1
按钮的单击事件程序为：thisform.release）。

保存并运行表单。

2.打开表单myform002,在表单上已有二个标签按钮（名称为 label1 和 label2）,添加两个命令按钮“计算”和“关闭”（名称分别为 Command1 和 Command2）（设置方式同第一题）。

一个文本框（名称为text1），一个标签按钮（名称为label3）
（1）单击“计算”命令按钮，计算出输入圆半径的圆的面积，圆半径在文本框中输入,圆面积在标签label3 中显示。

（注意text1 文本框默认数据类型是文本，需要首先设置其value 值为0，这样该文本框把接收的数字符号默认就是数值型了，后面才可以计算圆面积）计算按钮的单击事件程序为：（caption 属性为字符型，所以使用STR 函数转换后赋值） bel3.caption=str((thisform.text1.value)**2*pi(),10,2)
（2）单击“关闭”命令按钮关闭表单。

（关闭按钮的单击事件程序为：
thisform.release）注意：完成表单设计后要运行表单的所有功能。

第三题
在指定文件夹下完成如下简单应用：
1.打开表单 myform001，把表单（名称为 Form1）背景色改为“100,100,200”（单击表单空白处，然后设置表单的 backcolor 属性），将文本“欢迎您访问系统”（名称为label1 的标签）改为20 号黑体（同前）。

最后在表单上添加“关闭”（名称为Command1）命令按钮（Command1 命令按钮的 caption 属性设置为“关闭”，单击此按钮关闭表单（关闭按钮的单击事件程序为：thisform.release）。

保存并运行表单。

2.设计一个表单myform002,上有两个标签（名称为label1 和label2）和两个计时器（名称分别为timer1 和timer2）。

标签label1 的内容为“学生成绩管理系统”（设置标签1 的caption），字号为20（设置标签1 的fontsize），timer1 事件的时间间隔为20 毫秒（设置timer1 的interval 属性值为 20），timer2 事件的时间间隔为1000 毫秒（设置timer2 的interval 属性值为1000），标签
2 显示系统时间(设置time2 控件的timer 事件代码为：
bel1.caption=time())，标签1 能够不停的自右向左移动(移动值设置为-2)，当全部移出表单后再由表单右侧重新进入。

设置timer1 的timer 事件代码为：
if bel1.left>bel1.width then
bel1.left=bel1.left-2
else
bel1.left=thisform.width
endif
注意：完成表单设计后要运行表单的所有功能。

类似操作参见课本P 222 页示例6-19.第四
题
在指定文件夹下完成如下简单应
用：
1.打开表单myform001，把表单（名称为Form1）标题改为“欢迎您”（点击表单空白处，设置其caption 属性为“欢迎您”，注意控件的标题caption 和名称name 不同，前者一般展示在表单界面中，后者一般在程序中使用，相当于变量名字），将文本“成绩处理系统”（名称为label1 的标签）改为25 号（设置label1 的fontsize）、字体颜色为RGB （100,200,100）
（设置 label1 的 forecolor）。

最后在表单上添加“关闭”（名称为 Command1）命令按钮 (Command1 命令按钮的caption 属性设置为“关闭”)，单击此按钮关闭表单(关闭按钮的单击事件程序为：thisform.release）。

保存并运行表单。

2.设计一个表单 myform002,上有两个命令按钮“输出”和“退出”（名称分别为Command1 和 Command2）(Command1 命令按钮的 caption 属性设置为“输出”，Command2 命令按钮的 caption 属性设置为“退出”)。

一个文本框（名称为 TEXT1）（注意 text1 文本框默认数据类型是文本，需要首先设置其value 值为 0，这样该文本框的值类型默认就是数值型了，后面才可以输入一个表示成绩的数值）,一个标签（名称为label1）。

（1）单击“输出”命令按钮，文本框中输入的学生成绩的等级（在标签中显示），等级划分为：不及格（小于60）、及格（大于等于60 小于70）、良好（大于等于70 小于90）、优秀
（大于等于90）,输入其它值则显示“输入错误”。

输
出按钮Command1 的单击事件程序为：
fs=thisform.text1.value
lcaptio
n=""
if fs>100 or fs<0 then
lcaption="输入错误"
e
l
s
e
if fs<60 then lcaption="不
及格"
else
if fs<70
lcaption="及
格" else
if fs<90
lcaption="良好"
else lcaption="
优秀" endif
endif
endif
endif
bel1.caption=lcaption
（2）单击“退出”命令按钮关闭表单(退出按钮的单击事件程序为：
thisform.release）。

注意：完成表单设计后在文本框中输入65，运行表单的所有功能。

第五题
在指定文件夹下完成如下简单应用：
1.打开表单myform001，把表单（名称为Form1）标题改为“考试系统”（点击表单空白处，设置其caption 属性为“考试系统”），将文本“进入考试系统”（名称为label1 的标签）改为20 号黑体（设置label1 的fontsize 属性）。

最后在表单上添加“关闭”（名称为Command1）命令按钮（设置其caption 属性为“关闭”），单击此按钮关闭表单（退出按钮的单击事件程序为：thisform.release）。

保存并运行表单。

2.设计一个表单myform002,表单上有一个标签“请输入密码”（在新建的表单上添加一个标签控件，设置其caption 属性为“请输入密码”)和一个文本框（名称分别为label1 和text1）。

输入密码时文本框中显示“*”(设置文本框控件text1 的passwordchar 属性为*，设置其controlsource 属性为newpassword )，输入错误显示提示信息“密码输入不正确，第几次输入失败！”,三次输入不正确时，则显示提示信息“对不起，您不是合法用户！”，输入密码正确，则显示“密码正确，进入系统！”，然后结束表单运行。

（inputnumber 存放输入次数， oldpassword="123" ,newpassword 存放输入密码注意：完成表单设计后要运行表单的所有功能。

建立新表单，保存表单文件名字为myform002，设置表单的init event 事件代码如下: public inputnumber,oldpassword,newpassword
inputnumber=0
oldpassword='123'
newpassword=''
文本框控件text1 的valid event 事件代码
为：if newpassword!=oldpassword
inputnumber=inputnumber+1
=messagebox('密码输入不正确，第'+str(inputnumber,1)+'次输入失败
') if inputnumber<3
newpasssword
=''
this.value='
'
thisform.ref
resh
return .f.
else
=messagebox('对不起，您不是合法用户！')
release
inputnumber,oldpassword,newpassword
thisform.release
endi
else
messagebox('密码正确，进入系统！')
release
inputnumber,oldpassword,newpassword
thisform.release
endi
程序中设定的原始密码为123，运行时输入完成后直接回车即
可。

可参见课本P195 例6-4
第六题
在指定文件夹下完成如下简单应用：
1.打开表单 myform001，把表单（名称为Form1）标题改为“欢迎您”，将文本“欢迎您访问系统”（名称为label1 的标签）改为25 号。

标签背景色改为100,80,200，最后在表单上添加“关闭”（名称为 Command1）命令按钮，单击此按钮关闭表单。

保存并运行表单。

(如前类似操作)
2.设计一个表单myform002,表单上有两个命令按钮“计算”和“退出”（名称分别为Command1 和Command2），二个标签（名称为label1，内容为“输入数据”；名称为
label2，显示结果），一个文本框（名称为text1，在此输入数据）。

单击“计算”命令按钮，计算出该数据之内所有奇数的和（该数据为自然数）。

（2）单击“退出”命令按钮关闭表单。

注意
1. text1 文本框默认数据类型是文本，需要首先设置其 value 值为 0，这样该文本框的值类型默认就是数值型了，后面才可以输入一个表示成绩的数值. 其他控件设置属性参照前面的例子。

2. Label1 控件的尺寸设置的稍微大一些，以便清楚的显示结果，或者把标签控
件的autosize 属性设置为.T.。

计算按钮的单击事件程序代码如下:
s=0
for i=1 to thisform.text1.value
s=s+i
i=i+1
endfor
bel1.caption=str(s)
注意：完成表单设计后输入1000 运行表单的所有功能。

第七题
在指定文件夹下完成如下简单应用：
1.打开表单 myform001，把表单（名称为Form1）标题改为“欢迎您”，将文本“欢迎您访问系统”（名称为 label1 的标签）改为25 号，字体的颜色设置为 RGB（100，50，200）。

最后在表单上添加“关闭”（名称为 Command1）命令按钮，单击此按钮关闭表单。

保存并运行表单。

(如前类似操作)
2.设计一个表单 myform002,上有三个命令按钮“查找”、“替换”和“退出”（名称分别为 Command1、 Command2 和Command3（建立新表单，保存为myform002；添加三个命令按钮，依次设置其caption 为“查找”、“替换”和“退出”，注意对应关系，否则影响得分），一个编辑框（名称为edit1，内容为“ This is an example”）(添加edit 控件，设置其value 值为This is an example）。

单击“查找”命令按钮，选择Edit1 中的单词example(设置Edit1 按钮的
HideSelection 属性值为F，以便显示被选中的文本)；单击“替换”，用单词exercise 置换已选择的单词。

单击“退出”命令按钮关闭表单。

注意：完成表单设计后要运行表单的所有功能。

查找按钮的单
击事件代码为:
thisform.edit1.selstart=at("example",thisform.edit1.value
)-1 thisform.edit1.sellength=7
替换按钮的单击事件代码为:
x=at("example",thisform.edit1.value)
thisform.edit1.value=STUFF(thisform.edit1.value, x , 7 ,
"exercise")
thisform.edit1.selstart=at("exercise",thisform.edit1.value)-1
thisform.edit1.sellength=8
退出按钮的单击事件代码为:
thisform.release
第八题
在指定文件夹下完成如下简单应用：
1.打开表单myform001，把表单（名称为Form1）标题改为“欢迎学习”，将文本“V FP 数据库程序设计”（名称为label1 的标签）改为20 号黑体。

最后在表单上添加“关闭”（名称为 Command1）命令按钮，单击此按钮关闭表单。

保存并运行表单。

(如前操作)
2.设计一个表单myform002（新建表单并保存为myform002）,表单上有两个命令按钮“求余数”和“退出”（名称分别为Command1 和Command2），有二个标签（名称分别为label1 和 label2，内容为“被除数”和“除数”，有三个文本框（名称为text1、text2 和text2，在text1 和text2 中输入被除数和除数，text3 中输出余数）。

（以上各个控件的caption 按要求设置，注意对应关系，如“求余数”的按钮是Command1……）单击“求余数”命令按钮，则显示出余数，被除数、除数均为整数。

设置“求余数”按钮Command1 的单击事件代码
为：if thisform.text2.value!=0 then
thisform.text3.value=mod(thisform.text1.value,thisform.text2.val
ue) endi
单击“退出”命令按钮关闭表单。

注意：完成表
单设计后要运行表单的所有功能。

第九题
在指定文件夹下完成如下简单应用：
1.打开表单myform001，把表单（名称为Form1）标题改为“欢迎学习”，将文本“V FP 数据库系统”（名称为label1 的标签）改为25 号，字体颜色为RGB（100,60,80）。

最后在表单上添加“关闭”（名称为Command1）命令按钮，单击此按钮关闭表单。

保存并运行表单。

2.设计一个表单myform002,表单上有两个命令按钮“计算”和“退出”（名称分别为Command1 和Command2），二个标签（名称为label1，内容为“输入整数数据”，label2，输出结果），一个文本框（名称为text1，在此输入数据）（设计状态设置
text1 按钮的value 值为0）。

单击“计算”命令按钮，计算出从100 到输入数据内的所有“水仙花数”的个数，水仙花数是指一个三位数，其各位数字的立方和等于该数本身。

计算按钮Command1 的单击事件代码为：
bel2.caption=str(0)
x=thisform.text1.value
if x<=100 or x>999 then
retu
end
i
n=0
for i=101 to x
s=str(i,3)
a=val(substr(s,1
,1))
b=val(substr(s,2
,1))
c=val(substr(s,3,1))
if i=a**3+b**3+c**3 then
n=n+1
endif
endfor
bel2.caption=str(n) 单击“退出”命令按
钮关闭表单。

注意：完成表单设计后要运行表单的所有
功能。

第十题
在指定文件夹下完成如下简单应用：
1.打开表单myform001，把表单（名称为Form1）标题改为“祝同学们”，将文本“身体健。