2011春VFP上机试卷.docVIP

2011年春VFP上机试卷 2011C VFP01 一、项目、数据库和表操作 打开T盘根目录中的项目文件JXGL，在该项目中已有一数据库JXSJ。 1．在JXSJ数据库中按如下表格中所示的结构创建AB.DBF表，并按表格中的要求设置相关属性。 字段名 数据类型 宽度 字段标题 RQ D 日期 PM C 20 品名 DW C 10 单位 DJ N 5(小数1位) 单价 设置表的注释：蔬菜批发价格表； 设置RQ字段的默认值：当前系统日期； 设置单位字段的显示类：选项按钮组； 设置表的更新触发器：日期字段的值等于当前系统日期时可以更新记录； 创建普通索引，索引名为abcd，要求按日期排序，日期相同时按单价排序。 2．在AB表中输入如下记录： RQ PM DW DJ 2010-5-15 青菜 公斤 2.4 3．为项目设置项目信息：项目的图标为PC.ICO文件。 4．KC表已存在主索引KCDM，索引表达式为KCDM；CJ表已存在普通索引KCDM，索引表达式为KCDM。以KC表位主表，CJ表为子表，根据KCDM建立永久关系，并设置两表之间的参照完整性：删除级联、插入限制。 二、设计查询 已知自由表图书表（TSB）含有分类号（flh，C）、册数（cs，N）、价格（jg，N）等字段。按如下要求修改JXGL项目中的查询CHAXUN； 基于TSB表查询图书类别、藏书册数等信息。要求：查询输出字段为图书类别、藏书册数和平均单价；查询结果按藏书册数降序排序，相同时按平均单价升序排序；输出去向为文本文件TEMP。 注：图书类别为flh中“.”前的内容（可用LEFT(…, AT(“.”, …)) 形式的表达式求得），藏书册数为同一图书类别册数之和。 三、设计菜单 JXGL项目中已存在菜单MENU，其中已定义了“文件”菜单栏及其中的“退出菜单”项。按如下要求设计菜单，菜单运行后的效果如图1所示。 1．在“文件”菜单栏右侧创建“图书管理系统”菜单栏。 2．为“图书管理系统”菜单栏创建子菜单“预约”、“借书”和“还书”。 3．在菜单项“预约”、“借书”和“还书”之间插入分组线。 4．为“借书”菜单项设置命令代码：DO FORM js。 5．在“文件”菜单栏下插入系统菜单“全部关闭”。 四、设计表单 表单F102F用了按小组查看世界杯球队信息。按下列要求修改表单，修改后表单运行时如图2所示。 1．设置表格Grid1的数据只读，无滚动条，删除“组别”列。 2．在“组别”标签下方添加一个列表框控件List1（用来选择组别），设置其数据源类型为“3-SQL语句”，数据源为“SELECT DIST 组别 FROM fifa INTO CURSOR tmp”。 3．编写表单的Load事件代码，实现：定义一个全局变量sGroup，并赋初值为字符“A”。 4．世界杯球队信息存储在自由表fifa中，表结构如下：组别（C，1）、编号（C，1）、国旗（G）、国家（C，12）、简介（M），且fifa表已添加在表单的数据环境中。编写List1的InterActiveChange事件代码，实现：（1）将List1中当前选定的值赋给变量sGroup，并对当前数据工作区中的fifa标设置筛选条件；按sGroup变量中的值对“组别”字段进行记录筛选；（2）将记录指针指向首行记录，并刷新表单。 五、程序改错 回文数是指正读和反读都是一样的数，例如1001、1221等。下列程序的功能是：求出大于1000小于2000的所有回文数，并将它们打印出来（每行打印5个数，最后一行打印总个数）。要求： ① 将下列程序输入到项目中的程序文件PCODE中，并对其中的2条错误语句进行修改； ② 在修改程序时，不允许修改程序的总体框架和算法，不允许增加减少语句数目。 STORE 0 TO n, n1, n2 FOR i=1000 TO 2000 s=ALLT(STR(i)) n1=LEN(s) n2=INT(n1/2) s1=’’ FOR j=1 TO n2 s1=s1+RIGHT(s, 1) s=LEFT(s, n1-1) ENDFOR IF LEFT(s, n1)=s1 n=n+1 ??i IF INT(n/5)=n/5 ? ENDIF ENDFOR ENDFOR ?’小于2000的回文数共’+STR(n)+’个’ 2011C VFP02 一、项目、数据库和表操作 打开T盘根目录中的项目文件JXGL，在该项目中已有一数据库JXSJ。 1．在JXSJ数据库中按如下表格中的结构创建AB.DBF表，并按表格中的要求设置相关属性。 字段名 数据类型 宽度 字段标题 PM C 20 片名 YZ C 10 语种 SC N 3 时长 R