程序填空2程序填空2.doc

*543题目: 共有两个表CJ.DBF,ZF.DBF。按照成绩表的成绩修改 * 总分表的成绩，并计算出总分表的总分字段 * 请在【】处添上适当的内容，使程序完整。 *------------------------------------------------------- SET TALK OFF CLOSE ALL SELE 2 USE CJ INDEX ON 学号 TO XHCJ SELE 1 USE ZF ***********SPACE********** INDEX ON 学号 TO XHZF ***********SPACE********** UPDA ON 学号 FROM B REPL 语文 WITH B.语文,数学 WITH B.数学 ***********SPACE********** REPL ALL 总分 WITH 数学+语文 LIST SET TALK ON 546题目: 实现字符型数据到数值型数据转换。现有CJ.DBF数据库， * 显示CJ.DBF数据库中总分在上限与下限之间的记录内容。 * 请在【】处添上适当的内容，使程序完整。 *------------------------------------------------------- SET TALK OFF CLEAR USE CJ X=SPACE(3) ***********SPACE********** Y=SPACE(3) @10,20 SAY 请输入总分下限： GET X @12,20 SAY 请输入总分上限： GET Y ***********SPACE********** READ ***********SPACE********** SET FILTER TO 总分=X .AND. 总分=Y CLEAR LIST USE RETURN 569题目: 下面程序的功能是输出1到100之间每位数的乘积大于每位 * 数的和的数。例如数字26，数位上数字的乘积12大于数字 * 之和8。 * 请在【】处添上适当的内容，使程序完整。 *------------------------------------------------------- SET TALK OFF clear ***********SPACE********** for n=1 to 100 k=1 s=0 m=n do while m0 k=k*(m%10) ***********SPACE********** s=s+m%10 ***********SPACE********** m=int(m/10) endd ***********SPACE********** if ks ? n=,n endif endf set talk on canc *100题目：求出1到100之间的奇数积、偶数和。 SET TALK OFF ***********SPACE********** s1=0 s2=1 FOR I=1 to 100 ***********SPACE********** IF MOD(i,2)=0 s1=s1+I Else ***********SPACE********** s2=s2*I ENDIF NEXT ? 奇数积为:,s2 ?偶数和为:,s1 SET TALK ON *66题目:依次显示XSDB.DBF数据表中的记录内容。请在【】处添上适当 * 的内容，使程序完整。 *------------------------------------------------------- ***********SPACE********** use xsdb ***********SPACE********** DO WHILE.NOT. EOF() 或 !EOF() DISP ***********SPACE********** skip ENDDO USE RETURN 70*题目:列出XSDB.DBF数据表中法律系学生记录，将结果显示输出。请 * 在【】处添上适当的内容，使程序完整。 *------------------------------------------------------- ***********SPACE********** USE XSDB DO WHILE .T. IF 系别=法律 DISP ENDIF ***********SPACE********** SKIP IF EOF() ***********SPACE*******