vfp无纸化填空题题解new

《vfp无纸化填空题题解new》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、无纸化填空题及答案1、题目：****在考生目录中，已有文件Modify.prg，请调试程序，完成以下功能。程序中“______N_____”是需要填充的地方，请填空，使程序完整。****功能：编写显示指定表中的全部字段名，并列表显示满足条件的记录。SETTALKOFFDOWHILE.T.CLEARACCEPT"请输入表名（扩展名略）："TOTBNIFFILE("&TBN..DBF")___1___ELSEWAIT"指定的表不存在!"TIMEOUT5LOOPENDIF?"表中的全部字段名列表:"___2___?field(n)ENDFORACCEPT"请输入显示表信息的条件表达式："TOEXPR

2、listforevaluate(expr)WAIT"是否还要显示其他表文件中的内容?Y/N:"TOYNIFUPPER(YN)!="Y"___3___ENDIFENDDOUSESETTALKON第一题答案：1.答案一：use(TBN)答案二：use&tbn2.答案一：forn=1tofcount()答案二：forn=1tofcount()step13.exit2、题目：****在考生目录中，已有文件Modify.prg，请调试程序，完成以下功能。程序中“______N_____”是需要填充的地方，请填空，使程序完整。****功能：该程序是计算s=1+2+3+...+N的值。125SETTALKO

3、FF___1___T=0S=0DOWHILT

4、1和该数本身之外，不能被其他任何整数整除的数。）SETTALKOFFCLEARINPUT"X="TOXS=STR(X,5)+"="P=0FORI=2TOX_____1_____P=1S=S+STR(I,3)+"*"____2_____I=I-1LOOPENDIFENDFOR____3_____?LEFT(S,LEN(S)-1)125ELSE?STR(X,5)+"没有因子！"ENDIFSETTALKON第三题答案：1.答案一：IFX%I=0答案二：IF0=X%I答案三：IFMOD(X,I)=0答案四：IF0=MOD(X,I)答案五：IFX-INT(X/I)*I=0答案六：IF0=X-INT(X/

5、I)*I2.X=INT(X/I)3.答案一：IFP=1答案二：IF1=P4、题目：****在考生目录中，已有文件Modify.prg，请调试程序，完成以下功能。程序中“______N_____”是需要填充的地方，请填空，使程序完整。****功能：编写输出一个数中最大的数码和最小的数码SETTALKOFFCLEARINPUT"M="TOMN=M___1___N=N*10ENDDOSTOREMOD(N,10)TOD,X___2___r=mod(n,10)IFR>DD=RENDIFIFR

6、+STR(X,1)+"。"SETTALKON第四题答案：1.答案一：DOWHILEINT(N)!=N125答案二：DOWHILEN!=INT(N)答案三：DOWHILEINT(N)<>N答案四：DOWHILEN<>INT(N)答案五：DOWHILEINT(N)#N答案六：DOWHILEN#INT(N)2.答案一：DOWHILEN>0答案二：DOWHILE0

7、次以内。SETTALKOFFCLEARC=""___1___ACCEPTC+"请输入口令:"TOPSWIFALLTRIM(PSW)=="MANAGER"?"欢迎使用本系统!"___2___ENDIFC="口令输入错误，再试一次！"ENDFOR___3___?"对不起，你无权使用本系统"ENDIFSETTALKON第五题答案：1.答案一：FORI=1TO3答案二：FORI=1TO3STEP12.EX