Visual Foxpro程序改错

〖第1题〗(练习题所在文件夹:163)

*题目：该程序完成口令检验功能。输入三次不正确退出。

*注意：不可以增加或删除程序行，也不可以更改程序的结构。

SET TALK OFF

CLEAR

ass1="AbCdEf"

TT=1

DO WHILE TT<4

@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 i<100 或 dowhilei<=98 或 dowhilei<99

2). I=2+I