2*n-m,1
------------------------------------------------------- *【程序填空】
*-------------------------------------------------------
*题目:通过循环程序,输出\九九\表 *
*1X1= 1
*1X2= 2 2X2= 4
*1X3= 3 2X3= 6 3X3= 9
*1X4= 4 2X4= 8 3X4=12 4X4=16
*1X5= 5 2X5=10 3X5=15 4X5=20 5X5=25
*1X6= 6 2X6=12 3X6=18 4X6=24 5X6=30 6X6=36
*1X7= 7 2X7=14 3X7=21 4X7=28 5X7=35 6X7=42 7X7=49
*1X8= 8 2X8=16 3X8=24 4X8=32 5X8=40 6X8=48 7X8=56 8X8=64
*1X9= 9 2X9=18 3X9=27 4X9=36 5X9=45 6X9=54 7X9=63 8X9=72 9X9=81
*-------------------------------------------------------
SET TALK OFF FOR N=1 TO 9
***********SPACE********** 【?】
***********SPACE********** 【?】
***********SPACE**********
?? STR(M,1)+ \×\【?】+ \ ENDFOR ENDFOR
SET TALK ON ?
For m=1 to n Str((n*m),2)
【程序填空】
*-------------------------------------------------------
*题目:找出XSDB.DBF中奖学金最高的学生记录并输出。请在【】 * 处添上适当的内容,使程序完整。
*-------------------------------------------------------
***********SPACE********** 【?】 MAX=0
***********SPACE********** DO WHILE 【?】 IF MAX<奖学金
***********SPACE********** 【?】
JLH=RECN()
ENDIF SKIP ENDDO ?MAX
DISP FOR RECN()=JLH USE Use xsdb
!eof() .not eof()
Store 奖学金 to max max=奖学金
*------------------------------------------------------- *【程序填空】
*-------------------------------------------------------
*题目: 给定库文件ABC.DBF,含如下字段内容:AA(C,2)、BB(C,2)、 * CC(C,2),编程完成如下功能:AA字段用01,02,03...... * 50依次填入,BB字段用A,B,C,......Z循环填入,CC字段用 * A,D,G,...Z每隔两个字母依次循环填入,共追加50条记录。 * 请在【】处添上适当的内容,使程序完整。
*-------------------------------------------------------
SET TALK OFF SET SAFE OFF CLEAR USE ABC ZAP I=50
DO WHILE I>0 APPE BLANK I=I-1 ENDD GO TOP M=65 N=65
***********SPACE**********
DO WHILE 【?】 IF RECNO()<10
REPL AA WITH \ELSE
***********SPACE**********
REPL AA WITH STR(RECNO(),【?】) ENDIF
REPL BB WITH CHR(M) REPL CC WITH CHR(N) IF M=90 M=65 ELSE M=M+1 ENDIF DO CASE CASE N=88 N=65 CASE N=89 N=66 CASE N=90 N=67 OTHERWISE
***********SPACE********** 【?】
ENDCASE SKIP ENDD DISP ALL USE
SET SAFE ON SET TALK ON CANC Not eof() 2
n=n+3
*------------------------------------------------------- *【程序填空】
*-------------------------------------------------------
*题目: 两个乒乓球队进行比赛,各出三人。甲队为 * a,b,c三人,乙队为x,y,z三人。已抽签决定 * 比赛名单。有人向队员打听比赛的名单。
* a说他不和x比,c说他不和x,z比,请编程序 * 找出三队赛手的名单。。
* 请在【】处添上适当的内容,使程序完整。
*-------------------------------------------------------
SET TALK OFF clear
*i是a的对手,j是b的对手,k是c的对手 for i=asc('x') to asc('z') for j=asc('x') to asc('z') if j!=i
for k=asc('x') to asc('z') if k!=i .and. k!=j ***********SPACE**********
if i!=asc('x') .and. k!=asc('x') .and.k!=asc(【?】)
? \ endif
***********SPACE********** 【?】 endf endi endf
***********SPACE********** 【?】 set talk on retu ‘z’ endif endfor
*------------------------------------------------------- *【程序填空】
*-------------------------------------------------------
*题目: 百马百担问题:有100匹马,驮100担货,大马驮三担,中 * 马驮2担,两匹小马驮一担,求大、中、小马各多少匹?。 * 请在【】处添上适当的内容,使程序完整。
*-------------------------------------------------------
SET TALK OFF clear
for hb=0 to 100
***********SPACE********** for hm=0 to 100-【?】
***********SPACE**********