主题：[求助]二维数组问题

'''...
dim str as string = "2，5，7，8" & vbcrlf & "5，7，8，9" & vbcrlf & "2，9，0，7"
msgbox(str)
dim ary1() as string = str.Replace(chr(10),"").Split(chr(13))
dim len1 as integer = ary1.length-1
dim len2 as integer = ary1(0).Split("，").length-1
dim bary(len1, len2）
for i as integer = 0 to len1
    dim ary2() as string = ary1(i).Split("，")
    for j as integer = 0 to len2
        bary(i,j) = ary2(j)
    next
next

msgbox(bary(1,2))