VFP程序填空题的作业答案

VFP程序填空题的作业答案VFP程序填空题的作业答案VFP程序填空题的作业答案xxx公司VFP程序填空题的作业答案文件编号：文件日期：修订次数：第1.0次更改批准审核制定方案设计，管理制度程序填空题的应试技巧程序填空题采用的是选择填空，在做题时可采用以下方法来寻找正确的答案。1．找匹配语句。（1）根据程序结构来填空。有DOWHILE，考虑有无ENDDO配对，有IF，有无ENDIF配对。USE学生……USELOCATEFOR……CONTINUE或FOUND（）或!EOF()INDEXON……SETINDEXTOSETPROCTO过程名……SETPROCTO（2）如果程序中有变量的使用语句，如S=S+1，X=X+1，检查程序开头处有无变量赋初值的语句，是否需填STORE0TOS,X。（3）使用TOTAL命令，检查是否存在建索引或排序的语句。（4）DOAAA(过程名)WITH…，检查过程中有无PARA。2．边读程序边做题用实例代入读程序，并结合语句含义和函数来考虑。3.与表文件有关的函数有：函数：EOF()BOF()FCOUNT()FIELDS()FOUND()FILE()RECNO()RECCOUNT()命令REPLACE……WITHLOCATE……FORDELETEFILEDISPALLFOR……APPENDBLANKCOUNTTO新变量名FOR……SUM数值型字段TO新变量名FOR……AVERAGE数值型字段TO新变量名FOR……SKIPnDISPNEXTN4．输入和输出语句:程序填空题1：[程序说明]求1！+3！+5！+······N！的值。N由键盘输入，且为奇数。[程序]SETTALKOFFCLEAR__(5)__STORE0TOS，TFORI=1TONSTEP2DOSUB__(6)__ENDFORSSETTALKONPROCSUBT=1FORJ=1TO__(7)____(8)__ENDFOR（5）、A）ACCEPT"N="TONB）INPUT"N="TONC）WAIT"N="TOND）DOWHILE.T.（6）、A）S=S+TB）S=S+NC）S=TD）S=S+T*I（7）、A）NB）TC）2*I+1D）I（8）、A）T=T*IB）T=T*JC）T=T*ND）S=S+J*T2、由用户输入指定表文件、指定字段和指定内容进行查询。SETTALKOFFCLEAACCEPT‘输入表名（带扩展名）’TOFNACCEPT‘输入字段名（字符型）’TOFDNACCEPT‘输入查询内容（字符串）’TOCHIF(1)(2)LISTFOR(3)USE(4)‘找不到该文件！’ENDIFSETTALKON(1)A、VART(FN)B、FILE(‘FN’)C、FILE(&FN)D、FILE(FN)(2)A、USEEVAL(FN)B、USEFNC、USE&FN..DBFD、USE(3)A、CH$FDNB、AT(CH,FDN)>0C、CH$&FDND、AT(&CH,&FDN)>0(4)A、EXITB、LOOPC、IFD、ELSE3、程序：本程序的功能：从键盘输入N个无序数（N由键盘确定），去掉一个最大数，去掉一个最小数，然后求平均值。[程序]SETTALKOFFCLEARINPUT"N="TONINPUT"A="TOASTOREATOX，Y___(5)___P=N-2___(6)___INPUT"B="TOBS=S+BIFX<BX=BENDIF__(7)__Y=BENDIFENDFOR__(8)__R/PSETTALKON（5）A）S=AB）S=0（6）A）FORI=1TONB）FORI=2TONC）DOWHILEI<=ND）FORI=1TOA（7）A）IFX<BB）IFX<YC）IFY>BD）IFY<X（8）A）R=SB）R=S-A-BC）R=S-N-AD）R=S-X-Y4、显示输出给定的字符串（单字节）表达式的倒置字符串，例如，字符串“12345”，倒置后的字符串为“54321[程序]SETTALKOFFCLEAR________(5)"请输入指定的字符串："toXC=SPACE(0)L=________(6)FOR________(7) R=________(8) C=R+CENDFOR"指定的字符串："+x+"经倒置后变为："+cSETTALKON(5)A、ACCEPT B、INPUT C、USE D、WAIT(6)A、1 B、N C、LEN(X) D、MAX(X)(7)A、I=0TOL B、I=1TOL C、0TOL D、1TOL(8)A、STR(X) B、STR(X,I,1) C、SUBSTR(X,I,1) D、SUBSTR(X,L,1)5、给定程序的功能是：编写口令判断程序，要求在VFP主窗口显示信息并从键盘输入口令，能自动判断口令是否与系统口令（学生.DBF中“姓名”字段的值）完全一致，若一致则显示欢迎信息，否则给予二次重输机会，若仍不对则退出系统。[程序]SETTALKOFFCLEARUSE学生I=1DOWHILEI<=3 "请输入口令:" （1） ACCEPTTOMPW SETCONSOLEON LOCATE（2） IF（3） "欢迎进入本系统!" EXIT ELSE （4） "你无权使用本系统!" ELSE "口令不正确,请重输!" ENDIF （5） I=I+1ENDDOUSESETTALKON（1）A、SETCONSOLEOFFB、C、SETPROCTOD、SETTALKOFF（2）A、ALLTRIM(姓名)=ALLTRIM(MPW)B、FORALLTRIM(姓名)=ALLTRIM(MPW)C、FORALLTRIM(姓名)=TRIM(MPW)D、FORALLTRIM(姓名)=LTRIM(MPW)（3）A、EOF()B、FOUND()C、BOF()D、!FOUND()（4）A、IFI<=2B、IFI<3C、（5）A、LOOPB、ENDDOC、CONTD、ENDIF6、完成下列删除表文件的程序SETTALKOFFCLEARDOWHILE.T.ACCEPT”请输入要删除的表文件名（扩展名略）：”TOFILENAMEFILENAME=TRIM(LTRIM(FILENAME))+”.DBF”IF（6）ACCEPT“该文件不存在！继续吗(Y/N)”TOYNIF（7）=”N” EXITENDIFELSE（8）LISTWAIT“是这个文件吗(Y/N)”TOYNIFLOWER(YN)=”y”USE（9）EXITELSEWAIT”继续吗(Y/N)”TOYNIFLOWER(Y/N)=”n”USEEXITENDIFENDIFENDIFENDDOSETTALKON（6）A、!FILE（FILENAME”） B、!FILE(&FILENAME)C、!FILE（FILENAME） D、FILE(FILENAME)（7）A、UPPER（YN） B、LOWER(YN)C、UPPER（“YN”） D、LOWE