Question

VBA数组的定义与赋值

菜鸟一枚，请问为何将数组变量ArrA声明为String, 运行时显示“运行错误 类型不匹配”,而将其声明为Variant却能正常运行？
Sub 数组练习()

Dim ArrA() As String

ReDim ArrA(3)

ArrA = [{"A","B","C","D"}]

End Sub
还有，将数组变量ArrA声明为String,用Array函数给ArrA赋值，运行也出现"类型不匹配"，将其声明成Variant时，运行就正常。为什么啊？Array函数返回值是Variant啊，为何不能将ArrA声明成String啊？
Sub 数组()
Dim ArrA() as string
ArrA=Array("a","b","c","d")
End Sub

Answer 1

Sub 数组()
Dim ArrA as Variant
ArrA=Array("a","b","c","d") 这样才可以
End Sub
Sub 数组1()
Dim ArrA() as String
redim ArrA(10)
for i = 0 to 9
ArrA(i) = chr(65+i)
next i
End Sub

Answer 2

Dim arr(1 To 3, 1 To 3, 1 To 3) As Variant
arr(1, 1) = "EN"
arr(1, 2) = 519
arr(1, 3) = "DE"
arr(2, 1) = "EN"
arr(2, 2) = 519
arr(2, 3) = "DE"
arr(3, 1) = "EN"
arr(3, 2) = 519
arr(3, 3) = "DE"
arr(3, 1) = "EN"
arr(3, 2) = 519
arr(3, 3) = "DE"