'二维常量数组的定义 Sub arrDemo2 () Dim arr ( 1 , 1 ) As Variant 'Dim arr(0 To 1, 0 To 1) As Variant arr ( 0 , 0 ) = "apple" arr ( 0 , 1 ) = "banana" arr ( 1 , 0 ) = "pear" arr ( 1 , 1 ) = "grape" For i = 0 To 1 For j = 0 To 1 MsgBox arr ( i , j ) End Sub ''' ''' ''' '''用array函数创建常量数组 '一维数组 Sub arrayDemo3 () Dim arr As Variant '数组 arr = Array ( "vba" , 100 , 3 . 14 ) MsgBox arr ( 0 )