³ÌÐòÌî¿Õ[1] ÏÂÔØ±¾ÎÄ

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