【加試題】有一英文單詞處理的Visual Basic程序，程序運(yùn)行效果如第16題圖所示．在界面上方的文本框 Text1 中輸入英文語(yǔ)句，單擊“統(tǒng)計(jì)”按鈕（Command1），在右下方的列表框 List1 中顯示英文單詞及其在語(yǔ)句中出現(xiàn)的位置，并在按鈕上方的標(biāo)簽框 Label2中顯示單詞個(gè)數(shù)（假定每個(gè)單詞中不包含英文字母以外的其他字符）．

實(shí)現(xiàn)上述功能的VB代碼如下，但加框處代碼有錯(cuò)，請(qǐng)改正．
Private Sub Command1_Click（　?。?br />Dim a（1To 1000）As String
Dim d（1To 1000）As Integer    
 List1．Clear     s=Text1．Text     
slen=Len（s）     j=0     k=1   
  b=1
For i=1To slen         
c=Mid（s,i,1）
If   Then'（1）
If j＜＞0 Then                 
a（k）=Mid（s,b,j）                 
d（k）=b
k=k+1                 
j=0             
End If            
 b=i+1         
Else             
j=j+1
End If
Next i
For i=1To k-1
List1．AddItem +““+a（i）'（2）
Next
Label2．Caption=Str（k-1）+“個(gè)“
End Sub.