程序改错题

2020-03-02 00:05:11 来源：范文大全收藏下载本文

第二十一套 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。