VFP改错题.docVIP

VFP改错题 1．有数据表b05.dbf，其字段为：（字符，C，1）、（次数，N，4），请设计程序：对输入的任何一个西文字符组成的字符串进行处理，如果某个字符已在表中存在，则将次数加1，否则添加一条新记录，将该字符填入到添加的记录中，将次数填为1。 SET TALK OFF CLEAR USE G05 DELE ALL PACK ACCEPT 请输入只包含西文字符的字符串： TO S FOR I=1 TO LEN(S) C=SUBS(S,I) LOCATE FOR 字母=C IF NOT EOF() APPEND BLANK REPLACE 字母 WITH C,次数 WITH 1 ELSE 次数=次数+1 ENDIF ENDFOR USE SET TALK ON RETURN 程序对存放在S中的字符串进行逐个判断，如果该字符不在数据库的“字符”字段，则要添加一条新记录，将该字符填入到添加的记录中，将次数填为1；否则说明该字符已存在，将次数加1即可。 第一处：C=SUBS(S,I,1)或STORE SUBS(S,I,1) TO C 等； 第二处：IF EOF()或 IF NOT FOUND() 等； 第三处：REPLACE 次数 WITH 次数+1 等。 2． SET TALK OFF CLEAR SELECT ______ A=SELECT() @ 6,6 SAY 最小未用的工作区号是：+______ USE G02 ______ TO B @ 8,6 SAY 该数据表中的记录数是: + STR(B) USE SET TALK ON RETURN 3． SET TALK OFF CLEAR i=0 DO WHILE _______ accept 请输入口令 to kl if kl12345 _______ Else messagebox(你是合法用户，欢迎进入！) Endif Enddo if i=3 messagebox(你是非法用户，禁止进入！) endif SET TALK ON RETURN 4．有数据表g51.dbf，其中有英语和名次字段，现要求按英语成绩排序，得到名次并写入表中，注意告诉同名次的现象。 SET TALK OFF CLEA USE G51 INDE ON 100-英语 TAG YY GO TOP I=1 MC=1 FS=英语 REPL 名次 WITH STR(MC,2) SKIP DO WHIL NOT FOUND() I=I+1 IF 英语 = FS FS= 英语 MC=I ENDIF REPL ALL 名次 WITH STR(MC,2) SKIP ENDDO USE RETU 5．已给定程序MODI1.PRG，其功能是:统计数据表G05.DBF中每条记录各门课程中优秀、良好、及格和不及格的门数，并填入相应字段。 其中：小于60分为不及格、60分到75分之间(含60分)为及格、75分到85分之间(含75分)为良好、不低于85分为优秀。 注意:要求在指定位置修改,不得增加或删减程序行。 SET TALK OFF CLEAR DIMENSION A(11) USE G05 DO WHILE EOF() STORE 0 TO T1,T2,T3,T4 SCATTER TO A FOR I=4 TO 10 DO CASE CASE A(I)=60 　T1=T1+1 CASE A(I)75 　T2=T2+1 CASE A(I)85 　T3=T3+1 OTHERWISE 　T4=T4+1 ENDCASE ENDFOR REPL ALL 优秀 WITH T4,良好 WITH T3,及格 WITH T2,不及格 WITH T1 SKIP ENDDO USE SET TALK ON RETURN 分析: 第一处：打开数据表,记录指针没有定位在文件尾,应改为DO WHIL NOT EOF()等； 第二处：DO CASE--ENDCASE结构中的每一条件必须以CASE开头,且为60分以下，应改为: CASE A(I)60等； 第三处：替换修改当前记录不能带范围和条件,应为:REPLACE 优秀 WITH T4,良好 WITH T3,及格 WITH T2,不及格 WITH T1等；