WEB开发网
开发学院软件开发VB 快速初始化Variant和String类型数组 阅读

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

 2006-02-27 21:12:39 来源:WEB开发网   
核心提示:VB中没有提供定义数组并同时初始化其内容的方法,所以大多数情况下,快速初始化Variant和String类型数组,必须单独地设置每一个元素,就象下面一样:DimstrArray(0To3)AsStringstrArray(0)="SPRing"strArray(1)="Summer&quo

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。

->

Tags:快速 初始化 Variant

编辑录入:爽爽 [复制链接] [打 印]
赞助商链接