vfp程序改错讲述.doc

Visual Foxpro程序改错 〖第1题〗(练习题所在文件夹:163) *题目：该程序完成口令检验功能。输入三次不正确退出。 *注意：不可以增加或删除程序行，也不可以更改程序的结构。 SET TALK OFF CLEAR ass1=AbCdEf TT=1 DO WHILE TT4 @10,20 SAY 请输入口令: SET CONSOLE OFF ACCEPT TO ass SET CONSOLE ON **********FOUND********** IF ass1=ass CLEAR ?欢迎使用本系统! **********FOUND********** LOOP ELSE **********FOUND********** TT=TT-1 CLEAR ?口令错，按任意键再输入一次！ WAIT ENDIF ENDDO RETURN 答案： 1). IF UPPER(ass1)==UPPER(ass) 或 IF UPPER(ass1)==UPPER(ass) 2). EXIT 3). TT=TT+1 或 TT=1+TT 〖第4题〗(练习题所在文件夹:500) *题目：ZHG.DBF是一个职工信息文件，其中包含编号(C 5)、姓名 * (C 8)、性别(C 2)、政治面貌(C 4)、出生日期(D 8)等字 * 段。性别用字符串男或女表示，政治面貌用字符串 * 党员、团员或群众表示。此文件已按政治面貌建立 * 了索引，索引文件名是ZHG_ZHZH.IDX。 * 程序功能是：显示输出所有政治面貌为群众的女职工的 * 姓名和出生日期（每行输出一个职工的信息）在屏幕上 *注意：不可以增加或删除程序行，也不可以更改程序的结构。 set talk off clear ***********FOUND********** USE ZHG SEEK 群众 ***********FOUND********** DO WHILE !EOF() IF 性别=女 DISP 姓名,出生日期 ***********FOUND********** ENDD SKIP ENDDO USE SET TALK ON 答案： 1). USE ZHG INDEX ZHG_ZHZH 2). DO WHILE政治面貌=群众 或 DOWHILE政治面貌=群众 或 DOWHILE政治面貌=[群众] 3). ENDIF 〖第5题〗(练习题所在文件夹:105) *题目：在RSH.dbf 中，查找职工赵红的工资，如果工资小于200元， * 则增加100元；如果工资大于等于200元且小于500元时，则增 * 加50元；否则增加20元。最后显示赵红的姓名和工资。 *注意：不可以增加或删除程序行，也不可以更改程序的结构。 CLEAR USE RSH ***********FOUND********** LOCATE FOR 姓名 =赵红 DO CASE CASE 工资 200 REPLACE 工资 WITH 工资+ 100 CASE 工资 500 REPLACE 工资 WITH 工资+ 50 OTHERWISE REPLACE 工资 WITH 工资+ 20 ENDCASE ***********FOUND********** LIST 姓名,工资 USE 答案： 1). LOCATE FOR 姓名=赵红 或 LOCA FOR 姓名=赵红 或 LOCA FOR 姓名=赵红 或 LOCATE FOR 姓名=[赵红] 或 LOCA FOR 姓名=[赵红] 或 LOCATE FOR 姓名=赵红 2). DISP 姓名,工资 或 ?姓名,工资 或 DISPLAY 姓名,工资 〖第6题〗(练习题所在文件夹:174) *题目：计算S=2+4+6+...+98+100的程序。 *注意：不可以增加或删除程序行，也不可以更改程序的结构。 store 0 to s,i ***********FOUND********** do i=99 ***********FOUND********** i=i+1 s=s+i enddo ?s=,s 答案： 1). do while i=99 或 do while i100 或 dowhilei=98 或 dowhilei99 2). I=2+I 或 I=I+2 或 STORI+2TOI 〖第7题〗(练习题所在文件夹:520) *题目:猴