第九章习题.doc

第九章 结构化程序设计一、选择题1. 组成 VISUAL FOXPRO应用程序的基本结构是( B )。A. 顺序结构、分支结构和模块结构B. 顺序结构、分支结构和循环结构 C. 逻辑结构、物理结构和程序结构D. 分支结构、重复结构和模块结构2. 用于修改、建立、运行与打印程序文件的VISUAL FOXPRO命令依次是( D )。A. CREATE,MODIFY,DO和PRINTB. MODI COMM,MODI COMM,DO和PRINTC. MODI COMM,MODI COMM,RUN和TYPED. MODI COMM,MODI COMM,DO和TYPE3. 在VISUAL FOXPRO中，命令文件的扩展名是(B )。A. TXTB. PRGC. DBFD. FMT4. 在SAY语句中，GET子句的变量必须用( C)命令激活。A.ACCEPTB.INPUTC.READD.WAIT5. 用于声明某变量为全局变量的命令是( C )。A.WAITB.PRIVATEC.PUBLICD.PARAMETERS6. 可使程序单步执行的命令是(C )。A.SET ESCAPE ONB.SET DEBUG ONC.SET STEP OND. SET TALK ON7. 能接受一位整数并存放到内存变量Y中的正确命令是( C)。A.WAIT TO YB.ACCEPT TO YC.INPUT TO YD.10,10 SAY Y PICTURE “9”8. VISUAL FOXPRO中的DO CASEENDCASE语句属于( C )。A.顺序结构B.循环结构C.分支结构D.模块结构9. 在“先判断后工作”的循环程序结构中，循环体执行的次数最少可以是( A)。A.0B.1C.2D.不确定10. 若将过程或函数放在过程文件中，可以在应用程序中使用( A)命令打开过程文件。A.SET PROCEDURE TO B.SET FUNCTION TO C.SET PROGRAM TO D.SET ROUTINE TO 11. 在VISUAL FOXPRO程序中，注释行使用的符号是( B )。A./B.*C.D. 12. 以下有关VISUAL FOXPRO过程文件的叙述，其中正确的是(C )。A.过程文件中只允许包含过程B.可直接用DO执行过程。C.先用SET PROCEDURE TO命令打开过程文件，然后用DO执行过程。D. 先用SET PROCEDURE TO命令关闭原来已打开的过程文件，然后用DO执行过程。13. 在数据库应用系统中，为保证数据安全通常使用口令程序。要使输入的口令不在屏幕上显示，在口令输入命令的前后应分别使用( B)命令。A.SET TALK OFF和SET TALK ON B.SET CONSOLE OFF和SET CONSOLE ONC.SET CONSOLE ON 和 SET CONSOLE OFFD.SET DELETED OFF和SET DELETED ON14. VISUAL FOXPRO循环结构程序设计中，在指定范围内扫描表文件，查找满足条件的记录并执行循环体中的操作命令，应使用的循环语句是(C )。A.FORB.WHILEC.SCAND.以上都可以15. 不能输出字符型变量X值的是( B)。A. 10,10 SAY XB. ? &XC. 10,10 GET XD. 10,10 SAY “X=” GET X16. 设有下列程序：SET TALK OFFCLEARUSE GZDO WHILE !EOF( )IF 基本工资=800SKIPLOOPENDIFDISPLAYSKIPENDDOUSERETURN该程序实现的功能是(B )。A.显示所有基本工资大于800元的职工信息B.显示所有基本工资低于800元的职工信息C.显示第一条基本工资大于800元的职工信息D.显示第一条基本工资低于800元的职工信息17. 执行下列程序：SET TALK OFFSTORE 0 TO X,YDO WHILE X=1A(K)=A(K)-A(K+1)K=K-1ENDDO? A(2),A(4),A(6)SET TALK ONRETURNA.12 15 18B.18 12 15C.18 15 12D.15 18 1221. LOOP语句不能出现在仅有（ B）语句的程序段中。A.DOENDDOB.IFENDIFC.FORENDFORD.SCANENDSCAN22. 程序如下：SET TALK OFFS=0I=1DO WHILE IZF=0DO WHILE .NOT. ENF( )M-ZF=M-ZF+ZFSKIPENDDO? M-ZFRETURNA.800.00B.500.00C.300.00D.200.0024. 有如下VISUAL FOXPRO程序：*主程序ZCX.PRGSET TALK OFFK1=25? K1DO ZCX1? K1RETURN*子程序ZCX1.PRGK1=K1+500RETURN ( C )A.25B.25C.25D.25500525255002525. 设表文件XSCJ.DBF中有8000条记录，其文件结构是：姓名（C，8），成绩（N，5，1）。此时若运行以下程序，屏幕上将显示（A ）。SET TALK OFFUSE XSCJJ=0DO WHILE .NOT. EOF( )J=J+成绩SKIPENDDO? 平均分：+STR(J/8000，5，1)RETURNA.平均分：XXX.X(X代表数字)B.数据类型不匹配C.平均分：J/8000D.字符串溢出26. 执行如下程序：STORE “” TO ANSDO WHILE .T.CLEAR 3,10 SAY “1.添加 2.删除 3.修改 4.退出” 5,15 SAY “请输入选择：” GET ANSREADIF VAL(ANS)=3 .AND. CAL(ANS)0PROG=“PROG”+ANS+“.PRG”DO &PROGENDIFQUITENDDORETURN如果在屏幕显示“请输入选择：”时，输入4，则系统将（D ）。A.调入子程序PROG4.PRGB.调用子程序&PROG.PRGC.返回VISUALFOXPRO主窗口D.返回操作系统状态27. 有如下VISUAL FOXPRO程序：*主程序：Z.PRGSET TALK OFFSTORE 10 TO X1，X2，X3X1=X1+1DO Z1? X1+X2+X3RETURNSET TALK ONRETURN*子程序：Z1.PRGX2=X2+1DO Z2X1X11RETURN*子程序：Z2.PRGX3=X3+1RETURN TO MASTER执行命令DO Z后，屏幕上显示的结果为（A ）。A.33B.32C.31D.3028. 下列程序的运行结果是（A ）。STORE 0 TO M,NDO WHILE M10? “OK1”CASE X20? “OK2”OTHERWISE? “OK3”ENDCASEA. “OK1”B. OK1C. OK2D. OK331. 当前盘当前目录下有数据库d b_stock，其中有数据库表stock.dbf，该数据库表的内容是：股票代码股票名称单价交易所 600600青岛啤酒748上海 600601方正科技1520上海 600602广电电子1040上海 600603兴业房产1276上海 600604二纺机996上海 600605轻工机械1459上海 000001深发展748深圳 000002深万科1250深圳 执行下列程序段以后，内存变量a的内容是(C)。CLOSEDATABASE a=0 USEstock GOTOP DOWHILE.NOT.EOF() IF单价10 a=a+1 ENDIF SKIP ENDDO A.1B.3C.5D.732. 要连编程序，必须通过(B)。 A.程序编辑器B.项目管理器C.应用程序生成器D.数据库设计器33. 如果将一个数据表设置为包含状态，那么系统连编后，该数据表将(D)。A.成为自由表B.包含在数据库之中C.可以随时编辑修改D.不能编辑修改34. 通过连编可以生成多种类型的文件，但是却不能生成(A)。A.PRG文件B.APP文件C.DLL文件D.EXE35. 不能出现在结构化编程的程序语句(例如IFENDIF，DOCASEENDCASE，DOWHILEENDDO、FOR.ENDFOR等语句)中的语句是(B)。A.CreateObject()函数调用B.DEFINECLASS命令C.对象的方法调用语句D.访问对象属性的语句36. 下面语句(B)的格式是正确的。A.10，10，20，20CLEARB.10，10C.10.10，D.CLEARFROM10，10TO20，2037. 有关SCAN循环结构，叙述正确的是(B)。A.SCAN循环结构中的LOOP语句，可将程序流程直接指向循环开始语句SCAN，首先判断EOF()函数的真假B.在使用SCAN循环结构时，必须打开某一个数据库C.SCAN循环结构的循环体中必须写有SKIP语句D.SCAN循结构，如果省略了子句、FOR和WHILE条件子句,则直接退出循环38. 有关FOR循环结构，叙述正确的是(C)。A.对于FOR循环结构，循环的次数是未知的B.FOR循环结构中，可以使用EXIT语句，但不能使用LOOP语句C.FOR循环结构中，不能人为地修改循环控制变量，否则会导致循环次数出错D.FOR循环结构中，可以使用LOOP语句，但不能使用EXIT语句39. 有关SAYGET语句中的功能符和格式符的使用正确的是（D）。A.PICTURE指定的功能符是位对位进行格式控制，即一对一格式化，功能符使用时不用字符定界符B.FUNCTION子句指定的格式符能控制所有位的格式，即整体格式化，格式符使用时要用字符定界符C.FUNCTION子句既可以使用格式符也可以使用功能符，格式符前面必须加符号二者之间用空格分开D.PICTURE子句既可以使用格式符也可以使用功能符，功能符前面必须加符号。且要求功能符在前，格式符在后40. 有关参数传递叙述正确的是(C)。A.接收参数语句PARAMETERS可以写在程序中的任意位置B.通常发送参数语句DOWITH和接收参数语句PARAMETERS不必搭配成对，可以单独使用。C.发送参数和接收参数排列顺序和数据类型必须一一对应D.发送参数和接收参数的名字必须相同41. 下面(D)种调用不能嵌套。A.子程序B.过程C.自定义函数D.无42. 命令10，10CLEAR的清屏范围是第10行第10列至屏幕(B)角。A.右上B.右下C.左上D.左下43. 有关参数传递叙述正确的是(D)。A.在子程序中如果被传递的参数是数组元素，则为引用传递B.在子程序中如果被传递的参数是内存变量，则为用值传递C.在子程序中如果被传递的参数是常量，则为引用传递D.值传递，参数在子程序中的变化不会传递到调用它的主程序变量中，引用传递与其相反44. 设有一个名为GZDBF的表文件，包含以下字段：姓名(C，8)、职务(C，10)、工资(N，6，2)、出生日期(D，8)和正式工(L，1)。阅读以下程序：USEGZ DO WHILENOTEOF() IF职务=工程师.AND出生日期102060 D=出生日期NAME=姓名 SALARY=工资 EXIT ENDIF SKIP ENDDO Y=YER(DATE()-YEAR(D) IF.NOT.EOF() ?NAME，Y，SALARY ELSE ?没查到! ENDIF USE RETURN 该程序的功能是(A)A. 显示一位1960年10月20日后出生的工程师姓名，年龄及工资B. 显示一位1960年10月20日后出生的工程师姓名，年龄C. 显示1960年10月20日后出生的工程师姓名，年龄D. 显示所有1960年10月20日后出生的工程师姓名，年龄45. 给出以下程序的运行结果：SET TALKOFF X=0 Y=0 D0WHILEX100 X=X+1 1FINT(X2)=X2 LOOP ELSE Y=Y+X ENDIF ENDDO ?Y=,Y RETURN 运行结果为(D)。A. Y=500B. Y=1500C. Y=2090D. Y=250046. VISUAL FOXPRO中，建立程序文件的命令是（C ）。A.CREATE COMMANDB.CREATE FILEC.MODIFY COMMANDD.MODIFY FILE47. 下列关于修改程序的说法正确的是（D ）。A.打开“项目管理器”，选择要修改的程序文件，单击“修改”按钮B.在“文件”菜单中选择“打开”菜单项，选择“程序”选项，选择要修改的程序C.通过MODIFY COMMAND 来修改程序文件D.以上说法均正确48. 在下述的操作中，不能够执行VISUAL FOXPRO程序文件的是（D ）。A.若程序包含在一个项目中，则在“项目管理器”中选定它并单击“运行”按钮B.在“程序”菜单中选择“运行”命令，在弹出的对话框中选择要运行的程序名C.在命令窗口中，输入DO命令及要运行的程序名D.在“资源管理器”中单击要运行的程序文件（PRG）49. 保存程序文件，可以使用快捷键（C ）。A.CTRL+AB.CTRL+XC.CTRL+WD.CTRL+Q50. 利用DO命令运行下列类型文件时，一定要带扩展名的是（D ）。A.PRGB.APPC.EXED.MPR51. 下列叙述正确的是（B ）。A.INPUT语句只能接收字符串B.ACCEPT语句只能接收字符串C.INPUT语句可以接收任意类型的VISUAL FOXPRO表达式D.WAIT命令只能接收一个字符，必须按ENTER键结束52. 执行命令ACCEPT“请输入数据：” TO W，则可以通过键盘输入的内容是（A ）。A.字符串B.字符串、数值C.字符串、数值和逻辑值D.所有常量和合法表达式53. 执行ACCEPT“请输入一个函数表达式：” TO XYZ，如果通过键盘输入的内容为“LEN(computer)”，则XYZ的值应为（C ）。A.8B. LEN(“computer”)C. “LEN(computer)”D.非法输入54. 结构化程序设计包括的3种基本结构为（D ）。A.顺序结构、分支结构、循环结构B.顺序结构、分支结构、选择结构C.分支结构、选择结构、循环结构D.顺序结构、选择结构、循环结构55. 下列不能出现LOOP和EXIT语句的程序结构是（C ）。A.FOR-ENDFORB.DO WHILE-ENDDOC.IF-ELSE-ENDIFD.SCAN-ENDSCAN56. 下列属于条件语句的是（A ）。A.DO CASE-ENDCASEB.DO WHILE-ENDDOC.FOR-ENDFORD.SCAN-ENDSCAN57. 有关多分支结构DO CASE-ENDCASE的叙述正确的是（B ）。A.当有多个逻辑表达式为真时，执行所有满足条件的CASE之后的语句序列B.当有多个逻辑表达式为真时，只执行第一个满足条件的CASE之后的语句序列C.当有多个逻辑表达式为真时，只执行最后一个满足条件的CASE之后的语句序列D.DO CASE-ENDCASE语句，允许有多个程序段被执行58. 在DO WHILE-ENDO的循环结构中，下列叙述正确的是（B ）。A.循环体中的LOOP和EXIT语句的位置是固定的B.在程序中应加入控制循环结束的语句C.执行到ENDDO时，首先判断表达式的值，然后再返回DO WHILE语句D.循环体中的LOOP语句为跳出循环体59. 有关嵌套的叙述正确的是（D ）。A.循环体内不能含有条件语句B.循环语句不能嵌套在条件语句之中C.嵌套只能一层，否则会导致程序出错D.正确的嵌套中不能交叉60. 有关LOOP语句和EXIT语句的叙述正确的是（D ）。A.LOOP和EXIT语句可以写在循环体之外B.LOOP语句的作用是把控制转到循环体的最后一条结束语句处C.EXIT语句的作用是把控制转到循环体的最后一条结束语句处D.LOOP语句和EXIT语句一般写在循环结构内嵌套的分支结构中61. 下列关于FOR-ENDFOR循环结构叙述不正确的是（B ）。A.循环的次数一般都已定义好B.循环体中的LOOP语句可用来跳出循环体C.循环体中EXIT的位置可以是不固定的位置D.循环体中不应该包含循环变量值的命令62. 执行LOCATE、CONTINUE和DO WHILE-ENDDO语句，相当于下列的（A ）语句。A.SCAN-ENDSCANB.FOR-ENDFORC.DO CASE-ENDCASED.IF-ELSE-ENDIF63. 在执行循环语句时，可利用下列的（A ）语句继续执行循环体。A.LOOPB.SKIPC.EXITD.QUIT64. 如果一个过程中不包含RETURN语句，或者RETURN语句后没有指定表达式，那么该过程的返回值为（B ）。A.0B.T.C.F.D.无返回值65. 有关过程调用，叙述正确的是（D ）。A.打开过程文件时，其中的主过程自动调入内存B.同一时刻只能打开一个过程，打开新过程时，旧的过程自动关闭C.用命令DO WITH 调用过程时，过程文件无需打开，就可调用其中的过程D. 用命令DO WITH IN 调用过程时，过程文件无需打开，就可调用其中的过程66. 用Visual foxpro中，如果希望一个内存变量只限于在本过程中使用，定义这种内存变量的命令是（B ）。A.PUBLICB.LOCALC.可在程序中直接使用该变量，不需要定义D. PRIVATE67. 不需要实现建立就可以使用的变量是（B ）。A.全局变量B.私有变量C.局部变量D.数组变量68. 下面有关局部变量的说法正确的是（D ）。A.在程序中用PRIVATE可建立一个局部变量B.在命令窗口中被赋值得变量是局部变量C.在被调用下级程序中用PUBLIC命令声明的变量是局部变量D.在命令窗口中用LOCAL命令声明的变量是局部变量69. 有关参数传递叙述正确的是（A ）。A.当实参的数量少于形参的数量时，多余的形参初始值为逻辑假B.当实参的数量大于形参的数量时，多余的实参被忽略C.实参和形参的数量必须相等D.选项A、B均正确70. 下列关于接收参数和发送参数的说法，正确的是（C ）。A.接收参数语句PARAMTERS可以写在程序中的任意位置B.通常发送参数语句DO WITH和接收参数语句PARAMTERS不必搭配成对，可以单独使用C.发送参数和接收参数排列顺序与数据类型必须一一对应D.发送参数和接收参数的名字必须相同71. 设某程序中有PROG1.PRG、PROG2.PRG、PROG3.PRG三层程序依次嵌套，下面叙述中正确的是（D ）。A.在PROG1.PRG中用！RUN PROG2.PRG语句可以调用PROG2.PRG子程序B.在PROG2.PRG中用RUN PROG3.PRG语句可以调用PROG3.PRG子程序C. 在PROG3.PRG中用RETURN语句可以返回PROG1.PRG主程序D. 在PROG3.PRG中用RETURN TO MASTER语句可以返回PROG1.PRG主程序72. 下列说法正确的是（D ）。A.在子程序中如果被传递的参数是数组元素，则为引用传递B.在子程序中如果被传递的参数是内存变量，则为按值传递C.在子程序中如果被传递的参数是常量，则为引用传递D.如果按值传递，参数在子程序中的变化不会传递到调用它的主程序中，如果引用传递则刚好相反73. 下列不能释放公共变量的命令为（A ）。A.CLOSE ALLB.RELEASEC. QUITD. CLEAR MEMORY 74. 利用命令调用“调试器”，应使用（A ）。A.DEBUGB.RUN DEBUGC.OPEN DEBUGD.DO DEBUG75. 可以设置表达式类型的断点的窗口是（B ）。A.跟踪窗口B.监视窗口C.局部窗口D.调用堆栈窗口76. 可以控制列表框内显示变量类型的窗口是（C ）。A.跟踪窗口B.监视窗口C.局部窗口D.调用堆栈窗口77. 在调试器中，可以显示当前正在执行的程序、过程、方法程序的窗口是（ D）。A.跟踪窗口B.监视窗口C.局部窗口D.调用堆栈窗口78. 在调试器的程序中设置下列（D ）命令，可以计算出表达式的值。A.DEBUGB.OPENC.DEBUGIND.DEBUGOUT79. 有如下程序：INPUT TO A IF A=10 S=0ENDIFS=1? S假定从键盘上输入一个任意的数值，那么上述程序的执行结果为（B ）。A.0B.1C.根据A值判断S值D.程序出错80. 执行如下程序：CLEARSET TALK OFFSTORE .T. TO XSTORE 0 TO YDO WHILE XY=Y+1IF INT(Y/3)=Y/3? YELSELOOPENDIFIF Y20STORE .F. TO XENDIFENDDOSET TALK ON则程序的运行结果为（A ）。A.3 6 9 12 15 18 21B.3 6 9 12 15 18C. 3 6 9 12 15 D. 3 6 9 12 81. 设当前目录下有数据表文件学生表，表中共有10条记录，执行如下程序：SET TALK OFFUSE 学生表GO BOTTOMFOR N=10 TO 1 STEP -1IF BOF()EXITENDIFGO NDISPLAYENDFORUSESET TALK ON则程序执行的结果为（D ）。A.仅显示表中第一条记录B.仅显示表中第10条记录C.按记录号升序的逐条显示表中10条记录D.按记录号降序的逐条显示表中10条记录82. 执行下列程序：CLEARI=0DO WHILE I10IF INT(I/2)=I/2? “W”ENDIF ? “ABC”I=I+1ENDDO则程序的执行结果为（A ）。A.W ABC ABC连续显示5次B.W ABC连续显示5次C.W ABC W连续显示5次D.ABC ABC W连续显示5次83. 执行以下程序：CLEARLOCAL A,BA=100DO CASECASE A20B=A/BCASE A50B=A/BCASE A11EXITENDIFENDDO? S=+STR(S,2)RETURN2. 写出下列程序运行结果。SET TALK OFFCLEARSTORE 1 TO S,I,JDO WHILE IIS=S+I+JJ=J-5ENDDOI=I+5ENDDO? S=,SSET TALK ONRETURN3. 写出下列程序运行结果。 SET TALK OFFM=1DO WHILE M4N=1? MDO WHILE NMTT=N+M? TTN=N+1ENDDO?M=M+1ENDDORETURN4. 有如下ABC.PRG和XYZ.PRG两个程序，写出执行命令DO ABC后的结果。*ABC.PRGSET TALK OFFSTORE 10 TO A,B,CDO XYZ WITH A,A+B,10? A,B,C? I,M,NSET TALK ONRETURNRETURN*XYZ.PRGPARA X,Y,ZPUBLIC I,MSTORE 5 TO I,M,NI=X+YX=Y+ZY=M+N? X,Y,Z5. 写出下述程序的运行结果。SET TALK OFFSTORE 0 TO A,B,C,D,NDO WHILE .T.N=N+5DO CASECASE N=100B=B+1EXITCASE N=80C=C+1OTHERD=D+1ENDCASEN=N+5ENDDO? A,B,C,D,NSET TALK ONRETURN6. 有如下TEST.PRG和SUB.PRG两个程序，写出执行命令DO TEST后的结果。 *TEST.PRGSET TALK OFFPUBLIC AA=1C=3B=5DO SUB? “返回主程序：A,B,C,D=”,A,B,C,DSET TALK ONRETURN*SUB.PRGPRIVATE CA=A+1D=2C=4B=6? “过程中：A,B,C,D=”,A,B,C,DRETURN7. 有如下两个程序，写出执行命令DO MAIN后的结果。 *MAIN.PRGSET TALK OFFCLEARA=6B=7DO SUB? A,BRETURN*SUB.PRGPRIVATE BA=88B=99? A,BRETURN8. 阅读下列程序，并给出运行结果。SET TALK OFFCLEARSTORE 0 TO X,Y,S1,S2,S3DO WHILE S15X=X+1DO CASECASE INT(X/2)=X/2S1=S1+X/2 CASE MOD(S,3)=0S2=S2+X/3CASE INT(X/2)X/2S3=S3+1ENDCASEENDDO? S1,S2,S3SET TALK ONRETURN9. 阅读下列程序，并写出运行结果。 SET TALK OFFCLEARSTORE 1 TO XSTORE 30 TO YDO WHILE X=YIF INT(X/2)X/2X=1+X2Y=Y+1LOOPELSEX=X+1ENDIFENDDO? X? YSET TALK ONRETURN10. 运行下列程序，若依次输出数据2，5，8，3，5，3，4，5，10，写出输出结果。 SET TALK OFFI=1CLEARDO WHILE IINT(A) OR A10LOOPELSEINPUT “B=” TO BIF B=INT(B) .AND. B10LOOPELSE? A,“+”,B，“=”,A+BENDIFENDIFI=I+1ENDDOSET TALK ONRETURN11. 有下列两个程序，写出执行命令DO PROG1后的运行结果。*PROG1.PRGSET TALK OFFX=”同学们”Y=”你们好！”? X+YDO SUBPRO? X,Y,ZSET TALK ONRETURN*SUBPRO.PRGPRIVATE XPUBLIC ZX=100Y=200Z=300? X+Y+ZRETURN12. 有以下3个程序，写出执行命令DO TEST后的运行结果。 *TEST.PRGA=5B=6C=7DO SUB1? A1,B1,C1=,A,B,CDO SUB2 WITH A+B,C,10? A2,B2,C2=,A,B,CRETURN*SUB1.PRGPRIVATE B,CA=21B=22C=23RETURNDO SUB1RETURN*SUB2.PRGPARAMETER X,Y,Z?X,Y,Z=,X,Y,ZX=31Y=32Z=3313. 有以下两个程序，写出执行命令DO MAIN_1后的运行结果。 *MAIN_1.PRGSET TALK OFFA=5B=10DO SUB_1 WITH 2*A,B? “A=”,A,”B=”,BSET TALK ONRETURN*SUB_1.PRGPARAMETERS X,YY=X*Y? “Y=”+STR(Y,3)RETURN14. 有以下两个程序，写出执行命令DO MAIN_2后的运行结果。*MAIN_2.PRGSET TALK OFFPUBLIC AA=5C=10DO SUB_2? “返回主程序：A,B,C,D=”,A,B,C,DSET TALK ONRETURN*SUB_2.PRGPRIVATE CA=A+1PUBLIC BB=6C=7D=8? “过程中：A,B,C,D=”,A,B,C,DRETURN15. 有以下两个程序，写出执行命令DO MAIN后的运行结果。*MAIN.PRGSET TALK OFFX=10Y=5SET PROC TO PROC1DO P1 WITH X,Y? X,YX=10Y=5DO P2 WITH X,Y? X,YX=10Y=5DO P1 WITH X+5,Y? X,YSET PROC TOSET TALK ONRETURN*PROC1.PRGPROC P1PARA S1,S2S1=S1*5S2=S2+5RETURNPROC P2PARA X,YX=5Y=X+20RETURN16. 阅读下列程序，写出运行结果。SET TALK OFFN=111DO WHILE N=1000N3=INT(N/100)X=N-N3*100N2=INT(X/10)N1=X-N2*10IF N1=N3? NENDIFN=N+100ENDDOSET TALK ONRETURN17. 阅读下面两个程序，写出执行命令do main后的运行结果。 *MAIN.PRGX1=1X2=3DO P1 WITH X1,X2? “X1=”+STR(X1,1), “X2=”+STR(X2,1)X1=2X2=4DO P1 WITH X1,X1+X2? “X1=”+STR(X1,1), “X2=”+STR(X2,1)RETURN*P1.PRGPARA W1,W2W1=W1*2W2=W2*2RETURN18. 写出下列程序的运行结果。SET TALK OFFDIMENSION Y(3,4)FOR I=1 TO 3FOR J=I+1 TO 4Y(I,J)=I+JENDFORENDFOR? Y(2+1),Y(2+2),Y(2+3)? Y(3,2),Y(3,3),Y(3,4)SET TALK ONRETURN19. 写出下列程序的运行结果。 SET TALK OFFCLEARDIME X(3,4)STORE 1 TO I,KDO WHILE I=3J=1DO WHILE J=4X(I,J)=K? X(I,J)K=K+5J=J+1ENDDOI=I+1ENDDOSET TALK ONRETURN20. 有如下两个程序，写出执行DO MAIN命令后的运行结果。*MAIN.PRGSET TALK