vb编程:单词分解怎么编?

Private Sub Command1_Click()
Dim s As String, a() As String, i As Integer
s = Text1.Text
Call aword(s, a)

List1.AddItem p

End Sub

Private Sub Command2_Click()
Text1.Text = ""
List1.Clear
Text1.SetFocus
End Sub

Private Sub Command3_Click()
End
End Sub

Private Sub aword(s As String, word() As String)
Dim ch As String * 1, p As String, k As Integer
For i = 1 To Len(s) - 1
ch = Mid(s, i, 1)
If Asc(ch) <> 32 And ch <> "." Then
p = p & ch
Else
k = k + 1
ReDim Preserve word(k)
word(k) = p
p = ""
End If
Next i
End Sub
主过程应该怎么调用??

不知道你是怎么想的，我改了一下，能够逐个增长的显示在list1里面。你要一个一个的显示的话也可以实现的。
逐个增长的如下：
Private Sub Command1_Click()
Dim s As String, a() As String, i As Integer
s = Text1.Text
Call aword(s, a)

End Sub

Private Sub Command2_Click()
Text1.Text = ""
List1.Clear
Text1.SetFocus
End Sub

Private Sub Command3_Click()
End
End Sub

Private Sub aword(s As String, word() As String)
Dim ch As String * 1, p As String, k As Integer
For i = 1 To Len(s)
ch = Mid(s, i, 1)
If Asc(ch) <> 32 And ch <> "." Then
p = p & ch
List1.AddItem p
Else
k = k + 1
ReDim Preserve word(k)
word(k) = p
p = ""
End If
Next i
End Sub

单个显示如下：

Private Sub Command1_Click()
Dim s As String, a() As String, i As Integer
s = Text1.Text
Call aword(s, a)

End Sub

Private Sub Command2_Click()