9、編程求1~1000之內的同構數。(同構數：若A是同構數，則A出現在A的平方數的右邊。如：5*5=25，5出現在25的右邊，3*3=9，3不出現在9的右邊，所以5是同構數，而3不是。)

　　程序代碼：

　　SET TALK OFF

　　CLEAR

　　FOR X=1 TO 1000

　　P=X*X

　　L=LEN(ALLTRIM(STR(X,19)))

　　IF ALLTRIM(STR(X,19))=RIGHT(ALLTRIM(STR(P,19)),L)

　　??X

　　ENDIF

　　ENDFOR

　　SET TALK ON

　　10、本程序用于輸入一個表名，若表存在則打開，并顯示出其各個字段名。

　　程序代碼：

　　SET TALK OFF

　　DO WHILE .T.

　　ACCEPT '請輸入表名：' TO FNAME

　　IF .NOT.FILE(FNAME)

　　WAIT '此表不存在'

　　ELSE

　　USE &FNAME

　　ZDSM=FCOUNT()

　　? '此表中的字段有：'+STR(ZDSM)+'個'

　　FOR I=1 TO ZDSM

　　? STR(I)+' '

　　?? FIELD(I)

　　ENDFOR

　　ENDIF

　　WAIT '是否繼續(Y/N)' TO YN

　　IF UPPER(YN)='N'

　　EXIT

　　ENDIF

　　ENDDO

　　SET TALK ON