程序修改题汇总.docx
《程序修改题汇总.docx》由会员分享,可在线阅读,更多相关《程序修改题汇总.docx(13页珍藏版)》请在冰豆网上搜索。
![程序修改题汇总.docx](https://file1.bdocx.com/fileroot1/2022-12/13/77467589-9546-4354-99b5-22ba22b24511/77467589-9546-4354-99b5-22ba22b245111.gif)
程序修改题汇总
程序修改题(第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套)