VBA学习实操第6弹：变量、常量与数组

实操：

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.  变量是"可重复使用的酱油瓶"，常量是"一次性纸杯"，数组是"带编号的多层信箱"。