二维数组求助

greygoose

各位高手，本人小白，请问如何将以下数组中的元素放入一个二维数组，要求按数的位数（或字符串中字母的个数），“01”，“02”放入第一列，“011”，“021”，“012”放入第二列，即arr(0,0)=01; arr(1,0)=02; arr(0,1)=011; arr(1,1)=021; arr(2,1)=012
Dim a(0 To 4) As String

a(0) = "01"
a(1) = "02"
a(2) = "011"
a(3) = "021"
a(4) = "012"

小弟感激不尽！

jiangxiaoyun

循环遍历数组放入..........

greygoose

jiangxiaoyun 发表于 2018-7-19 15:21
循环遍历数组放入..........

我也知道，可我操作数次都不成功，这是我写的，不成功

Dim b(0 To 4) As Integer

b(i) = Len(a(i))

Dim c(0 To 1) As Integer

c(0) = 2
c(1) = 3

Dim arr(0 To 3, 0 To 1) As String

For k = 0 To 4
For j = 0 To 1
For i = 0 To 3

If c(j) = b(k) Then

arr(i, j) = a(k)

End If

Next
Next
Next

Debug.Print arr(1, 0)

greygoose

顶啊，请帮忙

chis3

greygoose 发表于 2018-7-19 15:37
我也知道，可我操作数次都不成功，这是我写的，不成功

Dim b(0 To 4) As Integer

錯處很多啊, b(i) = len(a(i)) 什麼
都不在循環
dim數組類型不是integer 是variant
不寫類型還更好

greygoose

chis3 发表于 2018-7-19 16:23
錯處很多啊, b(i) = len(a(i)) 什麼
都不在循環
dim數組類型不是integer 是variant

烦劳帮我写一段新的代码，谢谢了

greygoose

顶一下，请帮忙

greygoose

顶顶顶顶顶顶

huang1314wei

主要是不知道你想干什么，逻辑乱

zopey

Dim a(0 To 4) As String
a(0) = "01"
a(1) = "02"
a(2) = "011"
a(3) = "021"
a(4) = "012"

dim arr()
redim arr(0 to 4,0 to 1)
for i=0 to  4
if len(a(i)=2 then
   arr(k1,0)=a(i)
   k1=k1+1
elseif   len(a(i)=3 then
  arr(k2,1)=a(i)
  k2=k2+1
end if
next