統(tǒng)計單詞出現(xiàn)的位置及次數(shù)。在文本框Text1中輸入文章，在Text2中輸入要查找的單詞，單擊“統(tǒng)計”按鈕Command1，在列表框List1顯示該單詞出現(xiàn)的起始位置及次數(shù)。實現(xiàn)上述功能的VB程序如下，請在橫線處填入合適的代碼。
Private Sub Command1_Click （　?。?br />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'存儲匹配到的第幾個單詞的下標(biāo)
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+“出現(xiàn)的位置為“
For i=1To k-1
List1．AddItem Str（pos（i））
Next i
List1．AddItem“共出現(xiàn)“+③

Str（k-1）

Str（k-1）

+“次“
End Sub