程序填空练习(二)答案

下列程序的功能是计算表达式的值。

1!+2!+3!+4!S=0T=1FOR N=1 TO 4T=T*NS=S+TENDFOR?S8.下列程序可逐行显示职称为“教授”的记录，下划线处的语句应是。

（填写字母请用大写）LOOPUSE 人事表.DBFDO WHILE .NOT.EOF()CLEARIF 职称<>"教授"SKIPENDIFDISPLAYWAIT "按任意键继续！"SKIPENDDOUSE9.下列程序可查询到某个教师的基本工资，下划线处的语句应是。

（填写字母请用大写）姓名=XM USE 人事表.DBFACCEPT "请输入待查教师姓名：" TO XMDO WHILE .NOT.EOF()IF?"姓名："+姓名,"基本工资"+STR(基本工资,3,0) ENDIFSKIPENDDORETURN10. 下列程序是求1!+2!+…+10!，请完成下列程序S=0T=1FOR I=1 TO 10T=T*IS=_________ S+TENDFOR?"1!+2!+…+10!=",S11. 下列程序可以求1-100之间偶数的和，请完成程序SET TLAK OFFS=0N=0DO WHILE ________ N<100N=N+2S=S+NENDDO?"1-100偶数之和：",S12. 在表STUDENT中已有若干记录，下面的程序是显示出表STUDENT 中所有记录，请完成程序。

（填写字母请用大写）SET TLAK OFFI=1DO WHILE NOT EOF()I=________ I+1DISPLAYGO IENDIFUSE13. 完成下列查询全部女生的程序。

（填写字母请用大写）SET TALK OFFUSE STUDENTLOCA TE FOR 性别="女"DO WHILE .T.DISPLAYCONTINUEIF _______ EOF()EXITENDIFENDDO14. 计算机等级考试的查分程序如下，请填空。

（填写字母请用大写）SET TALK OFFUSE STUDENT INDEX STACCEPT "请输入准考证号:" TO NUMLOCATE FOR 准考证号=NUMIF ________ FOUND()?姓名，"成绩:"+STR(成绩,3,0)ELSE?"没有此考生!"ENDIFUSESET TALK ON15. 计算机等级考试考生表STUDENT.DBF，笔试和上机成绩分别录入其中的“笔试”和“上机”字段（皆为N型）中，此外另有“等级”字段（C 型），凡两次考试均达到80分以上者，应在等级字段中填入“优秀”。

编程如下，请填空。

（填写字母请用大写）SET TALK OFFUSE STUDENTDO WHILE NOT EOF()IF 笔试>=80 AND 上机>=80REPLACE 等级_________ WITH “优秀”ENDIFSKIPENDDOUSESET TALK ON16. 完成下列实现计算P=1+1/(2*2)+1/(3*3)…1/(10*10)的程序。

（填写字母请用大写）P=0N=1DO WHILE N<=10P=P+1/(N*N)_________ N=N+1ENDDO?PRETURN17. 下列程序的功能是完成求N!,请完成下列程序。

N=10s=_____ 1for I=1 to ns=s*Iendfor?n,"!=",s18. 在表STUDENT中已有若干记录，下面的程序是倒序显示出表STUDENT中所有记录，请完成程序。

（填写字母请用大写）SET TLAK OFFUSE STUDENTGO BOTTOMDO WHILE .NOT.________ BOF()SKIP -1ENDDOUSE19. 表STDUDENT有两个字段NAME、CHENGJI，NAME字段为C型，长度为10,CHENGJI 字段为N型，长度为3；下列程序是统计出学生成绩各分数段的人数并输出，请将程序补充完整。

（填写字母请用大写）SET TALK OFFUSE STUDENTA=0B=0C=0 &&60分以下的DO WHIE .NOT.EOF()DO CASECASE CHENGJI>=80A=A+1CASE CHENGJI>=60________ .AND. CHENGJI<80B=B+1OTHERWISEC=C+1ENDCASESKIPENDDO?"80分以上的有："，A，"人"?"60分以上，80以下的有："，B，"人"?"60分以下的有：",C,"人"20. 下列程序是判断字符串A是否在字符串B中出现，并打印第一次出现的位置，请完成程序。

（填写字母请用大写）A="bc"B="ababcdbcse"FLAG=0FOR I=1 TO LEN(B)-LEN(A)+1IF UBSTR(B,_____,LEN(A))=A IFLAG=IEXITENDIFENDFORIF FLAG<>0 THEN?A,"在",B,"中出现的位置为：",flagelse?A,"在",B,"没中出现" 21. 有录入员考试考生数据库文件STD.DBF和结业考生数据库文件JY.DBF，这两个库的结构相同。

为了颁发结业证书并备案，把STD数据库中笔试成绩和上机成绩均及格记录的“结业否”字段修改为逻辑真，然后再将结业的记录追加到结业考生数据库Y.DBF中。

请填空。

USE STDLISTRecord# 准考证号姓名性别笔试成绩上机成绩结业否1 10001 李小冬女75 80 F2 10005 林明男90 78 F3 10017 何平男60 50 F4 10083 吴大江男80 60 F5 10108 黄纪红女58 62 FREPLACE________FOR 笔试成绩>=60.AND.上机成绩>=60结业否WITH .T.USE HGAPPEND FROM STD FOR________ STD.结业否=.T.LISTUSE较难的程序填空题：1. 下面程序是化简分数，分子M、分母N的最大公约数求法使用辗转相除法，请完成下列程序。

*SUB.PRGPARAMETERS M,NIF M______ THEN <NT=MM=NN=TENDIFR=M%NDO WHILE R<>0M=NN=RR=_____ M%N 或MOD(M,N) ENDDORETURN N*MAIN.PRGACCEPT "请输入分子：" TO X ACCEPT "请输入分母：" TO YK=SUB(X，Y)X=X/KY=Y/K?"化简后分子为：",X?"化简后分母为：",Y 3. 共有五个数据库文件std1.dbf—std5.dbf,下面程序的功能是删除每个库文件的末记录。

请填空。

N=1DO WHILE n<=5db=_________ “STD”+STR(n)USE &dbGOTO BOTTOMDELETEPACKn=_________ N+1ENDDOUSE4. 下面程序的功能是根据销售数据库文件sale.dbf中的数据去修改库存文件inventry.dbf数据,请对程序填空。

SELECT 1USE inventrySELECT 2USE saleDO WHILE .NOT._________ EOF( )SELECT 1LOCATE FOR 商品名=b->商品名REPLACE 数量WITH 数量-SALE.数量,总金额WITH 单价*数量__________ SELECT 2SKIPENDDOCLOSE DATABASE8. 有36块砖，需要一次性全搬完，现有36个人，男的每人搬4块，女的每人搬3块，小孩子每两人搬一块砖，问男、女、小孩子各多少人。

Set talk offclearmen=0do while men<=8women=0do while women<=11children=36-women-menif (men*4.0+women*3.0+children/2)_______ =36?"男人=",men?"女人=",women?"小孩子=",childrenexitendifwomen=women+1enddo_________ men=men+1enddoset talk on编写程序判断一个3位数是否为水仙花数，返回逻辑值。

所谓水仙花数是指满足如下条件的三位数：个位数的立方、十位数的立方和百位数的立方和等于其自身。

Clear Input "请输入一个三位数：" to n if n>=100 and n<=999Nbw=int(n/100)Nsw=int(n%100/10)Ngw=n%10If N=Nbw^3+Nsw^3+Ngw^3?Str(N,3)+"是水仙花数"Else?Str(N,3)+"不是水仙花数"Endifelse?"输入的数值不是一个三位数!" endifreturn。