FOXPRO程序设计入门.ppt

从程序执行结果中可以很清楚地看到：当用户键入上底、下底和高的值后，立即显示出在调用函数以前主程序中的内存变量的情况。这时只有4个内存变量MYA1、MYB1、MYH1、MYS，其中MYS的值为零。 当系统调用函数时，首先显示内存变量的情况，可以看出它与主程序中未调函数前的内存变量情况一样。这就是说，主程序中产生的内存变量在函数中仍存在，可供函数使用。 当函数执行完“MYAR=(MYA1+MYB1)*MYH1/2”和“MYS=MYAR”这两条语句后，从显示的内存变量情况看，这时有5个内存变量，其中MYA1、MYB1和MYH1的值未变，函数中定义的变量MYAR的值为42，主程序中定义的内存变量MYS的值为42。 当由函数返回主程序后，从显示的内存变量情况来看，这时仍然只有4个内存变量MYA1、MYB1、MYH1、MYS，在函数中产生的内存变量MYAR已经不存在了。这说明在较低一级程序中产生的内存变量，如果未加任何说明，则在该程序结束时被清除。另外，清单中MYS的值不是0，而是42。这说明：当过程或函数在执行过程中改变了由主程序定义的内存变量的值时，在返回主程序后被改变了的值仍然保留在该变量之中。 2. 设置全局性内存变量语句--PUBLIC 在程序设置中，对有些函数中定义的内存变量，我们希望在主程序中仍能使用，或者希望它在整个的程序中均能使用，这时，应该使用全局性的内存变量。全局性内存变量定义格式如下： 格式1：PUBLIC 内存变量清单 格式2：PUBLIC [ARRAY] 内存变量 (数值表达式1 [,数值表达式2]) [...] 格式1用来对内存变量清单中的内存变量进行全局性说明，这个命令必须放在定义这些变量的语句之前。 全局性内存变量的性质： ① 用PUBLIC语句声明过的内存变量可以在整个的程序以及各过程或函数中使用。在任何过程或函数中改变了该变量的值，当该变量进入到其他过程或函数时，仍然保留该改变了的变量值。 ② 当整个程序结束后，用PUBLIC语句声明过的内存变量依然存在，若要清除它们，必须借助于RELEASE命令。 在VFP命令窗口下建立的内存变量都是全局性内存变量。 在程序中，内存变量用PUBLIC命令说明为全局性变量之后，由定义值决定变量的类型。但在定义它之前，变量的值为逻辑非(.F.)。 例23 仍采用上一例，但将函数中定义的内存变量MYAR用PUBLIC语句进行说明，看看变量MYAR在整个程序中的情况。 主程序“L813.PRG”清单如下： SET TALK OFF CLEAR ALL STORE 0 TO MYA1,MYB1,MYH1,MYS @5, 10 SAY 输入上底值 GET MYA1 @7, 10 SAY 输入下底值 GET MYB1 @9, 10 SAY 输入梯形高值 GET MYH1 READ ? 内存变量在主程序中定义的情况 LIST MEMO LIKE MY* DO BBB1 ? ? 内存变量由函数返回主程序后的情况： LIST MEMO LIKE MY* 列函数清单： FUNCTION BBB1 ? 内存变量由主程序进入函数时的情况： LIST MEMO LIKE MY* PUBLIC MYAR MYAR=(MYA1+MYB1)*MYH1/2 MYS=MYAR ? ? 函数中定义变量且进行全局说明后变量值的情况： LIST MEMO LIKE MY* RETU ENDFUNC 这个程序比前一个例子中的程序仅多了一个“PUBLIC MYAR”语句，这个语句将变量MYAR说明为全局性的。在这里要注意的是这条语句的位置，它必须放在定义该变量的语句之前。 这个程序执行结果如下： 输入上底值：4 输入下底值：8 输入梯形高值：7 内存变量在主程序中定义的情况： MYA1 priv N 4 ( 4 L813 MYB1 priv N 8 ( 8 L813 MYH1 priv N 7 ( 7 L813 MYS priv N 0 ( 0