VF等级考试部分编程题答案总结.doc_第1页
VF等级考试部分编程题答案总结.doc_第2页
VF等级考试部分编程题答案总结.doc_第3页
VF等级考试部分编程题答案总结.doc_第4页
VF等级考试部分编程题答案总结.doc_第5页
已阅读5页,还剩6页未读 继续免费阅读

下载本文档

版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领

文档简介

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 tabletwo6.表单界面上文本滚动处理t=(thisform.label1.Width)thisform.label1.Left=thisform.label1.Left-10DO WHILE thisform.label1.Left=330 into curs temp1sele 考生号,姓名,性别,单位 from temp1 into table four1alter table four1 add 政治成绩 n(5,1)alter table four1 add 外语成绩 n(5,1)alter table four1 add 高数成绩 n(5,1)alter table four1 add 专业课成绩 n(5,1)alter table four1 add 总成绩 n(5,1)sele 考生号, 考试科目名,成绩 from kscjb a,dm b where a.考试科目=b.考试科目 into cursor temp2sele four1do while not eof() sele 成绩 from temp2 where 考生号=four1-考生号 and 考试科目名=政治 into arra tmp replace 政治成绩 with tmp(1) sele 成绩 from temp2 where 考生号=four1-考生号 and 考试科目名=外语 into arra tnp replace 外语成绩 with tnp(1) sele 成绩 from temp2 where 考生号=four1-考生号 and 考试科目名=高等数学 into arra twp replace 高数成绩 with twp(1) sele 成绩 from temp2 where 考生号=four1-考生号 and 考试科目名=专业课 into arra typ replace 专业课成绩 with typ(1) replace 总成绩 with 政治成绩+外语成绩+高数成绩+专业课成绩 skipenddousesele * from four1 order by 总成绩 desc into table fourdelete from four1close databaseSELECT * FROM SALARYS INTO TABLE BAK_SALARYSSELECT 3USE C_SALARY1 ORDER 雇

温馨提示

  • 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
  • 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
  • 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
  • 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
  • 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
  • 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
  • 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。

评论

0/150

提交评论