学进去

在文本框Text1中输入一些单词（单词之间用一个空格隔开，单词数不超过100，单词仅包含小写字母），找出所有满足如下规则的单词：1、两个单词若包含相同的字母，仅字母排列顺序不同，视为相同的单词 2、对于相同的单词，只保留开始的一个 3、对所有保留的单词，从小到大排列。单击“识别”按钮后，将符合条件的单词输出到列表框List1中。例如:输入的字符串为“came leader lone mace noel”，处理后则剩下的单词为 “came   leader   lone ”，如下图所示。

（1）若在文本框Text1中输入“came meca leader lone mace dealer noel”，列表框List2中的第二行显示结果为___________。
（2）要实现上述功能的VB序如下，请在划线处填入合适的代码。
Private Sub Command1_Click()

Dim s As String, st(0 To 100) As String, c As String, t As String

Dim i As Integer, j As Integer, k As Integer, cnt As Integer

Dim ind(1 To 100) As Integer, st2(0 To 100) As String, t2 As Integer

s = Text1.Text

s = s + " " ： cnt = 1

List1.Clear

For i = 1 To Len(s) '提取单词

c = Mid(s, i, 1)

If c = " " Then

cnt = cnt + 1

Else

_____

End If

Next i

For i = 1 To cnt - 1 '对每个单词里的字母重新排序

st2(i) = st(i)   ：ind(i) = i

For j = 1 To Len(st2(i)) - 1

For k = Len(st2(i)) To j + 1 Step -1

If Mid(st2(i), k, 1) < Mid(st2(i), k - 1, 1) Then

st2(i) = _____

End If

Next k
Next j

Next i

For i = 1 To cnt - 1

For j = cnt - 1 To i + 1 Step -1

If st2(j) < st2(j - 1) Then

t = st2(j): st2(j) = st2(j - 1): st2(j - 1) = t

t2 = ind(j): ind(j) = ind(j - 1): ind(j - 1) = t2

End If

Next j

Next i

For i = 1 To cnt - 1

If st2(i) <> st2(i - 1) Then List1.AddItem _____

Next i

End Sub