1. 令 Boss = "我是老板"
2. 注释：<>---------------------------------------------调用私有变量子程序
3. 调用 演示用子程序()
4. 注释：<>---------------------------------------------下面测试私有变量是否能读取到
5. Msgbox("在全局下查看是否可以读到私有变量：值 =【" & Point & "】" & vbCrlf & vbCrlf & "为空的话，说明该变量为私有！")
6. 子程序 演示用子程序()
7.     注释：<>-----------------------------------------在过程里定义的变量为私有变量，不定义的为全局变量
8.     定义变量 Point
9.     令 Point = "我是扫地的"
10.     Msgbox("我是私有变量：值 = 【" & Point & "】" & vbCrlf & vbCrlf & "我是全局变量：值 = 【" & Boss & "】")
11. 子程序结束
12. 脚本停止运行
13. 注释：<>---------------------------------------------下面是测试例子【2】
14. 令 i = 10
15. 调用 test()
16. Msgbox("这是全局的" & i)
17. 脚本停止运行
18. 子程序 Test()
19.     定义变量 i
20.     令 i = 3
21.     Msgbox("这是局部的" & i)
22. 子程序结束