Dim b() As String b() = Split(list1.text, " ") text1.text = b(0) text2.text = b(1)是氏正孙握这样用的不能赋值给歼凯悔具体的数组元素