计算机等级考试二级VFP上机试题及解题思路(7)

　　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