VBA_Excel_教程：变量，数组

Sub testVar()
    '变量
    Dim strT1 As String
    strT1 = "A"

    '常量【加不加类型都可以】
    Const strT2 As String = "B"
    Const strT3 = "C"

    Dim i2 As Integer
    i2 = 

    Dim long4 As Long
    long4 = 

    '单浮点数
    Dim s4 As Single
    s4 = 

    '双浮点数
    Dim d8 As Double
    d8 = 

    '货币
    Dim c8 As Currency
    c8 =
End Sub

Sub testArr()
    '一维数组【To定义，数定义】注意是圆括号！
    Dim arr1( To ) As Double
    arr1() = 

    Dim arr1_2() As Double
    arr1_2() = -
    '二维数组【To定义，数定义】
    Dim arr2( To ,  To ) As String
    arr2(, ) = "二维数组"

    Dim arr2_2(, ) As String
    arr2_2(, ) = "二维数组,简单定义"
    MsgBox arr1_2()
End Sub