急！急！！急！！！答完马上就给分！初次使用VB，向各位大虾请教在VB中如何把一个字符串传递给一个字符串数组，谢谢了！！！

Question

急！急！！急！！！初次使用VB，向各位大虾请教在VB中如何把一个字符串传递给一个字符串数组，谢谢了！！！答完马上就给分！

Answer 1

Option ExplicitPrivate Sub Form_Load()
    Dim strTest As String
    Dim vntSplit As Variant    strTest = "1|2|3|4|5"
    vntSplit = Split(strTest, "|")
    Debug.Print vntSplit(0)
    Debug.Print vntSplit(1)
    Debug.Print vntSplit(2)
End Sub

Answer 2

Dim strTest As String
    Dim Arry()
    Dim i, j As Long
    strTest = "1|2|3|4|5"
    j = Len(strTest)
    ReDim Arry(j + 1)
    For i = 0 To j - 1
       Arry(i) = Mid(strTest, i + 1, 1)
       Debug.Print Arry(i)
    Next

Answer 3

呵呵，这样也是一种解决办法，但是假如中间没有间隔字符串呢，该怎么办？还能传递吗？谢谢了！
*********************************************************************************
    Dim str As String
    Dim s(5) As String
    Dim i As Integer    str = "12345"
    For i = 0 To 4
        s(i) = Mid(str, i + 1, 1)
        Debug.Print s(i)
    Next i没有间隔符，只要有一定的规律，都可以设法解决