二级VF考试部分编程题答案总结.doc

1编程序，从 xuesheng 表和chengji 表中找出所有成绩不及格的学生信息，并把这些数据保存在表table3中set talk offsele 1use xuesheng index on 学号 tag 学号set order to tag 学号sele 2use chengji index on 学号 tag 学号set order to tag 学号sele 3 use table3sele 1set relation to 学号 into bdo while not eof() if b-数学学号,姓名 with a-姓名,课程名 with 数学,分数 with b-数学 endif if b-英语学号,姓名 with a-姓名,课程名 with 英语,分数 with b-英语 endif if b-信息技术学号,姓名 with a-姓名,课程名 with 信息技术,分数 with b-信息技术 endif sele 1 skipenddosele 3sort to ls on 分数/a,学号/dusedelete from table3use lscopy to table3use table3browclose database2.根据歌手表计算每个组的歌手人数（程序改错） CLOSE DATA USE one GO TOP do WHILE.NOT. EOF() &错误 zuhao=组号 SELECT COUNT(*) FROM 歌手表 WHERE left(歌手表.歌手编号,2)=zuhao INTO ARRAY A &错误 REPLACE 歌手人数 with A &错误 SKIP ENDDO3程序改错i=10DO while i=1 ? I i=i-1 ENDDO4程序改错*下句只有一处有错误*SELECT 课程号 FROM 课程表 WHERE 课程名=数据结构 inTO ARRAY a*下句有错误*use 教师表STORE 0 TO sum*下句两处有错误*SCAN for 课程号=a and 工资=4000*下句有错误* sum=sum+1ENDSCAN?sum5程序改错*下句有错误*CREATE TABLE 工资表(职工号 C(8) prima KEY,姓名 C(6) ,工资 N(10,2)*下句有错误*INSERT inTO 工资表 VALUES (11020034,宣喧,4500)USE 工资表APPEND FROM 教师表*下句有错误*UPDATE 工资表 set 工资=工资*1.1 WHERE 工资=1 ?i i=i-1ENDDO7程序改错 *在下一行添加一条打开customer表的语句, 然后把（此处空行）删除use customer*表没有索引，修改如下语句使之能显示所有“北京”客户的信息SCAN for 所在地=北京? 客户编号,公司名称,联系人姓名ENDSCAN8.程序改错*在第2行有一处错误，第3行有两处错误，请改正select p.组别,c.姓名 组长,p.姓名 组员 ;from employee p join employee c ;on p.组别=c.组别 where c.职务=组长 and c.姓名!=p.姓名;order by p.组别9. 程序改错&根据教师表计算每个系的教师人数并将数据填入学院表CLOSE DATAUSE 学院表GO TOPDO WHILE .NOT. EOF() &错误 xihao=系号 SELECT COUNT(*) FROM 教师表 WHERE 教师表.系号=xihao INTO ARRAY A &错误 REPLACE 教师人数 WITH A1 SKIP &错误ENDDO10程序改错open database 外汇数据use currency_sl&*Error* locate for 姓名=林诗因summ=0&*Error* do while not eof() select 现钞买入价 from rate_exchange ; where rate_exchange.外币代码=currency_sl.外币代码 into array a&*Error* summ=summ+a1 * currency_sl.持有数量 continueenddo?summ11. 程序改错*该命令文件用来查询与姚小敏同一天入住宾馆的每个客户的客户号、身份证、姓名、*工作单位。查询结果输出到表TABC中。*该命令文件在第3行、第5行、第7行和第8行有错误,打开该命令文件，直接在错误处修改，不可*改变SQL语句的结构和短语的顺序，不允许增加、删除或合并行。OPEN DATABASE 宾馆SELECT 客户.客户号,身份证,姓名,工作单位;FROM 客户 join 入住 on 客户.客户号=入住.客户号;WHERE 入住日期 in;( SELECT 入住日期; FROM 客户,入住;WHERE 姓名 = 姚小敏 and 客户.客户号=入住.客户号);INTO TABLE TABC12. 程序改错s=1i=0do while i=0x=(-b+sqrt(z)/2*ay=(-b-sqrt(z)/2*arepl x1 with x,x2 with yelse repl note with 无实数解endifskipenddouse菜单中的编程题1给“计算”菜单编程sele AVG(数学), AVG(英语) from xuesheng a,chengji b where a.学号=b.学号 AND 民族=汉 into arra asele AVG(数学), AVG(英语) from xuesheng a,chengji b where a.学号=b.学号 AND 民族汉 into arra binsert into table3 values(汉,a(1),a(2)insert into table3 values(其他,b(1),b(2)2给“计算”菜单编程sele avg(数学),avg(英语),avg(信息技术) from chengji into arra tmpsele a.学号,姓名 from xuesheng a,chengji b where a.学号=b.学号 and 数学tmp(1) and 英语tmp(2) and 信息技术tmp(3) order by a.学号 desc into table table23. 给“计算”菜单编程sele a.学号,姓名,数学,英语,信息技术 from xuesheng a,chengji b where a.学号=b.学号 order by a.学号 desc into table table3alter table table3 add 等级 c(4)do while not eof()do casecase 数学=60 and 英语=60 and 信息技术=60 and (数学+英语+信息技术)/3=90repl 等级 with 优case 数学=60 and 英语=60 and 信息技术=60 and (数学+英语+信息技术)/3=80 and (数学+英语+信息技术)/3=60 and 英语=60 and 信息技术=60 and (数学+英语+信息技术)/3=70 and (数学+英语+信息技术)/3=60 and 英语=60 and 信息技术=60 and (数学+英语+信息技术)/3金额 sele 1 skip enddo use5.给“统计”菜单编程sele 组别,姓名 as 负责人,sum(金额) as 合计;from employee a,orders b;where a.职员号=b.职员号 ;order by 合计 desc ;group by 组别 ;into curs ls sele employee.组别,姓名 as 负责人,合计 ;from employee,ls ;where employee.组别=ls.组别 and employee.职务=组长 ; order by 合计 desc;group by employee.组别 ;into dbf tabletwo生成表按钮代码：303if thisform.check1.value=1 if thisform.check2.value=1 if thisform.optiongroup1.value=1 select 职工号,姓名,系名,工资,课程号; from 学院表,教师表; where 学院表.系号=教师表.系号; order by 1 asc; into table two else select 职工号,姓名,系名,工资,课程号; from 学院表,教师表; where 学院表.系号=教师表.系号; order by 1 desc; into table two endif else if thisform.optiongroup1.value=1 select 职工号,姓名,系名,课程号; from 学院表,教师表; where 学院表.系号=教师表.系号; order by 1 asc; into table one_x else select 职工号,姓名,系名,课程号; from 学院表,教师表; where 学院表.系号=教师表.系号; order by 1 desc; into table one_x endif endifelse if thisform.check2.value=1 if thisform.optiongroup1.va