17．用 VB 编写的英文单词字频统计程序如第 17 题图所示，在文本框 Text1 中 输入文章，单击“统计”按钮 Command1，在列表框 List1 输出单词与频次，在标签 Label2 中输出频次最高的单词，如频次最高的单词有多个，则输出时用逗号分隔。算法如下：
（1）将文本框 Text1 中的文章保存到字符串变量 s 中。
（2）从左往右扫描字符串 s,用字符串 word 存储文章中依次出现的单词，将新出现的单 词自动加入单词队列 dic（i）中，单词出现的频次记录到对应的 num（i）中。如下方法扫描：
①从左往右扫描，当扫描到第 i 个字符时，如果是字母，继续扫描，否则，跳转到②，直 至扫描结束；
②将 b 到 i-1 组成一个单词 word,查询单词字典 dic 判断是否存在，如果不存在，将新 单词插入单词字字典尾部 dic（k），并且记录单词频次 num（k）为 1，如果 dic 字典中存在单词 word,那么该单词对应频次增加 1，再跳转到①。
（3）在列表框 List1 中依次输出单词与频次，在标签 Label2 中输出频次最高的单词。
（1）实现上述功能的 VB 程序如下，请在横线处填入合适的代码。
Private Sub Command1_Click （ ）
Dim dic（1To 10000）As String‘存储自建单词字典
Dim num（1To 10000）As Integer'存储单词出现的频次
Dim word As String'存储每次扫描的单词
Dim c As String,s As String
Dim i As Integer,j As Integer,di As Integer,k As Integer
Dim b As Integer,slen As Integer
Dim nummax As Integer'记录最高单词频次
Dim result As String'存储出现频率最高的单词串
s=Text1．Text slen=Len（s）
j=0'存储每个单词的长度
k=1'k-1 为当前单词字典长度
b=1'存储每个单词的起始位置
nummax=0
For i=1To 10000’初始化单词字典频次
num（i）=0
Next i i=1
Do While i＜=slen 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=LCase（
①
）‘将单词统一为小写’
di=1
Do While word＜＞dic（di） And di＜k di=di+1
Loop
If di=k Then‘单词字典插入新单词
dic（k）=word num（k）=1
k=k+1
Else
②
‘单词在单词字典中已存在，对应频次加 1’End If
If num（di）＞nummax Then nummax=num（di）
j=0
End If
b=i+1
End If
i=i+1
Loop result=““
For j=1To k-1
List1．AddItem dic（j）+““+Str（num（j）） If
③
Then
If result=““Then
result=result+dic（j） Else
result=result+“，“+dic（j）'如出现频率最高的单词有多个，则用逗号分隔
End If
End If
Next j
Label2．Caption=“出现频率最高的单词是：“+result
End Sub
（2）根据本题算法，如第 17 题图所示，若在 Text1 中将文章最后一行“strength you will。”
改为“strength you will3”，单词统计结果
（选填：会/不会）产生变化。
