程序改错.docVIP

*------------------------------------------------------- *题目:将XSDB.DBF表中奖学金超过60元的学生姓名和奖学金显示 * 在屏幕上。 *------------------------------------------------------- *注意：不可以增加或删除程序行，也不可以更改程序的结构。 *------------------------------------------------------- SET TALK OFF USE XSDB ***********FOUND********** IF 奖学金60 DO WHILE .NOT.EOF() ***********FOUND********** ?姓名=+姓名,奖学金=+奖学金 CONT ENDDO USE SET TALK ON RETU *------------------------------------------------------- *题目：通过键盘输入一个偶数N,计算2^2+4^4+……+N^N 的值并 * 显示输出。 *------------------------------------------------------- *注意：不可以增加或删除程序行，也不可以更改程序的结构。 *------------------------------------------------------- SET TALK OFF T=0 I=2 INPUT N= to N ***********FOUND********** DO WHILE .NOT.EOF() T=T+I^I ***********FOUND********** I=I+T ENDDO ?TOTAL=,T SET TALK ON RETU *------------------------------------------------------- *题目：通过字符串变量操作先竖向显示伟大祖国，再横向显示 * 祖国伟大。 *------------------------------------------------------- *注意：不可以增加或删除程序行，也不可以更改程序的结构。 *------------------------------------------------------- SET TALK OFF STORE 伟大祖国TO XY CLEA ***********FOUND********** N=0 DO WHILE N8 ?SUBS(XY,N,2) N=N+2 ENDDO ? ***********FOUND********** ??SUBS(XY,4,4) ??SUBS(XY,1,4) SET TALK ON RETU *------------------------------------------------------- *题目:计算并在屏幕上显示出九九乘法表，显示格式如下 *1×1＝1 *2×1＝2 2×2＝4 *3×1＝3 3×2＝6 3×3＝9 *… … *9×1＝9 … 9×8＝72 9×9＝81 *------------------------------------------------------- *注意：不可以增加或删除程序行，也不可以更改程序的结构。 *------------------------------------------------------- SET TALK OFF X=1 DO WHILE X=9 Y=1 ***********FOUND********** DO WHILE Y=9 ??STR(X,1)+×+STR(Y,1)+=+STR(X*Y,2)+ Y=Y+1 ENDDO ***********FOUND********** disp X=X+1 ENDDO SET TALK ON RETU *------------------------------------------------------- *题目：在XSDB.DBF表中统计法律和中文两个系的总人数和奖学金总额。 *------------------------------------------------------- *注意：不可以增加或删除程序行，也不可以更改程序的结构。 *------------------------------------------------------- SET TALK OFF US