VB中没有提供定义数组并同时初始化其内容的方法，所以大多数情况下，必须单独地设置每一个元素，就象下面一样：
DimstrArray(0To3)AsString
strArray(0)="Spring"
strArray(1)="Summer"
strArray(2)="Fall"
strArray(3)="Winter"
在VB4、VB5和VB6中，可以使用Array（）函数随意创建一个Variants类型数组：
DimvarArray()AsVariant
varArray()=Array("Spring","Summer","Fall","Winter")
但却没有同样的函数能创建非Variant类型数组。但是我们发现，在VB6中可以使用Split（）函数创建字符串数组：
DimvarArray()AsString
'由Split建立的数组下标通常是从0开始的
varArray()=Split("Spring;Summer;Fall;Winter",";")
在VB6中，同样能充分利用函数返回数组的能力，创建数组初始化程序段。比如下面的代码段：
（本文来源于图老师网站，更多请访问http://m.tulaoshi.com/bianchengyuyan/）FunctionArrayInt(ParamArrayvalues()AsVariant)AsInteger()
DimiAsLong
ReDimres(0ToUBound(values))AsInteger
（本文来源于图老师网站，更多请访问http://m.tulaoshi.com/bianchengyuyan/）Fori=0ToUBound(values)
res(i)=values(i)
Next
ArrayInt=res()
EndFunction
同时，也可以创建一个子程序段来检测传递给它的数值的类型，并返回正确类型的数组。这种情况下，函数应该定义为返回Variant。
->
