网站大量收购独家精品文档,联系QQ:2885784924

6.VF程序设计3课件.ppt

  1. 1、本文档共38页,可阅读全部内容。
  2. 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
  3. 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  4. 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
③局部变量 局部变量是Visual FoxPro新增的变量种类,但与私有变量非常相似,私有变量的使用范围是程序本身及下层的子程序,而局部变量的使用的范围则只限于定义变量的程序本身。 定义局部变量: LOCAL 变量列表 教材P78 没有赋值,变量初值为.F. 假设一局部变量在“子程序SUB1”中自定义时,则只有“子程序SUB1”可以使用此局部变量,主程序和其它子程序(SUB2、SUB1A、SUB1B、SUB2A、SUB2B)都无法使用该局部变量。 变量的屏蔽 为了避免在不同层次的模块中因为使用相同名字的变量而相互影响值的变化,可在子模块中使用private、local、parameters命令屏蔽掉主模块或上级模块中同名的变量,使得这些变量在子模块中暂时无效。只要返回主模块或上级模块,原来同名变量会重新出现,并且其值保持不变。 EXM2:设计如图所示表单,文本框text1、text2、text3的初值为0,运行表单后,在文本框text1、text2、text3中分别输入数值2、3、4,单击“command1”按钮,文本框text4~12中分别会显示什么? 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=40 thisform.sub2() thisform.text7.value=a thisform.text8.value=b thisform.text9.value=c retu 自定义方法程序sub2: private a a=100 b=2*a thisform.text4.value=a thisform.text5.value=b thisform.text6.value=c retu 100 200 40 20 200 40 20 3 4 EXM3:设计如图所示表单,运行表单后,在文本框text1和text2中都输入数值1,单击“command1”按钮,文本框text3~6中分别会显示什么? Form1的load事件代码:public a,b Command1的click事件代码: a=thisform.text1.value b=thisform.text2.value thisform.test1() thisform.text5.value=a thisform.text6.value=b return 自定义方法程序test1: private a a=2 local b thisform.test2() thisform.text3.value=a thisform.text4.value=b b=5 return 自定义方法程序test2: a=建国 b=60年大庆 return 建国 F 1 60年大庆 程序设计初步(3) 要点: 1、建立模块化程序设计的观念 2、掌握自定义方法的使用 3、掌握变量的作用域 4、了解过程、自定义函数 程序设计的三种基本结构: 顺序结构 分支结构 循环结构 一、程序设计为什么要引入模块化 模块化设计思想 【例1】设计如图所示表单,计算组合数C(m,n)。其中,m和n是正整数,且mn。 “计算”命令按钮的CLICK事件代码如下: M=thisform.text1.value N=thisform.text2.value p1=1 for i=1 to m  p1=p1*i endfor p2=1 for i=1 to n  p2=p2*i endfor p3=1 for i=1 to m-n p3=p3*i endfor result=p1/(p2*p3) Thisform.text3.value=result return 数据输入 求m! 求n! 求(m-n)! 将求阶乘的问题写成一个共有的代码,代码如下: *自定义方法JC parameters x y=1 for i=1

文档评论(0)

brnpnu31163 + 关注
实名认证
内容提供者

该用户很懒,什么也没介绍

1亿VIP精品文档

相关文档