第五章结构化程序设计

1、第五章 结构化程序设计一、选择题1、WAIT命令用于让用户输入一个 。A)数字 B)字符 C)字符串 D)以上都是2、在交互式输入命令中，可以接受逻辑型数据的命令包括_。 A)INPUT和ACCEPT B)WAIT和INPUT C)INPUT和GET D)INPUT和SAY3、执行命令 ACCEPT请输入数据:TO XYZ 时,可以通过键盘输入的内容包括_。 A)字符串 B)数值和字符串C)数值,字符串和逻辑值 D)数值,字符串,逻辑值和表达式4、执行命令INPUT请输入数据:TO AAA时,如果要通过键盘输入字符串,应当使用的定界符包括_。A)单引号 B)单引号或双引号C)单引号、双引号或方

2、括弧 D)单引号、双引号、方括弧或圆点5、在VFP中,可以通过键盘接受数值的命令有_。 A)ACCEPT B)ACCEPT和WAITC)INPUT和ACCEPT D)INPUT和 5,10 SAY.GET.6、比较WAIT、ACCEPT和INPUT三条命令，需要以回车键表示输入结束的命令是_。 A)WAIT、ACCEPT、INPUT B)WAIT、ACCEPTC)ACCEPT、INPUT D)INPUT、WAIT7、以下关于ACCEPT命令的说明，正确的是_。 A)将输入作为字符接收 B)将输入作为数值接收C)将输入作为逻辑型数据接收 D)将输入作为备注型接收8、结构化程序设计所规定的三种基本

3、控制结构是_。 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

4、X 事先定义C)必须用DIMENSION X(5)事先定义 D)必须用DIMENSION X(1),X(2),X(3),X(4),X(5)事先定义12、要判断数值型变量Y是否能够被7整除,错误的条件表达式为_。 A)MOD(Y,7)=0 B)INT(Y/7)=Y/7 C)0=MOD(Y,7) D)INT(Y/7)=MOD(Y,7)13、在VFP中,命令文件的扩展名是_。 A)TXT B)PRG C)DBT D)FMT14、以下有关VFP中过程文件的叙述,其中正确的是_。 A)先用SET PROCEDURE TO 命令关闭原来已打开的过程文件,然后用DO <过程名>执行B)可直接用D

5、O <过程名>执行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)PARAMETER B)DO <过程名>C

6、) <过程名> D)PROCEDURE <过程名>17、在下列命令组合中，不能配对使用的是_。A) PROMPT 和 MENU TO B)DO WITH和 PARAMETERSC)IF和 ENDIF D)DO CASE和 ENDDO18、在VFP中，用于建立或修改过程文件的命令是_。 A)MODIFY <文件名> B)MODIFY COMMAND <文件名>C)MODIFY PROCEDURE <文件名> D)CREATE COMMAND <文件名>19、在VFP中，可以在同种类型的数据之间进行“-”(减号)运算的数据类型

7、是_。 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)

8、程序不会出现死循环C)用EXIT可以跳出循环 D)用LOOP可以跳出循环22、用户自定义函数或过程中接受参数，应使用 命令。A) PROCEDURE B) FUNCTION C)WHILE D)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的值

9、互换。A)A=B B)A= (A+B)/2 C)A=A+B D)A=CB=A B= (A-B)/2 B=A-B C=B A=A-B B=C27、结构化程序设计的三种基本逻辑结构是_。 A)选择结构、循环结构和嵌套结构 B)顺序结构、选择结构和循环结构 C)选择结构、循环结构和模块结构 D)顺序结构、递归结构和循环结构 28、如果一个过程不包含RETURN语句，或RETURN语句中没有指定表达式，那么该过程_。A)没有返回值 B)返回0 C)返回.T. D)返回.F.29、作为整个应用程序入口点的主程序至少应具有以下功能_。A)初始化环境 B)初始化环境、显示初始的用户界面、控制事件循环，退出时

10、恢复环境 C)初始化环境、显示初始用户界面 D)初始化环境、显示初始用户界面、控制事件循环30、下面关于过程调用的陈述中，_是正确的。A)实参与形参的数量必须相等 B)当实参的数量多于形参的数量时，出现运行时错误。C)当形参的数量多于实参的数量时，多余的实参为逻辑假 D)上面B和C都对 31、将内存变量定义为全局变量的Visual FoxPro命令是_。A)LOCAL B)PRIVATE C)PUBLIC D)GLOBAL32、下列说法中正确的是_。 A)若函数不带参数，则调用时函数名后面的圆括号可以省略B)函数若有多个参数，则参数名间应用空格隔开C)调用函数时，参数的类型、个数和顺序不一定要

11、一致D)调用函数时，函数名后的圆括号不论有无参数都不能省略33、在VFP中,已经建立了一个过程文件ABC.PRG,打开此过程文件的命令是 。A) OPEN PROCEDURE TO ABC B) DO PROCEDURE ABCC) SET PROCEDURE TO ABC D) RUN PROCEDURE ABC34、顺序键入以下命令： STORE 21.47TO A B=INT(&A+4) ? B 屏幕上显示的结果为 。A)24 B)25 C)25.47 D)21.47435、设数据库文件STD.DBF中包含8个字段，并有以下命令序列： DIMENSION DATA(10) USE

12、 STD SCATTER TO DATA ? DATA(10) 执行以上命令序列后，屏幕显示的结果是 。A)空 B).T. C).F. D)036、有以下命令序列： STORE 123.456 TO A STORE STR(A+A,5) TO B ? LEN(B),B 执行以上命令序列,最后一条命令显示的结果是 。A)3 123 B)3 264 C)5 246 D)5 24737、给出以下程序的运行结果： SET TALK OFFX=0Y=0 DO WHILE X<100 X=X+1 IF INT(X/2)=X/2 LOOPELSE Y=Y+XENDIFENDDO? "Y=&q

13、uot;,YRETURN运行结果为_。A) Y=500 B) Y=1500 C) Y=2000 D) Y=2500 38、有如下两个程序段: *程序段 1*程序段 2*USE CLASSUSE CLASSLOCATE FOR 政治面目="团员" LOCATE FOR 政治面目="团员"DO WHILE FOUND() DO WHILE政治面目="团员"DISPLAYDISPLAYCONTINUESKIPENDDOENDDO若在完全相同的环境下分别执行上面的两个程序段，则_。A)程序段2输出的记录不可能比程序段1输出的记录多B)程序段1

14、输出的记录不可能比程序段2输出的记录多C)程序段1和程序段2输出的记录一样多D)无法判定39、在使用命令进行格式化输入时,为了保证只输入字母,应该在PICTURE短语中使用模式符_。A)A B)X C)N D)Z40、有如下程序段: DO CASECASE X>100?1CASE X>200?2OTHERWISE?3ENDCASE若在X=300的情况下执行这个程序段，屏幕上将显示_。A)1B)2C)12D)341、有如下命令序列: X=AY=XA=黄河长江？ X+&X-Y-&Y执行以上命令序列后，屏幕显示表达式X+&X-Y-&Y的结果是_。A)黄河长

15、江 B)A黄河长江A黄河长江 C)A黄河长江A D)A黄河长江黄河长江42、有如下命令序列： SET DELETED ON USE ABC GO 3 DELETE NEXT 2 GO 4 RECALL USE 执行最后一条RECALL命令时，去掉删除标记的记录个数是_。A)0 B)1 C)2 D)343、已知proc.prg程序清单如下： proc_1.prg程序清单如下： SET TALK OFF PARAMETERS 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

16、WITH a-2,b RETURN RETURN程序proc.prg的功能是_。A)输出20以内偶数的乘积 B)输出20以内奇数的乘积 C)输出结果为1 D)输出结果为044、有如下命令序列: SELECT 1USE F1SELECT 2USE F2SELECT 1SET RELATION TO RECNO()-2 INTO BGOTO 5?RECNO(2)最后一条命令的输出结果是 。A)5 B)4 C)3 D)145、清除屏幕从10行,17列到14行,52列的正确语句是 。 A)10,17 TO CLEAR 14,52 B)10,17 CLEAR 14,52C)10,17 TO 14,52

17、CLEAR D)CLEAR FROM 10,17 TO 14,5246、有如下命令序列 SELECT 1USE FILE1SELECT 2USE FILE2SELECT 3USE FILE 3执行以上命令序列后,要想向FILE2.DBF中追加记录,同时保持数据库打开的状态不变,应当使用命令 。A) USE FILE2 B) GO FILE2 C) SELECT 2 D) SELECT 4 APPEND APPEND APPEND USE FILE2 APPEND47、有如下命令DISPLAY 姓名,出生日期 FOR 性别=女执行这个命令后,屏幕显示的是所有性别字段值为“女”的记录,这时文件指针

18、_。A)指向最后一个性别为女的记录B)指向最后一个性别为女的记录的下一个记录C)指向文件尾D)状态视库文件中数据记录的实际情况而定48、有如下命令序列 CLEAR MEMORYDIMENSION ARRAY(10)LIST MEMORY最后一条命令显示定义的内存变量的数是 。A)10 B)1 C)0 D)1149、在命令文件中,调用另一个命令文件用命令 。 A) CALL <命令文件名> B) LOAD <命令文件名>C) PROCEDURE <命令文件名> D) DO <命令文件名>50、执行下列语句序列 A=2200DO CASE CASE

19、A<1000 B=5/100CASE A>1000 B=10/100CASE A>2000 B=15/1000CASE A>3000 B=20/100ENDCASE变量B的值是 。A)0.05 B)0.10 C)0.15 D)0.2051、有以下程序段:DO CASECASE 计算机<60 ?计算机成绩是:+不及格CASE 计算机>=60 ?计算机成绩是:+及格CASE 计算机>=70 ?计算机成绩是:+中CASE 计算机>=80 ?计算机成绩是:+良CASE 计算机>=90 ?计算机成绩是:+优ENDCASE 设学生数据库当前记录的“计算

20、机”字段的值是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 "请输

21、入14" GET ANS READ CX="PG"+ANS+".PRG" DO &CX 其功能是根据用户输入的数字,转去执行子程序PG1、PG2、PG3、PG4之一。但该程序段有一个明显的错误,为此应当做以下修改 。A)增加STORE " " TO ANS 作为第一条命令B)把 5,10 SAY "请输入14" TO ANS 命令改为 ACCEPT " 请输入14" TO ANSC)把 CX="PG"+ANS+".PRG" 命令中的&qu

22、ot;+".PRG" 部分去掉 D)把DO &CX 命令的&去掉54、执行如下程序 SET TALK OFF S0 I1 INPUT "N?" TO N DO WHILE S<N SSI II1 ENDDO ? S SET TALK ON 如果输入N值为5,则最后S的显示值是 。A)1 B)3 C)5 D)655、某程序中有如下程序段: STORE "" TO PT 5,10 SAY "是否开始打印?(Y/N):" 3,10 GET PT VALID PT $"YN" PI

23、CTURE"!" READ IF PT="Y" DO PT.PRG && 打印 ENDIF 如果希望程序执行后能够实现打印输出，则对于程序的提问 。 A)只能输入 Y B)只能输入y C)输入Y或y D)可以直接敲回车键56、执行如下程序: STORE "" TO ANS DO WHILE .T. CLEAR 3,10 SAY "1.添加2.删除 3.修改 4.退出" 5,15 SAY "请输入选择:" GET ANS READ IF TYPE("ANS")=

24、"C".AND.VAL(ANS)=3.AND.VAL(ANS)0 PROG= "PROG" +ANS+ ".PRG" DO & PROG ENDIF QUIT ENDDO 如果在"请输入选择:"时，键入4，则系统 。A)调用子程序PROG4.PRG B)调用子程序&PROG.PRGC)返回FOXBASE提示状态 D)返回操作系统状态以下5762题的操作均基于下面条件：已建立学生数据库STD.DBF，数据库结构为：学号(C,6)，姓名(C,8)，性别(C,2)，出生日期(D)，平均成绩(N,6,2)。

25、用LIST命令显示记录如下：记录号#学号 姓名 性别 出生日期 平均成绩1 021501刘淑敏女10/05/8488.22 021502杨立宏男03/12/8570.63 021503马燕 女09/23/8467.24 021504赵雅洁女12/10/8480.85 021505王力军男11/21/8490.557、依次执行以下命令： USE STD姓名="郑小洋"SKIP 2?姓名是:+姓名最后一条命令的输出结果是 。A)姓名是：郑小洋 B)姓名是：马燕 C)姓名是：杨立宏D)姓名是：赵雅洁58、使用INDEX ON 性别+DTOC(出生日期,1) TO RQ建立索引之后

26、，接着执行LIST命令，所显示记录的姓名顺序是 。 A)王力军、杨立宏、马燕、刘淑敏、赵雅洁B)马燕、刘淑敏、赵雅洁、王力军、杨立宏C)杨立宏、王力军、赵雅洁、刘淑敏、马燕D)刘淑敏、杨立宏、马燕、赵雅洁、王力军59、索引文件打开后，下列命令操作中不受索引文件影响的是 。 A) SKIPB) DISPLAY ALL C) FINDD) GO 560、有如下程序段: USE STDINDEX ON 性别 TO XBTOTAL ON性别 TO STD_1执行以上程序段之后，数据库STD_1.DBF中的记录个数为 。A)1B)2C)3D)461、上题所生成的数据库STD_1.DBF中被汇总的字段是

27、。 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用于定义 ，它用于定义当前过程的变量，并将以前过程定义的同名变量保存起来，在当前过

28、程中使用该变量而不影响这些同名变量的原始值。 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 OFFINPUT请输入一个大于1的自然数:TO NK=0 &&K的值为0表示所输入的自然数是质数,为1表示不是质数J=2DO WHILE J<N IF MOD(N,J) 1 2 LOOP ELSE K=

29、1 EXIT ENDIFENDDOIF K=0 ? 3 +" 是质数" ENDIF ? "再见！"SET TALK ONRETURN7、下面的函数通过参数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-SQ

30、R(delta)/(2*a) RETURN .T.8、有如下FoxBASE程序： *SUB.PRGPARAMETERS R,API=3.14A=PI*R*RRETURN在命令状态下执行了如下命令序列：AREA=0 ? AREA最后一条命令执行后显示的结果是12.56，请填空。9、设数据库文件PHONE.DBF中包含了“姓名”,“电话”和“地址”三个字符型字段。以下程序的功能是按用户输入的任一电话号码进行查找，如果存在该号码，则显示其单位地址,关闭文件并结束程序。请将程序补充完整。SET TALK OFFUSE PHONECLEARDO WHILE .T.PHN=SPACE(8) 10,20 S

31、AY电话号码： 1 READLOCATE FOR PHN=电话IF FOUND() 12,20 SAY单位地址：+ 地址 2 ENDIFENDDOCLOSE ALLSET TALK ONRETURN10、在青年歌手大赛中，歌手的得分情况由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，

32、8)，选送地区(C，20)，最后得分(N，5，2)1)以下程序的功能是根据10个评委所给分数，计算并填写“最后得分”字段，具体计算方法是去掉一个最高分，去掉一个最低分，再对其余得分求平均。请填空：SELECT 0USE GSINDEX ON 歌手编号 TO GSSELECT 0USE PWSET RELATION TO 歌手编号 INTO GSGO TOPDO WHILE 1 SCATTER TO TEMPI=2STORE TEMP(2) TO PMIN, PMAX, SDO WHILE 2 I=I+1S=S+TEMP(I)DO CASECASE TEMP(I)>PMAXPMAX= TE

33、MP(I)CASE TEMP(I)<PMINPMIN= TEMP(I) 3 ENDDOSELECT GSREPLACE 最后得分 WITH 4 5 6 ENDDO2)将GS.DBF按“最后得分”字段由高到低排序，“最后得分”相同时，按歌手编号升序建立排序文件GSPX.DBF的命令是 。3)计算GS.DBF中所有歌手“最后得分”的平均值，并将结果保存在变量PJ中的命令是 。4)以下程序是根据GS.DBF中“选送地区”字段的前两个汉字是否为“北京”而使用PROG1.PRG和PROG2.PRG进行不同的处理：IF LEFT(选送地区,4)="北京"DO PROG1ELSED

34、O PROG2ENDIF以上程序段中的判断条件LEFT(选送地区，4)=北京，也可以用函数SUBSTR或AT描述。使用SUB函数描述时，判断条件可改写为 1 ；使用AT函数描述时，判断条件可改写为 2 。11、有如下售书数据库BOOK.DBF，BOOK.DBF中的记录如下：书号 单价 数量 总计B0168 19.8 3B6915 12.6 36B9023 40.0 100B4682 18.0 40B6329 28.0 56B8127 2.0 20要逐条计算总计并填入“总计”字段之中,计算按照如下规则:若数量小于等于10,总计等于“单价*数量”若数量大于50, 总计等于“单价*数量*(1-5/1

35、00)”若数量在11与50之间,总计等于“单价*数量(1-10/100)”请填空:SET TALK OFFUSE BOOKGO TOPDO WHILE 1 DO CASECASE 数量<=10REPLACE 总计 WITH单价*数量CASE 2 REPLACE 总计 WITH 单价*数量*(1-10/100)CASE 数量>50REPLACE 总计 WITH 单价*数量*(1-5/100) ENDCASE 3 ENDDOLISTUSESET TALK ONRETURN12、售书数据库BOOK.DBF(如上题所示),现需要调整一些书的单价,然后用调整后的“单价*数量”的值填入“总计”

36、字段，下边程序的功能是根据用户输入的书号查找到记录,并由用户决定是否对该记录进行修改，请填空：SET TALK OFFUSE BOOKINDEX ON 书号 TO BOOKIDO WHILE .T.CLEARDISP ALL FIELDS 书号ACCEPT请输入书号TO BNO 1 IF FOUND()DISPLAYACCEPT修改/不修改继续/终止程序(Y/N/E) TO SRELSEACCEPT书号不存在!继续/终止程序(N/E) TO SRENDIFDO CASECASE UPPER(SR)=YINPUT请输入新单价: TO XDJREPLACE 2 ,总计 WITH 单价*数量 CAS

37、E UPPER(SR)=N 3 CASE UPPER(SR)=E 4 ENDCASEENDDOUSESET TALK ONRETURN13、下面程序的功能是修改P2.DBF中记录内容，为了避免破坏数据库数据,先把记录内容存入数组BUFFER中,用户先对数组进行修改,确定修改后,再把数组中的数据存入数据库中，请填空：SET TALK OFFDIMENSION BUFFER(3)STOREYTO ANS, CONUSE P2DO WHILE UPPER(CON)=YCLEAR 2,5 SAY修改第几条记录? 1 GO RNOSCATTER TO BUFFER 4,10 SAY学号GET BUFFE

38、R(1) 6,10 SAY姓名GET BUFFER(2) 8,10 SAY所属系GET BUFFER(3) 2 ACCEPT确实修改记录吗?(Y/N)TO ANSIF UPPER(ANS)=Y 3 ENDIFACCEPT继续吗?(Y/N)TO CONENDDOUSESET TALK ONRETURN14、设有Student.DBF(学号，姓名，民族)和score.DBF (学号，成绩)两个数据库，要在它们之间建立逻辑连接，然后为每个少数民族考生的成绩增加5分，最后显示全体考生的学号、姓名和成绩。请对如下程序填空：SET TALK OFFSELECT 1USE student 1 TO inx SELECT 2USE scoreSET RELATION TO 2 REPLACE 成绩 WITH