（中职）Visual FoxPro 6.0教程第七章 程序初步设计教学课件.ppt

YCF正版可修改PPT（中职）Visual FoxPro 6.0教程第七章 程序初步设计教学课件第七章第七章 程序初步设计程序初步设计任务一任务一 程序文件的创建程序文件的创建任务二任务二 程序文件的修改及运行程序文件的修改及运行任务三任务三 三种基本控制结构三种基本控制结构任务四任务四 多模块程序多模块程序任务一任务一 程序文件的创建程序文件的创建一、一、认识程序文件认识程序文件 使用使用Visual FoxPro 6.0的日的就是要使用它的命令来组织、处理数的日的就是要使用它的命令来组织、处理数据和完成一些具体任务。许多任务单靠一条命令是无法完成的，而是据和完成一些具体任务。许多任务单靠一条命令是无法完成的，而是要执行一组命令来完成。如果采用在命令窗口中逐条输入命令的方式要执行一组命令来完成。如果采用在命令窗口中逐条输入命令的方式进行，不仅非常麻烦，而且容易出错。特别是当该任务需要反复执行进行，不仅非常麻烦，而且容易出错。特别是当该任务需要反复执行某几条命令时，这种逐条输入命令的方式几乎是不可行的。某几条命令时，这种逐条输入命令的方式几乎是不可行的。程序是能够完成一定任务、命令的有序集合。程序是能够完成一定任务、命令的有序集合。Visual FoxPro 6.0中的程序文件是由一条或多条中的程序文件是由一条或多条Visual FoxPro 6.0的命令组成，文件的扩展名为的命令组成，文件的扩展名为.prg，如，如图图7-1所示。所示。下一页返回任务一任务一 程序文件的创建程序文件的创建二、程序文件的书写规则二、程序文件的书写规则编写程序文件时，必须遵循以下程序文件的书写规则。编写程序文件时，必须遵循以下程序文件的书写规则。1.命令分行书写命令分行书写即每一行由一条语句或一条命令组成，且都以回车符结尾。即每一行由一条语句或一条命令组成，且都以回车符结尾。2.可以在适当的地方添加注释可以在适当的地方添加注释为了提高程序的可读性，在程序中可插入注释注释行以为了提高程序的可读性，在程序中可插入注释注释行以“。”号开始且号开始且注释语句对于程序的运行没有影响。注释语句对于程序的运行没有影响。上一页 下一页返回任务一任务一 程序文件的创建程序文件的创建三、建立程序文件三、建立程序文件建立程序文件有两种建立程序文件有两种:菜单方式和命令方式菜单方式和命令方式一、菜单方式一、菜单方式用菜单方式创建程序文件的操作步骤如用菜单方式创建程序文件的操作步骤如!下。下。单击单击“文件文件”菜单，选择菜单，选择“新建新建”子菜单，打开新建对话框，如图子菜单，打开新建对话框，如图7-2所示。所示。在在“文件类型文件类型”中选择程序，然后单击中选择程序，然后单击“新建文件新建文件”按钮，打开文本按钮，打开文本编辑窗口，如编辑窗口，如图图7-3所示。所示。在文木编辑窗口中输入程序文件的内容，如在文木编辑窗口中输入程序文件的内容，如图图7-4所示。所示。上一页 下一页返回任务一任务一 程序文件的创建程序文件的创建 单击工具栏中的单击工具栏中的“保存保存”按钮或者按钮或者“文件文件”菜单中的菜单中的“保存保存”命令，打命令，打开开“另存为另存为”对话框，在对话框中输入文件的保存位置和文件名，单击对话框，在对话框中输入文件的保存位置和文件名，单击保存，文件名出现在文本编辑器的标题栏中，如保存，文件名出现在文本编辑器的标题栏中，如图图7-5所示。所示。关闭文本编辑窗口。关闭文本编辑窗口。程序文件编辑完成后，需要将文本编辑窗口关闭，有以下四种方法程序文件编辑完成后，需要将文本编辑窗口关闭，有以下四种方法:方法一方法一:按下按下Ctrl+W方法二方法二:按按Esc键键方法三方法三:双击控制菜单按钮双击控制菜单按钮方法四方法四:单击文本编辑窗口的关闭按钮单击文本编辑窗口的关闭按钮上一页 下一页返回任务一任务一 程序文件的创建程序文件的创建2.命令方式命令方式用命令方式创建程序文件所使用的命令的格式及作用如下。用命令方式创建程序文件所使用的命令的格式及作用如下。格式格式:MODIFY COMMAND(程序文件名程序文件名)作用作用:打开文本编辑窗口，建立或修改程序文件打开文本编辑窗口，建立或修改程序文件用命令方式创建程序文件的具体操作步骤如下。用命令方式创建程序文件的具体操作步骤如下。在命令窗口中输入在命令窗口中输入MODIFY COMMAND 1x1.prg(假定要建立的程假定要建立的程序文件的名字为序文件的名字为1x1.prg)，如，如图图7-6所示。所示。按下按下Enter键，打开文本编辑窗口。键，打开文本编辑窗口。在文本编辑窗口中输入程序文件的内容。在文本编辑窗口中输入程序文件的内容。单击工具栏中的单击工具栏中的“保存保存”按钮按钮关闭文本编辑窗口关闭文本编辑窗口上一页返回任务二任务二 程序文件的修改及运行程序文件的修改及运行一、程序文件的修改一、程序文件的修改如果需要对已经创建好的程序文件进行修改如果需要对已经创建好的程序文件进行修改(假如需要修改实例假如需要修改实例.pry，可以按照以下方法进行修改。可以按照以下方法进行修改。1.项目管理器方式项目管理器方式使用项目管理器对程序文件进行修改的操作步骤如下。使用项目管理器对程序文件进行修改的操作步骤如下。在项目管理器的在项目管理器的“代码代码”选项卡中，选中要修改的程序文件，如选项卡中，选中要修改的程序文件，如图图7-7所示。所示。单击单击“修改修改”按钮，打开文本编辑窗口，在该窗口中修改命令行内按钮，打开文本编辑窗口，在该窗口中修改命令行内容容单击工具栏中的单击工具栏中的“保存保存”按钮保存该文件，然后关闭文本编辑窗口。按钮保存该文件，然后关闭文本编辑窗口。下一页返回任务二任务二 程序文件的修改及运行程序文件的修改及运行 2.命令窗口方式命令窗口方式在命令窗口中，输入在命令窗口中，输入MODIFY COMMAND实例实例.prg，按，按Enter确认，确认，打开文本编辑窗口。打开文本编辑窗口。单击在该窗口中修改命令行内容。单击在该窗口中修改命令行内容。单击工具栏中单击工具栏中“保存保存”按钮，然后关闭文本编辑窗口。按钮，然后关闭文本编辑窗口。二、运行程序文件二、运行程序文件 建立好程序文件后，要想让它发挥作用，必须运行它。常用的运行方建立好程序文件后，要想让它发挥作用，必须运行它。常用的运行方式肩两种。式肩两种。1.菜单方式菜单方式单击单击“程序程序”菜单，选中菜单，选中“运行运行”命令，打开如命令，打开如图图7-8所示的所示的“运行运行”对对话框。话框。上一页 下一页返回任务二任务二 程序文件的修改及运行程序文件的修改及运行 在在“运行运行”对话框中，选中要运行的程序文件，并单击对话框中，选中要运行的程序文件，并单击“运行运行”按钮按钮运行结果如运行结果如图图7-9所示。所示。2.命令方式命令方式命令格式命令格式:DO(文件名文件名)在命令窗口中输入在命令窗口中输入“DO实例实例.prg”，按，按Enter键确认后，即可出现键确认后，即可出现图图7-9所示的运行结果。所示的运行结果。使用以上两种方法中的任何一种，都可以运行程序文件。当程序文件使用以上两种方法中的任何一种，都可以运行程序文件。当程序文件被执行时，文件中的命令按出现的先后次序依次执行，但是遇到以下被执行时，文件中的命令按出现的先后次序依次执行，但是遇到以下命令，会改变执行顺序。命令，会改变执行顺序。上一页 下一页返回任务二任务二 程序文件的修改及运行程序文件的修改及运行CANCAL:终止程序运行，清除所有的私有变量，返回命令窗口终止程序运行，清除所有的私有变量，返回命令窗口RETURN:结束当前程序，返回到调用它的上级程序，如果没有上结束当前程序，返回到调用它的上级程序，如果没有上级程序则返回到命令窗口级程序则返回到命令窗口DO:遇到遇到DO命令，转去执行另一个程序。命令，转去执行另一个程序。QUIT:退出退出Visual Foxpro 6.0，返回到操作系统，返回到操作系统上一页返回任务三任务三 三种基本控制结构三种基本控制结构一、顺序结构一、顺序结构顺序结构是最基本的程序结构，在运行时按照语句的排列顺序，一条顺序结构是最基本的程序结构，在运行时按照语句的排列顺序，一条接一条地依次执行，一直将所有语句都执行完。接一条地依次执行，一直将所有语句都执行完。【例【例1】计算以】计算以10为半径的圆的体积，并输出计算结果为半径的圆的体积，并输出计算结果程序如下程序如下:clearr=10V=4/3*3.1416*r*r*r?”以以In为半径的圆的体积是为半径的圆的体积是:”，vreturn下一页返回任务三任务三 三种基本控制结构三种基本控制结构 以以“实例实例1.prg”为文件名保存程序，并在命令窗口中运行该程序，运为文件名保存程序，并在命令窗口中运行该程序，运行结果如行结果如图图7-10所示。所示。二、选择结构二、选择结构在解决实际问题时，仅仅用顺序结构是不行的，比如计算个人所得税在解决实际问题时，仅仅用顺序结构是不行的，比如计算个人所得税时，要根据个人工资的多少，交不同比例的个人所得税。这就需要程时，要根据个人工资的多少，交不同比例的个人所得税。这就需要程序能进行判断序能进行判断Visual FoxPro 6.0提供了另外一种结构提供了另外一种结构:选择结构。选择结构。实现选择结构的语句有条件语句和分支语句。实现选择结构的语句有条件语句和分支语句。上一页 下一页返回任务三任务三 三种基本控制结构三种基本控制结构1.条件语句条件语句(1)IF语句语句语句格式语句格式:IF ENDIF该结构执行时，首先判断该结构执行时，首先判断，如果为真，则执行，如果为真，则执行，执，执行完行完后，执行后，执行ENDIF的下一条语句的下一条语句;如果如果为假，则不为假，则不执行执行，直接执行，直接执行ENDIF的下一条语句如的下一条语句如图图7-11所示所示上一页 下一页返回任务三任务三 三种基本控制结构三种基本控制结构【例【例2】根据键盘上输入的学生的分数，显示及格学生的成绩】根据键盘上输入的学生的分数，显示及格学生的成绩60分及分及60分以上分以上及格及格60分以下分以下不及格不及格程序如下程序如下:clearinput“学生的成绩学生的成绩=”to score&该命令的作用是从键盘上接收一个该命令的作用是从键盘上接收一个数据赋给内存变量数据赋给内存变量scoreif score=60?scoreendifreturn上一页 下一页返回任务三任务三 三种基本控制结构三种基本控制结构 以以“程序程序1.prg”为文件名保存程序，并在命令窗口中运行该程序，运为文件名保存程序，并在命令窗口中运行该程序，运行结果如行结果如图图7-12所示。所示。(2)IF-ELSE一语句一语句IF ELSE ENDIF上一页 下一页返回任务三任务三 三种基本控制结构三种基本控制结构 执行该结构时，首先判断执行该结构时，首先判断，如果成立，则执行，如果成立，则执行，执，执行完行完后，接着执行后，接着执行ENDIF下面的第一条语句下面的第一条语句;如果如果为为假，则执行假，则执行，执行完，执行完后，接着执行后，接着执行ENDIF下面下面的第一条语句。如的第一条语句。如图图7-13所示所示.【例【例3】某地至上海的邮路里程为】某地至上海的邮路里程为1520千米，通过邮局向上海发送包千米，通过邮局向上海发送包裹，计费标准每克为裹，计费标准每克为0.10元，但超过元，但超过60克，超出每克为克，超出每克为0.08元设要元设要发送包裹的重量为发送包裹的重量为90克，试编写程序计算邮费。克，试编写程序计算邮费。上一页 下一页返回任务三任务三 三种基本控制结构三种基本控制结构程序如下程序如下:hg=90if hg=60 yf=bg*0.1else yf=60*0.1+(gb-60)*0.08endif?90克的包裹邮费为克的包裹邮费为:，yfreturn 以以“程序程序2.prg”为文件名保存程序，并在命令窗口中运行该程序，运为文件名保存程序，并在命令窗口中运行该程序，运行结果如行结果如图图7-14所示。所示。上一页 下一页返回任务三任务三 三种基本控制结构三种基本控制结构2.分支语句分支语句分支语句实现的是选择语句的扩展，它可以根据条件从多组代码中选分支语句实现的是选择语句的扩展，它可以根据条件从多组代码中选择一组执行。择一组执行。语句格式语句格式:DO CASECASECASE上一页 下一页返回任务三任务三 三种基本控制结构三种基本控制结构CASE【OTHERWISE】ENDCASE语句执行时，依次判断语句执行时，依次判断CASE后面的条件是否成立。当发现某个后面的条件是否成立。当发现某个CASE后面的条件成立，就执行该后面的条件成立，就执行该CASE和下一个和下一个CASE之间的语句，之间的语句，然后执行然后执行ENDCASE下面的第一条语句下面的第一条语句;如果所有的条件都不成立，则如果所有的条件都不成立，则执行执行OTHERWISE后面的语句，然后执行后面的语句，然后执行ENDCASE下面的第一条语下面的第一条语句句;如果所有的条件都不成立，且没有如果所有的条件都不成立，且没有OTHERWISE子句，则直接跳子句，则直接跳出本结构，执行出本结构，执行ENDCASE下面的第一条语句。如下面的第一条语句。如图图7一一16所示。所示。上一页 下一页返回任务三任务三 三种基本控制结构三种基本控制结构【例【例5】根据从键盘上输入的学生的分数，显示该成绩的等次】根据从键盘上输入的学生的分数，显示该成绩的等次90分及分及90分以上优分以上优8089分良分良70 79分中分中60 69分及格分及格60分以下不及格分以下不及格上一页 下一页返回任务三任务三 三种基本控制结构三种基本控制结构程序如下程序如下:input”请输入学生的成绩请输入学生的成绩:”to scoredo casecase score=90 and score=80 and score=70 and score=60 and score=69上一页 下一页返回任务三任务三 三种基本控制结构三种基本控制结构?”及格及格”case score60?”不及格不及格”otherwise?”输入错误输入错误”endcaseset talk onreturn 以以“程序程序4.prg”为文件名保存程序，并在命令窗口中运行该程序，运为文件名保存程序，并在命令窗口中运行该程序，运行结果如行结果如图图7一一17所示。所示。上一页 下一页返回任务三任务三 三种基本控制结构三种基本控制结构三、循环结构三、循环结构循环结构也称为重复结构，是指在程序的执行过程中，其中的某段代循环结构也称为重复结构，是指在程序的执行过程中，其中的某段代码在满足指定条件下被重复执行了若干次。被重复执行的代码段，通码在满足指定条件下被重复执行了若干次。被重复执行的代码段，通常称为循环体。实现循环结构的语句包括常称为循环体。实现循环结构的语句包括:DO WHILE-ENDDO 、FOR-ENDFOR和和SCAN-END-SCAN语句。语句。1.DO WHILE ENDDO语句语句语句格式语句格式:DO WHILE 【LOOP】上一页 下一页返回任务三任务三 三种基本控制结构三种基本控制结构 【EXIT】ENDDO执行该语句时，先判断执行该语句时，先判断DOWHILE处的循环条件是否成立，如果条件处的循环条件是否成立，如果条件为真，则执行为真，则执行DOWHILE与与ENDDO之间的语句组之间的语句组(循环体循环体)。当执行到。当执行到ENDD()时，返回到时，返回到DOWHILE，再次判断循环条件是否为成立，如果成立，再次判断循环条件是否为成立，如果成立，则再次执行循环体则再次执行循环体;若循环条件为假，则结束该循环语句，执行若循环条件为假，则结束该循环语句，执行ENDD()后面的第一条语句。后面的第一条语句。DOWHILE-ENDD()语句又被称为语句又被称为“当当”型循环语型循环语句。循环语句执行过程如句。循环语句执行过程如图图7一一18所示。所示。上一页 下一页返回任务三任务三 三种基本控制结构三种基本控制结构说明说明:可以是条件表达式或逻辑常量。可以是条件表达式或逻辑常量。DO WHILE与与ENDD()之间的部分是之间的部分是成立时执行的循环体。成立时执行的循环体。EXIT是无条件结束循环命令，使程序跳出是无条件结束循环命令，使程序跳出DO WHILEENDD()循循环，转去执行环，转去执行ENDD()后的第一条语句。后的第一条语句。LOOP是将控制直接转回到是将控制直接转回到DOWHILE语句、不执行语句、不执行LOOP和和ENDD()之间的命令。之间的命令。DO WHILE ENDDO必须各占一行。必须各占一行。【例【例6】计算】计算1100之间的整数和。之间的整数和。上一页 下一页返回任务三任务三 三种基本控制结构三种基本控制结构程序如下程序如下:clears=0i=1do while i=100s=s+ii=i+1enddo?1-100的和的和”，sreturn上一页 下一页返回任务三任务三 三种基本控制结构三种基本控制结构 以以“程序程序5.prg”为文件名保存程序，并在命令窗口中运行该程序，运为文件名保存程序，并在命令窗口中运行该程序，运行结果如行结果如图图7-20所示。所示。2.FORwENDFOR语句语句在使用循环语句设计程序时，如果循环次数固定时，可以使用在使用循环语句设计程序时，如果循环次数固定时，可以使用FOREND-FOR循环语句，循环语句，FOR ENDFOR循环语句又被称为循环语句又被称为“记记数型数型”循环语句。其语句格式如下循环语句。其语句格式如下:FOR=To【STEP】ENDFOR上一页 下一页返回任务三任务三 三种基本控制结构三种基本控制结构说明说明:的默认值是的默认值是1。、都可以是数值表达式都可以是数值表达式)。可以在循环体内改变循环变量的值，但这会影响循环体的执行次数。可以在循环体内改变循环变量的值，但这会影响循环体的执行次数。LOOP和和EXIT命令同样可以出现在该循环语句的循环体内。命令同样可以出现在该循环语句的循环体内。上一页 下一页返回任务三任务三 三种基本控制结构三种基本控制结构【例【例7】计算】计算n！。！。clearinput输入数值输入数值:to nj=1for i=1 to nj=j*iendfor?str(n)+!=,jendcase以以“程序程序6.prg”为文件名保存程序，并在命令窗口中运行该程序，运为文件名保存程序，并在命令窗口中运行该程序，运行结果如行结果如图图7-21所示。所示。上一页 下一页返回任务三任务三 三种基本控制结构三种基本控制结构3.SCANENDSCAN语句语句该循环语句一般用于处理表中的记录。语句可指明需要处理的记录范该循环语句一般用于处理表中的记录。语句可指明需要处理的记录范围。围。语句格式为语句格式为:scan【范围】【范围】【for条件条件1】【while 条件条件2】循环体循环体endscan执行该语句时，记录指针自动、依次移动，只要在当前表指定范围内执行该语句时，记录指针自动、依次移动，只要在当前表指定范围内的记录满足条件，就执行循环体。一直到超出范围，退出循环。的记录满足条件，就执行循环体。一直到超出范围，退出循环。说明说明:【范围】的默认值是【范围】的默认值是allEXIT和和LOOP命令同样可以出现在该循环语句的循环体内。命令同样可以出现在该循环语句的循环体内。上一页 下一页返回任务三任务三 三种基本控制结构三种基本控制结构【例【例8】用】用scan endscan显示教师显示教师.dbf表的全部记录表的全部记录use教师教师scandisplayendscanreturn4.双重循环双重循环一个循环体中包含着另一个循环，这种循环结构称为双重循环结构一个循环体中包含着另一个循环，这种循环结构称为双重循环结构【例【例10】计算】计算:t=1!+2!+3!+10!上一页 下一页返回任务三任务三 三种基本控制结构三种基本控制结构程序如下程序如下:t=0for n=1 to 10p=1for i=1 to np=p*iendfort=t+pendfor?t=，treturn上一页 下一页返回任务三任务三 三种基本控制结构三种基本控制结构使用双重循环结构设计程序时，需要注意以下几点使用双重循环结构设计程序时，需要注意以下几点:内层循环必须被完整的包括在外层循环之中，绝对禁止出现交叉结内层循环必须被完整的包括在外层循环之中，绝对禁止出现交叉结构。构。外层循环一次，内层循环一轮外层循环一次，内层循环一轮内循环不要随意改变或控制外循环的变量内循环不要随意改变或控制外循环的变量用户可以从双重循环的概念推广到多重循环。用户可以从双重循环的概念推广到多重循环。上一页 返回任务四任务四 多模块程序多模块程序一、子程序一、子程序在程序设计过程中，会遇到需要多次使用同一功能的情况，如果每次在程序设计过程中，会遇到需要多次使用同一功能的情况，如果每次在使用该功能的位置上都给出相同的程序段，必然会造成一种浪费，在使用该功能的位置上都给出相同的程序段，必然会造成一种浪费，也给调试程序带来不便。为了克服以上缺点，可以把功能相同的程序也给调试程序带来不便。为了克服以上缺点，可以把功能相同的程序单独建立一个程序段，在程序中根据需要多次调用这个程序段，这个单独建立一个程序段，在程序中根据需要多次调用这个程序段，这个程序段就是子程序。程序段就是子程序。下一页返回任务四任务四 多模块程序多模块程序二、建立子程序二、建立子程序子程序可以被别的程序多次调用，调用子程序的程序被称为主程序，子程序可以被别的程序多次调用，调用子程序的程序被称为主程序，被调用的程序称为子程序，子程序执行完后会自动返回到调用它的主被调用的程序称为子程序，子程序执行完后会自动返回到调用它的主程序。程序。建立子程序的方法和建立程序的方法一样，有菜单方式和命令方式两建立子程序的方法和建立程序的方法一样，有菜单方式和命令方式两种，子程序的扩展名为种，子程序的扩展名为.prg。子程序一般以。子程序一般以return命令结束，确保能命令结束，确保能返回调用它的主程序当执行返回调用它的主程序当执行return to master命令时，则返回到最高命令时，则返回到最高一级的主程序。一级的主程序。上一页 下一页返回任务四任务四 多模块程序多模块程序三、调用子程序三、调用子程序 调用子程序使用的命令是调用子程序使用的命令是DO命令，其格式为命令，其格式为:DOI【WITH】说明说明:主程序调用子程序时，常常需要传递参数，主程序调用子程序时，常常需要传递参数，WITH子句子句指定传递到子程序或过程的参数，在指定传递到子程序或过程的参数，在中列出的参数可以是表中列出的参数可以是表达式、内存变量、常量、字段名或用户自定义函数，各参数用逗号隔达式、内存变量、常量、字段名或用户自定义函数，各参数用逗号隔开。开。主程序调用子程序和子程序返回的过程，如主程序调用子程序和子程序返回的过程，如图图7一一22所示。所示。上一页 下一页返回任务四任务四 多模块程序多模块程序【例【例11】设计一个计算圆球体积的子程序，要求在主程序中带参数调】设计一个计算圆球体积的子程序，要求在主程序中带参数调用它。用它。主程序如下主程序如下:*main.prgclearinput”请输入半径请输入半径:”to rv=0do tj with r，v?”体积体积(V)=”，vreturn上一页 下一页返回任务四任务四 多模块程序多模块程序子程序如下子程序如下:*tj.prgparameters r1，v1v1=3.1416*r1*r1return运行结果如运行结果如图图7-23所示。所示。上一页 下一页返回任务四任务四 多模块程序多模块程序四、过程四、过程如果将多模块程序中的每个程序都分别保存在一个命令文件中，则每如果将多模块程序中的每个程序都分别保存在一个命令文件中，则每次执行一个程序就需要打开一个命令文件。这样势必会降低系统运行次执行一个程序就需要打开一个命令文件。这样势必会降低系统运行速度。为了解决这个问题，速度。为了解决这个问题，Visual FoxPro 6.0允许在一个文件中放允许在一个文件中放置多个程序，这种文件被称为置多个程序，这种文件被称为“过程文件过程文件”，扩展名也为，扩展名也为.prg创建过程文件的方法和其他命令文件一样，过程文件的一般格式如下创建过程文件的方法和其他命令文件一样，过程文件的一般格式如下:PROCEDURE【PARAMETERSRETURNENDPROC上一页 下一页返回任务四任务四 多模块程序多模块程序说明说明:过程文件中的每一个过程都必须以过程文件中的每一个过程都必须以PROCEDURE开头。开头。过程中的过程中的RETURN语句，用来控制返回调用它的程序。语句，用来控制返回调用它的程序。过程文件中的每一个过程都是相对独立的。过程文件中的每一个过程都是相对独立的。五、自定义函数五、自定义函数 Visual FoxPro 6.0为用户提供了大量的内部函数，给用户编程带来为用户提供了大量的内部函数，给用户编程带来了极大的方便，但并不能完全满足每个用户的需要，用户可以根据需了极大的方便，但并不能完全满足每个用户的需要，用户可以根据需要，自定义函数。要，自定义函数。自定义函数的格式如下自定义函数的格式如下:FUNCTION【PARAMETERS】上一页 下一页返回任务四任务四 多模块程序多模块程序RETURN【】ENDFUNC 说明说明:自定义函数即可以作为一个独立的程序文件，也可以放在某个程序自定义函数即可以作为一个独立的程序文件，也可以放在某个程序后面，但是不能将函数放在主程序前面。后面，但是不能将函数放在主程序前面。如果自定义函数名与如果自定义函数名与Visual FoxPro 6.0的内部函数名相同，系统的内部函数名相同，系统只承认内部函数，因此自定义函数名不能与内部函数重名。只承认内部函数，因此自定义函数名不能与内部函数重名。其函数值的数据类型取决于其函数值的数据类型取决于RETURN语句中语句中“表达式表达式”的数据类型。的数据类型。如果省略如果省略“表达式表达式”，则返回，则返回.T.。调用自定义函数，和调用系统函数的调用方法相同，其形式为调用自定义函数，和调用系统函数的调用方法相同，其形式为:函函数名数名(参数表参数表)。上一页 下一页返回任务四任务四 多模块程序多模块程序【例【例13】利用自定义函数计算】利用自定义函数计算c=a2+b2程序如下程序如下:上一页 下一页返回任务四任务四 多模块程序多模块程序【例【例14】分别在命令窗口、程序中调用自定义函数】分别在命令窗口、程序中调用自定义函数mn,a=4，b=6(1)在命令窗口中调用自定义函数在命令窗口中调用自定义函数mn在命令窗口中输入在命令窗口中输入“?mn(4,6)”，按下，按下Enter键键.显示如显示如图图7-25所示运所示运行结果。行结果。(2)在程序中调用自定义函数在程序中调用自定义函数mn新建命令文件新建命令文件a.prg，在，在a.prg编写程序编写程序:?mn(4,6),运行命令文件运行命令文件“aprg”，运行结果如，运行结果如图图7-26所示。所示。上一页 下一页返回任务四任务四 多模块程序多模块程序六、课后作业六、课后作业 1.从键盘读入一个数，判断它的正负。是正数，则输出从键盘读入一个数，判断它的正负。是正数，则输出“+”;是负数，是负数，则输出则输出“-”。2.从键盘读入两个数从键盘读入两个数a，b，输出较大数的平方值。，输出较大数的平方值。3.从键上读入从键上读入3个数，按照由大到小的顺序将它们打印出来。将大、个数，按照由大到小的顺序将它们打印出来。将大、中、小中、小3个数分别放在个数分别放在A,B,C中。中。4.从键上读入一个数，输出它是奇数还是偶数从键上读入一个数，输出它是奇数还是偶数?上一页 下一页返回任务四任务四 多模块程序多模块程序5.函数函数y如下如下:Y=0(x0)Y=2x(0=x=10)Y=2x+1(10=x50)Y=x/2+50(50=x)编写程序，当输入编写程序，当输入x后输出后输出y的值。的值。6.铁路托运行李规定铁路托运行李规定:行李的重量不超过行李的重量不超过50千克的，托运费按每千克千克的，托运费按每千克0.15元计费元计费;如超如超50千克，超过部分每千克加收千克，超过部分每千克加收0.10元。编一程序完成元。编一程序完成自动计费工作。自动计费工作。上一页 下一页返回任务四任务四 多模块程序多模块程序7.某运输公司的运费标准如下某运输公司的运费标准如下:(1)当运输距离当运输距离s300千米时千米时:货重货重w2吨时吨时.按按98%收费收费:2 w4吨时吨时.按按96%收费收费:4 w6吨时，吨时，按按94%收费收费:w 6时，按时，按92%收费。收费。(2)当运输距离当运输距离s300千米时千米时:货重货重w2吨时吨时.按按100%收费收费:2 w4吨时吨时.按按98%收费收费:4 w6吨时，吨时，按按96%收费收费:w 6时，按时，按94%收费。收费。写程序前，设写程序前，设f为每吨每千米的运费，为每吨每千米的运费，s，w为输入数据为输入数据(均为整数均为整数)，money(输出输出)为向用户收取的费用。为向用户收取的费用。上一页 下一页返回任务四任务四 多模块程序多模块程序8.键盘任意输入键盘任意输入a,h,c表示一元二次方程表示一元二次方程ax2+bx+c=0的系数，编的系数，编程求解方程的根或输出无解信息。程求解方程的根或输出无解信息。9.输入某学生成绩，根据成绩的好坏输出相应的评语。如果成绩在输入某学生成绩，根据成绩的好坏输出相应的评语。如果成绩在90以上输出评语以上输出评语:优秀优秀(outstanding);如果成绩在如果成绩在6089,输出评语输出评语:良好良好(satisfactory);如果成绩不足如果成绩不足60分，输出评语分，输出评语:不及格不及格(unsatisfactory)。10.某市出租车费起价为某市出租车费起价为6元，可以行驶元，可以行驶3千米，千米，3千米后价格按每千米千米后价格按每千米1.5元计算，输入出租车行驶的公里数，请你编程计算出顾客应该付元计算，输入出租车行驶的公里数，请你编程计算出顾客应该付费多少费多少?11.某超市为了促销，规定某超市为了促销，规定:购物不足购物不足100元的按原价付款，超过元的按原价付款，超过100不不足足200的按的按9折付款，超过折付款，超过200元的按元的按8.5折付款编一程序完成超市的折付款编一程序完成超市的自动计费。自动计费。上一页 下一页返回任务四任务四 多模块程序多模块程序12.求求1100全部奇数之和全部奇数之和13.求求1 000以内所有的水仙花数以内所有的水仙花数(所谓水仙花数是指一个数，比如一个所谓水仙花数是指一个数，比如一个三位数，其各位数字的立方和等于该数本身三位数，其各位数字的立方和等于该数本身(如如153=13+53+33)14.编写一个子程序计算编写一个子程序计算N!，要求在主程序中带参数调用它，要求在主程序中带参数调用它15.编写一个过程计算编写一个过程计算N!，要求在主程序带参数调用它，计算，要求在主程序带参数调用它，计算15!+16!+17!。16.编写一个自定义函数计算编写一个自定义函数计算N!，利用自定义函数计算，利用自定义函数计算15!+16!+17!。上一页 返回图图7-1命令文件编辑窗口命令文件编辑窗口返回图图7-2“新建新建”对话框对话框返回图图7-3文本编辑窗口文本编辑窗口返回图图7-4输入程序文件的内容输入程序文件的内容返回图图7-5保存好的程序文件保存好的程序文件返回图图7一一6用命令方式创建程序文件用命令方式创建程序文件返回图图7一一7在项目管理器中选中要修改的程在项目管理器中选中要修改的程序文件序文件返回图图7-8“运行运行”对话框对话框返回图图7一一9运行结果运行结果返回图图7-10“例例1”运行结果运行结果返回图图7-11 IF语句流程图语句流程图返回图图7一一12“例例2”运行结果运行结果返回图图7-13 IF-ELSE语句流程图语句流程图返回图图7一一14“例例3”运行结果运行结果返回图图7-16分支语句流程图分支语句流程图返回图图7-17“例例5”运行结果运行结果返回图图7-18 DO WHILE-ENDDO语句语句返回图图7-20“例例6”运行结果运行结果返回图图7-21“例例7”运行结果运行结果返回图图7-22子程序调用示意图子程序调用示意图返回图图7-23“例例11”运行结果运行结果返回图图7-25“例例14”运行结果运行结果返回图图7-26在程序中调用自定义函数在程序中调用自定义函数返回