学进去

有一英文单词处理的VB程序，程序运行效果如图所示。在界面上方的文本框Text1中输入英文语句，单击“统计”按钮（Command1），在右下方的列表框List1中显示英文单词及其在语句中出现的位置，并在按钮上方的标签框Label2中显示单词个数（假定每个单词中不包含英文字母以外的其他字符）。实现的VB代码如下，但加横线处代码有错，请改正。

Private Sub Command1_Click()
Dim a(1 To 1000) As String     
Dim d(1 To 1000) As Integer
List1.Clear
s = Text1.Text
slen = Len(s)
j = 0
k = 1
b = 1
For i = 1 To slen
c = Mid(s,i,1)
If  (c<”a” Or c>”z”) Or (c<”A” Or c>”Z”)  Then ____________________________
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
Next i
For i = 1 To k – 1
List1.AddItem Str(d(i)) + “   ” + a(i)
Next i
Label2.Caption = Str(k) + “个”      ________________________
End Sub