《vfp程序改错讲课讲稿》由会员分享，可在线阅读，更多相关《vfp程序改错讲课讲稿（29页珍藏版）》请在金锄头文库上搜索。
1、vfp程序改错精品文档Visual Foxpro程序改错第1题(练习题所在文件夹:163)*题目：该程序完成口令检验功能。输入三次不正确退出。*注意：不可以增加或删除程序行，也不可以更改程序的结构。SET TALK OFFCLEARass1=AbCdEfTT=1DO WHILE TT410,20 SAY 请输入口令:SET CONSOLE OFFACCEPT TO assSET CONSOLE ON*FOUND*IF ass1=ass CLEAR ?欢迎使用本系统!*FOUND* LOOPELSE*FOUND* TT=TT-1 CLEAR ?口令错，按任意键再输入一次！ WAIT ENDIFE
2、NDDORETURN答案： 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。* 程序功能是：显示输出所有政治面貌为群众的女职工的* 姓名和出生日期（
3、每行输出一个职工的信息）在屏幕上*注意：不可以增加或删除程序行，也不可以更改程序的结构。set talk offclear*FOUND*USE ZHGSEEK 群众*FOUND*DO WHILE !EOF()IF 性别=女DISP 姓名,出生日期*FOUND*ENDDSKIPENDDOUSESET TALK ON答案： 1). USE ZHG INDEX ZHG_ZHZH 2). DO WHILE政治面貌=群众 或 DOWHILE政治面貌=群众 或 DOWHILE政治面貌=群众 3). ENDIF第5题(练习题所在文件夹:105)*题目：在RSH.dbf 中，查找职工赵红的工资，如果工资小于2
4、00元，* 则增加100元；如果工资大于等于200元且小于500元时，则增* 加50元；否则增加20元。最后显示赵红的姓名和工资。*注意：不可以增加或删除程序行，也不可以更改程序的结构。CLEARUSE RSH*FOUND*LOCATE FOR 姓名 =赵红DO CASE CASE 工资 200 REPLACE 工资 WITH 工资+ 100 CASE 工资 500 REPLACE 工资 WITH 工资+ 50 OTHERWISE REPLACE 工资 WITH 工资+ 20ENDCASE*FOUND*LIST 姓名,工资USE答案： 1). LOCATE FOR 姓名=赵红 或 LOCA F
5、OR 姓名=赵红 或 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+ienddo?s=,s答案： 1). do while i=99 或 do while i100 或 dowhilei=98 或
6、 dowhilei0*FOUND*X1=(X2+1)/2X2=X1*FOUND*DAY=DAY+1ENDDO? 第一天摘下,X1,个桃子SET TALK ON答案： 1). X2=1 2). X1=(X2+1)*2 3). DAY=DAY-1第8题(练习题所在文件夹:175)*题目：打开XSDB.DBF数据表, 分别统计男、女生的人数。*注意：不可以增加或删除程序行，也不可以更改程序的结构。USE XSDBSTOR 0 TO B,GDO WHILE .NOT.EOF()*FOUND*IF 性别男 B=B+1*FOUND*ENDIFG=G+1 ENDIF SKIPENDDO?男生人数是：+STR
7、(B)?女生人数是：+STR(G)答案： 1). IF 性别=男 或 IF 性别女 2). ELSE第9题(练习题所在文件夹:188)*题目：显示XSDB.DBF中每个学生的姓名、计算机成绩和等级；等* 级划分如下：计算机成绩大于等于90显示优秀；60到89* （包括 60和89）之间显示及格；60分以下显示补考。* 如显示：张丽娜 90 优秀 。*注意：不可以增加或删除程序行，也不可以更改程序的结构。USE XSDBDO WHIL .NOT. EOF()*FOUND* LIST 姓名,计算机 DO CASE CASE 计算机=90 ?优秀 CASE 计算机=60 ?及格 OTHERWISE
8、?补考 ENDCASE*FOUND* GO NEXTENDDOUSE答案： 1). ? 姓名,计算机 或DISPLAY姓名,计算机 2). SKIP 或 SKIP 1第10题(练习题所在文件夹:191)*题目：从键盘上输入5个数，将其中奇数求和,偶数求积。*注意：不可以增加或删除程序行，也不可以更改程序的结构。S1=0*FOUND*S2=0FOR I=1 TO 5 INPUT 请输入第+STR(I,1)+ 数 TO M*FOUND* IF INT(M/2)=0 S1=S1+M ELSE S2=S2*M ENDIFENDFOR? 奇数和是,S1? 偶数积是,S2答案： 1). S2=1 或 ST
9、OR 1 TO S2 2). IF MOD(M,2)0 或 IF MOD(M,2)#0 或 IF INT(M/2)M/2 或 IF INT(M/2)#M/2 或 IF M%2 0 或 IF M%2!=0 或 IF M%2#0第11题(练习题所在文件夹:182)*题目：在XSDB.DBF中查找学生徐秋实的记录, 如果找到则将该记录* 的系别、姓名,两科科目名称和对应的成绩显示在屏幕上，否则* 显示:查无此人!。*注意：不可以增加或删除程序行，也不可以更改程序的结构。USE XSDB*FOUND*FIND FOR 姓名=徐秋实IF .NOT.FOUND()?查无此人!ELSE*FOUND*?系别,
10、姓名, 计算机=+计算机, 英语=+英语ENDIFUSERETURN答案： 1). LOCATE FOR姓名=徐秋实 或 LOCATE AL LFOR姓名=徐秋实 2). ? 系别,姓名,计算机=+STR(计算机),英语=+STR(英语) 或 ?系别,姓名,计算机=,计算机, 英语=,英语 第13题(练习题所在文件夹:161)*题目：从键盘输入一个表名，打开该表文件，移动记录指针到* 文件头，输出当前记录号；在移动记录指针到文件尾，* 输出当前记录号。*注意：不可以增加或删除程序行，也不可以更改程序的结构。SET TALK OFFACCEPT TO A*FOUND*FIND AGO TOP*FOUND*NEXT? RECNO( )GO BOTTOM*FOUND*NEXT -1? RECNO( )USESET TALK ON答案： 1). USE(A) 或 USE&A 2). SKIP-1 3). SKIP 或 SKIP 1第14题(练习题所在文件夹:162)*题目：从键盘输入一个表文件名，打开该表， 查找姓名是* 张东的记录，并显示该记录， 最后输出姓名是张* 东的记录个数。(设被打开的表中有固定字段姓名)*注意：不可以
