在一个文本框中输入多个地名，地名之间用空格隔开。单击一个按钮，文本框中的地名出现在一个列表框中。

Private Sub Command1_Click()

Dim DM() As String

'将地名存入数组DM中
DM = Split(Text1.Text, " ")

'用一个循环将所有的地名加到列表中
For i = 0 To UBound(DM)
List1.AddItem a(i)
Next i

End Sub

a=split(text1.text," ")
for i= 0 to ubound(a)
list1.additem a(i)
next i

最好说明你编程的语言，不同语言的实现语法和函数是不一样的
给你一个思路：先建一个数组。获取到文本框内容后，用字符串操作函数分开每个地名存入数组，然后用一个循环在列表框中加选项