vfp无纸化填空题题解new

无纸化填空题及答案
1、题目：
****在考生目录中，已有文件Modify.prg，请调试程序，完成以下功能。

程序中“______N_____”是需要填充的地方，请填空，使程序完整。

****功能：编写显示指定表中的全部字段名，并列表显示满足条件的记录。

SET TALK OFF
DO WHILE .T.
CLEAR
ACCEPT "请输入表名（扩展名略）：" TO TBN
IF FILE("&TBN..DBF")
___1___
ELSE
W AIT "指定的表不存在!" TIMEOUT 5
LOOP
ENDIF
?"表中的全部字段名列表:"
___2___
?field(n)
ENDFOR
ACCEPT "请输入显示表信息的条件表达式：" TO EXPR
list for evaluate(expr)
WAIT "是否还要显示其他表文件中的内容?Y/N: " TO YN
IF UPPER(YN)!= "Y"
___3___
ENDIF
ENDDO
USE
SET TALK ON
第一题答案：
1.答案一：use(TBN)
答案二：use &tbn
2.答案一：for n=1 to fcount()
答案二：for n=1 to fcount() step 1
3. exit
2、题目：
****在考生目录中，已有文件Modify.prg，请调试程序，完成以下功能。

程序中“______N_____”是需要填充的地方，请填空，使程序完整。

****功能：该程序是计算s=1+2+3+...+N的值。

SET TALK OFF
___1___
T=0
S=0
DO WHIL T<N
___2___
S=S+T
ENDDO
___3___
SET TALK ON
第二题答案：
1.答案一：INPUT "N=" to N
答案二：INPUT to N
答案三：INPUT …N=‟ to N
2. 答案一：T=T+1
答案二：T=1+T
3.答案一：?S
答案二：?‟S=‟,S
答案三：?”S=”,S
3、题目：
****在考生目录中，已有文件Modify.prg，请调试程序，完成以下功能。

程序中“______N_____”是需要填充的地方，请填空，使程序完整。

****功能：求正整数的质数因子连乘式，如果没有因子，则提示相应信息。

（如8=2*2*2, 98=2*7*7）（质数是指除了1和该数本身之外，不能被其他任何整数整除的数。

）
SET TALK OFF
CLEAR
INPUT "X=" TO X
S=STR(X,5)+"="
P=0
FOR I=2 TO X
_____1_____
P=1
S=S+STR(I,3)+"*"
____2_____
I=I-1
LOOP
ENDIF
ENDFOR
____3_____
?LEFT(S,LEN(S)-1)
ELSE
?STR(X,5)+" 没有因子！"
ENDIF
SET TALK ON
第三题答案：
1.答案一：IF X%I=0
答案二：IF 0=X%I
答案三：IF MOD(X,I)=0
答案四：IF 0=MOD(X,I)
答案五：IF X-INT(X/I)*I=0
答案六：IF 0=X-INT(X/I)*I
2.X=INT(X/I)
3. 答案一：IF P=1
答案二：IF 1=P
4、题目：
****在考生目录中，已有文件Modify.prg，请调试程序，完成以下功能。

程序中“______N_____”是需要填充的地方，请填空，使程序完整。

****功能：编写输出一个数中最大的数码和最小的数码
SET TALK OFF
CLEAR
INPUT "M=" TO M
N=M
___1___
N=N*10
ENDDO
STORE MOD(N,10) TO D,X
___2___
r=mod(n,10)
IF R>D
D=R
ENDIF
IF R<X
X=R
ENDIF
___3___
ENDDO
?M,"中位值最大的数码是："+STR(D,1)+",最小的数码是："+STR(X,1)+" 。

"
SET TALK ON
第四题答案：
1.答案一：DO WHILE INT(N)!=N
答案二：DO WHILE N !=INT(N)
答案三：DO WHILE INT(N)<>N
答案四：DO WHILE N <>INT(N)
答案五：DO WHILE INT(N)#N
答案六：DO WHILE N #INT(N)
2. 答案一：DO WHILE N>0
答案二：DO WHILE 0<N
3.N=INT(N/10)
5、题目：
****在考生目录中，已有文件Modify.prg，请调试程序，完成以下功能。

程序中“______N_____”是需要填充的地方，请填空，使程序完整。

****功能：编写一个判断系统口令程序，输入次数在3次以内。

SET TALK OFF
CLEAR
C=""
___1___
ACCEPT C+"请输入口令:" TO PSW
IF ALLTRIM(PSW)=="MANAGER"
?"欢迎使用本系统!"
___2___
ENDIF
C="口令输入错误，再试一次！"
ENDFOR
___3___
?"对不起，你无权使用本系统"
ENDIF
SET TALK ON
第五题答案：
1. 答案一：FOR I=1 TO 3
答案二：FOR I=1 TO 3 STEP 1
2.EXIT
3. 答案一：IF I>3
答案二：IF3<I
6、题目：
****在考生目录中，已有文件Modify.prg，请调试程序，完成以下功能。

程序中“______N_____”是需要填充的地方，请填空，使程序完整。

****功能：编写显示求e^x,到100项
INPUT "请输入x=" to x
S=1
STORE 0 TO A1,A2
___1___
DO JC WITH A1,I
DO MC WITH A2,I
S=S+A2/A1
ENDFOR
___2___
PROC JC
PARA P,R
P=1
FOR J=1 TO R
P=P*J
ENDFOR
PROC MC
___3___
P=1
FOR J=1 TO R
P=P*X
ENDFOR
第六题答案：
1.、答案一：FOR I=1 TO 100
答案二：FOR I=1 TO 100 STEP 1
2、答案一：?"E^"+str(x,5)+"=",s
答案二：?‟E^‟+str(x,5)+‟=‟,s
答案三：? s
3、PARA P,R
7、题目：
****在考生目录中，已有文件Modify.prg，请调试程序，完成以下功能。

程序中“______N_____”是需要填充的地方，请填空，使程序完整。

****功能：编写求某正整数是否为完数。

（该数等于其不重复因子相加，因子包括1。

例如6=1+2+3是完数，但是8 1+2+4，所以不是完数。

）
SET TALK OFF
CLEAR
INPUT "M=" TO M
s=1
___1___
___2__
s=s+i
ENDIF
ENDFOR
___3___
?M,"是完数！"
ELSE
?M,"不是完数！"
ENDIF
SET TALK ON
第七题答案：
1. 答案一：for i=2 to m-1
答案二：for i=2 to m-1 step 1
2. 答案一：IF M%I=0
答案二：IF 0=M%I
答案三：IF MOD(M,I)=0
答案四：IF 0=MOD(M,I)
答案五：IF M-INT(M/I)*I=0
答案六：IF 0=M-INT(M/I)*I
3. 答案一：if s=m
答案二：if m=s
8、题目：
****在考生目录中，已有文件Modify.prg，请调试程序，完成以下功能。

程序中“______N_____”是需要填充的地方，请填空，使程序完整。

****功能：求X^1+X^2+...+X^n,n,X从键盘输入。

SET TALK OFF
CLEAR
INPUT "N=" TO N
___1___
S=0
T=1
FOR I=1 TO N
___2___
S=S+T
ENDFOR
___3___
SET TALK ON
第八题答案：
1.答案一：INPUT "X=" TO X
答案二：INPUT TO X
答案三：INPUT …X=‟ TO X
2. 答案一：T=T*X
答案二：T=X*T
3. 答案一：?"S=",S
答案二：?‟S=‟,S
答案三：?S
9、题目：
****在考生目录中，已有文件Modify.prg，请调试程序，完成以下功能。

程序中“______N_____”是需要填充的地方，请填空，使程序完整。

****功能：利用参数传递和过程文件求：（m!+n!）((m-n)!+m^n+m^m)的值。

SET TALK OFF
CLEAR
INPUT "M=" TO M
INPUT "N=" TO N
SM=M
DO JC WITH SM
SN=N
DO JC WITH SN
SMN=M-N
DO JC WITH SMN
CMN=N
DO MC WITH M,CMN
___1___
?(SM+SN)/(SMN+CMN+M)
SET TALK ON
PROC JC
___2___
T=1
FOR I=1 TO X
T=T*I
ENDFOR
___3___
RETURN
PROC MC
PARA X,Y
T=1
FOR J=1 TO Y
T=T*X
ENDFOR
Y=T
RETURN
第九题答案：
1. DO MC WITH M,M
2.para x
10、题目：
****在考生目录中，已有文件Modify.prg，请调试程序，完成以下功能。

程序中“______N_____”是需要填充的地方，请填空，使程序完整。

****功能：显示指定表中的全部字段名，并由输入的条件显示满足条件的记录。

SET TALK OFF
CLEAR
___1___
___2___
?FIELD(N)
ENDFOR
___3___
SET TALK ON
第十题答案：
1. USE 学生
2. 答案一：FOR N=1 TO FCOUNT()
答案二：FOR N=1 TO FCOUNT() step 1
E
11、题目：
****在考生目录中，已有文件Modify.prg，请调试程序，完成以下功能。

程序中“______N_____”是需要填充的地方，请填空，使程序完整。

**功能：编写求输入数M内的偶数和偶数之和。

SET TALK OFF
CLEAR
___1___
S=0
FOR P=1 TO M
IF INT(P/2)=P/2
?P
S=S+P
___2___
___3___
?S
SET TALK ON
第十一题答案：
1. 答案一：INPUT 'M=' TO M
答案二：INPUT TO M
答案三：INPUT “M=” TO M
3.ENDFOR
12、题目：
****在考生目录中，已有文件Modify.prg，请调试程序，完成以下功能。

程序中“______N_____”是需要填充的地方，请填空，使程序完整。

****功能：编写输出给定半高（行数）的对角反三角形图案。

SET TALK OFF
CLEAR
INPUT "N=" TO N
___1___
?space(20)
FOR J=1 TO 2*I-1
___2___
ENDFOR
ENDFOR
___3___
?SPACE(20-2*(I-1))
FOR J=1 TO 2*I-1
??str(i,1)
ENDFOR
ENDFOR
SET TALK ON
第十二题答案：
1. for i=n to 1 step -1
2.??str(i,1)
3. 答案一：for i=2 to n
答案二：for i=2 to n step 1
13、题目：
****在考生目录中，已有文件Modify.prg，请调试程序，完成以下功能。

程序中“______N_____”是需要填充的地方，请填空，使程序完整。

****功能：编写去掉一个最大数，去掉一个最小数，求平均数。

SET TALK OFF
CLEAR
INPUT "N=" TO N
___1___
STORE A TO X,Y
S=A
P=N-2
FOR I=2 TO N
INPUT "B=" TO B
s=s+b
IF X<B
___2___
ENDIF
if y>b
Y=B
ENDIF
ENDFOR
___3___
?R/P
SET TALK ON
第十三题答案：
1. 答案一：input "A=" to A
答案二：input to A
答案三：input …A=‟ to A
2. x=b
3. 答案一：r=s-x-y
答案二：r=s-y-x
答案三：r= -y-x+s
答案四：r= -x-y+s
14、题目：
****在考生目录中，已有文件Modify.prg，请调试程序，完成以下功能。

程序中“______N_____”是需要填充的地方，请填空，使程序完整。

****功能：用一个自定义函数，编写求N！的末尾有几个连续的数码0。

PARA M
P=1
____1_____
P=P*I
ENDFOR
S=0
DO WHILE P>0
r=mod(p,10)
IF R=0
____2_____
ELSE
EXIT
ENDIF
p=int(p/10)
ENDDO
____3_____
第十四题答案：
1. 答案一：for i=1 to m
答案二：for i=1 to m step 1
2.答案一：s=s+1
答案二：s=1+s
3.return s
15、题目：
****在考生目录中，已有文件Modify.prg，请调试程序，完成以下功能。

程序中“______N_____”是需要填充的地方，请填空，使程序完整。

****功能：编写显示指定表中的全部字段名，并列表显示满足条件的记录。

SET TALK OFF
DO WHILE .T.
CLEAR
ACCEPT "请输入表名（扩展名略）：" TO TBN
IF FILE("&TBN..DBF")
___1___
ELSE
W AIT "指定的表不存在!" TIMEOUT 5
LOOP
ENDIF
?"表中的全部字段名列表:"
___2___
?field(n)
ENDFOR
ACCEPT "请输入显示表信息的条件表达式：" TO EXPR
list for evaluate(expr)
WAIT "是否还要显示其他表文件中的内容?Y/N: " TO YN
IF UPPER(YN)!= "Y"
___3___
ENDIF
ENDDO
USE
SET TALK ON
第十五题答案：
1. 答案一：use(TBN)
答案二：use &TBN
2、?field(n)
3、list for evaluate(expr)
16、题目：
****在考生目录中，已有文件Modify.prg，请调试程序，完成以下功能。

程序中“______N_____”是需要填充的地方，请填空，使程序完整。

****功能：编写一个自定义函数，判断一个三位数是否为水仙花数，返回逻辑值。

（如果一个正整数等于它各位数立方的和，则其为水仙花数。

如：407=4^3+0^3+7^3）。

____1____
M=X
S=0
DO WHILE M>0
P=MOD(M,10)
____2_____
M=INT(M/10)
ENDDO
____3____
RETURN .T.
ELSE
RETURN .F.
ENDIF
第十六题答案：
1. PARA X
2. 答案一：S=S+P*P*P
答案二：S=S+P^3
答案三：S=P*P*P+S
答案四：S=P^3+S
3. 答案一：IF S=X
答案二：IF X=S
17、题目：
****在考生目录中，已有文件Modify.prg，请调试程序，完成以下功能。

程序中“______N_____”是需要填充的地方，请填空，使程序完整。

****功能：编写显示求e^x,到100项。

___1___
S=1
STORE 0 TO A1,A2
FOR I=1 TO 100
DO JC WITH A1,I
DO MC WITH A2,I
S=S+A2/A1
ENDFOR
___2___
PROC JC
PARA P,R
P=1
FOR J=1 TO R
P=P*J
ENDFOR
PROC MC
___3___
P=1
FOR J=1 TO R
P=P*X
ENDFOR
第十七题答案：
1. 答案一：INPUT "请输入x=" to x
答案二：INPUT to x
答案三：INPUT "x=" to x
答案四：INPUT …x=‟ to x
2、答案一：?"E^"+str(x,5)+"=",s
答案二：?"S=",s
答案三：?‟S=‟,s
答案四：?s
3、PARA P,R
18、题目：
****在考生目录中，已有文件Modify.prg，请调试程序，完成以下功能。

程序中“______N_____”是需要填充的地方，请填空，使程序完整。

****功能：编写将100内的一个正整数转换为大写数字。

___1___
C="○一二三四五六七八九十"
S=""
DO CASE
CASE D<=10
s=substr(c,2*d+1,2)
CASE D<=19
s=right(c,2)+substr(c,2*mod(d,10)+1,2)
___2___
S=SUBSTR(C,2*INT(D/10)+1,2)+RIGHT(C,2)+;
IIF(MOD(D,10)=0,"",SUBSTR(C,2*MOD(D,10)+1,2))
ENDCASE
___3___
第十八题答案：
1. para D
2. 答案一：otherwise
答案二：case d>19
答案三：case 19<d
3.return s
19、题目：
****在考生目录中，已有文件Modify.prg，请调试程序，完成以下功能。

程序中“______N_____”是需要填充的地方，请填空，使程序完整。

****功能：编写判断M中有多少个素数。

（素数是指除了1和该数本身之外，不能被其他任何整数整除的数。

）
SET TALK OFF
CLEAR
INPUT "M=" TO M
____1_____
FOR I=M TO 1 STEP -1
if SS(I)
S=S+1
??STR(I,5)
ENDIF
___2___
?STR(S,5)
SET TALK ON
FUNC SS
PARA X
FOR J=2 TO X-1
IF INT(X/J)=X/J
___3___
ENDIF
ENDFOR
if J=X
RETURN .T.
ELSE
RETURN .F.
ENDIF
第十九题答案：
1. s=0
2.ENDFOR
3.exit
20、题目：
****在考生目录中，已有文件Modify.prg，请调试程序，完成以下功能。

程序中“______N_____”是需要填充的地方，请填空，使程序完整。

****功能：将“学生”表中指定学生（从键盘输入）的奖学金加10元，并显示该学生的奖学金。

SET TALK OFF
CLEAR
___1___
ACCEPT "请输入学生学号:" TO XH
LOCATE FOR 学号=XH
___2___
REPLACE 奖学金WITH 奖学金+10
?学号,姓名,奖学金
ELSE
?"没有找到!"
___3___
USE
SET TALK ON
第二十题答案：
1. USE 学生
2. 答案一：IF !EOF()
答案二：IF NOT EOF()
答案三：IF .NOT. EOF()
3.ENDIF
21、题目：
****在考生目录中，已有文件Modify.prg，请调试程序，完成以下功能。

程序中“______N_____”是需要填充的地方，请填空，使程序完整。

****功能：编写将输入字符串P转换为另一个字符串C。

SET TALK OFF
CLEAR
ACCE "P=" TO P
___1___
C=""
FOR I=1 TO L
___2___
DO CASE
CASE A>="a" AND A<="u" OR A>="A" AND A<="U"
A=CHR(ASC(A)+5)
CASE A>="v" AND A<="z" OR A>="V" AND A<="Z"
A=CHR(ASC(A)-21)
ENDCASE
___3___
ENDFOR
?P+"--->"+C
SET TALK ON
第二十一题答案：
1. L=LEN(P)
2.A=SUBSTR(P,I,1)
3.C=C+A
22、题目：
****在考生目录中，已有文件Modify.prg，请调试程序，完成以下功能。

程序中“______N_____”是需要填充的地方，请填空，使程序完整。

****功能：编写一个自定义函数，将月份转换成中文大写形式。

____1___
M=MONTH(X)
C="○一二三四五六七八九十"
S=""
___2_____
S=S+SUBSTR(C,2*M+1,2)
ELSE
s=S+"十" +SUBSTR(C,2*MOD(M,10)+1,2)
ENDIF
S=S+"月"
___3____
第二十二题答案：
1. para X
2. 答案一：if M<=10
答案二：if 10>=M
3.return S
23、题目：
****在考生目录中，已有文件Modify.prg，请调试程序，完成以下功能。

程序中“______N_____”是需要填充的地方，请填空，使程序完整。

****功能：编写一个判断系统口令程序，输入次数在3次以内。

SET TALK OFF
CLEAR
C=""
FOR I=1 TO 3
ACCEPT C+"请输入口令:" TO PSW
___1___
?"欢迎使用本系统!"
___2___
ENDIF
C="口令输入错误，再试一次！"
___3___
IF I>3
?"对不起，你无权使用本系统"
ENDIF
SET TALK ON
第二十三题答案：
1. 答案一：IF ALLTRIM(PSW)=="MANAGER"
答案二：IF "MANAGER"== ALLTRIM(PSW)
2.EXIT
3.ENDFOR
24、题目：
****在考生目录中，已有文件Modify.prg，请调试程序，完成以下功能。

程序中“______N_____”是需要填充的地方，请填空，使程序完整。

****功能：显示指定表中的全部字段名，并由输入的条件显示满足条件的记录。

SET TALK OFF
CLEAR
___1___
FOR N=1 TO FCOUNT()
___2___
ENDFOR
___3___
SET TALK ON
第二十四题答案：
1. USE 学生
2.?FIELD(N)
E
25、题目：
****在考生目录中，已有文件Modify.prg，请调试程序，完成以下功能。

程序中“______N_____”是需要填充的地方，请填空，使程序完整。

****功能：编写显示指定表中的全部字段名，并列表显示满足条件的记录。

SET TALK OFF
DO WHILE .T.
CLEAR
ACCEPT "请输入表名（扩展名略）：" TO TBN
IF FILE("&TBN..DBF")
use(TBN)
ELSE
W AIT "指定的表不存在!" TIMEOUT 5
LOOP
ENDIF
?"表中的全部字段名列表:"
___1___
___2___
ENDFOR
ACCEPT "请输入显示表信息的条件表达式：" TO EXPR
list for evaluate(expr)
WAIT "是否还要显示其他表文件中的内容?Y/N: " TO YN
IF UPPER(YN)!= "Y"
___3___
ENDIF
ENDDO
USE
SET TALK ON
第二十五题答案：
1. 答案一：for n=1 to fcount()
答案二：for n=1 to fcount() step 1
2、?field(n)
3、exit
26、题目：
****在考生目录中，已有文件Modify.prg，请调试程序，完成以下功能。

程序中“______N_____”是需要填充的地方，请填空，使程序完整。

****功能：编写一个自定义函数，求一个数是否为素数。

（素数是指除了1和该数本身之外，不能被其他任何整数整除的数。

）
PARA X
FOR I=2 TO X-1
___1___
EXIT
ENDIF
___2___
___3___
RETURN .T.
ELSE
RETURN .F.
ENDIF
第二十六题答案：
1. 答案一：IF X%I=0
答案二：IF 0=X%I
答案三：IF MOD(X,I)=0
答案四：IF 0=MOD(X,I)
答案五：IF X-INT(X/I)*I=0
答案六：IF 0=X-INT(X/I)*I
2.ENDFOR
3. 答案一：IF I=X
答案二：IF X=I
27、题目：
****在考生目录中，已有文件Modify.prg，请调试程序，完成以下功能。

程序中“______N_____”是需要填充的地方，请填空，使程序完整。

****功能：编写显示求e^x,到100项。

INPUT "请输入x=" to x
S=1
STORE 0 TO A1,A2
FOR I=1 TO 100
DO JC WITH A1,I
DO MC WITH A2,I
___1___ENDFOR
___2___
PROC JC
___3___
P=1
FOR J=1 TO R
P=P*J
ENDFOR
PROC MC
PARA P,R
P=1
FOR J=1 TO R
P=P*X
ENDFOR
第二十七题答案：
1. 答案一：S=S+A2/A1
答案二： S=A2/A1+S
2、答案一：?"E^"+str(x,5)+"=",s
答案二：?"S=",s
答案三：?s
3、PARA P,R
28、题目：
****在考生目录中，已有文件Modify.prg，请调试程序，完成以下功能。

程序中“______N_____”是需要填充的地方，请填空，使程序完整。

****功能：显示输出“学生”表中每个班级的男女同学的奖学金总额。

SET TALK OFF
CLEAR
USE 学生
INDEX ON 学号TO INN0
?"**********各班男女奖学金总额统计************"
?"班级男同学奖学金总额女同学奖学金总额"
DO WHILE .NOT. EOF()
CLASS=LEFT(学号,3)
___1___
DO WHILE LEFT(学号,3)=CLASS
IF 性别
BOYS=BOYS+奖学金
ELSE
___2___
___3___
SKIP
ENDDO
?CLASS+STR(BOYS,19,2)+ STR(GIRLS,19,2)
ENDDO
USE
SET TALK ON
第二十八题答案：
1. 答案一：STORE 0 TO BOYS,GIRLS
答案二：BOYS=0
GIRLS=0
2. 答案一：GIRLS=GIRLS+奖学金
答案二：GIRLS= 奖学金+ GIRLS
3.ENDIF
29、题目：
****在考生目录中，已有文件Modify.prg，请调试程序，完成以下功能。

程序中“______N_____”是需要填充的地方，请填空，使程序完整。

****功能：该程序是求1000之内能被3和7整除的个数。

SET TALK OFF
X=0
___1___
DO WHIL X<=1000
___2___
Y=Y+1
X=X+1
LOOP
ENDIF
X=X+1
___3___
?Y
SET TALK ON
第二十九题答案：
1. 答案一：Y=0
2. 答案一：IF X%3=0 AND X%7=0
答案二：IF X%7=0 AND X%3=0
答案三：IF 0=X%3 AND 0=X%7
答案四：IF 0=X%7 AND 0=X%3
答案五：IF X%3=0 .AND. X%7=0
答案六：IF X%7=0 .AND. X%3=0
答案七：IF 0=X%3 .AND. 0=X%7
答案八：IF 0=X%7 .AND. 0=X%3
3.ENDDO
30、题目：
****在考生目录中，已有文件Modify.prg，请调试程序，完成以下功能。

程序中“______N_____”是需要填充的地方，请填空，使程序完整。

****功能：编写一个自定义函数，返回给定的正整型数值表达式的值中包含指定数码的个数。

（如：数值2345105中包含指定数码5的个数个数为2）。

FUNCTION NCT
___1____
S=0
M=X
DO WHILE .T.
____2_____
IF N=Y
S=S+1
ENDIF
M=INT(M/10)
IF M=0
EXIT
ENDIF
ENDDO
____3_____
ENDFUNC
第三十题答案：
1. PARA X,Y
2. 答案一：N=MOD(M,10)
答案二：N= M%10
答案三：N= M-INT(M/10)*10
3.RETURN S
31、题目：
****在考生目录中，已有文件Modify.prg，请调试程序，完成以下功能。

程序中“______N_____”是需要填充的地方，请填空，使程序完整。

****功能：编写一个自定义函数，将年份转换为中文大写形式。

____1____
Y=YEAR(X)
C="○一二三四五六七八九十"
S=""
FOR I=1 TO 4
____2_____
S=SUBSTR(C,2*P+1,2)+S
Y=INT(Y/10)
ENDFOR
S=S+"年"
____3_____
第三十一题答案：
1. para X
2. 答案一：P=MOD(Y,10)
答案二：P= Y%10
答案三：P= Y-INT(Y/10)*10
3.RETURN S
32、题目：
****在考生目录中，已有文件Modify.prg，请调试程序，完成以下功能。

程序中“______N_____”是需要填充的地方，请填空，使程序完整。

****功能：显示输出“学生”表中的1971年或以前出生的学生姓名和出生年月。

SET TALK OFF
CLEAR
USE 学生
___1___
DO WHILE !EOF()
?姓名,出生年月
___2___
___3___
USE
SET TALK ON
第三十二题答案：
1. 答案一：LOCA TE FOR YEAR(出生年月)<=1971
答案二：LOCA TE FOR 1971>=YEAR(出生年月)
2.continue
3.ENDDO
33、题目：
****在考生目录中，已有文件Modify.prg，请调试程序，完成以下功能。

程序中“______N_____”是需要填充的地方，请填空，使程序完整。

****功能：从键盘输入数据A，通过类型判断，输出其数据类型的汉字说明。

SET TALK OFF
CLEAR
INPUT "A=" TO A
DO CASE
case type("A")="C"
?A,"是字符型数据。

"
___1___
?A,"是数值型数据。

"
case type("A")="L"
?A,"是逻辑型数据。

"
___2___
?A,"是日期型数据。

"
case type("A")="Y"
?A,"是货币型数据。

"
___3___
SET TALK ON
第三十三题答案：
1. 答案一：case type("A")="N"
答案二：case vartype(A)="N"
答案三：case "N"= type("A")
答案四：case "N"= vartype(A)
2. 答案一：case type("A")="D"
答案二：case vartype(A)="D"
答案三：case "D"= type("A")
答案四：case "D"= vartype(A)
3.ENDCASE
34、题目：
****在考生目录中，已有文件Modify.prg，请调试程序，完成以下功能。

程序中“______N_____”是需要填充的地方，请填空，使程序完整。

****功能：该程序实现字符串倒置。

如字符串“ABCD”倒置后为“DCBA”。

SET TALK OFF
CLEAR
ACCEPT 'N=' TO N
M=LEN(ALLTRIM(N))
___1___
S=''
DO WHIL J<=M
F=SUBSTR(N,J,1)
___2___
J=J+1
ENDDO
___3___
SET TALK ON
第三十四题答案：
1. J=1
2.S=F+S
3. 答案一：?S
答案二：?‟S=‟,S
答案三：?”S=”,S
35、题目：
****在考生目录中，已有文件Modify.prg，请调试程序，完成以下功能。

程序中“______N_____”是需要填充的地方，请填空，使程序完整。

****功能：编写显示指定表中的全部字段名，并列表显示满足条件的记录。

SET TALK OFF
DO WHILE .T.
CLEAR
ACCEPT "请输入表名（扩展名略）：" TO TBN
IF FILE("&TBN..DBF")
___1___
ELSE
W AIT "指定的表不存在!" TIMEOUT 5
LOOP
ENDIF
?"表中的全部字段名列表:"
for n=1 to fcount()
?field(n)
___2___
ACCEPT "请输入显示表信息的条件表达式：" TO EXPR
list for evaluate(expr)
WAIT "是否还要显示其他表文件中的内容?Y/N: " TO YN
IF UPPER(YN)!= "Y"
___3___
ENDIF
ENDDO
USE
SET TALK ON
第三十五题答案：
1. 答案一：use(TBN)
答案二：use &TBN
2、ENDFOR
3、exit
36、题目：
****在考生目录中，已有文件Modify.prg，请调试程序，完成以下功能。

程序中“______N_____”是需要填充的地方，请填空，使程序完整。

****功能：编写求sin(x)的多项表达式的值。

SET TALK OFF
CLEAR
INPUT "X=" TO X
S=0
STORE 1 TO T1,T2,I
___1___
DO WHILE ABS(T1/T2)>1E-5
STORE 1 TO T1,T2
FOR J=1 TO 2*I-1
T1=T1*X
___2___
T3=-T3
ENDFOR
___3___
I=I+1
ENDDO
?"SIN("+STR(X,6,4)+")="+LTRIM(STR(S,20,7))
SET TALK ON
第三十六题答案：
1. T3=-1
2. 答案一：T2=T2*J
答案二：T2=J*T2
3. 答案一：S=S+T3*T1/T2
答案二：S=T3*T1/T2+S
37、题目：
****在考生目录中，已有文件Modify.prg，请调试程序，完成以下功能。

程序中“______N_____”是需要填充的地方，请填空，使程序完整。

****功能：编写显示求e^x,到100项。

___1___
S=1
STORE 0 TO A1,A2
FOR I=1 TO 100
DO JC WITH A1,I
DO MC WITH A2,I
S=S+A2/A1
ENDFOR
?"E^"+str(x,5)+"=",s
PROC JC
PARA P,R
P=1
?"E^"+str(x,5)+"=",s
___2___
ENDFOR
PROC MC
___3___
P=1
FOR J=1 TO R
P=P*X
ENDFOR
第三十七题答案：
1. 答案一：INPUT "请输入x=" to x
答案二：INPUT " x=" to x
答案三：INPUT … x=‟ to x
答案四：INPUT to x
2、答案一：P=P*J
答案二：P=J*P
3、PARA P,R
38、题目：
****在考生目录中，已有文件Modify.prg，请调试程序，完成以下功能。

程序中“______N_____”是需要填充的地方，请填空，使程序完整。

****功能：求一个数值型数据的小数位数、整数位数以及该数的实际输出位数。

SET TALK OFF
CLEAR
INPUT "X=" TO X
M=X
IF X=0
?"小数位数为：0，整数位数为：0，"+"该数的实际输出位数为：1。

"
RETURN
ENDIF
ZS=INT(ABS(X))
ZSW=0
DO WHILE ZS>0
zs=int(zs/10)
___1___
ENDDO
XSW=0
DO WHILE INT(X)#X
___2___
xsw=xsw+1
ENDDO
FJW=IIF(X<0,1,0)+IIF(XSW=0,0,1)
?"整数位数为:"+STR(ZSW,5)+",小数位数为:"+STR(XSW,5)
___3___
SET TALK ON
第三十八题答案：
1. 答案一：zsw=zsw+1
答案二：zsw=1+zsw
2. 答案一：x=x*10
答案二：x=10*x
3. 答案一：?"该数的实际输出位数为:"+str(fjw+zsw+xsw,5)
答案二：? str(fjw+zsw+xsw,5)
39、题目：
****在考生目录中，已有文件Modify.prg，请调试程序，完成以下功能。

程序中“______N_____”是需要填充的地方，请填空，使程序完整。

****功能：编写一个自定义函数，将日转换为中文大写形式。

para x
D=DAY(X)
C="○一二三四五六七八九十"
___1___
DO CASE
case D<=10
s=S+substr(c,2*D+1,2)
CASE D<=19
___2___
OTHERWISE
S=S+SUBSTR(C,2*INT(D/10)+1,2)+"十"+IIF(MOD(D,10)=0,"",SUBSTR(C,2*MOD(D,10)+1,2))
ENDCASE
S=S+"日"
___3___
第三十九题答案：
1. S=""
2. 答案一：s=S+"十"+SUBSTR(C,2*MOD(D,10)+1,2)
答案二：s=S+"十"+SUBSTR(C,2*(D%10)+1,2)
答案三：s=S+"十"+SUBSTR(C,2*(D-INT(D/10)*10)+1,2)
3.RETURN S
40、题目：
****在考生目录中，已有文件Modify.prg，请调试程序，完成以下功能。

程序中“______N_____”是需要填充的地方，请填空，使程序完整。

****功能：该程序用于判断从键盘输入的数是否为素数。

（素数是指除了1和该数本身之外，不能被其他任何整数整除的数。

）
SET TALK OFF
CLEAR
INPUT 'N=' TO N
J=2
___1___
DO WHIL J<=INT(N/2)
IF INT(N/J)=N/J
A=1
EXIT
ENDIF
___2___
ENDDO
IF A=0
___3___
ELSE
?N,"不是素数"
ENDIF
SET TALK ON
第四十题答案：
1. A=0
2. 答案一：J=J+1
答案二：J=1+J
3.?N,"是素数"
41、题目：
****在考生目录中，已有文件Modify.prg，请调试程序，完成以下功能。

程序中“______N_____”是需要填充的地方，请填空，使程序完整。

****功能：编写一个自定义函数，判断一个三位数是否为水仙花数，返回逻辑值（如果一个正整数等于它各位数立方的和，则其为水仙花数。

如：407=4^3+0^3+7^3）。

____1____
M=X
S=0
DO WHILE M>0
____2_____
S=S+P*P*P
M=INT(M/10)
ENDDO
IF S=X
____3____
ELSE
RETURN .F.
ENDIF
第四十一题答案：
1. PARA X
2. 答案一：P=MOD(M,10)
答案二：P=M%10
答案三：P=M-INT(M/10)*10
3. RETURN .T.
42、题目：
****在考生目录中，已有文件Modify.prg，请调试程序，完成以下功能。

程序中“______N_____”是需要填充的地方，请填空，使程序完整。

****功能：编写将输入字符串P转换为另一个字符串C。

SET TALK OFF
CLEAR
___1___
L=LEN(P)
C=""
FOR I=1 TO L
___2___
DO CASE
CASE A>="a" AND A<="u" OR A>="A" AND A<="U"
A=CHR(ASC(A)+5)
CASE A>="v" AND A<="z" OR A>="V" AND A<="Z"
A=CHR(ASC(A)-21)
ENDCASE
C=C+A
ENDFOR
___3___
SET TALK ON
第四十二题答案：
1. 答案一：ACCE "P=" TO P
答案二：ACCE …P=‟TO P
答案三：ACCE TO P
答案四：INPUT "P=" TO P
答案五：INPUT …P=‟TO P
答案六：INPUT TO P
2.A=SUBSTR(P,I,1)
3. ?P+"--->"+C
43、题目：
****在考生目录中，已有文件Modify.prg，请调试程序，完成以下功能。

程序中“______N_____”是需要填充的地方，请填空，使程序完整。

****功能：编写显示求e^x,到100项。

INPUT "请输入x=" to x
S=1
STORE 0 TO A1,A2
FOR I=1 TO 100
DO JC WITH A1,I
DO MC WITH A2,I
S=S+A2/A1
___1___
?"E^"+str(x,5)+"=",s
PROC JC
PARA P,R
P=1
___2___
P=P*J
ENDFOR
PROC MC
P=1
FOR J=1 TO R
P=P*X
ENDFOR
第四十三题答案：
1、ENDFOR
2、答案一：FOR J=1 TO R
答案二：FOR J=1 TO R STEP 1
3、PARA P,R
44、题目：
****在考生目录中，已有文件Modify.prg，请调试程序，完成以下功能。

程序中“______N_____”是需要填充的地方，请填空，使程序完整。

****功能：显示输出“学生”表中每个班级的男女同学的奖学金总额。

SET TALK OFF
CLEAR
USE 学生
INDEX ON 学号TO INN0
?"**********各班男女奖学金总额统计************"
?"班级男同学奖学金总额女同学奖学金总额"
DO WHILE .NOT. EOF()
___1___
STORE 0 TO BOYS,GIRLS
DO WHILE LEFT(学号,3)=CLASS
IF 性别
___2___
ELSE
GIRLS=GIRLS+奖学金
ENDIF
SKIP
___3___
?CLASS+STR(BOYS,19,2)+ STR(GIRLS,19,2)
ENDDO
USE
SET TALK ON
第四十四题答案：
1. 答案一：CLASS=LEFT(学号,3)
答案二：CLASS= substr(学号,1,3)
2. 答案一：BOYS=BOYS+奖学金
答案二：BOYS= 奖学金+ BOYS
45、题目：
****在考生目录中，已有文件Modify.prg，请调试程序，完成以下功能。

程序中“______N_____”是需要填充的地方，请填空，使程序完整。

****功能：编写显示指定表中的全部字段名，并列表显示满足条件的记录。

SET TALK OFF
DO WHILE .T.
CLEAR
ACCEPT "请输入表名（扩展名略）：" TO TBN
IF FILE("&TBN..DBF")
use(TBN)
ELSE
W AIT "指定的表不存在!" TIMEOUT 5
LOOP
ENDIF
?"表中的全部字段名列表:"
for n=1 to fcount()
___1___
___2___
ACCEPT "请输入显示表信息的条件表达式：" TO EXPR
list for evaluate(expr)
WAIT "是否还要显示其他表文件中的内容?Y/N: " TO YN
IF UPPER(YN)!= "Y"
exit
___3___
ENDDO
USE
SET TALK ON
第四十五题答案：
1、?field(n)
2、ENDFOR
3、ENDIF
46、题目：
****在考生目录中，已有文件Modify.prg，请调试程序，完成以下功能。

程序中“______N_____”是需要填充的地方，请填空，使程序完整。

****功能：用一个自定义函数，编写求N！的末尾有几个连续的数码0。

PARA M
____1_____
for i=1 to m
ENDFOR
S=0
DO WHILE P>0
r=mod(p,10)
____2_____
s=s+1
ELSE
EXIT
ENDIF
p=int(p/10)
ENDDO
____3_____
第四十六题答案：
1. P=1
2. 答案一：IF R=0
答案二：IF 0= R
3.return s
47、题目：
****在考生目录中，已有文件Modify.prg，请调试程序，完成以下功能。

程序中“______N_____”是需要填充的地方，请填空，使程序完整。

****功能：编写显示指定表中的全部字段名，并列表显示满足条件的记录。

SET TALK OFF
DO WHILE .T.
CLEAR
ACCEPT "请输入表名（扩展名略）：" TO TBN
___1___
use(TBN)
ELSE
W AIT "指定的表不存在!" TIMEOUT 5
LOOP
ENDIF
?"表中的全部字段名列表:"
for n=1 to fcount()
?field(n)
___2___
ACCEPT "请输入显示表信息的条件表达式：" TO EXPR
list for evaluate(expr)
WAIT "是否还要显示其他表文件中的内容?Y/N: " TO YN
___3___
exit
ENDDO
USE
SET TALK ON
第四十七题答案：
1、IF FILE("&TBN..DBF")
2、ENDFOR
3、答案一：IF UPPER(YN)!= "Y"
答案二：IF UPPER(YN)<> "Y"
答案三：IF UPPER(YN)# "Y"
答案四：IF "Y"!=UPPER(YN)
答案五：IF "Y"<>UPPER(YN)
答案六：IF "Y"#UPPER(YN)
48、题目：
****在考生目录中，已有文件Modify.prg，请调试程序，完成以下功能。

程序中“______N_____”是需要填充的地方，请填空，使程序完整。

****功能：编写将100内的一个正整数转换为大写数字。

para D
C="○一二三四五六七八九十"
___1___
DO CASE
CASE D<=10
s=substr(c,2*d+1,2)
CASE D<=19
s=right(c,2)+substr(c,2*mod(d,10)+1,2)
___2___
S=SUBSTR(C,2*INT(D/10)+1,2)+RIGHT(C,2)+;
IIF(MOD(D,10)=0,"",SUBSTR(C,2*MOD(D,10)+1,2))
___3___
return s
第四十八题答案：
1. S=""
2. 答案一：otherwise
答案二：case D>19
答案三：case 19< D
3.ENDCASE
49、题目：
****在考生目录中，已有文件Modify.prg，请调试程序，完成以下功能。

程序中“______N_____”是需要填充的地方，请填空，使程序完整。

****功能：编写一个自定义函数，将年份转换为中文大写形式。

para X
____1____
C="○一二三四五六七八九十"
S=""
FOR I=1 TO 4
P=MOD(Y,10)
S=SUBSTR(C,2*P+1,2)+S
____2_____
ENDFOR
S=S+"年"
____3_____
第四十九题答案：
1. Y=YEAR(X)
2.Y=INT(Y/10)
3.RETURN S
50、题目：
****在考生目录中，已有文件Modify.prg，请调试程序，完成以下功能。

程序中“______N_____”是需要填充的地方，请填空，使程序完整。

****功能：编写一个自定义函数，判断一个三位数是否为水仙花数，返回逻辑值（如果一个正整数等于它各位数立方的和，则其为水仙花数。

如：407=4^3+0^3+7^3）。

PARA X
____1____
S=0
DO WHILE M>0
P=MOD(M,10)
S=S+P*P*P
____2_____
ENDDO
IF S=X
____3____
ELSE
RETURN .F.
ENDIF
第五十题答案：
1. M=X
2.M=INT(M/10)
3.RETURN .T.
51、题目：
****在考生目录中，已有文件Modify.prg，请调试程序，完成以下功能。

程序中“______N_____”是需要填充的地方，请填空，使程序完整。

****功能：求1到11之间的所有的奇数的平方和并显示结果。

SET TALK OFF
CLEAR
S=___1___
X=1
DO WHILE X<=11
___2___
___3___
ENDDO
?”S=”,S
RETURN
答案：
1.0
2.S=S+X*X or S=S+X^2 or S=S+X**2
3. X=X+2
52．题目：
****在考生目录中，已有文件Modify.prg，请调试程序，完成以下功能。

程序中“______N_____”是需要填充的地方，请填空，使程序完整。

****功能：求1到11之间的所有的偶数的平方和并显示结果。

SET TALK OFF
CLEAR
S=0
X=1
DO WHILE ___1___
IF ___2___
S=S+X*X
X=X+1
ENDDO
___3___
RETURN
答案：
1.X<=11 or X<12
2.MOD(X,2)=0 or X%2=0 or INT(X/2)=X/2
3.?”S=”,S or?S
53．题目：
****在考生目录中，已有文件Modify.prg，请调试程序，完成以下功能。

程序中“______N_____”是需要填充的地方，请填空，使程序完整。

****功能：允许用户输入6个数值，结果是显示其中的最大值和最小值。

SET TALK OFF
CLEAR
INPUT “X=” TO X
___1___
N=5
DO WHILE ___2___
INPUT “X=” TO X
IF X>MA
MA=X
ENDIF
IF X<MI
MI=X
ENDIF
___3___
ENDDO
?MA,MI
RETURN
答案：
1.STORE X TO MA,MI
2.N>=1 or N>0
3.N=N-1
54．题目：
****在考生目录中，已有文件Modify.prg，请调试程序，完成以下功能。

程序中“______N_____”是需要填充的地方，请填空，使程序完整。

****功能：允许用户输入10个数值，结果是显示其中的最大值和最小值。

SET TALK OFF
CLEAR
INPUT “X=” TO X
STORE X TO MX,MI
N=1
DO WHILE ___1___
___2___
IF ___3___
MA=X
ENDIF
IF X<MI
MI=X
ENDIF
N=N+1
ENDDO
?MA,MI
RETURN
答案：
1.N<=9 or N<10
2.INPUT “X=” TO X
3.X>MA
55．题目：
****在考生目录中，已有文件Modify.prg，请调试程序，完成以下功能。

程序中“______N_____”是需要填充的地方，请填空，使程序完整。

****功能：用户输入任何一个大于1的自然数,由程序判断它是否是素数。

SET TALK OFF
INPUT “N=” TO N
K=0
J=2
DO WHILE J<N
IF ___1___
J=J+1
LOOP
ELSE
___2___
EXIT
ENDIF
ENDDO
IF ___3___
?STR(N)+”是素数”
ELSE
?STR(N)+”不是素数”
ENDIF
RETURN
答案：
1.MOD(N,J)<>0 or MOD(N,J)#0 or MOD(N,J)!=0
N%J<>0 or N%J#0 or N%J!=0
INT(N/J)<>N/J or INT(N/J)#N/J or INT(N/J)!=N/J
2.K=1
3.K=0
56．题目：。