vb6中怎样给数组赋初值？

Question

定义了一个数组，有没有向C里的
a[12]={...}
之类的方法？

Answer 1

比如：
Dim strArr As VariantstrArr=Array("A","B","C")
Msgbox strArr(0)

Answer 2

Array()函数返回值是变体型，要是给一个确定类型的数组赋初值呢？
比如String类型

Answer 3

vb是直接赋值的.没有向C那样的初始化的语句.
直接a(……)=值吧。

Answer 4

用Array()
Dim A as Variant
A=Array(1,2,3)
得A(1)=1,A(2)=2,A(3)=3

Answer 5

比如字符串数组可以用这种方法
dim strArray() as strign
strArray=split("aaa,bbb,ccc,ddd,eee,fff",",")
那么strArray就变成包含aaa,bbb,ccc,ddd,eee,fff这几个字符串的数组了
这种方法比较简便