【如何将VB中的数组初始化】

[eion]

我是做VC的，对VB一窍不通，有劳各位帮我解释解释：如何初始化VB数组
定义如下数组，该如何初始化？

Dim arr(10)

arr(1)="abc"
arr(2)="efg"
.................

该如何写？如果是二维的数组,又如何定义以及初始化？
谢谢
Vaiting Online

[eion]

谢谢各位：
我是这样用的【偷懒】
keyW = "if,else,switch,case,default,break,for,while,do," + _
"void,bool,char,int,float,double,signed,unsigned,short,long," + _
"new, delete, const, voliate, static, auto," + _
"struct, class,typedef, private, public, protected, template, " + _
"using, namespace, " + _
"return,"
然后再
num = 1
pos = InStr(1, keyW, ",", vbTextCompare)
Do While pos > 0
arr(num) = Trim(Left(keyW , pos-1 ))
num = num + 1
keyW = Right( keyW, Len(keyW)-pos )
pos = InStr(1, keyW, ",", vbTextCompare)
Loop
只是不能输入','

[eion]

playyuer(26岁的人 62岁的心脏)的用法为

Dim Arr As Variant

Arr = Array("if", "else", "switch", "case", "break")
MsgBox Arr(3) + Arr(2) + Arr(1) + Arr(0)

输出： caseswitchelseif
注意：arr从0开始，根C一样

[bitsoft]

dim i as long
dim s(9) as long

for i=0 to 9
s(i)=i
next

二维的数组的初始化类似，嵌套循环

[Greaitm]

vb 跟 vc不同,你要做字符串数组只需要一维数组就行了
假如你要初始化二维数组既可以这样做:
dim arr(10,10)
arr(0,0) =...
arr(1,0)=...

[eion]

难道VB不能初始化？
比如我要列举出所以得C的关键字如"if", "else", "switch", "case","while","for","int","char","float"....
是不是我只能一个一个赋值
keyw(1)="if"
keyw(2)="else"
....
keyw(100)="double"
那其不是累死了？
有没有简便一点的方法？

[DownFree]

UP一下，我也被这个问题困扰着呢！

[kofkim]

恭喜你~你终于觉悟VB的好处了！

[aladings]

你只能这么作了,没办法!或许我太笨,关注中!!!

[playyuer]

Array("if", "else", "switch", "case","while","for","int","char","float")

[DownFree]

帅！
看来Up真有用！

[IsMe]

option explicit
dim AAA()as string
private sub InitArray(Paramarray Items())
dim I as integer
i=ubound(Items)
if i<0 then
erase aaa
exit sub
end sub
redim aaa(i)
for i=0 to i
aaa(i)=items(i)
next i

end sub

[IsMe]

接上面：
call InitArray("if", "else", "switch", "case","while","for","int","char","float")