[code]Dim X ' [/code]声明[code] X [/code]为全局变量。[code]X = "Global" ' [/code]给全局变量[code] X [/code]赋值。[code]Sub Proc1 ' [/code]声明过程。[code] Dim X ' [/code]在局部变量中声明[code] X[/code]。[code] X = "Local" ' [/code]给局部变量[code] X [/code]赋值。 [code]' [/code]此处的可执行语句 [code]' [/code]创建一个过程[code], [/code]当被调用时[code], [/code]打印[code] X[/code]。 [code]' [/code]此处将打印全局变量[code] X [/code]的值,因为[code] Proc2[/code][code] ' [/code]继承了全局变量中的一切。[code] ExecuteGlobal "Sub Proc2: [/code]打印[code] X: End Sub"[/code][code] Print Eval("X") ' [/code]打印局部[code] X[/code]。[code] Proc2 ' [/code]在全局作用区域中调用[code] Proc2 [/code][code] ' [/code]将打印[code] "Global" [/code]。[code]End Sub[/code][code]Proc2 ' [/code]此行将导致错误[code] [/code][code] ' [/code]因为[code] Proc2 [/code]在[code] Proc1 [/code]之外是不可用的。[code]Proc1 ' [/code]调用[code] Proc1[/code]。[code] Execute "Sub Proc2: [/code]打印[code] X: End Sub"[/code][code]Proc2 ' [/code]此行调用成功,因为[code] Proc2[/code][code] ' [/code]在全局作用区域中是可用的。下面的例子演示了 [b]ExecuteGlobal[/b] 语句可以被重写,因此您无需将下面的整个过程都包括在引用标记之内。
[code]S = "Sub Proc2" & vbCrLfS = S & " Print X" & vbCrLf S = S & "End Sub"ExecuteGlobal S[/code]
机械节能产品生产企业官网模板...
大气智能家居家具装修装饰类企业通用网站模板...
礼品公司网站模板
宽屏简约大气婚纱摄影影楼模板...
蓝白WAP手机综合医院类整站源码(独立后台)...苏ICP备2024110244号-2 苏公网安备32050702011978号 增值电信业务经营许可证编号:苏B2-20251499 | Copyright 2018 - 2025 源码网商城 (www.ymwmall.com) 版权所有