vb中split分割的字符串怎么保存到多维数组中 例如 dim a(1 To 10, 1 To

Question

vb中split分割的字符串怎么保存到多维数组中

例如
dim a(1 To 10, 1 To 10 , 1 To 3)
split "1/2/3", "/"

分割的字符串怎么分别保存到
a(1,1,1)
a(1,1,2)
a(1,1,3)

Answer 1

Private Sub Command1_Click()

  Dim a(1 To 10, 1 To 10, 1 To 3), b() As String

  b = Split("1/2/3", "/")

  For i = 0 To 2

    a(1, 1, i + 1) = b(i)

    Print "a(1,1," & i + 1 & ")="; a(1, 1, i + 1)

    Print

  Next i

  Print

End Sub

追问

这种方法我也知道，本来是想问有没有直接赋值的方法，而不用间接赋值