vfp无纸化填空题题解new

无纸化填空题及答案

1、 题目：

****在考生目录中，已有文件Modify.prg，请调试程序，完成以下功能。 程序中“______N_____”是需要填充的地方，请填空，使程序完整。

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

SET TALK OFF DO WHILE .T. CLEAR

ACCEPT \请输入表名（扩展名略）：\

IF FILE(\ ___1___ ELSE

WAIT \指定的表不存在!\ LOOP ENDIF

?\表中的全部字段名列表:\___2___ ?field(n) ENDFOR

ACCEPT \请输入显示表信息的条件表达式：\list for evaluate(expr)

WAIT \是否还要显示其他表文件中的内容?Y/N: \IF UPPER(YN)!= \ ___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的值。

1

SET TALK OFF ___1___ T=0 S=0

DO WHIL T

SET TALK ON

第二题答案：

1. 答案一：INPUT \ 答案二：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 \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

2

?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 \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

?M,\中位值最大的数码是：\最小的数码是：\。\SET TALK ON

第四题答案：

1.答案一：DO WHILE INT(N)!=N 答案二：DO WHILE N !=INT(N)

3

答案三：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

5、题目：

****在考生目录中，已有文件Modify.prg，请调试程序，完成以下功能。 程序中“______N_____”是需要填充的地方，请填空，使程序完整。 ****功能：编写一个判断系统口令程序，输入次数在3次以内。

SET TALK OFF CLEAR C=\

___1___

ACCEPT C+\请输入口令:\ IF ALLTRIM(PSW)==\ ?\欢迎使用本系统!\ ___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

6、题目：

****在考生目录中，已有文件Modify.prg，请调试程序，完成以下功能。 程序中“______N_____”是需要填充的地方，请填空，使程序完整。 ****功能：编写显示求e^x,到100项 INPUT \请输入x=\S=1

STORE 0 TO A1,A2 ___1___

4