您好

这有什么帮助吗？

        Dim s As String = "Michael do Flavour"
        Dim a() As String = Split(s, " "c)
        ' at this point,
        ' a(0) = "Michael"
        ' a(1) = "do"
        ' a(2) - "Flavour"

        s = "This is a longer string"
        a = Split(s, " "c)
        ' at this point,
        ' a(0) = "This"
        ' a(1) = "is"
        ' a(2) - "a"
        ' a(1) = "longer"
        ' a(2) - "string"