正在阅读：VB超频快餐，让我一次用个够！（五）VB超频快餐，让我一次用个够！（五）

2004-02-14 09:34 出处：eNet学院作者：听风责任编辑：pjl

快速初始化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。