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**********