程序改错题由刀豆文库小编整理，希望给你工作、学习、生活带来方便，猜你可能喜欢“程序改错题及答案”。
第二十一套 2.1
DO cya WITH r,h,carea改为：carea=cya(r,h,carea)PROCEDURE cya改为：func cya RETURN改为：RETURN C ENDPROC改为：ENDfunc
第二十四套 2.1
步骤1：打开考生文件夹下的five.prg文件。步骤2：修改其中的命令语句如下。错误1：DO.NOT.EOF()修改为：DO WHILE.NOT.EOF()错误2：SELECT COUNT(*)FROM 教师表 WHERE 教师表.系号=xihao INTO A 修改为：SELECT COUNT(*)FROM 教师表 WHERE 教师表.系号=xihao INTO ARRAY A 错误3：NEXT 修改为：SKIP
步骤3：保存修改后的程序并运行。
第二十五套 2.1
故第1处错误应改为“DO WHILE.NOT.EOF()”；由题意可知，one表中的组号实际上是歌手编号的前两位，故第2处错误应改为“SELECT COUNT(*)FROM 歌手表 WHERE LEFT(歌手表.歌手编号,2)=zuhao INTO ARRAY A”；表中记录值的修改可以通过REPLACE命令来完成，其格式为：
REPLACE 字段名 WITH 常量
故第3处错误应改为“REPLACE 歌手人数 WITH A”。
第四十三套 2.1
步骤1：打开程序rate pro。修改程序如下： 第1处错误改为：locate for姓名=“林诗因”
第2处错误改为：do while not eof()
第3处错误改为：summ=summ+a[1] * currency_sl.持有数量 步骤2：保存并运行程序。
第五十五套 2.2
错误1改为：SELECT 顾客号,sum(数量*单价)应付款;错误2 改为：DO WHILE NOT EOF()错误3 改为：REPLACE 应付款 WITH money
第六十三套2.1
第1行中的“=”需改为“IN”；第3行中的“GROUP BY 项目号”需改为“GROUP BY 零件号”；第5行中的“INTO FILE”需改为“TO FILE”。
第六十八套 2.1
步骤1：打开程序four.prg，修改语句如下： 第一处：
WHILE改为WHERE。第二处：
OPEN改为USE。第三处：
WHERE改为FOR。第四处：
填入num = num+1。步骤2：保存并运行程序。
第六十九套 2.1
打开modi1.prg，修改其中的错误如下。
① 删除“(此处空行)”，然后填写“ use customer”。② 把 “WHILE” 改为“FOR”。
第七十三套 2.1 本题是一个程序修改题。第一处错误应改为：SELECT 课程号 FROM 课程表 WHERE 课程名=“数据结构” INTO ARRAY a；第二处错误应改为：USE 教师表；第三处错误应改为：SCAN FOR 课程号=a AND 工资>=4000；第四处错误应改为：sum=sum+1。
第四十套 3（1）【操作步骤】
首先增加一个新的字段新单价（浮动型，宽度10，小数位数2）；然后单击“新建”菜单建立一个程序。在程序中输入如下两行代码：
UPDATE order_detail SET 新单价=单价*0.9 WHERE 订单号 IN(SELECT 订单号 FROM order_list;WHERE 订单号=order_detail.订单号 AND YEAR(订购日期)=2001)UPDATE order_detail SET 新单价=单价*1.1 WHERE 订单号 IN(SELECT 订单号 FROM order_list where;订单号=order_detail.订单号 AND YEAR(订购日期)=2002)然后保存该程序,文件名为”prog1.prg”,最后并运行.2.建立“快速报表”: 单击“文件新建报表新建文件”菜单项来建立报表设计器;接着在”报表”菜单但选择”快速报表”.在弹出来的对话框中点击“字段”按钮，然后按顺序添加题目中的字段。接着按“确定”-“确定”；最后保存即可。
第四十三套
【解题思路】 新建表单，按要求添加控件并修改属性，写入命令按钮的代码。【操作步骤】
步骤1：新建一个名为myrate的表单，按照题目的要求为表单添加一个选项组控件两个命令按钮控件，并设置各控件的属性如下(注意：在修改选项组控件中各选项按钮的属性时，要先右键单击选项组控件，选择“编辑”命令，先后单击选中各选项按钮)。保存表单名为myform，运行查看表单的运行结果。步骤2：双击“统计”按钮，编写其Click事件代码如下。************************* If ThisForm.myOption.Value=1
Select 姓名,持有数量 from currency_sl,rate_exchange;where rate_exchange.外币代码=currency_sl.外币代码.and.;rate_exchange.外币名称=“日元”;into table rate_ry else If ThisForm.myOption.Value=2 Select 姓名,持有数量 from currency_sl,rate_exchange;where rate_exchange.外币代码=currency_sl.外币代码.and.;rate_exchange.外币名称=“美元”;into table rate_my else Select 姓名,持有数量 from currency_sl,rate_exchange;where rate_exchange.外币代码=currency_sl.外币代码.and.;rate_exchange.外币名称=“欧元”;into table rate_oy endif endif
************************* 步骤3：双击“退出”按钮，编写其Click事件代码如下：
ThisForm.Release 步骤3：运行表单，查看结果。
第四十九套 3 【操作步骤】 步骤1：通过常用工具栏中的“打开”命令打开考生文件夹下的程序文件“ptwo.prg”。步骤2：按题目要求填入相应的语句如下。
语句1：SET RELATION TO 商品号 INTO goods_t 语句2：set relation to 订单号 into orderitems additive 语句3：if 数量>goods_t.库存量 语句4：skip-n 语句5：replace 库存量 with 库存量-orderitems.数量 步骤3：保存修改后的程序文件并运行。
第七十套 3 【操作步骤】
步骤1：通过前面所学的知识，按照题目的要求新建一个表“table3”。步骤2：新建一个程序并输入下列命令语句。*********程序文件中的代码********* SET TALK OFF
OPEN DATABASE cj_m
SELECT * FROM table3 WHERE.f.INTO TABLE temp SELECT 1 USE xuesheng
INDEX ON 学号 TAG 学号 SELECT 2 USE chengji INDEX ON 学号 TAG 学号
SET RELATION TO 学号 INTO xuesheng GO TOP DO WHILE.NOT.EOF()IF chengji.数学
********************************** 步骤3：保存并运行程序，程序文件的名称为prog1。
