二程序设计基础程序与程序文件.ppt

单击此处编辑母版标题样式,单击此处编辑母版文本样式,第二级,第三级,第四级,第五级,*,.,*,目 录,上一页,下一页,退 出,第二章程序设计基础,2.4 程序与程序文件,1,.,本 章 要 点,Visual FoxPro,的工作方式,程序文件的建立与编辑,程序的基本结构,分支结构,循环结构,过程,2,.,2.4.1程序的概念,概念：,程序时能够完成一定任务的命令的有序的集合。,特点：,1、可以利用编辑器方便的修改和保存，,2、程序一旦建立，就可以被多次修改,3、在程序中可以出现在命令窗口中无法使用的命令和语句。,例：2.40,要 点,3,.,2.4.2,程序文件的建立、修改与执行,1,建立或修改程序文件,可用两种方式调用,系统内置的文本编辑器建立或修改程序文件,:,命令方式,MODIFY COMMAND 程序文件名,或,MODIFY FILE 程序文件名,菜单方式,打开“文件”菜单，选择“新建”；在“新建”窗口，选择“程序”，再选择“新建文件”,要 点,4,.,2,保存程序,程序输入、编辑完毕，单击【文件】,|,【保存】菜单项，或按,Ctrl+W,复合键，在“另存为”对话框中指定程序文件的存放位置和文件名，并单击“保存”按钮保存程序文件并退出文本编辑器。程序文件的默认扩展名是,.PRG,。,5,.,3,执行程序,程序文件建立后，可以用多种方式、多次执行它。下面是两种常用的方式。,1）菜单方式,单击【程序】,|,【运行】菜单项，打开“运行”对话框；,从文件列表框中选择要运行的程序文件，并单击“运行”命令按钮，启动运行该程序文件,（2）命令方式,【格式】,DO,【功能】执行指定,、,下的程序文件,6,.,执行程序文件时，将依次执行文件中的命令，直到所有命令执行完毕，或者执行到以下命令：,CANCAL,：终止程序运行，清除所有的私有变量，返回命令窗口；,RETURN,：结束程序执行，返回调用它的上级程序，若无上级程序则返回命令窗口；,QUIT,：结束程序执行并退出,Visual FoxPro,系统，返回操作系统,7,.,2.4.3,简单的输入输出命令,3,简单的输入输出命令,1ACCEPT命令,【格式】ACCEPT TO ,【功能】在程序执行过程中，将用户交互式输入的内容作为字符串赋值给指定内存变量。,该命令只接受字符型数据，输入的字符串不需要加定界符,8,.,2,INPUT,命令,【格式】,INPUT TO ,【功能】在程序执行过程中，将用户交互式输入的内容赋值给指定内存变量,可以输入字符型、数值型、逻辑型、日期型和日期时间型等类型数据，而且可以是常量、变量、函数或表达式等形式，按回车键结束输入，系统将输入的数据赋值给,。,9,.,【例】,从键盘输入两个任意正数，编程求以两数为边长的长方形面积。程序文件名为,PROG4.PRG,SET TALK OFF,CLEAR,INPUT “长方形一边的长为：”TO A,INPUT “长方形另一边的长为：”TO B,S=A*B,?“长方形的面积为：”,S,SET TALK ON,RETURN,10,.,3,WAIT,命令,【格式】,WAIT TO WINDOW AT,NOWAIT CLEAR|NOCLEAR TIMEOUT,【功能】,显示提示信息，暂停程序执行，直到用户按任意键或单击鼠标时继续执行程序。,若选择可选项,TO,，将输入的单个字符作为字符型数据赋给指定的,；,若用户是按Enter键或单击鼠标，的值为空串。,若省略所有可选项，屏幕显示“键入任意键继续”默认提示信息,11,.,4,三条输入命令的异同,ACCEPT,命令只能接受字符型数据，不需定界符，输入完毕按回车键结束；,WAIT,命令只能输入单个字符，且不需定界符，输入完毕不需按回车键；,INPUT,命令可接受数值型、字符型、逻辑型、日期型和日期时间型数据，数据形式可以是常量、变量、函数和表达式，如果是字符串，需用定界符，输入完毕按回车键结束。,12,.,2.5程序的基本结构,Visual FoxPro程序由顺序结构、选择结构、循环结构三种基本结构构成。二是面向对象可视化的结构程序模块，在每个模块的内部也是由程序控制流组成。常见的控制结构如下：,1顺序结构,顺序结构是在程序执行时，根据程序中语句的书写顺序依次执行的命令序列。Visual FoxPro系统中的大多数命令都可以作为顺序结构中的语句。,2分支结构,分支结构是在程序执行时，根据不同的条件，选择执行不同的程序语句，用来解决有选择、有转移的诸多问题。,要 点,13,.,3循环结构,循环结构则能够使某些语句或程序段重复执行若干次。如果某些语句或程序段需要在一个固定的位置上重复操作，使用循环是最好的选择。,要 点,14,.,分支结构形式有如下三种：,1简单的条件语句,单向分支语句，即根据用户设置的条件表达式的值，决定某一操作是否执行。,（1）语句格式：,IF条件表达式,命令行序列,ENDIF,（2）语句功能：,该语句首先计算条件表达式的值，当条件表达式的值为真时，执行命令行序列；否则，执行ENDIF后面的第一条命令,。,例2.41,2.5.1 选择结构,要 点,15,.,【例】求一元二次方程,AX,2,BX,C,0,的实根。程序文件名为,PROG7.PRG,。,SET TALK OFF,CLEAR,INPUT TO A,INPUT TO B,INPUT TO C,ZB2-4*A*C,IF Z=0,X1=(-B+SQRT(Z)/(2*A),X2=(-B-SQRT(Z)/(2*A),?X1,X2,ENDIF,SET TALK ON,RETURN,16,.,2一般形式的条件语句,语句格式：,IF条件表达式,命令行序列1,ELSE,命令行序列2,ENDIF,（2）语句功能：,该语句首先计算条件表达式的值，当条件表达式的值为真时，执行命令行序列1中的命令；否则，执行命令行序列2中的命令；执行完命令行序列1或命令行序列2后都将执行ENDIF后面的第一条命令。,要 点,17,.,【例】编写一密码校验程序（假设密码为,ABC,）。程序文件名为,PROG10.PRG,。,SET TALK OFF,CLEAR,ACCEPT “请输入您的密码：”TO AAA,IF AAA=”ABC”,CLEAR,?”欢迎使用本系统！”,ELSE,?”密码错误！”,WAIT,QUIT,ENDIF,SET TALK ON,18,.,3多分支语句,语句格式：,DO CASE,CASE条件表达式1,命令行序列1,CASE条件表达式2,命令行序列2,CASE条件表达式N,命令行序列N,OTHERWISE,命令行序列N+1,ENDCASE,要 点,19,.,【例】假设收入（,P,）与税率（,R,）的关系如下表，编程求税金。程序文件名为,PROG12.PRG,。,0 P800,R=,0.05 800 P2000,0.08 2000P5000,0.1 P,5000,SET TALK OFF,CLEAR,INPUT “请输入收入：”TO P,DO CASE,CASE P800,R=0,CASE P2000,R=0.05,20,.,CASE P5000,R=0.08,OTHERWISE,R=0.1,ENDCASE,TAX=P*R,?”税金为：”,TAX,SET TALK ON,RETURN,21,.,4使用选择语句应注意的几点,（1）IF ENDIF和DO CASE ENDCASE 必须配对使用，DO CASE与第一个CASE条件表达式之间不应有任何命令。,（2）条件表达式可以是各种表达式或函数的组合，其值必须是逻辑值。,（3）命令行序列可以由一个或多个命令组成，可以是条件控制语句组成的嵌套结构。,（4）DO CASE ENDCASE 命令，每次最多只能执行一个命令行序列。在多个CASE项的条件表达式值为真时，只执行第一个条件表达式值为真的命令行序列，然后执行ENDCASE的后面的第一条命令。,要 点,22,.,2.5.2循环结构,1,DO WHILE,循环语句,【,格式,1,】DO WHILE ,ENDDO,要 点,一个循环结构一般应具备如下的条件：,（1）循环的初始条件：一般为给循环控制变量赋初值；,（2）循环头：循环语句的起始，设置、判断循环条件；,（3）循环尾：循环语句的结尾；,（4）循环体：位于循环头和循环尾之间、循环控制重复执行的语句序列,23,.,【,格式,2,】,DO WHILE ,LOOP,EXIT,ENDDO,LOOP,语句：强行返回到循环开始语句。,EXIT,语句：强行跳出循环，接着执行,ENDDO,后的语句,24,.,【例,2.44,】编程求,1,2,3,100,之和。程序文件名为,PROG16.PRG,。,SET TALK OFF,CLEAR,S=0,I=1,DO WHILE I=100,S=S+I,I=I+1,ENDDO,?”123100”,S,SET TALK ON,RETURN,25,.,2FOR循环语句,【格式】FOR=TO STEP,ENDFOR|NEXT,要 点,26,.,使用FOR循环语句的有关说明：,省略STEP，则步长为默认值1；,初值、终值和步长都可以是数值表达式，但这些表达式仅在循环语句开始执行时计算一次。循环语句执行过程中，初值、终值和步长是不会改变的，并由此确定循环的次数；,可以在循环体内改变循环变量的值，但会改变循环执行次数；,EXIT和LOOP命令可以出现在循环体内。执行LOOP命令时，结束本次循环，循环变量增加一个步长值，返回FOR循环头判断循环条件是否成立。执行EXIT命令时,程序跳出循环，执行循环尾后面的语句,27,.,【例,2.47,】从键盘输入,10,个数，编程找出其中的最大值和最小值。程序文件名为,PROG23.PRG,。,SET TALK OFF,CLEAR,INPUT“请从键盘输入一个数：”TO A,STORE A TO MAX,MIN,FOR I=2 TO 10,INPUT“请从键盘输入一个数：”TO A,IF MAXA,MIN=A,ENDIF,ENDFOR,?“最大值为：”MAX,?“最小值为：”,MIN,SET TALK ON,RETURN,28,.,【例,6-30,】输出,STUDENT,数据库的,STUD,表中所有团员的姓名和地址。程序文件名为,PROG30.PRG,。,SET TALK OFF,CLEAR,OPEN DATABASE STUDENT,USE STUD,SCAN FOR 是否团员,?姓名,地址,ENDSCAN,CLOSE DATABASE,SET TALK ON,RETURN,29,.,3、SCANENDSCAN语句,一般用于处理表中的记录，可以指明条件,30,.,4,使用循环语句时应注意的几点,（1）DO WHILE和ENDDO、FOR和ENDFOR、SCAN和ENDSCAN必须配对使用。,（2）命令行序列可以是任何FoxPro命令或语句，也可以是循环语句，即可以为多重循环。,（3）循环变量应是数值型的内存变量或数组元素。,（4）EXIT和LOOP命令嵌入在循环体内，可以改变循环次数，但是不能单独使用。EXIT的功能是跳出循环，转去执行ENDDO、ENDFOR、ENDSCAN后面的第一条命令；LOOP的功能是转回到循环的开始处，重新对“条件”进行判断，相当于执行了一次ENDDO、ENDFOR、ENDSCAN命令，它可以改变命令行序列中部分命令的执行次数。EXIT、LOOP可以出现在命令行序列的任意位置。,要 点,31,.,2.6 多模块程序设计,（略）,32,.,