Question

急！！！VB程序设置：设一窗口上有文本框、按钮、列表框各一个，在文本框中输入任意一个英文

设一窗口上有文本框、按钮、列表框各一个，在文本框中输入任意一个英文句子（包含多个词），单击按钮，程序将该句分解为单词，每个单词作为一个条目添加到列表框中。

Answer 1

dinmPrivate Sub Command1_Click()
Dim kk As String, j As Integer
List1.Clear
kk = Trim(Text1.Text)
j = InStr(1, kk, " ")
While j > 0
List1.AddItem Left(kk, j - 1)
kk = Right(Trim(kk), Len(kk) - j)
j = InStr(1, kk, " ")
Wend
List1.AddItem kk
End Sub

Answer 2

Private Sub Command1_Click()
a = Split(Text1.Text, " ")
For i = 0 To UBound(a)
List1.AddItem a(i)
Next
End Sub