程序填空(改错)题：
在考生文件夹的paper 子文件夹中，已有文件Modify.prg，请自己打开文件，在标记&&之前填写所缺代码、调试、保存，并完成以下功能
1、显示指定表中的全部字段名，并由用户输入显示表信息的条件，最后列表显示满足条件的记录
SET TALK OFF
CLEAR
INPUT "M=" TO M
N=M
DO WHILE INT(N)！=N &&______ 1
N=N*10
ENDDO
STORE MOD(N,10) TO D,X &&______ 2
DO WHILE N>0 &&_______ 3
R= MOD(N,10) &&______ 4
IF R>D
D=R
ENDIF
IF R
X=R
ENDIF
N= INT(N/10) &&_______ 5
ENDDO
?M,"中位值最大的数码是："+STR(D,1)+",最小的数码是："+STR(X,1)+" 。"
SET TALK ON
2．已知：在考生目录的Paper子目录中已有学生表(学生.dbf)
(学号，姓名，性别，出生年月，简历，奖学金，照片)
要求：
显示“学生”表中的全部字段名。
SET TALK OFF
CLEAR
USE 学生
*****1*****
FOR N = 1 TO RECCOUNT() FCOUNT()
*****2*****
FOUND(N) ?FIELDS(N)
ENDFOR
USE
SET TALK ON
3．将给定的正整数数值表达式的值分解因子，并输出各个质数因子。如24的因子有：2、2、2和3
SET TALK OFF
SET ESCAPE OFF
CLEAR
?"按ESC键结束操作"
DO WHILE .T.
INPUT "M=" TO M
IF INT(M)!=M OR ABS(M)!=M
?"输入的数据不符合题目要求！"
LOOP
ENDIF
?ALLTRIM(STR(M,19))+"的质数因子有："
I=2
DO WHILE I<=M
IF M%I=0
??STR(I,6)
****************************
M=MOD(M,I) M=INT(M/I)
LOOP
ENDIF
I=I+1
ENDDO
IF INKEY(0)=27
EXIT
ENDIF
ENDDO
SET TALK ON
SET ESCAPE ON
4．要求：显示输出“学生”表中的1971年或以前出生的学生姓名和出生年月
SET TALK OFF
CLEAR
USE 学生
*****1*****
LOCATE FOR 出生年月<=1971 {^1971-12-31}
DO WHILE !EOF()
?姓名,出生年月
*****2*****
SKIP continue
ENDDO
USE
SET TALK ON
5．求当1！+3！+5！+…+n!的值不超过10的20次幂时的临界值及n的值。
SET TALK OFF
CLEAR
*****1*****
S=0 S=1
STORE 1 TO T,N
DO WHILE S<=1E+20
T=T*(N+1)*(N+2)
S=S+T
*****2*****
N=N+1 N=N+2
ENDDO
?"S=",S-T
?"N=",N-2
SET TALK ON
6．1)设计一个显示不同颜色和半径的圆的表单
2)利用计时器时间产生半径递增的圆，其颜色是随机产生的
3)在单击“暂停”时停止画圆，此时该命令按钮变成“画圆”，再次单击“画圆”时，继续前面的画圆过程。
******************LOCAL rad public rad
this.rad=2 rad=2
t
)
...)
