统计单词出现的位置及次数。在文本框Text1中输入文章，在Text2中输入要查找的单词，单击“统计”按钮Command1，在列表框List1显示该单词出现的起始位置及次数。实现上述功能的VB程序如下，请在横线处填入合适的代码。
Private Sub Command1_Click （　　）
Dim pos（1To 1000）As Integer
'存储匹配到的单词位置
Dim word As String'存储每次扫描的单词
Dim c As String,s As String,s2As String
Dim i As Integer,j As Integer,k As Integer,b As Integer,slen As Integer
s=Text1．Text
slen=Len（s）
s2=Text2．Text
j=0'存储每个单词的长度
k=1'存储匹配到的第几个单词的下标
b=1'存储每个单词的起始位置
i=1
Do While i＜=slen
①

c=Mid（s,i,1）

c=Mid（s,i,1）

If c＞=“a“And c＜=“z“Or c＞=“A“And c＜=“Z“Then
j=j+1
Else
If j＜＞0Then
word=②

Mid（s,b,j）

Mid（s,b,j）

If word=s2Then
pos（k）=b
k=k+1
End If
j=0
End If
b=i+1
End If
i=i+1
Loop
List1．AddItem“单词“+s2+“出现的位置为“
For i=1To k-1
List1．AddItem Str（pos（i））
Next i
List1．AddItem“共出现“+③

Str（k-1）

Str（k-1）

+“次“
End Sub