6VF程序设计3ppt课件

1、 程序设计初步程序设计初步3 3）要点：要点： 1、建立模块化程序设计的观念、建立模块化程序设计的观念2、掌握自定义方法的使用、掌握自定义方法的使用 3、掌握变量的作用域、掌握变量的作用域 4、了解过程、自定义函数、了解过程、自定义函数 程序设计的三种基本结构：顺序结构分支结构循环结构一、程序设计为什么要引入模块化一、程序设计为什么要引入模块化模块化设计思想模块化设计思想【例1】设计如图所示表单，计算组合数C(m,n)。其中，m和n是正整数，且mn。)!( !nmnmCnm“计算命令按钮的计算命令按钮的CLICKCLICK事事件代码如下：件代码如下：M=thisform.text1.value

2、N=thisform.text2.valuep1=1for i=1 to m p1=p1*iendforp2=1for i=1 to n p2=p2*iendforp3=1for i=1 to m-n p3=p3*iendforresult=p1/(p2*p3)Thisform.text3.value=resultreturn数据数据输入输入求求m!求求n!求求(m-n)! 将求阶乘的问题写成一个共有的代将求阶乘的问题写成一个共有的代码码, ,代码如下：代码如下：*自定义方法自定义方法JCparameters xy=1for i=1 to x y=y*iendforReturn Y*“计算命令

3、按钮的计算命令按钮的CLICK事事件：件：M=THISFORM.TEXT1.VALUEN=THISFORM.TEXT2.VALUES1=THISFORM.JC(M)S2=THISFORM.JC(N)S3=THISFORM.JC(M-N)THISFORM.TEXT3.VALUE=S1/(S2*S3) 二、模块化的基本思想二、模块化的基本思想 u分而治之的策略是人们处理复分而治之的策略是人们处理复杂问题时的一般策略。它将一个大杂问题时的一般策略。它将一个大的任务分解为多个任务，分而治之，的任务分解为多个任务，分而治之，协作处理，共同完成。协作处理，共同完成。uu分解优化。不同的人分解的策略是分解优

4、化。不同的人分解的策略是不一样，因此分解也有好有坏。不一样，因此分解也有好有坏。（1 1精简主程序精简主程序 提高可读性，同提高可读性，同时便于以后程序的维护。时便于以后程序的维护。 （2 2减少重复片段减少重复片段 sub1 sub1内的命令原本内的命令原本在主程序会出现两次，而改成调在主程序会出现两次，而改成调用子程序后，便只出现两次用子程序后，便只出现两次“调调用用sub1sub1命令，因此可以减少命令，因此可以减少重复片段，并且以后重复片段，并且以后sub1sub1内的内的命令若需修改时，只要改一个地命令若需修改时，只要改一个地方就可以了，而不需要同时修改方就可以了，而不需要同时修改多

5、处。多处。 三、模块化程序设计的主要优点三、模块化程序设计的主要优点在在Visual FoxProVisual FoxPro中，子程序的结构可分中，子程序的结构可分为下列几种：为下列几种：过程过程自定义函数自定义函数自定义方法自定义方法 结构化程序结构化程序可视化程序可视化程序自定义方法自定义方法（1方法的分类方法的分类 VFP的方法分为两类：内部方法的方法分为两类：内部方法和用户自定义方法。和用户自定义方法。内部方法是内部方法是VFP预制的子程序，可供用预制的子程序，可供用户直接调用或修改后使用，如在前面户直接调用或修改后使用，如在前面章节中所使用过的章节中所使用过的Release、SetF

6、ocus等方法。等方法。用户自定义方法其实就是用户为某种用户自定义方法其实就是用户为某种需要编写的子程序。需要编写的子程序。1、自定义方法的建立和调用、自定义方法的建立和调用（2方法的命名规则方法的命名规则VFP中方法的命名规则如下：中方法的命名规则如下：由字母、汉字、下划线和数字组成，由字母、汉字、下划线和数字组成，并且必须以字母、汉字或下划线开头。并且必须以字母、汉字或下划线开头。可以是可以是1128个字符。个字符。不能使用不能使用vfp的保留字的保留字方法名不要与变量名、数组名相同，方法名不要与变量名、数组名相同，取名尽量取名尽量“见名知意见名知意”。（3方法建立的步骤方法建立的步骤 定

7、义方法定义方法 编写方法代码。编写方法代码。 ( (教材教材P71) P71) 【例【例3-153-15】自定义方法】自定义方法addtxtaddtxt，将文本框，将文本框中输入的文本添加到编辑框中，并将文本框中的文本中输入的文本添加到编辑框中，并将文本框中的文本设置为蓝颜色，编辑框中的文本设置为红颜色。设置为蓝颜色，编辑框中的文本设置为红颜色。 1方法定义（1添加新方法addtxt。打开表单设计器选择“表单中的“新建方法程序命令打开的“新建方法程序对话框在“称号框中输入方法的名称(如下图) 单击添加按钮单击关闭按钮，退出该对话框。留意：只有表单对象可以添加自定义方法。留意：只有表单对象可以添

8、加自定义方法。输入方法名输入方法名输入对该方法的描述，也可以不加输入对该方法的描述，也可以不加（2编写addtxt方法的代码。 双击表单空白处，翻开“代码窗口，在“过程下拉列表中选择“addtxt”，然后编写代码，如下图。将文本框中输入的内容添加到编辑框将文本框中输入的内容添加到编辑框回车键回车键2编写控件的事件代码（1）“添加命令按钮的“Click事件代码如下： thisform.addtxt()（2）“封锁命令按钮的“Click事件代码如下： thisform.release表单的自定义方法表单的自定义方法addtxt表单的内部方法表单的内部方法release文本框的内部方法文本框的内部方

9、法3运行结果2、参数传递与方法的返回值、参数传递与方法的返回值（1参数传递参数传递 如果需要方法能够接收参数，如果需要方法能够接收参数，则在方法代码开始部分增加下面的命则在方法代码开始部分增加下面的命令行：令行： PARAMETERS 或或 LAPRAMETERS 调用时使用括号将实参括起来：调用时使用括号将实参括起来： 对象名对象名.方法名方法名() 阐明：见教材阐明：见教材P75（2方法的返回值方法的返回值 如果需要一个返回值，则要在如果需要一个返回值，则要在方法代码的结束处增加下面的命令行：方法代码的结束处增加下面的命令行： RETURN 如果缺省如果缺省，vfp将自动将自动返回返回.T

10、.。当代码执行到。当代码执行到 RETURN命令命令时，程序流程立即返回到主程序中。时，程序流程立即返回到主程序中。（3方法的调用形式方法的调用形式 在主程序中可以使用以下形式调在主程序中可以使用以下形式调用方法：用方法：在表达式中调用方法，例如，在表达式中调用方法，例如， y=2+Thisform.New(x)。在赋值语句中调用方法，例如，在赋值语句中调用方法，例如，y=Thisform.New(x)。以等号命令调用方法，例如，以等号命令调用方法，例如，=Thisform.New(x)。以该形式调用的方法。以该形式调用的方法将舍弃返回值。将舍弃返回值。( (教材教材P74) P74) 【例【

11、例3-163-16】编写分数化简程序，在其中调】编写分数化简程序，在其中调用求最大公约数的自定义方法用求最大公约数的自定义方法gysgys。 编写求最大公约数的自定义方法gys代码 编写“=”按钮的Click事件代码：a=Thisform.Text1.Valueb=Thisform.Text2.ValueIF a*b0s= Thisform.gys(a,b)Thisform.Text3.value=INT(a/s)Thisform.Text4.value=INT(b/s)ENDIF 在赋值语句中调用方法在赋值语句中调用方法EXM1EXM1p83)p83)：设计如图所示表单，：设计如图所示表单，

12、3 3文本框的初值为文本框的初值为0 0，运行表单后，在运行表单后，在3 3个文本框中都输入个文本框中都输入1 1，单击，单击“command1“command1按钮，标签按钮，标签label2label2和和label3label3分别会显示什么？分别会显示什么？ Command1的的click事件代码：事件代码：i=thisform.text1.valuea=thisform.text2.valueb=thisform.text3.valuey1=DO WHILE i=3g1( )y1=y1+P(+STR(i,1)+)=+STR(a,2)+ i=i+1ENDDOth

13、isform.label2.caption=y1thisform.label3.caption=b=+STR(b,2)自定义方法程序自定义方法程序prog1:a=a*2b=b+areturnP(1)=2 P(2)=4 P(3)=8b=15 变量的作用域变量的作用域 根据使用范围，可以将变量分成以下根据使用范围，可以将变量分成以下3类：类：私有变量私有变量全局变量全局变量局部变量局部变量私有变量私有变量 私有变量的使用原则是：上层程序主程私有变量的使用原则是：上层程序主程序中，所定义的私有变量，可以在下层程序序中，所定义的私有变量，可以在下层程序子程序中使用，而下层程序子程序中，子程序中使用，而

14、下层程序子程序中，所定义的私有变量，却不可以在上层程序主程所定义的私有变量，却不可以在上层程序主程序中使用；这是因为定义该私有变量的子程序序中使用；这是因为定义该私有变量的子程序结束时，私有变量便被释放的缘故。结束时，私有变量便被释放的缘故。定义私有变量：定义私有变量： Private 教材教材P77没有赋值，没有赋值，变量不存在变量不存在 假设一私有变量在假设一私有变量在“子程序子程序SUB2中定义时，中定义时，则子程序则子程序SUB2A、SUB2B也可以使用该私有变量，也可以使用该私有变量，但主程序与其他子程序但主程序与其他子程序SUB1、SUB1A、SUB1B），则无法使用该私有变量。）

15、，则无法使用该私有变量。 ( (教材教材P75-76) P75-76) 【例【例3-173-17】表单界面如图所示，计算】表单界面如图所示，计算按钮的按钮的clickclick事件代码和自定义方法代码如下，当文事件代码和自定义方法代码如下，当文本框本框text1text1、text2text2中分别输入中分别输入1 1、2 2，单击，单击“计算计算“按按钮，文本框钮，文本框text3text3、text4text4中显示什么？中显示什么？ 计算按钮的计算按钮的Click事件代码：事件代码：a=thisform.text1.valueb=thisform.text2.values=0thisfo

16、rm.summ()thisform.text4.value=s自定义方法summ代码：private ss=a+bthisform.text3.value=s 全局变量全局变量 全局变量的使用范围包括整个应用程序，全局变量的使用范围包括整个应用程序，从主程序到所有子程序都可以使用全局变量的内从主程序到所有子程序都可以使用全局变量的内容；因此通常是用来存放密码、当天日期、用户容；因此通常是用来存放密码、当天日期、用户ID或其他常用的系统信息等。或其他常用的系统信息等。 但因全局变量的生命周期相当长，从应用程但因全局变量的生命周期相当长，从应用程序开始到结束，全局变量会一直占据内存空间，序开始到结

17、束，全局变量会一直占据内存空间，除非必要否则尽量少用。除非必要否则尽量少用。 定义全局变量：定义全局变量： PUBLIC 教材教材P77没有赋值，变没有赋值，变量初值为量初值为.F.假设一个全局变量在子程序假设一个全局变量在子程序SUB1中定义时，则从中定义时，则从主程序到全部子程序主程序到全部子程序SUB1、SUB2、SUB1A、SUB1B、SUB2A、SUB2B）,都可以使用该全局变都可以使用该全局变量。量。 ( (教材教材P77) P77) 【例【例3-183-18】如【例】如【例3-173-17】中如下图所示表】中如下图所示表单，若计算按钮的单，若计算按钮的clickclick事件代码

18、和自定义方法代码事件代码和自定义方法代码如下，当文本框如下，当文本框text1text1、text2text2中分别输入中分别输入1 1、2 2，单击，单击“计算计算“按钮，文本框按钮，文本框text3text3、text4text4中显示什么？中显示什么？ 计算按钮的计算按钮的Click事件代码：事件代码：a=thisform.text1.valueb=thisform.text2.valuethisform.summ()thisform.text4.value=s 自定义方法summ代码：Public ss=a+bthisform.text3.value=s 局部变量局部变量 局部变量是局

19、部变量是Visual FoxPro新增的变量种类，新增的变量种类，但与私有变量非常相似，私有变量的使用范围是但与私有变量非常相似，私有变量的使用范围是程序本身及下层的子程序，而局部变量的使用的程序本身及下层的子程序，而局部变量的使用的范围则只限于定义变量的程序本身。范围则只限于定义变量的程序本身。 定义局部变量：定义局部变量： LOCAL 教材教材P78没有赋值，变没有赋值，变量初值为量初值为.F.假设一局部变量在假设一局部变量在“子程序子程序SUB1中自定义时，中自定义时，则只有则只有“子程序子程序SUB1可以使用此局部变量，主可以使用此局部变量，主程序和其它子程序程序和其它子程序SUB2、

20、SUB1A、SUB1B、SUB2A、SUB2B都无法使用该局部变量。都无法使用该局部变量。 为了避免在不同层次的模块中因为了避免在不同层次的模块中因为使用相同名字的变量而相互影响为使用相同名字的变量而相互影响值的变化，可在子模块中使用值的变化，可在子模块中使用privateprivate、locallocal、parametersparameters命令屏命令屏蔽掉主模块或上级模块中同名的变蔽掉主模块或上级模块中同名的变量，使得这些变量在子模块中暂时量，使得这些变量在子模块中暂时无效。只要返回主模块或上级模块，无效。只要返回主模块或上级模块，原来同名变量会重新出现，并且其原来同名变量会重新出现

21、，并且其值保持不变。值保持不变。 EXM2EXM2：设计如图所示表单，文本框：设计如图所示表单，文本框text1text1、text2text2、text3text3的初值为的初值为0 0，运行表单后，在文本框，运行表单后，在文本框text1text1、text2text2、text3text3中分别输入数值中分别输入数值2 2、3 3、4 4，单击，单击“command1“command1按钮，文本框按钮，文本框text412text412中分别会显中分别会显示什么？示什么？ Command1的的click事件代码：事件代码：a=thisform.text1.value b=thisform.text2.value c=thisform.text3.value thisform.sub1() thisform.text10.value=a thisform.text11.value=b thisform.text12.value=c retu 自定义方法程序自定义方法程序sub1:private b,c a=20 b=30 c