程序修改题汇总.docx

程序修改题汇总.docx

《程序修改题汇总.docx》由会员分享，可在线阅读，更多相关《程序修改题汇总.docx（13页珍藏版）》请在冰豆网上搜索。

程序修改题汇总

程序修改题（第6套）

第1行中的"="需改为"IN"；

第3行中的"GROUPBY项目号"需改为"GROUPBY零件号"；

第5行中的"INTOFILE"需改为"TOFILE"。

第8套

***********程序提供的代码***********

&&下句只有一处有错误

SELECT课程号FROM课程表WHERE课程名="数据结构"TOARRAYa

&&下句有错误

OPEN教师表

STORE0TOsum

&&下句两处有错误

SCANOF课程号=aOR工资>=4000

&&下句有错误

sum+1

ENDSCAN

?

sum

********************************

错误1：

将TO改为INTO。

错误2：

将OPEN改为USE。

错误3：

将SCANOF改为SCANFOR。

错误4：

将OR改为AND。

错误5：

将sum+1改为sum=sum+1。

第9套

************程序提供的代码************

********found********

x,s1,s2,s3=0

********found********

x=thisform.text1

dowhilex>0

ifint（x/2）=x/2

s1=s1+1

else

s2=s2+1

endif

********found********

ifdiv（x,3）=0

s3=s3+1

endif

x=x-1

enddo

thisform.text2.value=s1

thisform.text3.value=s2

thisform.text4.value=s3

thisform.text5.value=s1+s2+s3

********************************

错误1：

改为STORE0TOx,s1,s2,s3。

错误2：

改为x=val（thisform.text1.value）。

错误3：

改为ifmod（x,3）=0。

第12套

第一处：

WHILE改为WHERE。

第二处：

OPEN改为USE。

第三处：

WHERE改为FOR。

第四处：

填入num=num+1。

第14套

第3行改为：

FROM客户,入住WHERE客户.客户号=入住.客户号;

第5行改为：

（SELECT入住日期;

第7行改为：

WHERE客户.客户号=入住.客户号AND姓名="姚小敏"）;

第8行改为：

INTOTABLETABC

第15套

**********"登录"按钮的Click事件代码**********

USE用户表

GOTOP

flag=0

&&下面语句有错误

WHILE.NOT.EOF（）

IFAlltrim（用户名）==Alltrim（Thisform.Text1.Value）

IFAlltrim（口令）==Alltrim（Thisform.Text2.Value）

WAIT"欢迎使用"WINDOWTIMEOUT2

ELSE

WAIT"口令错误"WINDOWTIMEOUT2

ENDIF

flag=1

EXIT

ENDIF

&&下面语句有错误

NEXT

ENDDO

&&下面语句有错误

CASEFLAG=0

WAIT"用户名错误"WINDOWTIMEOUT2

ENDIF

****************************************

错误1：

将"WHILE"改为"DOWHILE"。

错误2：

将"NEXT"改为"SKIP"。

错误3：

将"CASE"改为"IF"。

第16套

&&根据"歌手表"计算每个组的歌手人数

CLOSEDATA

USEone

GOTOP

WHILE.NOT.EOF（）&&错误

zuhao=组号

SELECTCOUNT（*）FROM歌手表WHERE歌手表.歌手编号=zuhaoINTOARRAYA&&错误

REPLACE歌手人数INTOA&&错误

SKIP

ENDDO

第1处：

将"WHILE"改为"DOWHILE"；

第2处：

将"歌手表.歌手编号"改为"LEFT（歌手表.歌手编号,2）"；

第3处：

将"INTO"改为"WITH"

第17套

第1处错误：

keyprimaryKEY

第2处错误：

inserttoINSERTINTO

第3处错误：

BYset

第4处错误：

whilewhere

第20套

第1处错误改为：

fromemployeepjoinemployeec;

第2处错误改为：

onp.组别=c.组别wherec.职务="组长"andc.姓名<>p.姓名;

第31套

第1处：

findforlocatefor

第2处：

whiledowhile

第3处：

rate_exchange.持有数量currency_sL.持有数量

第38套

第3行处的错误修改为：

Key2=ALLTRIM（ThisForm.text2.value）

第4行处的错误修改为：

LOCATEALLFORUSER=Key1

第12行处的错误修改为：

THISFORM.RELEASE

第40套

①删除"（此处空行）"，然后填写"usecustomer"。

②把"WHILE"改为"FOR"。

第45套

1．考生文件夹下程序文件five.prg的功能是：

根据"教师表"计算各系的教师人数，并将结果填入表"学院表"中，程序中有3处错误，请修改并运行程序。

只能修改标有错误的语句行，不能修改其他语句。

错误1：

DO.NOT.EOF（）DOWHILE.NOT.EOF（）

错误2：

INTOAINTOARRAYA

错误3：

NEXTSKIP

第46套

考生文件夹下的SELLDB数据库中包含"部门表"、"销售表"、"部门成本表"和"商品代码表"4个表。

1．在考生文件夹下有一个名为three.prg的程序文件，其功能如下：

查询2006年各部门商品的年销售利润情况。

查询内容为部门号、部门名、商品号、商品名和年销售利润，其中年销售利润等于销售表中一季度利润、二季度利润、三季度利润和四季度利润的合计。

查询结果按部门号升序排列，若部门号相同再按年销售利润降序排列，并将查询结果输出到表TABA中。

表TABA的字段名分别为部门号、部门名、商品号、商品名和年销售利润。

请打开程序文件three.prg，修改其中的错误，然后运行该程序。

错误1：

to年销售利润as年销售利润;

错误2：

ORDERBY1,5ORDERBY1,5DESC;

错误3：

TOTABLETABAINTOTABLETABA

第52套

1．请修改并执行程序four.prg。

程序four.prg的功能是：

计算每个系的"平均工资"和"最高工资"并存入表three中，要求表中包含"系名"、"平均工资"和"最高工资"3个字段，结果先按"最高工资"降序排列，若"最高工资"相同再按"平均工资"降序排列。

错误1：

avge（工资）avg（工资）

错误2：

FROM教师表FROM教师表,学院表

错误3：

orderby学院表.系号GROUPBY学院表.系名;"。

错误4：

groupbyORDERBY

错误5：

inothreeINTOTABLEthree

第84套

2．修改一个名称为TWO.PRG的命令文件。

该命令文件统计每个顾客购买商品的金额合计（应付款），结果存储在临时表ls中。

然后用ls中的每个顾客的数据去修改表scust对应的记录。

该命令文件有3行语句有错误，打开该命令文件进行修改。

注意：

直接在错误处修改，不改变SQL语句的结构和短语的顺序，不允许增加、删除或合并行，修改完成后，运行该命令文件。

错误1：

SELECT顾客号,数量*单价应付款;

修改为：

SELECT顾客号,sum（数量*单价）应付款;

错误2：

DOWHILEEOF（）

修改为：

DOWHILE.NOT.EOF（）

错误3：

REPLACEALL应付款=money

修改为：

REPLACE应付款WITHmoney

第89套

1.请修改并执行程序temp.prg，该程序的功能是：

根据"教师表"和"职称表"计算每位教师的"应发工资"，每个教师的"应发工资"等于：

与"职称级别"相符的"基本工资"+"课时"×80×职称系数，教授的职称系数为1.4，副教授的职称系数为1.3，讲师的职称系数为1.2，助教的职称系数为1.0，计算结果存储于自由表salary.dbf中，salary.dbf中的字段包括姓名、系号和应发工资，并按系号降序排列，系号相同时按应发工资升序排列。

注意，只能修改标有错误的语句行，不能修改其他语句行。

第1处：

createcreatetable

第2处：

“教授”，1.3“副教授”,1.3

第3处：

职称系数表，教师表职称系数表，教师表，职称表

第4处：

orand

第91套

请修改并执行test。

test.prg的功能是：

根据"职工"和"部门"两个表，计算每个部门1980到1990年出生的职工人数，存储于新表new中，新表中包括"部门"和"人数"两个字段，结果按"人数"递减排序。

注意，每一行有且仅有一处错误，不能修改其他语句。

第一行：

sum（*）count（*）

第二行：

orand

第三行：

orderby人数orderbydesc

第四行：

todbfintodbf

第94套

修改程序proone.prg中带有注释的四条语句（修改或填充，不要修改其他的语句），使之能够正常运行，程序的功能是将大于等于11并且小于等于2011的素数存储于表prime中。

修改完成后请运行该程序。

第1处：

createcreatetable

第2处：

继续内循环填写为：

loop

第3处：

跳出内循环填写为：

exit

第4处：

insertinsertinto

题型2、（第套）

题型3、（第套）

题型4、（第套）

题型5、（第套）

题型6、（第套）

题型7、表单简单设计：

加组合框，命令按钮等（第19、45套）

题型8、设默认值，访问键等（第43、49套）

题型9、自定义类、默认按钮、最大化按钮等（第87套）