《VB程序的设计》第四章第六节 变量和过程作用范围.docVIP

《VB程序的设计》第四章第六节 变量和过程作用范围.doc

  1. 1、本文档共10页,可阅读全部内容。
  2. 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
  3. 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  4. 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
  5. 5、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
  6. 6、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们
  7. 7、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
  8. 8、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
《VB程序设计》第四章第六节 变量和过程的作用范围 第六节 变量和过程的作用范围   一、变量的作用范围   变量的作用范围是指变量有效的范围。根据定义变量的位置和定义变量的语句的不同,在VB中变量可以分为过程级变量、模块级变量和全局变量。   1.过程级变量   过程级变量只有在声明它们的过程中才有效,也称为局部变量。用户无法在其他过程中访问或改变该变量的值。用Dim或者Static 关键字来声明它们。   语法:   Dim 变量名 As 数据类型   Static 变量名 As 数据类型   对任何临时的计算;采用局部变量是最佳选择。例如,有十来个不同的过程,每个过程都包含变量名为i的变量。只要每个i都被声明为局部变量,那么每个过程只识别它自己的变量i,改变它自己的变量i的值,而不会影响别的过程中的变量i。   在Sub过程中显式定义的变量(使用Dim语句)都是局部变量,而没有在过程中显式定义的变量 ,除非其在该过程外 更高级别的位置显式定义过,否则也是局部变量。可以使用Option Explicit 语句来强制显式定义变量。   2.模块级变量   按照默认规定,模块级变量对该模块的所有过程都有效,在模块中的任何过程都可以访问该变量,但其他模块的过程则不可用。可在窗体模块和标准模块顶部用Dim或者Private关键字声明模块级变量。   语法:   Dim 变量名 As 数据类型   Private 变量名 As 数据类型   通过在代码窗口单击过程列表框的“通用”后,在窗体模块(Form1)中声明模块级变量Temp。   3.全局变量   全局变量的作用范围可以是应用程序的所有过程,也称为公用变量。全局变量可以在模块顶部的声明段用Public关键字声明模块级变量。   语法:   Public 变量名 As 数据类型   通过菜单“工程”来添加模块,然后在添加的标准模块(Modulel)的顶部声明全局变量Max。   [例Ex_FormArgu2]在[例Ex FormArgu1]人员管理系统中在进入窗体 frmSecond后分别计算正式员工或临时员工的平均工资,计算平均工资与[例Ex _AverScore]中相同。   Frmsecond窗体的运行界面如图4-6-1(b)所示。 (a) (b) 图 4-6-1   标准模块文件Modulel.bas程序代码如下:   Option Explicit   Public salary1(5) As Single, salary2(8) As Single   Private Sub frmselect(f As Form, cmdcap As String)    传递窗体参数    f.Caption=cmdcap 人员管理   End Sub   Private Sub labselect(l As Control, cmdcap As String)    传递窗体参数    l.Caption=欢迎进入 Chr(13) cmdcap 人员管理    l.FontSize=16    l.FontBold=True    l.Visible=True    frmsecond.Show    frmfirst.Hide   End Sub   Private Sub cmdemployee_click(index As Integer)    单击不同按钮    将按钮的文本传递给frmsecond窗体标题    Call frmselect(frmsecond, cmdemployee(index).Caption)    Call labselect(frmsecond.Label1, cmdemployee(index).Caption)    frmsecond.Show    frmfirst.Hide   End Sub   Private Sub Form_Load()    salary1(0)=1900: salary1(1)=1970: salary1(2)=1915       设置初始值    salary1(3)=1600: salary1(4)=1655    salary2(0)=2675: salary2(1)=2780: salary2(2)=2715    salary2(3)=2540: salary2(4)=2990: salary2(5)=2770    salary2(6)=2895: salary2(7)=2765   End Sub   Private Function average(stuarray() As Single, n As Integer) As Si

您可能关注的文档

文档评论(0)

lingyun51 + 关注
实名认证
文档贡献者

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

1亿VIP精品文档

相关文档