结构化程序设计

一、选择题

1. WAIT命令用于让用户输入一个______。

A)数字B)字符C)字符串D)以上都是

2. 在交互式输入命令中，可以接受逻辑型数据的命令包括______。

A)INPUT和ACCEPTB)WAIT和INPUT

C)INPUT和@…GETD)INPUT和@…SAY

3. 执行命令 ACCEPT"请输入数据: "TO XYZ 时,可以通过键盘输入的内容包括______。

A)字符串B)数值和字符串

C)数值,字符串和逻辑值D)数值,字符串,逻辑值和表达式

4. 执行命令INPUT"请输入数据: "TO AAA时,如果要通过键盘输入字符串,应当使用的定界符包括______。

A)单引号B)单引号或双引号

C)单引号、双引号或方括弧D)单引号、双引号、方括弧或圆点

5. 在VFP中,可以通过键盘接受数值的命令有_______。

A)ACCEPTB)ACCEPT和WAIT

C)INPUT和ACCEPTD)INPUT和 @ 5,10 SAY...GET..

6. 比较WAIT、ACCEPT和INPUT三条命令，需要以回车键表示输入结束的命令是_____。

A)WAIT、ACCEPT、INPUTB)WAIT、ACCEPT

C)ACCEPT、INPUTD)INPUT、WAIT

7. 以下关于ACCEPT命令的说明，正确的是______。

A)将输入作为字符接收B)将输入作为数值接收

C)将输入作为逻辑型数据接收D)将输入作为备注型接收

8. 结构化程序设计所规定的三种基本控制结构是_______。

A)输入，处理，输出B)树型，网型，环型

C)顺序，选择，循环D)主程序，子程序，函数

9. 能将高级语言编写的源程序转换成目标程序的是_______。

A)编程程序B)编译程序C)解释程序D)链接程序

10. VFP中的DO CASE-ENDCASE语句属于_______。

A)顺序结构B)选择结构C)循环结构D)模块结构

11. 当前数据库中有五个字段:学号(C,4)、姓名(C，6)、政治(N，3.0)、英语(N，3.0)、数学(N,3.0),记录指针指向一个非空的记录。要使用SCATTER TO X命令把当前记录的字段值存到数组X中,数组X ______。

A)不必事先定义

B)必须用DIMENSION X 事先定义

C)必须用DIMENSION X(5)事先定义

D)必须用DIMENSION X(1),X(2),X(3),X(4),X(5)事先定义

12. 要判断数值型变量Y是否能够被7整除，错误的条件表达式为______。

A)MOD(Y,7)=0B)INT(Y/7)=Y/7

C)0=MOD(Y,7)D)INT(Y/7)=MOD(Y,7)

13. 在VFP中,命令文件的扩展名是______。

A)TXTB)PRGC)DBTD)FMT

14. 以下有关VFP中过程文件的叙述，其中正确的是______。

A)先用SET PROCEDURE TO命令关闭原来已打开的过程文件，然后用DO <过程名>执行

B)可直接用DO <过程名>执行

C)先用SET PROCEDURE TO<过程文件名>命令打开过程文件，然后用USE<过程名>执行

D)先用SET PROCEDURE TO <过程文件名>命令打开过程文件，然后用DO <过程名>执行

15. 执行 SET DEVICE TO PRINT命令之后，能在打印机上实现输出的命令是______。

A)?姓名B)@ 10,10 SAY 姓名

C)LIST 姓名D)@ 10,10 GET 姓名

16. 一个过程文件最多可以包含128个过程，每个过程的第一条语句是______。

A)PARAMETERB)DO <过程名>C) <过程名>D)PROCEDURE <过程名>

17. 在下列命令组合中，不能配对使用的是______。

A)@ PROMPT 和 MENU TOB)DO WITH和 PARAMETERS

C)IF和 ENDIFD)DO CASE和 ENDDO

18. 在VFP中，用于建立或修改过程文件的命令是_______。

A)MODIFY <文件名>B)MODIFY COMMAND <文件名>

C)MODIFY PROCEDURE <文件名>D)CREATE COMMAND <文件名>

19. 在VFP中，可以在同种类型的数据之间进行“-”(减号)运算的数据类型是______。

A)数值型、字符型、逻辑型B)数值型、字符型、日期型

C)数值型、日期型、逻辑型D)逻辑型、字符型、日期型

20. 要在屏幕的第二行第二列开始显示姓名(C,8),存款数额(N,6,2)和存入日期(D)三个字段的值,应该使用命令______。

A)@ 2,2 SAY 姓名,存款数额,存入日期

B)@ 2,2 SAY 姓名+存款数额+存入日期

C)@ 2,2 SAY 姓名+STR(存款数额,6,2)+DTOC(存入日期)

D)@ 2,2 SAY 姓名+STR(存款数额,6,2)+CTOD(存入日期)

21. 在DO WHILE/ENDDO循环中，若循环条件设置为.T.，则下列说法中正确的是______。

A)程序无法跳出循环B)程序不会出现死循环

C)用EXIT可以跳出循环D)用LOOP可以跳出循环

22. 用户自定义函数或过程中接受参数，应使用______命令。

A) PROCEDUREB) FUNCTIONC)WHILED)PARAMETERS

23. 用户自定义函数或过程可以定义在______。

A)独立的程序文件B)对象的事件代码、方法代码中

C)数据库的存储过程中D)过程文件

24. 在命令窗口赋值的变量默认的作用域是______。

A)全局B)局部C)私有D)不一定

25. 使用命令DECLARE mm(2,3)定义的数组，包含的数组元素(下标变量)的个数为______。

A)2个B)3个C)5个D)6个

26. 下列______语句可以将变量A、B的值互换。

A)A=BB)A= (A+B)/2C)A=A+BD)A=C

B=A B= (A-B)/2 B=A-B C=B

A=A-B B=C

27. 结构化程序设计的三种基本逻辑结构是______。

A)选择结构、循环结构和嵌套结构

B)顺序结构、选择结构和循环结构

C)选择结构、循环结构和模块结构

D)顺序结构、递归结构和循环结构

28. 如果一个过程不包含RETURN语句，或RETURN语句中没有指定表达式，那么该过程_____。

A)没有返回值B)返回0C)返回.T.D)返回.F.

29. 作为整个应用程序入口点的主程序至少应具有以下功能_____。

A)初始化环境

B)初始化环境、显示初始的用户界面、控制事件循环，退出时恢复环境

C)初始化环境、显示初始用户界面

D)初始化环境、显示初始用户界面、控制事件循环

30. 下面关于过程调用的陈述中，______是正确的。

A)实参与形参的数量必须相等

B)当实参的数量多于形参的数量时，出现运行时错误。

C)当形参的数量多于实参的数量时，多余的实参为逻辑假

D)上面B和C都对

31. 将内存变量定义为全局变量的Visual FoxPro命令是______。

A)LOCALB)PRIVATEC)PUBLICD)GLOBAL

32. 下列说法中正确的是______。

A)若函数不带参数，则调用时函数名后面的圆括号可以省略

B)函数若有多个参数，则参数名间应用空格隔开

C)调用函数时，参数的类型、个数和顺序不一定要一致

D)调用函数时，函数名后的圆括号不论有无参数都不能省略

33. 在VFP中,已经建立了一个过程文件ABC.PRG,打开此过程文件的命令是______。

A) OPEN PROCEDURE TO ABCB) DO PROCEDURE ABC

C) SET PROCEDURE TO ABCD) RUN PROCEDURE ABC

34. 顺序键入以下命令：

STORE "21.47" TO A

B=INT(&A+4)

? B

屏幕上显示的结果为______。

A)24B)25C)25.47D)21.474

35. 设数据库文件STD.DBF中包含8个字段，并有以下命令序列：

DIMENSION DATA(10)

USE STD

SCATTER TO DATA

? DATA(10)

执行以上命令序列后，屏幕显示的结果是______。

A)空B).T.C).F.D)0

36. 有以下命令序列：

STORE 123.456 TO A

STORE STR(A+A,5) TO B

? LEN(B),B

执行以上命令序列,最后一条命令显示的结果是______。

A)3 123B)3 264C)5 246D)5 247

37. 给出以下程序的运行结果：

SET TALK OFF

X=0

Y=0

DO WHILE X<100

X=X+1

IF INT(X/2)=X/2

LOOP

ELSE

Y=Y+X

ENDIF

ENDDO

? "Y=",Y

RETURN

运行结果为______。

A) Y=500B) Y=1500C) Y=2000D) Y=2500

38. 有如下两个程序段:

*****程序段 1**********程序段 2*****

USE CLASSUSE CLASS

LOCATE FOR 政治面目="团员"LOCATE FOR 政治面目="团员"

DO WHILE FOUND()DO WHILE政治面目="团员"

DISPLAYDISPLAY

CONTINUESKIP

ENDDOENDDO

若在完全相同的环境下分别执行上面的两个程序段，则______。

A)程序段2输出的记录不可能比程序段1输出的记录多

B)程序段1输出的记录不可能比程序段2输出的记录多

C)程序段1和程序段2输出的记录一样多

D)无法判定

39. 在使用@命令进行格式化输入时，为了保证只输入字母，应该在PICTURE短语中使用模式符______。

A)AB)XC)ND)Z

40. 有如下程序段:

DO CASE

CASE X>100

?? "1"

CASE X>200

?? "2"

OTHERWISE

?? "3"

ENDCASE

若在X=300的情况下执行这个程序段，屏幕上将显示______。

A)1B)2C)12D)3

41. 有如下命令序列：

X="A"

Y=X

A="黄河长江"

？ X+&X-Y-&Y

执行以上命令序列后，屏幕显示表达式X+&X-Y-&Y的结果是______。

A)黄河长江B)A黄河长江A黄河长江

C)A黄河长江AD)A黄河长江黄河长江

42. 有如下命令序列：

SET DELETED ON

USE ABC

GO 3

DELETE NEXT 2

GO 4

RECALL

USE

执行最后一条RECALL命令时，去掉删除标记的记录个数是______。

A)0B)1C)2D)3

43. 已知proc.prg程序清单如下：proc_1.prg程序清单如下：

SET TALK OFFPARAMETERS a,b

n=20 b=a*b

t=1 IF a<=2

DO proc_1 WITH n,t RETURN

?t ENDIF

SET TALK ON DO proc_1 WITH a-2,b

RETURN RETURN

程序proc.prg的功能是______。

A)输出20以内偶数的乘积B)输出20以内奇数的乘积

C)输出结果为1D)输出结果为0

44. 有如下命令序列：

SELECT 1

USE F1

SELECT 2

USE F2

SELECT 1

SET RELATION TO RECNO()-2 INTO B

GOTO 5

?RECNO(2)

最后一条命令的输出结果是______。

A)5B)4C)3D)1

45. 清除屏幕从10行，17列到14行，52列的正确语句是______。

A)@10,17 TO CLEAR 14,52B)@10,17 CLEAR 14,52

C)@10,17 TO 14,52 CLEARD)CLEAR FROM @10,17 TO 14,52

46. 有如下命令序列

SELECT 1

USE FILE1

SELECT 2

USE FILE2

SELECT 3

USE FILE 3

执行以上命令序列后，要想向FILE2.DBF中追加记录，同时保持数据库打开的状态不变，应当使用命令______。

A) USE FILE2B) GO FILE2C) SELECT 2D) SELECT 4

APPEND APPEND APPEND USE FILE2

APPEND

47. 有如下命令

DISPLAY 姓名,出生日期 FOR 性别="女"

执行这个命令后,屏幕显示的是所有性别字段值为“女”的记录,这时文件指针_____。

A)指向最后一个性别为"女"的记录

B)指向最后一个性别为"女"的记录的下一个记录

C)指向文件尾

D)状态视库文件中数据记录的实际情况而定

48. 有如下命令序列

CLEAR MEMORY

DIMENSION ARRAY(10)

LIST MEMORY

最后一条命令显示定义的内存变量的数是______。

A)10B)1C)0D)11

49. 在命令文件中，调用另一个命令文件用命令______。

A) CALL <命令文件名>B) LOAD <命令文件名>

C) PROCEDURE <命令文件名>D) DO <命令文件名>

50. 执行下列语句序列

A=2200

DO CASE

CASE A<1000

B=5/100

CASE A>1000

B=10/100

CASE A>2000

B=15/1000

CASE A>3000

B=20/100

ENDCASE

变量B的值是______。

A)0.05B)0.10C)0.15D)0.20

51. 有以下程序段：

DO CASE

CASE 计算机<60

? "计算机成绩是: "+"不及格"

CASE 计算机>=60

? "计算机成绩是: "+"及格"

CASE 计算机>=70

? "计算机成绩是: "+"中"

CASE 计算机>=80

?″计算机成绩是:″+″良″

CASE 计算机>=90

? "计算机成绩是: "+"优"

ENDCASE

设学生数据库当前记录的“计算机”字段的值是89，执行上面程序段之后，屏幕输出______。

A)计算机成绩是:不及格B)计算机成绩是:及格

C)计算机成绩是:良D)计算机成绩是:优

52. 执行以下命令序列：

USE ZGGZ

SUM 工资 FOR 工资>=500 TO QWE

COPY TO QAZ FIELDS 职工号,姓名 FOR 工资>=500

USE QAZ

NUM=RECCOUNT()

AVER=QWE/NUM

? AVER

最后显示的值是______。

A)所有工资在500元以上的职工人数

B)所有工资在500元以上的职工平均工资数

C)所有职工的平均工资数

D)出错

53. 有以下程序段：

@5，10 SAY "请输入1─4" GET ANS

READ

CX="PG"+ANS+".PRG"

DO &CX

其功能是根据用户输入的数字，转去执行子程序PG1、PG2、PG3、PG4之一。但该程序段有一个明显的错误，为此应当做以下修改______。

A)增加STORE " " TO ANS 作为第一条命令

B)把@ 5,10 SAY "请输入1─4" TO ANS 命令改为 ACCEPT " 请输入1─4" TO ANS

C)把 CX="PG"+ANS+".PRG" 命令中的"+".PRG" 部分去掉

D)把DO &CX 命令的&去掉

54. 执行如下程序

SET TALK OFF

S＝0

I＝1

INPUT "N＝?" TO N

DO WHILE S<＝N

S＝S＋I

I＝I＋1

ENDDO

? S

SET TALK ON

如果输入N值为5，则最后S的显示值是______。

A)1B)3C)5D)6

55. 某程序中有如下程序段：

STORE "" TO PT

@ 5,10 SAY "是否开始打印?(Y/N):"

@ 3,10 GET PT VALID PT $"YN" PICTURE"!"

READ

IF PT="Y"

DO PT.PRG && 打印 ENDIF 如果希望程序执行后能够实现打印输出，则对于程序的提问______。

A)只能输入 YB)只能输入yC)输入Y或yD)可以直接敲回车键

56. 执行如下程序：

STORE "" TO ANS

DO WHILE .T.

CLEAR

@ 3,10 SAY "1.添加2.删除 3.修改 4.退出"

@ 5,15 SAY "请输入选择:" GET ANS

READ

IF TYPE("ANS")="C".AND.VAL(ANS)＜=3.AND.VAL(ANS)＜＞0

PROG= "PROG" +ANS+ ".PRG" DO & PROG

ENDIF

QUIT

ENDDO

如果在"请输入选择:"时，键入4，则系统______。

A)调用子程序PROG4.PRGB)调用子程序&PROG.PRG

C)返回FOXBASE提示状态D)返回操作系统状态

以下57～62题的操作均基于下面条件：

已建立学生数据库STD.DBF，数据库结构为：学号(C,6)，姓名(C,8)，性别(C,2)，出生日期(D)，平均成绩(N,6,2)。用LIST命令显示记录如下：

记录号#学号姓名性别出生日期平均成绩

1021501刘淑敏女10/05/8488.2

2021502杨立宏男03/12/8570.6

3021503马燕女09/23/8467.2

4021504赵雅洁女12/10/8480.8

5021505王力军男11/21/8490.5

57. 依次执行以下命令：

USE STD

姓名="郑小洋"

SKIP 2

? "姓名是: "+姓名

最后一条命令的输出结果是______。

A)姓名是：郑小洋B)姓名是：马燕

C)姓名是：杨立宏D)姓名是：赵雅洁

58. 使用INDEX ON 性别+DTOC(出生日期,1) TO RQ建立索引之后，接着执行LIST命令，所显示记录的姓名顺序是______。

A)王力军、杨立宏、马燕、刘淑敏、赵雅洁

B)马燕、刘淑敏、赵雅洁、王力军、杨立宏

C)杨立宏、王力军、赵雅洁、刘淑敏、马燕

D)刘淑敏、杨立宏、马燕、赵雅洁、王力军

59. 索引文件打开后，下列命令操作中不受索引文件影响的是______。

A) SKIPB) DISPLAY ALLC) FINDD) GO 5

60. 有如下程序段:

USE STD

INDEX ON 性别 TO XB

TOTAL ON性别 TO STD_1

执行以上程序段之后，数据库STD_1.DBF中的记录个数为______。

A)1B)2C)3D)4

61. 上题所生成的数据库STD_1.DBF中被汇总的字段是______。

A)记录个数B)平均成绩

C)平均成绩、出生日期D)平均成绩、出生日期、记录个数

62. 要显示当前记录的学号，姓名，性别，以下命令错误的是______。

A) ? 学号,姓名,性别B) DISPLAY学号,姓名,性别

C) @ 5,10 SAY学号,姓名,性别D) @ 5,10 SAY学号+姓名+性别

二、填空题

1. PUBLIC用于定义______。在本次Visual FoxPro运行期间，所有过程都可以使用这些变量。

2. VFP根据表达式的______来确定表达式的类型。

3. 命题“n是小于正整数k的偶数”用逻辑表达式表示是______。

4. PRIVATE用于定义______，它用于定义当前过程的变量，并将以前过程定义的同名变量保存起来，在当前过程中使用该变量而不影响这些同名变量的原始值。

5. 有程序段如下：

STORE 0 TO X,Y

DO WHILE.T.

X=X+1

Y=Y+X

IF X＞=100

EXIT

ENDIF

ENDDO

? "Y="+STR(Y,3)

这个程序是计算     [1]     的,执行后的结果是     [2]     。

6. 请阅读下列判断一个自然数是否为质数的程序，并将程序填写完整。

SET TALK OFF

INPUT"请输入一个大于1的自然数: "TO N

K=0 &&K的值为0表示所输入的自然数是质数,为1表示不是质数

J=2

DO WHILE J

IF MOD(N,J)     [1]    

    [2]    

LOOP

ELSE

K=1

EXIT

ENDIF

ENDDO

IF K=0

?     [3]     +" 是质数"

ENDIF

? "再见！！"

SET TALK ON

RETURN

7. 下面的函数通过参数a、b、c接收一元二次方程ax2+bx+c=0的三个系数，并求解这个方程：如果有实根,通过参数x1和x2返回它的两个根，函数的返回值为.T.；如果没有实根或出现其他异常情况，函数的返回值为.F.，请填空。

PARAMETERS a,b,c,x1,x2

IF a =0

RETURN .F.

ENDIF

Delta=b*b-4*a*c

IF delta<0

    [1]    

ENDIF

x1= [ 2]

x2=(-b-SQR(delta))/(2*a)

RETURN .T.

8. 有如下FoxBASE程序：

*SUB.PRG

PARAMETERS R,A

PI=3.14

A=PI*R*R

RETURN

在命令状态下执行了如下命令序列：

AREA=0

__________________

? AREA

最后一条命令执行后显示的结果是12.56，请填空。

9. 设数据库文件PHONE.DBF中包含了“姓名”,“电话”和“地址”三个字符型字段。以下程序的功能是按用户输入的任一电话号码进行查找，如果存在该号码，则显示其单位地址，关闭文件并结束程序。请将程序补充完整。

SET TALK OFF

USE PHONE

CLEAR

DO WHILE .T.

PHN=SPACE(8)

@ 10,20 SAY"电话号码："     [1]    

READ

LOCATE FOR PHN=电话

IF FOUND( )

@ 12,20 SAY"单位地址："+ 地址

    [2]    

ENDIF

ENDDO

CLOSE ALL

SET TALK ON

RETURN

10. 在青年歌手大赛中，歌手的得分情况由GS.DBF和PW.DBF两个数据库(除“最后得分”字段以外，其余字段已存放了相应数据)进行统计。

评委数据库PW.DBF中放有10个评委给每位歌手所打的分数，数据库结构为：

歌手编号(C，4)，评委1(N，5，2)，评委2(N，5，2)，…，评委10(N，5，2)

歌手数据库GS.DBF中存有每位歌手的基本情况和最后得分，数据库结构为：

歌手编号(C，4)，姓名1(C，8)，选送地区(C，20)，最后得分(N，5，2)

1)以下程序的功能是根据10个评委所给分数，计算并填写“最后得分”字段，具体计算方法是去掉一个最高分，去掉一个最低分，再对其余得分求平均。请填空：

SELECT 0

USE GS

INDEX ON 歌手编号 TO GS

SELECT 0

USE PW

SET RELATION TO 歌手编号 INTO GS

GO TOP

DO WHILE     [1]    

SCATTER TO TEMP

I=2

STORE TEMP(2) TO PMIN, PMAX, S

DO WHILE     [2]    

I=I+1

S=S+TEMP(I)

DO CASE

CASE TEMP(I)>PMAX

PMAX= TEMP(I)

CASE TEMP(I)

PMIN= TEMP(I)

    [3]    

ENDDO

SELECT GS

REPLACE 最后得分 WITH     [4]    

    [5]    

    [6]    

ENDDO

2)将GS.DBF按“最后得分”字段由高到低排序，“最后得分”相同时，按歌手编号升序建立排序文件GSPX.DBF的命令是______。

3)计算GS.DBF中所有歌手“最后得分”的平均值，并将结果保存在变量PJ中的命令是______。

4)以下程序是根据GS.DBF中“选送地区”字段的前两个汉字是否为“北京”而使用PROG1.PRG和PROG2.PRG进行不同的处理：

……

IF LEFT(选送地区,4)="北京"

DO PROG1

ELSE

DO PROG2

ENDIF

……

以上程序段中的判断条件LEFT(选送地区，4)= "北京"，也可以用函数SUBSTR或AT描述。使用SUB函数描述时，判断条件可改写为     [1]     ；使用AT函数描述时，判断条件可改写为     [2]     。

11. 有如下售书数据库BOOK.DBF，BOOK.DBF中的记录如下：

书号单价数量总计

B0168 19.8 3

B6915 12.6 36

B9023 40.0 100

B4682 18.0 40

B6329 28.0 56

B8127 2.0 20

要逐条计算总计并填入“总计”字段之中,计算按照如下规则:

若数量小于等于10,总计等于“单价*数量”

若数量大于50, 总计等于“单价*数量*(1-5/100)”

若数量在11与50之间,总计等于“单价*数量(1-10/100)”

请填空:

SET TALK OFF

USE BOOK

GO TOP

DO WHILE     [1]    

DO CASE

CASE 数量<=10

REPLACE 总计 WITH单价*数量

CASE     [2]    

REPLACE 总计 WITH 单价*数量*(1-10/100)

CASE 数量>50

REPLACE 总计 WITH 单价*数量*(1-5/100)

ENDCASE

    [3]    

ENDDO

LIST

USE

SET TALK ON

RETURN

12. 售书数据库BOOK.DBF(如上题所示)，现需要调整一些书的单价，然后用调整后的“单价*数量”的值填入“总计”字段，下边程序的功能是根据用户输入的书号查找到记录，并由用户决定是否对该记录进行修改，请填空：

SET TALK OFF

USE BOOK

INDEX ON 书号 TO BOOKI

DO WHILE .T.

CLEAR

DISP ALL FIELDS 书号

ACCEPT"请输入书号" TO BNO

    [1]    

IF FOUND()

DISPLAY

ACCEPT"修改/不修改继续/终止程序(Y/N/E) " TO SR

ELSE

ACCEPT"书号不存在!继续/终止程序(N/E) " TO SR

ENDIF

DO CASE

CASE UPPER(SR)= "Y"

INPUT"请输入新单价: " TO XDJ

REPLACE     [2]     ,总计 WITH 单价*数量

CASE UPPER(SR)= "N"

    [3]    

CASE UPPER(SR)= "E"

    [4]    

ENDCASE

ENDDO

USE

SET TALK ON

RETURN

13. 下面程序的功能是修改P2.DBF中记录内容，为了避免破坏数据库数据，先把记录内容存入数组BUFFER中，用户先对数组进行修改，确定修改后，再把数组中的数据存入数据库中，请填空：

SET TALK OFF

DIMENSION BUFFER(3)

STORE"Y"TO ANS, CON

USE P2

DO WHILE UPPER(CON)= "Y"

CLEAR

@ 2,5 SAY"修改第几条记录? "

    [1]    

GO RNO

SCATTER TO BUFFER

@ 4,10 SAY"学号"GET BUFFER(1)

@ 6,10 SAY"姓名"GET BUFFER(2)

@ 8,10 SAY"所属系"GET BUFFER(3)

    [2]    

ACCEPT"确实修改记录吗?(Y/N) "TO ANS

IF UPPER(ANS)= "Y"

    [3]    

ENDIF

ACCEPT"继续吗?(Y/N) "TO CON

ENDDO

USE

SET TALK ON

RETURN

14. 设有Student.DBF(学号，姓名，民族)和score.DBF (学号，成绩)两个数据库，要在它们之间建立逻辑连接，然后为每个少数民族考生的成绩增加5分，最后显示全体考生的学号、姓名和成绩。请对如下程序填空：

SET TALK OFF

SELECT 1

USE student

    [1]     TO inx

SELECT 2

USE score

SET RELATION TO     [2]    

REPLACE 成绩 WITH     [3]     FOR     [4]    

LIST 学号，     [5]     ，成绩

SET RELATION TO

CLOSE DATA

SELECT 1

SET TALK OFF

RETURN

15. 下面是一个口令设置程序，请在其中填空，完成此程序。

SET TALK OFF

CLEAR

PASS= "ABCDEFG"

PASSWORD= ""

@ 10,20 SAY "请输入口令:"

SET CONSOLE     [1]    

ACCEPT TO PASSWORD

SET CONSOLE     [2]    

IF PASSWORD＜＞PASS

? CHR(7)

WAIT"口令输入错误!敲任何键退出。"

QUIT

ELSE

? "欢迎使用本系统!"

P=INKEY(3)

ENDIF

DO ZXT &&执行相应程序。

RETURN