程序修改题汇总.docx

1、程序修改题汇总程序修改题（第6套）第1行中的=需改为IN；第3行中的GROUP BY 项目号需改为GROUP BY 零件号；第5行中的INTO FILE需改为TO FILE。第8套*程序提供的代码*&下句只有一处有错误SELECT 课程号 FROM 课程表 WHERE 课程名=数据结构 TO ARRAY a&下句有错误OPEN 教师表STORE 0 TO sum&下句两处有错误SCAN OF 课程号=a OR 工资=4000&下句有错误 sum+1ENDSCAN?sum*错误1：将 TO 改为 INTO。错误2：将 OPEN 改为 USE。错误3：将 SCAN OF 改为 SCAN FOR。错

2、误4：将 OR 改为 AND。错误5：将 sum+1 改为 sum=sum+1。第9套*程序提供的代码*found*x,s1,s2,s3=0*found*x=thisform.text1do while x0 if int(x/2)=x/2 s1=s1+1 else s2=s2+1 endif*found* if div(x,3)=0 s3=s3+1 endif x=x-1enddothisform.text2.value=s1thisform.text3.value=s2thisform.text4.value=s3thisform.text5.value=s1+s2+s3*错误1：改为 S

3、TORE 0 TO x,s1,s2,s3。错误2：改为 x=val(thisform.text1.value)。错误3：改为 if mod(x,3)=0。第12套第一处：WHILE改为WHERE。第二处：OPEN改为USE。第三处：WHERE改为FOR。第四处：填入num = num +1。第14套第3行改为：FROM 客户,入住 WHERE 客户.客户号 = 入住.客户号;第5行改为：( SELECT 入住日期; 第7行改为：WHERE 客户.客户号 = 入住.客户号 AND 姓名 = 姚小敏);第8行改为：INTO TABLE TABC第15套*登录按钮的Click事件代码*USE 用户表

4、GO TOPflag=0& 下面语句有错误WHILE .NOT. EOF() IF Alltrim(用户名)=Alltrim(Thisform.Text1.Value) IF Alltrim(口令)=Alltrim(Thisform.Text2.Value) WAIT 欢迎使用 WINDOW TIMEOUT 2 ELSE WAIT 口令错误 WINDOW TIMEOUT 2 ENDIF flag=1 EXIT ENDIF & 下面语句有错误 NEXT ENDDO & 下面语句有错误 CASE FLAG=0 WAIT 用户名错误 WINDOW TIMEOUT 2ENDIF*错误1：将WHILE改

5、为DO WHILE。错误2：将NEXT改为SKIP。错误3：将CASE改为IF。第16套&根据歌手表计算每个组的歌手人数 CLOSE DATA USE one GO TOP WHILE.NOT. EOF() &错误 zuhao=组号 SELECT COUNT(*) FROM 歌手表 WHERE 歌手表.歌手编号=zuhao INTO ARRAY A &错误 REPLACE 歌手人数 INTO A &错误 SKIP ENDDO第1处：将WHILE改为DO WHILE；第2处：将歌手表.歌手编号改为LEFT(歌手表.歌手编号,2)；第3处：将INTO改为WITH第17套第1处错误：key prim

6、ary KEY第2处错误：insert to INSERT INTO 第3处错误： BY set 第4处错误：while where第20套第1处错误改为：from employee p join employee c ;第2处错误改为：on p.组别=c.组别 where c.职务=组长 and c.姓名p.姓名;第31套第1处：find for locate for第2处：while do while 第3处：rate_exchange.持有数量 currency_sL.持有数量第38套第3行处的错误修改为：Key2 = ALLTRIM(ThisForm.text2.value)第4行处的

7、错误修改为：LOCATE ALL FOR USER = Key1第12行处的错误修改为：THISFORM.RELEASE第40套 删除(此处空行)，然后填写 use customer。 把 WHILE 改为FOR。第45套1考生文件夹下程序文件five.prg的功能是：根据教师表计算各系的教师人数，并将结果填入表学院表中，程序中有3处错误，请修改并运行程序。只能修改标有错误的语句行，不能修改其他语句。错误1：DO .NOT. EOF() DO WHILE .NOT. EOF()错误2： INTO A INTO ARRAY A错误3：NEXT SKIP第46套考生文件夹下的SELLDB数据库中包

8、含部门表、销售表、部门成本表和商品代码表4个表。1在考生文件夹下有一个名为three.prg的程序文件，其功能如下：查询2006年各部门商品的年销售利润情况。查询内容为部门号、部门名、商品号、商品名和年销售利润，其中年销售利润等于销售表中一季度利润、二季度利润、三季度利润和四季度利润的合计。查询结果按部门号升序排列，若部门号相同再按年销售利润降序排列，并将查询结果输出到表TABA中。表TABA的字段名分别为部门号、部门名、商品号、商品名和年销售利润。请打开程序文件three.prg，修改其中的错误，然后运行该程序。错误1： to 年销售利润 as 年销售利润;错误2：ORDER BY 1, 5

9、 ORDER BY 1, 5 DESC;错误3：TO TABLE TABA INTO TABLE TABA第52套1请修改并执行程序four.prg。程序four.prg的功能是：计算每个系的平均工资和最高工资并存入表three中，要求表中包含系名、平均工资和最高工资3个字段，结果先按最高工资降序排列，若最高工资相同再按平均工资降序排列。错误1：avge(工资) avg(工资) 错误2：FROM 教师表 FROM 教师表,学院表错误3：order by 学院表.系号 GROUP BY 学院表.系名;。错误4：group by ORDER BY 错误5：ino three INTO TABLE

10、three第84套2修改一个名称为TWO.PRG的命令文件。该命令文件统计每个顾客购买商品的金额合计（应付款），结果存储在临时表ls中。然后用ls中的每个顾客的数据去修改表scust对应的记录。该命令文件有3行语句有错误，打开该命令文件进行修改。注意：直接在错误处修改，不改变SQL语句的结构和短语的顺序，不允许增加、删除或合并行，修改完成后，运行该命令文件。错误1：SELECT 顾客号,数量*单价 应付款;修改为：SELECT 顾客号,sum(数量*单价)应付款;错误2：DO WHILE EOF()修改为：DO WHILE.NOT.EOF()错误3：REPLACE ALL 应付款 = mone

11、y修改为：REPLACE 应付款 WITH money第89套1. 请修改并执行程序temp.prg，该程序的功能是：根据教师表和职称表计算每位教师的应发工资，每个教师的应发工资等于：与职称级别相符的基本工资+课时80职称系数，教授的职称系数为1.4，副教授的职称系数为1.3，讲师的职称系数为1.2，助教的职称系数为1.0，计算结果存储于自由表salary.dbf中，salary.dbf中的字段包括姓名、系号和应发工资，并按系号降序排列，系号相同时按应发工资升序排列。注意，只能修改标有错误的语句行，不能修改其他语句行。第1处：create create table第2处： “教授”，1.3 “

12、副教授”,1.3第3处：职称系数表，教师表 职称系数表，教师表，职称表第4处：or and第91套请修改并执行 test。test.prg的功能是：根据职工和部门两个表，计算每个部门1980到1990年出生的职工人数，存储于新表new中，新表中包括部门和人数两个字段，结果按人数递减排序。注意，每一行有且仅有一处错误，不能修改其他语句。第一行：sum(*) count(*) 第二行：or and第三行：order by 人数 order by desc第四行：to dbf into dbf第94套修改程序proone.prg中带有注释的四条语句（修改或填充，不要修改其他的语句），使之能够正常运行，程序的功能是将大于等于11并且小于等于2011的素数存储于表prime中。修改完成后请运行该程序。第1处：create create table第2处： 继续内循环填写为：loop第3处： 跳出内循环填写为：exit第4处： insert insert into题型2、（第套）题型3、（第套）题型4、（第套）题型5、（第套）题型6、（第套）题型7、表单简单设计：加组合框，命令按钮等（第19、45套）题型8、设默认值，访问键等（第43、49套）题型9、自定义类、默认按钮、最大化按钮等（第87套）