2011年上机VFP01-03参考答案.docVIP

2011年春上机VFP01参考答案 一、项目、数据库和表操作（12分） 1、建表AB.DBF（略） （1） AB表 表注释 蔬菜批发价格表 （2） RQ字段 默认值 Date() （3） DW字段 显示类 optiongroup （4） AB表 更新触发器 Rq=date() （5） 索引名abcd 索引类型（普通索引） 索引表达式：dtoc(rq,1)+str(dj) 2、用INSERT INTO命令来完成。（略） 3、鼠标指向项目管理器，单击鼠标右键，选“项目信息”菜单项，打开项目信息框后，在适当的位置设置图标为指定值。 4、略，但注意， （1）“清理数据库”可以在数据库菜单中找出，并应用。 （2）永久性关系在数据库中建立，并被保存在数据库中 （3）设置参照完整性时，应先选择关系，再设规则。 二、设计查询（8分） SELECT LEFT(Tsb.flh,AT(.,Tsb.flh)) AS 图书类别,; count(*) as 藏书册数, avg(Tsb.jg) AS 平均单价; FROM tsb; GROUP BY 1; ORDER BY 2 DESC, 3; TO FILE temp.txt 三、设计菜单（5分） 略 四、设计表单（10分） (1) Grdfifa 对象 readonly .t. scrollbars 0-无 columncount 3 (2) List1 rowsource SELECT DIST 组别 FROM fifa INTO CURSOR tmp rowsourcetype 3-SQL语句 (3) form1 load(事件) Public sgroup Sgroup=”A” (4) List1 Interactivechange (事件) Sgroup=this.value Set filter to 组别=sgroup Go top Thisform.refresh 五、程序改错（5分） STORE 0 to n,n1,n2 FOR I=1000 TO 2000 S=ALLT(STR(i)) n1=LEN(s) n2=INT(n1/n2) s1= FOR j=1 TO n2 s1=s1+RIGHT(s,1) s=LEFT(s,n1-1) ENDFOR IF LEFT(s,n1)=s1 if right(s,n1)=s1 N=n+1 ??I IF INT(n/5)=n/5 ? ENDIF ENDFOR endif ENDFOR ?小于的回文数共+STR(n)+个 2011年春上机VFP02参考答案 一、项目、数据库和表操作（12分） 1、建表AB.DBF（略） （1） AB表 表注释 影视记录 （2） PM字段 格式 T （3） SC字段 有效性规则 Sc=30 （4） YZ字段 显示类 listbox （5） 索引名abcd 索引类型（普通索引） 索引表达式：yz+str(sc) 2、用INSERT INTO命令来完成。（略） 3、use cjb Zap 4、略，但注意， （1）“清理数据库”可以在数据库菜单中找出，并应用。 （2）永久性关系在数据库中建立，并被保存在数据库中。 （3）设置参照完整性时，应先选择关系，再设规则。 二、设计查询（8分） SELECT Kc.kcmc, Cj.xh, iif(cj.cj60,0,kc.xf) as 学分,; iif(cj.cj=90,A优秀,F不及格) as 成绩等级,; iif(cj.cj60,2010.09.06,space(10)) as 补考日期; FROM jxsj!kc INNER JOIN jxsj!cj ; ON Kc.kcdm = Cj.kcdm; WHERE Cj.cj = 90; OR (Cj.cj 60); ORDER BY Kc.kcmc, 4 三、设计菜单（5分） 略 四、设计表单（10分） (1) Grdfifa 对象 deletemark .f. scrollbars 0-无 rowheight 27 (2) column currentcontrol Oleboundcontrol1 Oleboundcontrol1 stretch 1-等比填充 (3) Form1 init(事件) set filter to 组别=cgroup go top (4) Optiongroup1 Interactivechan