VFP程序填空题的作业答案.doc
程序填空题的应试技巧程序填空题采用的是选择填空，在做题时可采用以下方法来寻找正确的答案。1找匹配语句。1根据程序构造来填空。有DO WHILE，考虑有无ENDDO配对，有IF，有无ENDIF配对。USE 学生 USELOCATE FOR CONTINUE或FOUND或!EOF()INDEX ON SET INDEX TOSET PROC TO 过程名 SET PROC TO2如果程序中有变量的使用语句，如S=S+1，X=X+1，检查程序开头处有无变量赋初值的语句，是否需填STORE 0 TO S, X。3使用TOTAL命令，检查是否存在建索引或排序的语句。4DO AAA(过程名) WITH ，检查过程中有无PARA。2边读程序边做题用实例代入读程序，并结合语句含义和函数来考虑。3.与表文件有关的函数有：(1) 函数：EOF() BOF() FCOUNT() FIELDS() FOUND() FILE() RECNO() RECCOUNT()(2) 命令 REPLACE WITH LOCATE FOR DELETE FILE DISP ALL FOR APPEND BLANK COUNT TO 新变量名 FOR SUM 数值型字段 TO 新变量名 FOR AVERAGE数值型字段 TO 新变量名 FOR SKIP n DISP NEXT N4输入和输出语句:程序填空题1：程序说明求1！+3！+5！+······N！的值。N由键盘输入，且为奇数。程序 SET TALK OFF CLEAR_(5)_STORE 0 TO S，TFOR I=1 TO N STEP 2 DO SUB _(6)_ENDFORSSET TALK ON PROC SUBT=1FOR J=1 TO _(7)_ _(8)_ENDFOR5、AACCEPT "N=" TO N BINPUT "N=" TO NCWAIT "N=" TO N DDO WHILE .T.6、AS=S+T BS=S+N CS=T DS=S+T*I7、AN BT C2*I+1 DI8、AT=T*I BT=T*J CT=T*N DS=S+J*T2、由用户输入指定表文件、指定字段和指定内容进展查询。SET TALK OFFCLEAACCEPT 输入表名带扩展名TO FNACCEPT 输入字段名字符型TO FDNACCEPT 输入查询内容字符串TO CHIF (1) (2) LIST FOR (3) USE (4) 找不到该文件！ENDIFSET TALK ON(1) A、VART(FN) B、FILE(FN) C、) D、)(2) A、USE EVAL(FN) B、USE FN C、USE &FN.DBF D、USE (FN.DBF)(3) A、CH$FDN B、AT(CH,FDN)>0 C、CH$&FDN D、AT(&CH,&FDN)>0(4) A、EXIT B、LOOP C、IF D、ELSE3、程序：本程序的功能：从键盘输入N个无序数N由键盘确定，去掉一个最大数，去掉一个最小数，然后求平均值。程序SET TALK OFFCLEARINPUT "N=" TO N INPUT "A=" TO ASTORE A TO X，Y_(5)_P=N-2_(6)_ INPUT "B=" TO B S=S+B IF X<B X=B ENDIF _(7)_ Y=B ENDIF ENDFOR _(8)_ R/PSET TALK ON 5AS=A BS=0 CS=N DI=16AFOR I=1 TO N BFOR I=2 TO N CDO WHILE I<=N DFOR I=1 TO A7AIF X<B BIF X<Y CIF Y>B DIF Y<X8AR=S BR=S-A-B CR=S-N-A DR=S-X-Y4、显示输出给定的字符串单字节表达式的倒置字符串，例如，字符串“12345”，倒置后的字符串为“54321”。程序SET TALK OFFCLEAR_(5) "请输入指定的字符串：" to XC=SPACE(0)L=_(6)FOR _(7)R=_(8)C=R+CENDFOR"指定的字符串："+x+"经倒置后变为："+cSET TALK ON(5)A、ACCEPTB、INPUTC、USE D、WAIT(6)A、1B、NC、LEN(X)D、MAX(X)(7)A、I=0 TO LB、I=1 TO LC、0 TO LD、1 TO L(8)A、STR(X)B、STR(X,I,1)C、SUBSTR(X,I,1)D、SUBSTR(X,L,1)5、给定程序的功能是：“姓名字段的值完全一致，假设一致那么显示欢送信息，否那么给予二次重输时机，假设仍不对那么退出系统。程序SET TALK OFFCLEARUSE 学生I=1DO WHILE I<=3"请输入口令:" 1 ACCEPT TO MPWSET CONSOLE ONLOCATE 2 IF 3 "欢送进入本系统!"EXITELSE 4 "你无权使用本系统!"ELSE "口令不正确,请重输!"ENDIF 5 I=I+1ENDDOUSESET TALK ON1A、SET CONSOLE OFF B、 C、SET PROC TO D、SET TALK OFF2A、ALLTRIM(姓名)=ALLTRIM(MPW) B、FOR ALLTRIM(姓名)=ALLTRIM(MPW) C、FOR ALLTRIM(姓名)= TRIM(MPW) D、FOR ALLTRIM(姓名)= LTRIM(MPW)3A、EOF() B、FOUND() C、BOF() D、! FOUND()4A、IF I<=2 B、IF I<3 C、IF I>=3 D、IF I<25A、LOOP B、ENDDO C、CONT D、ENDIF6、完成以下删除表文件的程序SET TALK OFFCLEARDO WHILE .T.ACCEPT 请输入要删除的表文件名扩展名略： TO (LTRIM()+.DBFIF 6 ACCEPT “该文件不存在！继续吗(Y/N) TO YNIF 7 =NEXITENDIFELSE 8 LISTWAIT “是这个文件吗(Y/N) TO YNIF LOWER(YN)=yUSE 9 EXITELSEWAIT 继续吗(Y/N) TO YNIF LOWER(Y/N)=nUSEEXITENDIFENDIFENDIFENDDOSET TALK ON6 A、! B、!FILE(&)C、! D、)7 A、UPPERYN B、LOWER(YN) C、UPPER“YN D、LOWER(“YN)8 A、USE B、USE “ C、USE &.DBF D、USE &9 A、DELETE B、DELETE C、DELETE D、DELETE &
