09年春VFP上机题

09年春VFP01一、项目、数据库和表操作（12分）打开T盘根目录的项目文件JXGL，在该项目已有一数据库JXSJ。

1．在JXSJ数据库中按如下表格中所示的结构创建表，并按表格后的要求设置相关属性。

（1）设置TAB表的注释：火炬传递城市信息表；（2）设置Cdrq字段的有效性规则及信息：传递日期必须在2008年8月8日前；（3）将Cdrs字段的默认值设置为100；（4）按Cdcs字段创建主索引，索引名为abcd。

2Cdcs Cdrq Cdrs Cdlxt南京2008/05/27208（插入文件）3．设置CJ表的更新触发器，要求课程代码为“60023”的记录不允许修改。

4．已知JS表已存在主索引gh，索引表达式为gh，KCAP表为子表按gh建立永久关系，并设置两表之间的参照完整性：插入限制。

二、设计查询（8分）已知教材（JC）表存储了教材的基本信息，其中含出版社名称（CBSMC，C）、出版年份（CBNF，C）、定价（DJ，N，）等字段。

按如下要求修改JXGL项目中的查询CHAXUN：基于JC表统计各出版社2000年以后（含2000年）出版的教材种数及平均定价。

要求：输出出版社名称、教材种数、平均定价（字段名依次分别为CBSMC、JCZS和PJDJ），查询结果按教材种数排序，输出去向为屏幕（即主窗口）。

（注：JC表中每条记录为一种教材）。

三、设计菜单（5分）JXGL项目中已存在菜单MENU，已定义了“系统管理”菜单栏及其中的“恢复系统菜单”菜单项。

按如下要求设计菜单，完成后的运行效果如图1所示。

1.创建“教材信息”菜单栏，其访问键为J，子菜单“编辑”、“浏览”和“统计”，分组线如图1所示；2.为“编辑”菜单项设置跳过条件，使该菜单项不可用；3.为“统计”菜单创建子菜单“出版社”和“出版年月”；4.为“出版社”菜单项设置快捷键CTRL+B，并为其设置过程代码：首先清除屏幕（即主窗口），然后运行查询文件。

字段名数据类型宽度字段标题Cdcs C40传递城市Cdrq D传递日期Cdrs I火炬手人数Cdlxt G传递路线图图1四、表单设计（10分）表单F081E的功能是：用鼠标在表单上写汉字等操作。

按下列要求修改表单，修改后表单运行时如图2所示。

1．设置表单的有关属性，使其标题为“鼠标写字”，边框样式属性为“固定对话框”，背景颜色为“黄色”。

2．如图2所示，在表单上部添加一个标签控件，用来显示鼠标的位置，并将其对象名修改为COORD，背景样式设置为“透明”。

3．在表单的下部添加一个文本框控件（对象名为Text1）和计时器控件（对象名为Timer1），并设置计时器控件的有关属性，图2使得表单运行时触发计时器事件的间隔时间为5秒。

4．编写计时器控件的Timer事件代码，实现在文本框中显示当前的系统日期和时间。

五、程序改错（5分）下列程序的功能是：删除字符串（不包括汉字）中的空格，并将它按字符从小到大的顺序排列以后输出。

例如，字符串“B C efA”，输出结果为“ABCef”。

要求：①将下列程序输入到项目中的程序文件PCODE中，并对其中的2条错误语句进行修改②在修改程序时，不允许修改程序的总体框架和算法，不允许增加或减少语句数目。

CLEARx='B C efA'y=''x=STRTRAN(x,SPACE(1),SPACE(0))n=LEN(x)DIMENSION A(n)FOR i=1 TO nA(i)=LEFT(x,1)x=SUBSTR(x,i)ENDFOR=ASORT(A) && ASORT()函数的功能是对数组元素进行排序FOR j=1 TO ny=A(j)+yENDFORy09年春VFP02一、项目、数据库和表操作（12分）打开T盘根目录的项目文件JXGL，在该项目已有一数据库JXSJ。

1．在JXSJ数据库中按如下表格中所示的结构创建表，并按表格后的要求设置相关属性。

字段名数据类型宽度字段标题Cdcs C40传递城市Bc I棒次Xm C50火炬手姓名Jj M火炬手简介（1）设置TAB表的注释：火炬传递人员信息表；（2）设置Bc字段的有效性规则及信息：棒次必须在1至300之间！；（3）将Bc字段的默认值设置为1；（4）创建主索引，索引名为abcd，要求按传递城市和棒次顺序排列。

2Cdcs Bc Xm Jj南京1杨阳曾被誉为世界羽坛“四大天王”之首3．修改JC表中的数据，将所有教材名称字段内容的两端加书名号“《》”，要求书名的最后一个字与右书名号“》”之间不允许留有空格。

4．设置JC表的删除触发器，要求只允许删除出版年份在2000年之前的记录。

5．已知YXZY表已存在主索引yxzydm，索引表达式为yxzydm，XS表已存在普通索引yxzydm，索引表达式为yxzydm，以YXZY表为主表，XS表为子表按yxzydm建立永久关系，并设置两表之间的参照完整性：更新级联。

二、设计查询（8分）已知教材（JC）表存储了教材的基本信息，其中含出版社名称（CBSMC，C）、出版年份（CBNF，C）、定价（DJ，N，）等字段。

按如下要求修改JXGL项目中的查询CHAXUN：基于JC表统计各年份（CBNF字段的前6个字符）出版的教材种数及平均定价。

要求：输出年份、教材种数、平均定价（字段名依次分别为NF、JCZS和PJDJ），查询结果按平均定价降序排序，且输出JCZS大于或等于5的记录，输出去向为文件。

（注：JC表中每条记录为一种教材）。

三、设计菜单（5分）JXGL项目中已存在菜单MENU，已定义了“系统管理”菜单栏及其中的“恢复系统菜单”菜单项。

按如下要求设计菜单，完成后的运行效果如图1所示。

1.创建“教材管理”菜单栏，其访问键为B，子菜单“修改”、“浏览”和“统计”，分组线如图1所示；2.为“修改”菜单项设置跳过条件，使该菜单项不可用；3.为“统计”菜单创建子菜单“出版社”和“出版年份”；4.为“出版年份”菜单项设置快捷键CTRL+Y，并为其设置过程代码：首先运行查询文件，然后利用MESSAGEBOX()函数显示提示信息“结果保存在文件中”。

图1四、表单设计（10分）表单F081F的功能是：通过连续播放BMP位图文件产生动画效果。

按下列要求修改表单，修改后表单运行时如图2-1、图2-2所示。

图2-1图2-21．设置表单的有关属性，使其标题为“播放动画”，且无最大化、最小化按钮。

2．在“播放”命令按钮下文添加一个命令按钮，其标题属性设置为“退出”，且编写其Click事件代码，其功能是释放表单。

3．完善“播放”命令按钮的Click事件代码，其功能是：单击该按钮则其标题在“播放”与“停止”之间切换（即播放动画时显示“停止”，停播时显示“播放”），并且如果单击的是“停止”按钮，则将计时器对象设置为不可使用。

五、程序改错（5分）下列程序的功能是：删除字符串（不包括汉字）中的空格，并将它按字符从小到大的顺序排列以后输出。

例如，字符串“B C efA”，输出结果为“ABCef”。

要求：①将下列程序输入到项目中的程序文件PCODE中，并对其中的2条错误语句进行修改②在修改程序时，不允许修改程序的总体框架和算法，不允许增加或减少语句数目。

CLEARcStr='ABcdefghijkt flq'FC_order(x)FUNCTION FC_orderPARAMETER xx=STRTRAN(x,SPACE(1),SPACE(0)) &&将x中的空格删除n=LEN(x)y=''DIMENSION A(n)FOR i=1 TO nA(i)=SUBSTR(x,i,1)ENDFOR=ASORT(A) &&ASORT()函数的功能是对数组元素进行排序FOR j=1 TO ny=y+A(j)ENDFORRETURN y09年春VFP03一、项目、数据库和表操作（12分）打开T盘根目录的项目文件JXGL，在该项目已有一数据库JXSJ。

1．在JXSJ数据库中按如下表格中所示的结构创建表，并按表格后的要求设置相关属性。

（1）设置TAB表的注释：奥运项目信息表；（2）设置Jps字段的有效性规则及信息：金牌数至多100；（3）将Jps字段的默认值设置为1；（4）按Xmbh字段创建主索引，索引名为abcd。

2Xmbh Xmmc Jps Xmjj0001游泳42游泳项目繁多3．按照成绩值修改自由表CJB表中的备注型字段内容：若成绩大于或等于90，则备注字段中的内容设置为“优秀”。

4．设置XS表的更新触发器，要求该表数据只能在上午8:00至下午5:00时间段内进行修改。

5．已知JS表已存在主索引gh，索引表达式为gh，KCAP表已存在普通索引gh，索引表达式为gh，以JS 表为主表，KCAP表为子表按gh建立永久关系，并设置两表之间的参照完整性：删除限制。

二、设计查询（8分）已知学生（XS）表存储了学生的基本信息，其中含学号（XH，C）、姓名（XM，C）等字段；成绩（CJ）表存储了学生的考试成绩，其中含学号（XH，C）、成绩（CJ，N）等字段，每条记录为一位学生一门课程的考试成绩（成绩以百分制计，低于60分为不及格）。

按如下要求修改JXGL项目中的查询CHAXUN：基于XS表和CJ表统计各位学生的考试情况。

要求：输出学号、姓名、考试门数和不及格门数（字段名依次分别为XH、XM、KSMS和BJGMS），查询结果按不及格门数排序，且仅输出BJGMS大于或等于1的记录。

三、设计菜单（5分）JXGL项目中已存在菜单MENU，已定义了“系统管理”菜单栏及其中的“恢复系统菜单”菜单项。

按如下要求设计菜单，完成后的运行效果如图1所示。

1．在“系统管理”菜单栏中插入VFP系统菜单“导入”和“导出”；2．创建“成绩管理”菜单栏，其访问键为C，子菜单为“录入”、“编辑”、“查询”和“打印”，分组线如图1所示；3．为“打印”菜单项设置快捷键CTRL+Y，并为其设置命令：预览报表文件RTEST。

四、表单设计（10分）在T盘中有10个图片文件、、……、。

表单F081F的功能是：通过连续播放BMP文件产生动画效果。

按下列要求修改表单，修改后表单运行时如图2所示。

1．将命令按钮的Left、Top属性分别修改为100和95。

2．设置表单的有关属性：标题为“播放二幅动画”，高度为140，字段名数据类型宽度字段标题Xmbh C4项目编号Xmmc C50项目名称Jps I金牌数Xmjj M项目简介图1宽度为210，且使其运行时自动居中。

3．在图像对象（Image1）右方添加一个图像对象（Image2）。

4．在计时器对象的Timer 事件代码的末尾，添加一条命令，使Image2显示图片的顺序为、、……、。