快速初始化Variant和String类型数组

VB中没有提供定义数组并同时初始化其内容的⽅法，所以⼤多数情况下，必须单独地设置每⼀个元素，就象下⾯⼀样：
Dim strArray(0 To 3) As String
strArray(0) = "Spring"
strArray(1) = "Summer"
strArray(2) = "Fall"
strArray(3) = "Winter"
在VB4、VB5和VB6中，可以使⽤Array（）函数随意创建⼀个Variants类型数组：
Dim varArray() As Variant
varArray() = Array("Spring", "Summer", "Fall", "Winter")
但却没有同样的函数能创建⾮Variant类型数组。

但是我们发现，在VB6中可以使⽤Split（）函数创建字符串数组：
Dim varArray() As String
'由Split建⽴的数组下标通常是从0开始的
varArray() = Split("Spring;Summer;Fall;Winter", ";")
在VB6中，同样能充分利⽤函数返回数组的能⼒，创建数组初始化程序段。

⽐如下⾯的代码段：
Function ArrayInt(ParamArray values() As Variant) As Integer()
Dim i As Long
ReDim res(0 To UBound(values)) As Integer
For i = 0 To UBound(values)
res(i) = values(i)
Next
ArrayInt = res()
End Function
同时，也可以创建⼀个⼦程序段来检测传递给它的数值的类型，并返回正确类型的数组。

这种情况下，函数应该定义为返回Variant。