VFP程序填空题的作业答案

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

2、程名)WITH，检查过程中有无 PARA2 边读程序边做题用实例代入读程序，并结合语句含义和函数来考虑。3 与表文件有关的函数有：(1) 函数： EOF() BOF() FCOUNT() FIELDS() FOUND()FILE() RECNO() RECCOUNT()(2) 命令 REPLACE WITHLOCATE FORDELETE FILEDISP ALL FOR APPEND BLANKCOUNT TO新变量名FORSUM数值型字段TO新变量名FORAVERAGE 数值型字段 TO新变量名 FORSKIP nDISP NEXT N4输入和输出语句 :程序填空题1:程序说明求1! +3

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 _(7)_(8)_ENDFOR(5)、A) ACCEPT "N=" TO N B) INPUT "N=" TO NC) WAIT "N=" TO N D ) DO WHILE .T.(6)、A) S=S+T B ) S=S+N C ) S=T D ) S=S+T*I、A

4、) N B ) T C ) 2*I+1 D) I(8)、A) T=T*I B) T=T*J C ) T=T*N D ) S=S+J*T 2、由用户输入指定表文件、指定字段和指定内容进行查询SET TALK OFFCLEAACCEPT'输入表名(带扩展名)TO FN ACCEPT '输入字段名(字符型)'TO FDN ACCEPT '输入查询内容(字符串)'TO CH IF _(1J2)LIST FOR _(3)USE(4)找不到该文件！ENDIFSET TALK ON(1) A、VART(FN)C 、FILE(&FN)(2) A、USE EVAL

5、(FN)C 、USE &FN.DBFB、FILE( 'FN')D FILE(FN)B、USE FND、USE、AT(CH,FDN)>0、AT(&CH,&FDN)>0C、IF D ELSE(3) A、CH$FDNBC、CH$&FDN D A、EXIT B 、LOOP去掉一个最3、程序：本程序的功能：从键盘输入 N个无序数(N由键盘确定) 大数，去掉一个最小数，然后求平均值。程序SET TALK OFFCLEARINPUT "N=" TO NINPUT "A=" TO ASTORE A TO X Y

6、(5)P=N-2_(6)_INPUT "B=" TO BS=S+BIF X<BX=BENDIF_(7)_Y=BENDIFENDFOR_(8)_R/PSET TALK ON( 5) A)S=A B)S=0 C )S=ND ) I=1( 6) A)FOR I=1TO NB)FOR I=2 TO NC ) DO WHILE I<=N D ) FOR I=1 TO A( 7) A)IF X<BB)IF X<YC)IF Y>BD ) IF Y<X( 8) A)R=SB)R=S-A-BC )R=S-N-AD)R=S-X-Y4、 显示输出给定的字符串(

7、单字节) 表达式的倒置字符串， 例如， 字符串“12345” ，倒置后的字符串为“54321” 。 程序 SET TALK OFFCLEAR(5) " 请输入指定的字符串： " to XC=SPACE(0)L=(6)FOR (7)R=(8)C=R+CENDFOR" 指定的字符串：SET TALK ON(5) A、 ACCEPT(6)A 、 1(7)A 、 I=0 TO L(8)A 、 STR(X)"+x+" 经倒置后变为：B、 INPUTC、B、 NB、 I=1 TO LB、 STR(X,I,1) C、+cUSEC、 LEN(X)C、 0 TO

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

9、)"你无权使用本系统!"ELSE”口令不正确,请重输!"ENDIF(5)I=I+1ENDDOUSESET TALK ON(1) A SET CONSOLE OFFB、 C(2) A ALLTRIM姓名尸ALLTRIM(MPW)C、FOR ALLTRIMt名尸 TRIM(MPW)(3) A EOF()B、FOUND()(4) A IF I<=2 B 、IF I<3(5) A LOOP B 、ENDDO、SET PROC TO D、SET TALK OFF B、FORALLTRIM姓名尸ALLTRIM(MPW) D、FOR ALLTRIMt名尸 LTRIM

10、(MPW)C 、BOF() D 、! FOUND()C、IF I>=3 D 、IF I<2C 、CONT D ENDIF6、完成下列删除表文件的程序SET TALK OFFCLEARDO WHILE .T.ACCEPT'请输入要删除的表文件名(扩展名略)：" TO FILENAMEFILENAME=TRIM(LTR(MILENAME)+” .DBF'IF(6)ACCEPT ”该文件不存在！继续吗(Y/N) " TO YNIF 二" NEXITENDIFELSE(8)TO YNLIST WAIT ”是这个文件吗(Y/N) IF LOWERYN尸“ y” USETO YN(9) EXIT ELSEWA仃”继续吗(Y/N) ” IF LOWER(Y/N)= n” USE EXIT ENDIF ENDIF ENDIF ENDDO SET TALK ONB !FILE(&FILENAME)D FILE(FILENAME)B LOWER(YN)D LOWER(，YM )B USE "FILENAMED USE &FILENAMEB、DELETE FILE &FILENAME、DELETE &