实操：

  1. 过程1结果：我只在过程1有效，　　过程2结果：我被过程1修改了

    Dim 全局变量 As String
    Sub 过程1()
    Dim 局部变量 As String
    局部变量 = "我只在过程1有效"
    全局变量 = "我被过程1修改了"
    MsgBox 局部变量

    End Sub

    Sub 过程2()
    MsgBox 全局变量
    End Sub

  2. 数组实验，遍历

  • Sub 数组实验()
    Dim 员工(1 To 5) As String
    员工(1) = "张三"
    员工(2) = "李四"
    员工(3) = "王五"
    员工(4) = "赵六"
    员工(5) = "孙七"
    Dim i As Integer
    For i = 1 To 5
    Cells(i, 1) = 员工(i)
    Next i
    MsgBox "共录入" & UBound(员工) & "名员工"
    End Sub

　　3. 常量实验

　　　　Sub 变量作用域()

Const 税率 As Double = 0.13
Range("A1").Value = 100 * (1 + 税率)
End Sub

　　  4.  变量是"可重复使用的酱油瓶"，常量是"一次性纸杯"，数组是"带编号的多层信箱"。