第8章 结构化程序设计基础2

1、 8.1 程序文件的建立与执行 8.1.1 程序的概念程序的概念 程序是为了完成某一具体任务而编 写的一系列命令（语句）的集合。这组 命令被存放在称为程序文件或命令文件 的文本文件中。当运行程序时，系统会 按照一定的次序自动执行包含在程序文 件中的命令。 8.1.2程序的基本结构程序的基本结构 1. 顺序结构顺序结构 顺序结构是最简单的程序结构，它按命令顺序结构是最简单的程序结构，它按命令 在程序中出现的先后次序依次执行。在程序中出现的先后次序依次执行。 2. 选择结构选择结构 选择结构是在程序执行时，根据不同的条选择结构是在程序执行时，根据不同的条 件，选择执行不同的程序语句，用来解决有选择

2、、件，选择执行不同的程序语句，用来解决有选择、 有转移的诸多问题。有转移的诸多问题。 3. 循环结构循环结构 顺序、分支结构在程序执行时每个语句只顺序、分支结构在程序执行时每个语句只 能执行一次，循环结构就能够使某些语句或程序能执行一次，循环结构就能够使某些语句或程序 段重复执行若干次。段重复执行若干次。 8.1 程序文件的建立与执行 顺序结构 循环结构 选择结构 8.1.3 结构化程序设计 所谓“结构化”是指用一组标准的 准则与工具从事某项工作，这种工作就 是编写程序。 结构化程序设计是经典的被普遍采 用的一种程序设计方法，它的基本思想 是自顶向下逐步求精和模块化。 8.1 程序文件的建立与

3、执行 8.1.4程序文件的建立与执行程序文件的建立与执行 1. 程序文件的建立与修改程序文件的建立与修改 命令方式 MODIFY COMMAND 菜单方式 选择“文件”菜单中的“新建”命令， 在弹出的“新建”对话框中，选择“程序” 单选框，再单击“新建文件”命令按钮，在 打开的文本编辑窗口中输入程序内容。 程序文件的扩展名Prg。 8.1 程序文件的建立与执行 2. 程序文件的执行程序文件的执行 命令方式 DO 菜单方式 选择“程序”菜单中的“运行”命令，在 弹出的“运行”对话框中输入或选择要运行的 程序文件，并单击“运行”命令按钮即可。 8.1 程序文件的建立与执行 8.1.5程序出错时的情

4、况程序出错时的情况 运行程序时，一般不会十分顺利， 因为程序经常会出现错误。在程序稍大 的情况下，这种情况几乎不可避免。 8.1 程序文件的建立与执行 8.2 交互式输入/输出命令 8.2.1 简单的输入简单的输入/输出命令输出命令 1. 任意数据输入命令任意数据输入命令 格式： INPUT TO 功能： 暂停程序的执行，等待用户从键盘输入 数据，用户可以输入任意合法的表达式。当 用户以回车键结束输入时，系统将表达式的 值存入指定的内存变量中，程序继续运行。 说明： 如果选用，那么系统会首先显 示该表达式的值，作为提示信息； 输入的数据可以是常量、变量，也可以是合 法的表达式，即字符型、数字型

5、、日期型或 逻辑型表达式，但不能不输入任何内容直接 按回车键； 输入字符串时必须加定界符必须加定界符，输入逻辑型常 量时要用圆点定界（如T、F），输 入日期型常量时要用大括号（如：2009- 10-08）。 8.2 交互式输入/输出命令 2. 字符串接收命令字符串接收命令 格式： ACCEPT TO 功能： 暂停程序的执行，等待用户从键盘输入字 符串。当用户以回车键结束输入时，系统将该 字符串存入指定的内存变量，程序继续运行。 8.2 交互式输入/输出命令 说明： 如果选用，那么系统会首先显 示该表达式的值，作为提示信息； 该命令只能接收字符串只能接收字符串，用户在输入字符串时 不需要加定界符

6、不需要加定界符；否则，系统会把定界符作为 字符串本身的一部分； 如果不输入任何内容而直接按回车键，系统会 把空串赋给指定的内存变量。 8.2 交互式输入/输出命令 3. 单个字符接收命令单个字符接收命令 格式： WAIT TO WINDOW NOWAIT TIMEOUT 功能： 显示字符表达式的值作为提示信息，暂停 程序的执行，直到用户按任意键或单击鼠标时 继续程序的执行。 8.2 交互式输入/输出命令 说明： 如果值为空串，那么不会显示任何提示信 息；如果没有指定，则显示默认的提示信 息“按任意键继续”； 用来保存用户键入的字符，其类型为字符型。 若用户按的是Enter键或单击了鼠标，那么

7、中保存的将是空串；若不选TO短语，输入 的单字符不保留； 一般情况下，提示信息被显示在Viusal FoxPro主窗口或 当前用户自定义窗口里；如果指定了WINDOW子句，则 会在主窗口的右上角出现一个WAIT提示窗口； 若同时选用NOWAIT短语和WINDOWS子句，系统将不 等待用户按键，直接往下执行，只要一移动鼠标或按下 任意键，提示窗口自动被清除； TIMEOUT子句用来设定等待时间（秒数），一旦超时就 不再等待用户按键，自动往下执行。 8.2 交互式输入/输出命令 8.2.2 格式输入格式输入/输出命令输出命令 1. 格式输出命令格式输出命令 格式： SAY 功能：在第X行第Y列上输

8、出表达式的值。 说明： 指定了输出的位置。标准屏幕是标准屏幕是25行行 80列列，左上角顶点为（0，0），右下角坐标 为（24，79），行、列都可为表达式，还可 为小数； 表达式可以是常量、变量。 8.2 交互式输入/输出命令 2. 格式输入命令格式输入命令 格式： SAY GET READ 功能： 在第X行第Y列上输出字符表达式的内容，然后， 接收用户从键盘上输入的内容。 说明： SAY子句显示表达式的值，作为提示信息； GET子句中的变量可以是内存变量，也可以是字段变 量，若是内存变量，则必须事先赋初值，此初值决定 了该变量的类型和宽度； READ用于激活当前所有的GET变量，显示并允许修

9、 改变量的值。 8.2 交互式输入/输出命令 8.3 顺序结构 8.3.1 常用状态设置命令常用状态设置命令 1. 置会话状态命令置会话状态命令 格式： SET TALK ON/OFF 功能： 打开或关闭人机对话。 说明： 当TALK处于ON时，系统在执行一些非 显示时，将把执行结果等信息送到屏幕显示。 当TALK 处于OFF状态时，屏幕上只输出显示 命令要求输出的结果。 2. 置打印状态命令置打印状态命令 格式： SET PRINTER ON/OFF 功能： 打开或关闭打印机设备。 说明： PRINTER的初始状态是OFF，当 PRINTER状态为ON时，输出结果将被传送到 打印机中。 8.

10、3 顺序结构 3. 置屏幕状态命令置屏幕状态命令 格式： SET CONSOLE ON/OFF 功能： 启用或废止从程序内向屏幕输出。 说明： 在系统的默认状态下，用户从键盘输入的 内容都在屏幕上显示。如果要求键入的内容保 密而不被显示，只需使用命令SET CONSOLE OFF即可。 8.3 顺序结构 4. 置默认驱动器和目录命令置默认驱动器和目录命令 格式： SET DEFAULT TO 功能： 用于将指定的盘符路径设置为进行输入 输出操作时的默认目录。 说明： 启动Visual FoxPro6.0后，系统有其默 认目录，可以通过该命令，重新设置自己的 默认目录。 8.3 顺序结构 8.3

11、.2 程序注释命令程序注释命令 格式一： NOTE | * 格式二： & 功能： 引导注释内容。 8.3 顺序结构 说明： 格式一引导注释内容时，将整行定义为注释内 容，执行程序文件时，不执行NOTE 或*开头 的行； 格式二引导注释内容时，是位于命令行的尾部； 注释是不可执行的部分，它对程序的运行结果 不会产生任何影响。 8.3 顺序结构 8.4 选择结构 8.4.1 单分支选择结构语句单分支选择结构语句 格式： IF ENDIF 功能： 根据是否成立，选择执行。 说明： 执行该语句时，首先判断，当条件成立（其逻 辑值为“真”）时，执行IF和ENDIF之间的， 然后再执行ENDIF后面的语句

12、；当条件不成立（其逻辑值 为“假”）时，直接执行ENDIF后面的语句。 条件条件 Y ENDIF的下一条语句的下一条语句 N 语句序列语句序列 例8.5 输入两个实数，按由小到 大的次序输入这两个数。 SET TALK OFF CLEAR INPUT 请输入第一个数： TO A INPUT 请输入第二个数： TO B IF AB T=A A=B B=T ENDIF ? 从小到大的次序是：,A,B SET TALK OFF RETURN 8.4 选择结构 交换交换A、B 输出输出A、B AB? 输入两个数输入两个数A、B N Y 8.4.2 双分支选择结构语句双分支选择结构语句 格式： IF E

13、LSE ENDIF 功能： 根据是否成立，从两组语句序列中选择一组执行。 说明： 执行该语句时，首先判断，当条件成立时，执行IF 和ELSE之间的，然后再执行ENDIF后面的语句； 否则，当条件不成立时，执行ELSE和ENDIF之间的，然后再执行ENDIF后面的语句。 8.4 选择结构 条件条件 Y N 语句序列语句序列2 ENDIF的的 下一条语句下一条语句 语句序列语句序列1 例8.6 根据输入学生的姓名，在学 生.dbf表中查找该学生记录。 SET TALK OFF CLEAR USE 学生 ACCEPT 请输入学生的姓名： TO NAME LOCATE FOR 姓名=ALLTRIM(N

14、AME) & 在学生表中查找满足条件的记录 IF FOUND() & 判断是否找到 DISPLAY & 找到，显示该记录 ELSE ? 对不起，查无此人！ ENDIF USE SET TALK ON RETURN 8.4 选择结构 输入学生姓名输入学生姓名 显示学生信息显示学生信息 关闭学生表关闭学生表 找到学生找到学生? 查找学生姓名查找学生姓名 打开学生表打开学生表 显示显示“查无此人查无此人” N Y 8.4.3 多分支选择结构语句多分支选择结构语句 格式： DO CASE CASE CASE CASE OTHERWISE ENDCASE 8.4 选择结构 条件条件1 语句序列语句序列1

15、 Y 条件条件2 语句序列语句序列2 Y N N 条件条件n 语句序列语句序列n N Y 语句序列语句序列n+1 ENDCASE的下一条语句的下一条语句 功能： 根据n个条件的逻辑值，选择n+1个语句序列中 的一个，并执行该语句序列中的各个语句，执行完毕 后，转到ENDCASE语句后面的语句继续执行。 说明： 执行该语句时，依次判断CASE后面得条件是否 成立。当某个CASE后面的条件成立时，就执行该 CASE和下一个CASE之间的语句序列，然后执行 ENDCASE后面的语句。如果所有的条件都不成立， 若带有OTHERWISE子句，则执行OTHERWISE与 ENDCASE之间的语句序列，然后

16、转向ENDCASE后 面的语句；若不带OTHERWISE子句，则直接转向 ENDCASE后面的语句。 8.4 选择结构 8.4 选择结构 例例8.7 计算分段函数的值：计算分段函数的值： SET TALK OFF CLEAR INPUT 请输入请输入X值：值： TO x DO CASE CASE x0 f=2*x-1 CASE x3 f=3*x+5 CASE x5 f=x+1 CASE x10 f=5*x-3 OTHERWISE f=7*x+2 ENDCASE ? f(x)=,f SET TALK ON RETURN )10(27 )105(35 )53(1 )30(53 )0(12 )( x

17、x xx xx xx xx xf f=2x-1 f=3x+5 f=x+1 f=5x-3 f=7x+2 输出输出f 输入输入x 3=x5? 0=x3? 5=x10? otherwise x0? Y Y Y Y N N N N 8.5 循环结构 8.5.1 当循环结构语句当循环结构语句 格式： DO WHILE LOOP EXIT ENDDO 功能： 执行该语句时，先判断DO WHILE处的循环条件是 否成立，如果条件为真，则执行DOWHILE与ENDDO之 间的语句序列（循环体）。当执行到ENDDO时，返回到 DO WHILE处，再次判断循环条件是否为真，以确定是 否再次执行循环体。若条件为假，

18、则结束该循环语句， 执行ENDDO后面的语句。 条件条件 循环体循环体 ENDDO的下一条语句的下一条语句 Y N 说明： DO WHILE是当循环语句的起始语句，ENDDO是当循环语句的 终端语句，中间是循环体； 如果第一次判断条件时，条件为假，则循环体一次都不被执行； 例例8.8 计算s=1+2+100。 SET TALK OFF CLEAR S=0 I=1 DO WHILE I=100 S=S+I I=I+1 ENDDO ? S=,S & ? S=+STR(S,4) SET TALK ON RETURN 8.5 循环结构 S=0 I=1 I=100 S=S+1 I=I+1 输出S Y N

19、 8.5 循环结构 例例8.9 分别统计学生分别统计学生.dbf表中男女学生的人数。表中男女学生的人数。 SET TALK OFF CLEAR CLOSE ALL USE 学生学生 BROWSE GO TOP RS_b=0 RS_g=0 DO WHILE NOT EOF() IF 性别性别=男男 RS_b=RS_b+1 ELSE RS_g=RS_g+1 ENDIF SKIP ENDDO 2,30 SAY 男生人数为：男生人数为： 2,45 SAY RS_b 3,30 SAY 女生人数为：女生人数为： 3,45 SAY RS_g *? 男生人数为：男生人数为：+STR(RS_b,2)+人人 *?

20、 女生人数为：女生人数为：+STR(RS_g,2)+人人 USE SET TALK ON RETURN 打开学生表打开学生表 初始化初始化 没有到文件尾？没有到文件尾？ 男生人数男生人数+1 数据指针下移数据指针下移 输出男女生人数输出男女生人数 Y N 性别性别=男？男？ 女生人数女生人数+1 关闭表关闭表 Y N 说明： 如果循环体包含LOOP命令， 那么当遇到LOOP时，就结束 循环体的本次执行，不再执 行其后面的语句，而是转回 到DO WHILE处，开始新的 循环，重新判断条件，因此， LOOP称为无条件循环命令， 且只能在循环结构中使用； 8.5 循环结构 N Y 条件条件 ENDD

21、O的下一条语句的下一条语句 循环体循环体 LOOP 例：例： 有有LOOP的循环。的循环。 SET TALK OFF CLEAR S=0 T=0 I=1 DO WHILE I=10 S=S+I I=I+1 IF I=5 LOOP ENDIF T=T+I ENDDO ? S=,S ?T=,T SET TALK ON RETURN S,T赋值0 I=1 I=10 S=S+I I=I+1 输出S Y N I=5 Y N T=T+I 如果循环体包含EXIT命令，那 么当遇到EXIT时，就结束该语 句的执行，转去执行ENDDO后 面的语句，因此，EXIT称为无 条件结束循环命令，且只能在 循环结构中使用

22、； 通常LOOP或EXIT出现在循环体 内嵌套的选择语句中，根据条 件来决定是LOOP回去，还是 EXIT出去。 8.5 循环结构 N Y 条件条件 ENDDO的下一条语句的下一条语句 循环体循环体 EXIT 例：例： 有有EXIT的循环。的循环。 SET TALK OFF CLEAR S=0 T=0 I=1 DO WHILE I=10 S=S+I I=I+1 IF I=5 EXIT ENDIF T=T+I ENDDO ? S=,S ?T=,T SET TALK ON RETURN S,T赋值0 I=1 I=10 S=S+I I=I+1 输出S Y N I50 EXIT OTHERWISE Y

23、=Y+X ENDCASE ENDDO ? 150之间的偶数之和为：之间的偶数之和为：,Y SET TALK ON RETURN 初始化初始化 .T. Y=Y+X 输出偶数之和输出偶数之和 Y X是奇数是奇数 Y N X=X+1 X50？ Y N （LOOP） （EXIT） 8.5 循环结构 例例8.10 求求150之间的全部偶数之和。之间的全部偶数之和。 方法二：方法二： set talk off clear s=0 i=2 do while i=50 s=s+i i=i+2 enddo ?s=,s set talk on s=0 i=2 i=50 s=s+i i=i+2 输出s Y N 8.

24、5.2 计数循环结构语句计数循环结构语句 格式： FOR = TO STEP LOOP EXIT ENDFOR | NEXT 8.5 循环结构 循环体循环体 求初值、终值和步长值求初值、终值和步长值 初值初值循环变量循环变量 循环变量超过终值循环变量超过终值 N 循环变量循环变量+步长步长循环变量循环变量 ENDFOR的下一条语句的下一条语句 T 功能： 执行该语句时，首先将初值赋给循环变量， 然后判断循环条件是否成立（若步长为正值， 循环条件为=；若步长为 负值，循环条件为=）， 若循环条件成立，则执行循环体，然后循环变 量增加一个步长值，并再次判断循环条件是否 成立，以确定是否再次执行循环

25、体。若循环条 件不成立，则结束该循环语句，执行 ENDFOR或NEXT后面的语句。 8.5 循环结构 说明： 的默认值为1； 、和都可以是数值表达式； 但这些表达式仅在循环语句执行开始时被计算一次。 在循环语句的执行过程中，初值、终值和步长是不 会改变的； 可以在循环体内改变循环变量的值，但这会影响循 环体的执行次数； 退出循环后，循环变量的值等于最后一次循环时的 值加上步长值； EXIT和LOOP命令同样可以出现在该循环语句的循 环体内。当执行到LOOP命令时，结束循环体的本 次执行，然后循环变量增加一个步长值，并再次判 断循环条件是否成立。 8.5 循环结构 循环体循环体 LOOP 求初值

26、、终值和步长值求初值、终值和步长值 初值初值循环变量循环变量 循环变量超过终值循环变量超过终值 N 循环变量循环变量+步长步长循环变量循环变量 ENDFOR的下一条语句的下一条语句 T 8.5 循环结构 8.5 循环结构 循环体循环体 EXIT 求初值、终值和步长值求初值、终值和步长值 初值初值循环变量循环变量 循环变量超过终值循环变量超过终值 N 循环变量循环变量+步长步长循环变量循环变量 ENDFOR的下一条语句的下一条语句 T 8.5 循环结构 例例8.8计算计算s=1+2+100。 方法二：方法二： SET TALK OFF CLEAR S=0 FOR I=1 TO 100 STEP

27、1 S=S+I ENDFOR ? S=,S & ? S=+STR(S,4) SET TALK ON RETURN S=S+1 S=0 I赋初值赋初值1 I超过终值超过终值100 N I+1I 输出输出S Y 8.5 循环结构 例例8.11 从键盘任意输入从键盘任意输入10个数，编程找出其中最大值和最小值。个数，编程找出其中最大值和最小值。 SET TALK OFF CLEAR INPUT 请输入第请输入第1个数：个数： TO a STORE a TO max_a,min_a & 令初始的最大值令初始的最大值max_a和最小值和最小值min_a都等于都等于a FOR i=1 TO 9 & 以下依

28、次输入以下依次输入9个数，并进行判断和必要的赋值个数，并进行判断和必要的赋值 INPUT 请输入第请输入第+STR(i+1,2)+个数：个数： TO a IF amax_a max_a=a ENDIF IF a最大值最大值 将将a 赋给最小值赋给最小值 a最小值最小值 I超过终值超过终值9 输出最大值、最输出最大值、最 小值小值 Y Y N N 8.5 循环结构 例例8.12 计算计算T=1!+2!+10!。 SET TALK OFF CLEAR T=0 P=1 FOR I=1 TO 10 P=P*I T=T+P ENDFOR ? T=+STR(T,8) SET TALK ON RETURN

29、T、P初始化初始化 I赋初值赋初值1 I超过终值超过终值10 N I+1I 输出输出T Y 求求I！P 将将I！加入！加入T 8.5.3 记录循环结构语句记录循环结构语句 格式： SCAN FOR WHILE LOOP EXIT ENDSCAN 8.5 循环结构 循环体循环体 初设记录指针初设记录指针 在范围内在范围内 满足满足WHILE条件条件 满足满足FOR条件条件 N Y Y Y N N ENDSCAN后面语句后面语句 记录指针增记录指针增1 功能： 执行该语句时，首先将表记录指针移动到指定 范围内的第一条记录上，然后判断记录指针是否超 过指定范围以及记录是否满足WHILE子句所描述 的

30、条件，若记录指针超过指定范围或该记录不满足 WHILE子句所描述的条件，则结束扫描，执行 ENDSCAN后面的语句。若记录指针未超过指定范 围且该记录满足WHILE子句所描述的条件，则判 断是否满足FOR子句所描述的条件，若不满足，记 录指针移到下一条记录，进行下一轮循环判断；否 则执行循环体的语句后，记录指针下移一条记录， 再进行下一轮循环判断。 8.5 循环结构 说明： 对指定范围内满足条件的记录执行语句序列， 若省略范围，则默认值是ALL； EXIT和LOOP语句的功能与前面的循环结构相 同。 8.5 循环结构 循环体循环体 LOOP 初设记录指针初设记录指针 在范围内在范围内 满足满足

31、WHILE条件条件 满足满足FOR条件条件 N Y Y Y N N 记录指针增记录指针增1 ENDSCAN后面语句后面语句 8.5 循环结构 8.5 循环结构 循环体循环体 EXIT 初设记录指针初设记录指针 在范围内在范围内 满足满足WHILE条件条件 满足满足FOR条件条件 N Y Y Y N N ENDSCAN后面语句后面语句 记录指针增记录指针增1 例例8.13 逐条显示学生逐条显示学生.dbf中中1990年以后出生的学生信息。年以后出生的学生信息。 SET TALK OFF CLEAR CLOSE ALL USE 学生学生 SCAN FOR YEAR(出生日期出生日期)=1990 D

32、ISPLAY ENDSCAN USE SET TALK ON RETURN 8.5 循环结构 显示记录显示记录 初设记录指针初设记录指针 1990年以前出生？年以前出生？ N Y Y N N 关闭学生表关闭学生表 记录指针增记录指针增1 打开学生表打开学生表 未到文件尾？未到文件尾？ 8.5.4 多重循环多重循环 即外循环内套有内循环，这就是循环语句 的嵌套，也称为多重循环。 8.5 循环结构 8.6 程序的模块化 8.6.1 模块的定义和调用模块的定义和调用 程序的模块化在具体实现上就是采用子 程序技术，具体形式有3种：子程序、过程和 函数。 1. 子程序子程序 子程序的结构 子程序是一些基

33、本的小程序，具有相对独 立性，可以完成某一个特定的功能，且能被其 他程序所调用。 子程序的结构与一般的程序文件一样，其 扩展名也是prg，创建、修改和存盘的方法 也一样，唯一的区别就是子程序中一定要有一 个返回RETURN语句，以便返回到被调用程序 的调用处继续执行。 格式： RETURN TO MASTER 功能： 该语句结束一个子程序文件的执行，返回 到原调用该文件语句的下一个语句，或返回到 主菜单，若选择TO MASTER子句时，则返 回到最高一级的调用程序。 8.6 程序的模块化 子程序的调用 格式： DO 功能： 调用并执行子程序文件的内容。 8.6 程序的模块化 子程序调用规则 主

34、程序可以调用任何子程序； 子程序不能调用主程序，但子程序与子程序 之间可以相互调用； 子程序调用子程序后，可以返回到调用的子 程序中，也可以直接返回到主程序中； 主程序调用子程序后，必须要返回到主程序 所调用的下一个语句中继续执行主程序中的 各个语句。 8.6 程序的模块化 2. 过程过程 过程的结构 模块可以是命令文件，也可以是过程。 我们常常将那些经常出现在程序中且具有某 些特定功能或某些特定的操作代码段单独组 成一个模块，称为“过程”。过程是需要定 义的。 格式： PROCEDURE PARMETERS RETURN 功能：创建一个过程。 8.6 程序的模块化 说明： 每个过程均以PRO

35、CEDURE开始，以 RETURN结束； PROCEDURE 用于某个过程中的第 一条语句，它标识了每个过程的开始，同时定 义了过程名； 过程如果以RETURN作为结束标志，返回逻 辑真.T.，控制将转回到调用程序；如果缺省 RETURN命令，则在过程结束处自动执行一 条隐含的RETURN命令。 8.6 程序的模块化 过程的调用 格式： DO 功能： 调用过程名的过程。 8.6 程序的模块化 说明： 过程可以放置在程序文件代码的后面，也可以保 存在称为过程文件的单独文件里。 打开过程文件的命令格式为： SET PROCEDURE TO , ADDITIVE 关闭过程文件的命令格式为： SET PROCEDURE TO CLOSE PROCEDURE 8.6 程序的模块化 3. 自定义函数 自定义函数的结构 格式： FUNCTION PARAMETERS RETURN 功能：