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中，同樣能充分利用函數返回數組的能力，創建數組初始化程序段。比如下面的代碼段：
FunctionArrayInt(ParamArrayvalues()AsVariant)AsInteger()
DimiAsLong
ReDimres(0ToUBound(values))AsInteger
Fori=0ToUBound(values)
res(i)=values(i)
Next
ArrayInt=res()
EndFunction
同時，也可以創建一個子程序段來檢測傳遞給它的數值的類型，並返回正確類型的數組。這種情況下，函數應該定義為返回Variant。
->
