第6章 面向过程程序设计.ppt

《第6章 面向过程程序设计.ppt》由会员分享，可在线阅读，更多相关《第6章 面向过程程序设计.ppt（61页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、第第6 6章章 面向过程程序设计面向过程程序设计6.1 6.1 应用程序基本操作应用程序基本操作应用程序基本操作应用程序基本操作 6.2 6.2 应用程序中的常用命令应用程序中的常用命令应用程序中的常用命令应用程序中的常用命令6.4 6.4 分支结构程序设计分支结构程序设计分支结构程序设计分支结构程序设计6.3 6.3 顺序结构程序设计顺序结构程序设计顺序结构程序设计顺序结构程序设计6.5 6.5 循环结构程序设计循环结构程序设计循环结构程序设计循环结构程序设计退出退出退出退出6.6 6.6 过程结构程序设计过程结构程序设计过程结构程序设计过程结构程序设计6.7 6.7 数组变量的应用数组变量

2、的应用数组变量的应用数组变量的应用6.8 6.8 结构化程序设计举例结构化程序设计举例结构化程序设计举例结构化程序设计举例6.1 6.1 应用程序基本操作应用程序基本操作6.1.3 6.1.3 应用程序的修改应用程序的修改应用程序的修改应用程序的修改退出退出退出退出6.1.2 6.1.2 应用程序的运行应用程序的运行应用程序的运行应用程序的运行6.1.1 6.1.1 应用程序的建立应用程序的建立应用程序的建立应用程序的建立1）应用程序：为完成某项任务所需执行的命令序列，这些命令按照一定的结构有机地组合在一起，并以文件的形式存储在磁盘上，又称为命令文件。2）应用程序的组成：前言：注释语句 设置区

3、：设置程序的运行环境，多由SET命令实现 程序体：所有命令序列，一般包括数据的输入输出、数据的处理以及结果输出等命令 整理部分：如关闭各种文件 程序的退出：设置有关命令关闭文件返回到命令窗口状态或操作系统状态6.1.1 6.1.1 应用程序的建立应用程序的建立（1）菜单方式（2）命令方式：MODIFY COMMAND 说明：为主文件名，其扩展名的默认值为.PRG 示例：建立名为L1.PRG的应用程序，使其能够打开表文件“VFP 学生表.DBF”，根据键入的学生姓名在该表文件中查找并输出该学生的基本情况，然后关闭该文件。命令窗口：MODI COMM VFPL1.PRG编辑窗口：*L1.PRG S

4、ET TALK OFF USE VFPZGDA.DBF ACCEPT“请输入学生姓名：”TO XM LOCATE FOR 姓名=XM?学号,姓名,性别,班级 USE SET TALK OFF RETURN6.1.2 6.1.2 应用程序的运行应用程序的运行1.菜单方式2.命令方式：DO 应用程序名 WITH 说明：1）在程序运行过程中执行到下述命令时将会中断运行而退出，它们退出后返回的系统状态分别是：CANCEL：命令窗口状态。QUIT：操作系统状态。RETURN：调用点或命令窗口状态。2）在程序运行过程中，若按下ESC键可使运行强行中断。这时系统显示警告，并给用户三种选择：取消：中断程序的运

5、行。此为缺省选项。继续执行：忽略ESC的中断作用，继续程序的执行。挂起：暂时中断程序的运行，返回命令窗口。当再次运行时可以从中断处继续运行。6.1.3 6.1.3 应用程序的修改应用程序的修改1）菜单方式2）命令方式：MODIFY COMMAND 6.2 6.2 应用程序中的常用命令应用程序中的常用命令退出退出退出退出6.2.2 6.2.2 常用辅助命令常用辅助命令常用辅助命令常用辅助命令6.2.1 6.2.1 交互输入命令交互输入命令交互输入命令交互输入命令6.2.1 6.2.1 交互输入命令交互输入命令1.键入字符串命令格式：ACCEPT TO 说明：1）暂停程序的运行，等待用户键入字符型

6、常量以赋给指定的内存变量。2）是显示在屏幕上的、用于提示说明的字符型表达式。3）如果不键入任何字符而只按回车键，则赋给内存变量的值将是一个空字符串。示例：编写可以打开任一数据表文件的通用命令。ACCEPT“请输入要打开的表文件名：”TO BMUSE&BM2.输入单字符命令格式：WAIT TO 功能：暂停程序的运行，等待用户键入单个字符后再恢复程序运行。说明：1）为可选项，其格式、功能与要求同ACCEPT命令。如果命令中无此选项，则系统默认的提示信息是：PRESS ANY KEY TO CONTINUE2）TO 也为可选项，选用时，则键入的单个字符均作为字符型数据赋给内存变量。如果只是按下回车键

7、，则只将一个空字符存入内存变量。示例：试编写一个VFP程序，能够根据键入的系别代号（单字符）在不同系的档案表文件中查找某一职工的情况。*L2.PRGSET TALK OFFCLEARWAIT“请输入系的代号：”TO DHXH=“DH”+DHUSE&XHACCEPT“请输入职工姓名：”TO XMLOCATE FOR 姓名=XM?“职工姓名：”+姓名?“性别：”+性别?“年龄：”+STR(年龄,2)WAIT?“职称：”+职称?“任教课程：”+任教课程?“教研室：”+教研室WAITSET TALK ONRETURN2.输入单字符命令3.键入表达式命令格式：INPUT TO 功能：暂停程序运行，等待键

8、入表达式并将其值赋给指定的内存变量，待按回车键后，继续运行程序。说明：1）为可选项，其格式、功能与要求同ACCEPT命令。2）命令中的的类型决定于键入数据的类型，但不得为M型数据。3）若键入的是表达式，本命令将先计算出表达式的值，然后把其结果赋给。4）若键入字符型常量或逻辑型常量时应带有定界符。5）在响应该命令时，若键入了无效表达式或只按下回车键，系统将会给出“句法错”的提示信息。示例：试运行下述交互输入命令。INPUT“请输入学生姓名：”TO XMINPUT“请输入其班级：”TO BJINPUT“该人性别为：”TO XB6.2.2 6.2.2 常用辅助命令常用辅助命令格式I：NOTE 格式I

9、I：*格式III：&说明：1）注释命令为非执行语句 2）注释内容最后一个字符是分号(;)，系统默认下一行内容仍为注释内容。示例1：NOTE 打开学生表 USE 学生表.DBF 示例2：SET CONSOLE OFF&取消窗口的输出显示 1.注释命令SET TALK ON/off设置是否在主窗口的状态栏中显示所有命令的执行结果。SET CONSOLE ON/off 设置是否把输出信息在窗口上显示。SET PRINTER on/OFF设置是否在打印机上输出信息。SET SAFETY ON/off设置在改写文件时，VFP是否显示对话框以确认改写有效。SET HEADING ON/off 设置在执行L

10、IST、DISPLAY等命令时是否显示字段名。SET STATUS ON/off设置是否显示状态行。SET DEFAULT TO盘符 指定默认的驱动器。SET DEVICE TO SCREEN把输出信息发送到VFP的窗口/PRINTER屏幕或打印机。2.环境设置命令格式I：CLEAR说明：清除当前屏幕上的所有信息格式II：CLEAR ALL说明：关闭所有文件，清除所有内存变量格式III：CLEAR TYPEAHEAD说明：清除键盘缓冲区3.清除命令4.关闭文件命令格式I：CLOSE ALL说明：关闭所有的数据库、表以及索引文件格式II：CLOSE 说明：文件类型DATABASE数据库文件、索引

11、文件、格式文件INDEX当前工作区的索引文件FORMAT 当前工作区的格式文件PROCEDURE 当前工作区的过程文件ALTERNATE 文本输出文件5.运行中断和结束命令格式I：QUIT说明：退出VFP，返回到操作系统状态格式II：CANCEL说明：结束本次程序的运行，返回到命令窗口状态格式III：RETURN TO MASTER说明：返回到调用点处。6.文本显示命令格式：TEXT ENDTEXT说明：将文本内容原样输出7.定位输出命令格式：SAY 说明：在指定的行、列处输出数据6.3 6.3 顺序结构程序设计顺序结构程序设计1）程序设计的过程：分析问题、确定任务、划分模块、建立模型、组织数

12、据、描述操作步骤、编写程序、上机调试、分析运行结果、写出程序说明书。2）流程图：就是运用一些特定的图形符号和必要的文字来描述解题步骤的图示。3）三种基本程序结构流程图：AB条件条件AB条件条件A顺序结构分支结构循环结构6.3 6.3 顺序结构程序设计顺序结构程序设计4）顺序结构程序：自始至终严格按照程序中语句的先后顺序逐条执行，是最基本、最普遍的结构形式。5）示例1：试在表文件中查看某学生的有关情况。*L3.PRG SET TALK OFF CLEAR USE 学生表.DBF LOCATE FOR 姓名=“林天力”DISPLAY USE SET TALK ON示例2：编程，根据输入的半径值，计

13、算出相应的圆的周长。SET TALK OFF CLEAR INPUT“请输入圆的半径：”TO R L=2*3.1416*R 10,10 SAY“圆的周长是：”+STR(L,6,3)SET TALK ON6.4 6.4 分支结构程序设计分支结构程序设计退出退出退出退出6.4.2 6.4.2 多分支结构多分支结构多分支结构多分支结构6.4.1 6.4.1 两分支结构两分支结构两分支结构两分支结构6.4.1 6.4.1 两分支结构两分支结构1）简单分支的格式：IF ENDIF注意：IF和ENDIF必须成对出现分支结构：就是按照一定的条件由判断语句或选择语句构成的双重或多重走向的程序1.简单分支语语

14、句句 行行条件表达式条件表达式语句行序列语句行序列ENDIF后面的语句后面的语句YN例：在“学生表”中查看“李尚清”的基本情况。SET TALK OFF CLEAR USE 学生表 LOCATE FOR 姓名=”李尚清”IF FOUND()DISPENDIF USE SET TALK ON2.选择分支格式：IF ELSE ENDIF语语 句句 行行条件条件语句行序列语句行序列1语句行序列语句行序列2ENDIF后面的语句后面的语句 例1：求解一元二次方程AX2+BX+C=0，系数A，B，C的值由用户通过键盘输入，当方程有实根时，屏幕显示出两根的值；当方程无实根时，屏幕显示出“方程无实根！”SET

15、 TALK OFF CLEAR INPUT“A=”TO A INPUT“B=”TO B INPUT“C=”TO C D=B*B-4*A*C IF D=0 X1=(-B+SQRT(D)/(2*A)X2=(-B-SQRT(D)/(2*A)?“方程的两根是：”+STR(X1,2)+SPACE(4)+STR(X2,2)ELSE?”方程无实根！”ENDIF SET TALK ON RETURN例2：在表文件“分数.DBF”中查找学号为99020203的学生成绩，若其成绩满60分则显示其学号、课程号和成绩；否则显示此人的学号、课程号并通知其补考。*L6.PRGSET TALK OFFUSE 分数.DBFC

16、LEARLOCATE FOR 学号=“99020203”IF 成绩=60?“学号：”+学号?“课程号：”+课程号?“成绩：”+STR(成绩,6,2)ELSE?“学号为”+学号+“的学生应参加补考的课程号为：”+课程号ENDIF USESET TALK ON3.判断语句嵌套IF语句多重嵌套示意结构如下：IF ELSE IF ELSE IF ELSE ENDIF3 ENDIF2 ENDIF1 注意：（1）IF、ELSE(可不选)、ENDIF一一 对应、互相匹配 （2）允许简单判断和选择判断语句自我嵌套或相互嵌套，但层次必须清楚，不得交叉 （3）最好采用缩格（锯齿形）的书写方式例：根据键入X的值，计

17、算下面分段函数的值，并显示结果。X2+4X-1 (X0)3X2-2X+1 (0X10)10)+1 (X10)Y=程序如下：SET TALK OFFCLEARINPUT“X=”TO XIF X0 IF X10 Y=X*X+1 ELSE Y=3*X*X-2*X+1 ENDIFELSE Y=X*X+4*X-1ENDIF?”分段函数值为：”+STR(Y,10,2)SET TALK ONRETURN6.4.2 6.4.2 多分支结构多分支结构格式：DO CASE CASE CASE OTHERWISE ENDCASE注释内容例：用DO CASE语句修改上面计算分段函数的例子。SET TALK OFFCL

18、EARINPUT“X=”TO XDO CASE CASE X0.AND.X10 Y=X*X+1ENDCASE?”分段函数值为：”+STR(Y,10,2)SET TALK ONRETURN6.5 6.5 循环结构程序设计循环结构程序设计退出退出退出退出6.5.2 6.5.2 固定次数的循环结构固定次数的循环结构固定次数的循环结构固定次数的循环结构6.5.1 6.5.1 当型循环结构当型循环结构当型循环结构当型循环结构6.5.4 6.5.4 多重循环结构多重循环结构多重循环结构多重循环结构6.5.3 6.5.3 表扫描循环结构表扫描循环结构表扫描循环结构表扫描循环结构6.5.1 6.5.1 当型循

19、环结构当型循环结构循环结构程序：按照一定条件重复进行某种特定操作的程序称为循环结构程序。格式：DO WHILE LOOP EXIT ENDDO说明：结构组成：循环起始语句、循环体、循环终端语句注意：在循环体内要设置修改循环条件的语句，避免死循环。ENDDO后面的语句后面的语句语句行序列语句行序列条件表达式条件表达式循环体内语句循环体内语句修改条件表达式修改条件表达式YN死循环示例：X=1 S=0 DO WHILE X=1 S=S+X X=X+1 ENDDO例1：编程求和S=1+2+3+100。SET TALK OFF CLEAR STORE 0 TO N,S DO WHILE N250 EXI

20、T OTHERWISE Y=X+Y?”Y=”,Y ENDCASE SET TALK ON ENDDO RETURN例4：编写程序能根据键盘输入的姓名，从学生表中查找该生的信息。SET TALK OFF CLEAR ACCEPT“请输入姓名：”TO XM USE 学生表 DO WHILE.NOT.EOF()IF 姓名=XM DISP EXIT ELSE SKIP ENDIF ENDDO USE SET TALK ON6.5.2 6.5.2 固定次数的循环结构固定次数的循环结构格式：FOR=TO STEP LOOP EXIT ENDFOR/NEXT注意：步长可为正值和负值例1：编程求和S=1+2+

21、3+100。SET TALK OFFCLEARS=0FOR N=1 TO 100?”S=”,S S=S+N SET TALK ONENDFOR RETURN例例2：用下列级数的前：用下列级数的前21项之和计算自然对数之底项之和计算自然对数之底e的近似值。的近似值。*L10.PRGSET TALK OFFSTORE 1 TO E,TFOR X=1 TO 20 T=T*X E=E+1/TENDFOR?“该级数前该级数前21项之和是：项之和是：”+STR(E,7,5)SET TALK ONRETURN6.5.3 6.5.3 表扫描循环结构表扫描循环结构格式：SCAN FOR WHILE LOOP E

22、XIT ENDSCAN例1：编程统计学生表中男学生的人数。SET TALK OFFCLEARN=0USE 学生表SCAN FOR 性别=”男”（WHILE 性别=“男”）N=N+1ENDSCAN?”学生表中男学生的人数是：”,NUSESET TALK ONRETURN例2：统计表文件“学生表.DBF”中各个班级的人数。*L1.PRGSET TALK OFFSTORE 0 TO A,BCLEARUSE 学生表.DBFSCAN DO CASE CASE 班级=“注会”A=A+1 CASE 班级=“金融二”B=B+1 ENDCASEENDSCAN?“注会班的人数为：”+STR(A,3)?“金融二的人

23、数为：”+STR(B,3)USESET TALK ON6.5.4 6.5.4 多重循环结构多重循环结构格式（以当型循环结构为例）：DO WHILE 条件表达式1 语句行序列11 DO WHILE 条件表达式2 语句行序列21 DO WHILE 条件表达式3 语句行序列31 ENDDO3 语句序列22 ENDDO2 语句行序列12 ENDDO1 例1：试用固定次数循环的嵌套格式编写一个打印九九乘法口诀表的程序。SET TALK OFFCLEARFOR Y=1 TO 9FOR X=1 TO 9 Z=Y*X?STR(Y,1)+“*”+STR(X,1)+“=”+STR(Z,2)+“”ENDFOR?EN

24、DFOR SET TALK ONRETURN例例2：编写程序打印如下的图形：编写程序打印如下的图形 *SET TALK OFF CLEAR A=1 DO WHILE A=7 B=1 DO WHILE B=8 A,B+A SAY“*”B=B+1 ENDDO A=A+1 ENDDO SET TALK ON RETURN例例3：编程打印如下图形：编程打印如下图形：*SET TALK OFF CLEAR A=1 DO WHILE A8 B=1 DO WHILE B=2*A-1 A,40-B+A SAY“*”B=B+1 ENDDO ENDDO SET TALK ON A=A+1 RETURN6.6 6.

25、6 过程结构程序设计过程结构程序设计退出退出退出退出6.6.2 6.6.2 过程文件过程文件过程文件过程文件6.6.1 6.6.1 过程的建立与调用过程的建立与调用过程的建立与调用过程的建立与调用6.6.4 6.6.4 过程的带参调用过程的带参调用过程的带参调用过程的带参调用6.6.3 6.6.3 内存变量作用域内存变量作用域内存变量作用域内存变量作用域6.6.1 6.6.1 过程的建立与调用过程的建立与调用过程：可被调用的功能模块或能够完成某种特定功能的独立程序。1、过程的建立：MODIFY COMMAND 2、过程的调用 DO 3、过程中的返回命令 RETURN TO MASETR4、过程

26、的嵌套：一个过程又调用了另一个过程例1：用过程编写一个求和与乘积的程序。*AA.PRG调用过程BB *过程BBSET TALK OFF M=3S=1 N=5P=1 S=M+NDO BB P=S*N?”S=”,S RETURN?”P=”,PSET TALK ONRETURN例例2：试试编编写写一一程程序序求求解解W=X!+Y!+Z!（其其中中：X，Y，Z的的值均为一位正整数）。值均为一位正整数）。主程序主程序 过程过程*MAIN_1.PRG *SUB_1.PRGSET TALK OFF T=1 INPUT“X=”TO X FOR I=1 TO NINPUT“Y=”TO Y T=T*INPUT“Z

27、=”TO Z ENDFORN=X RETURNDO SUB_1A=TN=YDO SUB_1B=TN=ZDOU SUB_1W=T+A+B?“W=”+STR(W,7)SET TALK ON例例3：有有一一个个名名为为SCORE的的数数据据表表，具具有有如如下下的的字字段段：学学号号(C,5),姓姓名名(C,8),政政治治(N,3),数数学学(N,3),外外语语(N,3),总总分分(N,3),平平均均分分(N,6,2)。编编写写一一程程序序，分分别别求求出出政政治治课课、数数学学课课和和外外语语课课的总分。的总分。*主程序主程序CLASS.PRG SET TALK OFF *计算单科总分的过程计算单

28、科总分的过程JSZF.PRGUSE SCORE GO TOPKCM=”政治政治”DO WHILE.NOT.EOF()T=0 T=T+&KCMDO JSZF SKIPT1=T ENDDOKCM=”数学数学”RETURNT=0DO JSZFT2=T KCM=”外语外语”T=0?”政政治治课课，数数学学课课，外外语语课课的的总总分分分分别别是是：”,T1,T2,T3DO JSZF USET3=T SET TALK ON6.6.2 6.6.2 过程文件过程文件1、过程文件：过程的集合、过程文件：过程的集合2、过程文件的建立和修改、过程文件的建立和修改 MODIFY COMMAND 3、过程文件的一般结

29、构、过程文件的一般结构 PROCEDURE RETURN PROCEDURE RETURN PROCEDURE RETURN4、过程文件的打开命令过程文件的打开命令 格式：格式：SET PROCEDURE TO 5、过程文件的关闭命令、过程文件的关闭命令 格式格式I：SET PROCEDURE TO 格式格式II：CLOSE PROCEDURE例例1：编写程序，调用过程文件中的过程，并显示结果。：编写程序，调用过程文件中的过程，并显示结果。过程文件过程文件PROC.PRGPROCEDURE PROC1?”I am from proc1.”?”*10 11 12 13 14 15”?”平方平方

30、100 121 144 169 196 225”RETURNPROCEDURE PROC2?”I am from proc2.”?”*10 11 12 13 14 15”?”立方立方 1000 1331 1728 2179 2774 3375”DO PROC3RETURNPROCEDURE PROC3?”-”?”I am from proc3.”RETURN主程序MAIN.PRGCLEARSET PROCEDURE TO PROCDO PROC1?”=”DO PROC2?”=”CLOSE PROCEDURERETURN例2：试求3100之间的所有素数并显示之。算法：每产生一个M的值则依次除以3

31、到M的算术平方根之间的所有奇数，若均不能被整除，则M即为素数，然后将其显示输出，否则，M就不是素数。主程序 过程文件*MAIN_2.PRG *SUB_2.PRGSET TALK OFF PROCEDURE JCSET PROCEDURE TO SUB_2FOR M=3 TO 100 STEP 2 RETURN I=3 PROCEDURE QS N=INT(SQRT(M)FOR I=3 TO N STEP 2 DO QS IF INT(M/I)=M/IENDFOR RETURNSET PROCEDURE ENDIF ENDFOR?M RETURN 6.6.3 6.6.3 内存变量作用域内存变量作

32、用域作用域：内存变量的作用范围。1、全局变量1）全局变量：指在程序的任何嵌套中及在程序执行期间始终有效的变量。2）格式：PUBLIC 例:在过程调用中，运用全局变量传递数据。主程序 过程 *MAIN_3.PRG *SUB_3.PRG SET TALK OFF PUBLIC B,C CLEAR B=2 PUBLIC A D=3 A=1?“在过程中：A，B，C，D=”,A,B,C,D DO SUB_3 RETURN?“返回主程序：A，B，C，D=”,A,B,C,DSET TALK ON 2、局部变量1）局部变量：未经PUBLIC命令定义且只在建立它的过程及其下级过程中有效的内存变量。2）局部变量的

33、定义：隐含定义方式：过程中未经特殊说明的内存变量。显示定义方式：PRIVATE ALL LIKE/EXCEPT 例：在过程调用中局部变量的应用。主程序 *MAIN_4.PRG SET TALK OFF A=1 B=2?“主程序中：A=”,A,“B=”,B DO SUB_4?“返主程序后：A=”,A,“B=”,B,“C=”,C,“D=”,D SET TALK ON 过程 *SUB_4.PRG PRIVATE B PUBLIC C A=10 B=11 C=12 D=13?“在过程中：A=”,A,“B=”,B,“C=”,C,“D=”,D RETURN2、局部变量1）局部变量：未经PUBLIC命令定义

34、且只在建立它的过程及其下级过程中有效的内存变量。2）局部变量的定义：隐含定义方式：过程中未经特殊说明的内存变量。显示定义方式：PRIVATE ALL LIKE/EXCEPT 例：在过程调用中局部变量的应用。*主程序MAIN_4.PRG SET TALK OFF A=1 B=2?“主程序中：A=”,A,“B=”,B DO SUB_4?“返主程序后：A=”,A,“B=”,B,“C=”,C,“D=”,D SET TALK ON *过程SUB_4.PRG PRIVATE B PUBLIC C A=10 B=11 C=12 D=13?“在过程中：A=”,A,“B=”,B,“C=”,C,“D=”,D RE

35、TURN6.6.4 6.6.4 过程的带参调用过程的带参调用1 1、带参过程调用命令、带参过程调用命令 格式：格式：DO DO WITH WITH 说说明明：参参数数表表中中的的参参数数也也称称实实参参，可可以以为为常常量量、已已赋赋值值的的变量变量或或数值表达式数值表达式。2 2、接收参数命令、接收参数命令 格式：格式：PARAMETERS PARAMETERS 说明：参数表中的参数也称说明：参数表中的参数也称形参形参 形参与实参的数量应相等、类型要一致形参与实参的数量应相等、类型要一致例1：利用带参调用方法计算梯形面积。主程序 *MAIN_5.PRG SET TALK OFF INPUT“

36、输入梯形上底边长：”TO A INPUT“输入梯形下底边长：”TO B INPUT“输入梯形的高：”TO H STORE 0 TO S DO SUB_5.PRG WITH A+B,H,S?“所求梯形面积为：”,S SET TALK ON RETURN 过程 *SUB_5.PRG PARAMETERS P,Q,T T=P*Q/2 RETURN6.7 6.7 数组变量的应用数组变量的应用退出退出退出退出6.7.2 6.7.2 数组变量的赋值数组变量的赋值数组变量的赋值数组变量的赋值6.7.1 6.7.1 数组变量的建立数组变量的建立数组变量的建立数组变量的建立6.7.4 6.7.4 数组与数据表之

37、间的数据交换数组与数据表之间的数据交换数组与数据表之间的数据交换数组与数据表之间的数据交换6.7.3 6.7.3 数组的重新定义数组的重新定义数组的重新定义数组的重新定义6.7.5 6.7.5 数组的释放数组的释放数组的释放数组的释放6.7.1 6.7.1 数组变量的建立数组变量的建立1、数组：一组变量的集合。2、格式：DIMENSION/DECLARE(,),(,)说明：数组一旦被定义之后，该数组的每个元素的初值为逻辑假值。例：DIMENSION AB(3),C2,36.7.2 6.7.2 数组变量的赋值数组变量的赋值三种赋值方式：STORE、=、命令文件例1：给二维数组X和一维数组Y赋值。

38、DIMENSION X(3,4),Y(3)STORE 5 TO XY(1)=325Y(2)=”ABC”Y(3)=.T.例2：用命令文件为数组赋值。SET TALK OFFCLEARDIMENSION A10FOR I=1 TO 10 AI=I?AINEXTSET TALK ONRETURN6.7.3 6.7.3 数组的重新定义数组的重新定义1数组的重定义：数组在定义好之后，可以通过DECLARE或DIMENSION命令对数组的尺寸和维数进行改变。2新旧数组之间数据的复制原则：1）将数组全部看成是一维数组，从序号1开始顺序地复制到对应的新数组中；2）如果新数组的元素个数多于原数组的元素个数，新增

39、加的数组元素取值为逻辑假值；3）如果新数组的元素个数少于原数组的元素个数，只取原数组中的前若干个值。3数组下标的排列规则：数组从下标1开始排列，二维数组的元素排列是先按行排，再按列排。例：CLEARSET TALK OFFDIMENSION B2,3 DIMENSION B8FOR I=1 TO 2 FOR I=1 TO 8 FOR J=1 TO 3?”B(”+STR(I,1)+”)=”,BI BI,J=(I-1)*3+J NEXT NEXT SET TALK ONNEXT RETURN6.7.4 6.7.4 数组与数据表之间的数据交换数组与数据表之间的数据交换1字段变量给数组赋值格式：SCA

40、TTER FIELDS/FIELDS LIKE/FIELDS EXCEPT MEMO TO BLANK/MEMVAR/MEMVAR BLANK示例：USE 学生表 GO 2 SCATTER TO A MEMO SCATTER FIELDS 姓名，性别，班级 TO B GO 5 SCATTER MEMO MEMVAR DISP MEMORY2数组对字段变量的对应替换格式：GATHER FROM/MEMVAR FIELDS/FIELDS LIKE/FIELDS EXCEPT MEMO示例：USE 学生表 APPEND BLANK GATHER FROM B FIELDS 姓名，性别，班级 DISP APPEND BLANK GATHER MEMVAR DISP格式1：CLEAR ALL格式2：CLEAR MEMEORY格式3：RELEASE ALL LIKE/EXCEPT 6.7.5 6.7.5 数组的释放数组的释放