VFP程序填空题的作业答案

1、程序填空题的应试技巧 程序填空题采用的是选择填空，在做题时可采用以下方法来寻找正确的答案。1 找匹配语句 。(1) 根据程序结构来填空。有 DO WHILE考虑有无ENDDO己对，有IF ,有无ENDIF配对。USE学生 USELOCATE FORCONTINU或 FOUNED)或!EOF()INDEX ONSET INDEX TOSET PROC TO过程名 SET PROC TO(2) 如果程序中有变量的使用语句，如 S=S+1 X=X+1检查程序开头处有 无变量赋初值的语句，是否需填 STORE 0 TO S, X 。(3) 使用TOTAL命令，检查是否存在建索引或排序的语句。(4) D

2、O AAA过程名)WITH，检查过程中有无 PARA 2边读程序边做题用实例代入读程序，并结合语句含义和函数来考虑。3. 与表文件有关的函数有 ：(1) 函数： EOF() BOF() FCOUNT() FIELDS() FOUND()FILE()RECNO()RECCOUNT()(2) 命令 REPLACEWITHLOCATE FORDELETE FILEDISP ALL FOR APPEND BLANKCOUNT TO 新变量名 FOR SUM 数值型字段 TO 新变量名 FOR AVERAGE 数值型字段 TO 新变量名 FOR SKIP nDISP NEXT N4输入和输出语句 :程序

3、填空题1:程序说明求1! +3! +5! +N!的值。N由键盘输入，且为奇数。 程序 SET TALK OFFCLEAR_(5)_STORE 0 TO S， TFOR I=1 TO N STEP 2DO SUB _(6)_ENDFORSSET TALK ONPROC SUBT=1FOR J=1 TO ._(8)_ENDFOR(5) 、A)C)(6) 、A)(7) 、A)(8) 、A)ACCE PT N= TO N WAIT N= TO N D S=S+T B ) S=S+N N B ) T T=T*I B) T=T*JB ) INPUT N= TO N)DO WHILE .T.C ) S=T

4、DC ) 2*I+1C ) T=T*N)S=S+T*ID) ID ) S=S+J*T2、由用户输入指定表文件、指定字段和指定内容进行查询。SET TALK OFFCLEAACCEPT 输入表名(带扩展名)TO FNACCEPT 输入字段名(字符型)TO FDNTO CHACCEPT 输入查询内容(字符串)IF _(1(2)LIST FOR _(3)USE(4) 找不到该文件！ENDIFSET TALK ON(1) A、VART(FN)C 、FILE(&FN) AC、A、C、A、USE EVAL(FN) USE &F N.DBF CH$FDNCH$&FDN EXIT B、LOOP、FILE( F

5、N)D FILE(FN)、USE FN、USE、AT(CH,FDN)0、AT(&CH,&FDN)0 、IFD ELSE3、程序：本程序的功能：从键盘输入 N个无序数(N由键盘确定)，去掉一个最 大数，去掉一个最小数，然后求平均值。程序SET TALK OFFCLEARINP UT N= TO NINP UT A= TO ASTORE A TO X Y(5)P=N-2_(6)_INPUT B= TO BS=S+BIF XBSET TALK ON5) A) S=A B )S=06) A)FOR I=1 TO NC ) DO WHILE I=N7) A)IF XB B )IF XB D )IF YX

6、8) A) R=S B )R=S-A-B C )R=S-N-A D) R=S-X-Y4、显示输出给定的字符串 (单字节)表达式的倒置字符串， 倒置后的字符串为“ 54321”。 程序 SET TALK OFF CLEAR (5) 请输入指定的字符串： to X C=SPACE(0) L=(6)FOR (7)R=(8)C=R+C ENDFOR 指定的字符串： SET TALK ON (5) A、 (6)A、 (7)A、 (8)A、+x+ 经倒置后变为： +c例如，字符串“12345”，ACCEPT1I=0 TO LSTR(X)B、B、C、INPUTB、NB、I=1 TO LSTR(X,I,1)

7、C、USEC、LEN(X)C、0 TO LSUBSTR(X,I,1)、WAITD、MAX(X)D、1 TO L D、SUBSTR(X,L,1)5、给定程序的功能是：编写口令判断程序，要求在 VFP主窗口显示信息并从键 盘输入口令，能自动判断口令是否与系统口令(学生 .DBF中“姓名”字段的值) 完全一致， 若一致则显示欢迎信息， 否则给予二次重输机会， 若仍不对则退出系 统。程序SET TALK OFFCLEARUSE学生1=1DO WHILE I=3请输入口令：(1)ACCE PT TO MPWSET CONSOLE ONLOCATE (2)IF(3)欢迎进入本系统!EXITELSE(4)你

8、无权使用本系统!ELSE口令不正确，请重输!ENDIF(5)1=1+1ENDDOUSESET TALK ON(1) A SET CONSOLE OFFB、 C(2) A、ALLTRIM姓名)=ALLTRIM(M PW) C(3)(4)(5)、FOR ALLTRIM姓名)=TRIM(MPW) A EOF()AAIF I=2 LOOPB、FOUNDO、IF I3、ENDDO、SET PROC TO D、SET TALK OFFB、FORALLTRIM姓名)=ALLTRIM(MPW) FOR ALLTRIM姓 名)=LTRIM(M PW) 、!FOUNDO D 、IF I=3、CONTD6完成下列删

9、除表文件的程序SET TALK OFFCLEARDO WHILE .T.” TO FILENAMEACCE PT请输入要删除的表文件名(扩展名略)FILENAME=TRIM(LTR(MILENAME)+” .DBF”IF(6)ACCEPT “该文件不存在！继续吗(Y/N) ” TO YN IF(7)=” NEXITENDIF(8)ELSELIST” TO YNTO YNWAIT “是这个文件吗(Y/N) IF LOWERYN)=” y”USE(9)EXITELSEWAIT ” 继续吗(Y/N) ”IF LOWER(Y/N)= n” USEEXITENDIFENDIFENDIFENDDOSET TALK ON(6)A、!FILE (FILENAME)B!FILE(&FILENAME)C、!FILE (FILENAMEDFILE(FILENAME)(7)A、UPPER YNBLOWER(YN)C、UPP ER(“ YN)DLOWERfYN )(