vfp无纸化填空题题解new.docVIP

无纸化填空题及答案 题目： ****在考生目录中，已有文件Modify.prg，请调试程序，完成以下功能。 程序中“______N_____”是需要填充的地方，请填空，使程序完整。 ****功能：编写显示指定表中的全部字段名，并列表显示满足条件的记录。 SET TALK OFF DO WHILE .T. CLEAR ACCEPT 请输入表名（扩展名略）： TO TBN IF FILE(TBN..DBF) ___1___ ELSE WAIT 指定的表不存在! 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 第一题答案： 答案一：use(TBN) 答案二：use tbn 答案一：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 TN ___2___ S=S+T ENDDO ___3___ SET TALK ON 第二题答案： 答案一：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 第三题答案： 答案一：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 RD D=R ENDIF IF RX 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 N0 答案二：DO WHILE 0N 3.N=INT(N/10) 5、题目： ****在考生目录中，已有