这将完成你所需的操作:Dim str As String = "1 2 3" Dim strarr() As String strarr = str.Split(" "c) For Each s As String In strarr MessageBox.Show(s) Next