在英语学科的网上阅卷中，因技术还不够成熟，写作部分仍需手工评卷．在李老师的建议下，小明决定用VB语音对识别成功后的作文做一些初评．他的设想是：
（1）按位依次取出每个单词，存入数组wd中：每个单词出现的次数存储在数组wd_num中；单词的字符长度存储在数组wd_len中．为方便统计，所有字母均转换为小写．
（2）所有单词全部取出并存好后，将这些单词按字典顺序重新排列，对应的长度和出现的次数也跟着重新排列．
（3）评卷的标准之一是“必须出现指定的关键词”．这些关键词在统计之前先输入并存放在数组key中．程序中用二分查找法在数组wd中找到每个关键词出现的次数，存储在数组key_num中．
（4）最后输出统计结果，包括单词的数量、单词的平均长度，以及每个关键词出现的次数．运行界面如图所示：
请回答下列问题：
（1）根据小明的设想，如果输入距离“Read,let the words warm your stillness.”，则经过统计后，数组元素wd_len（3）的值为

3

3

．
（2）实现上述功能的VB程序如下，请在横线处填入合适的代码．
Const keynum=7'关键词的个数为7个
Dim key （1 To keynum） As String'数组key用于存放指定的关键词
Dim key_num（1 To keynum） As Integer'数组key_num用于存放每个关键词出现的次数
Dim wd（1 To 500）As String'数组wd用于存放从作文中提取出来的每个单词
Dim wd_len（1 To 500）As Integer'数组wd_len用于存放wd中每个单词的长度
Dim wd_num（1 To 500）As Integer'数组wd_num用于存放wd中每个单词在作文中出现的次数
Function dtox（ch As String） As String
If ch＞=“A“And ch＜=“Z“Then dtox=Chr（Asc（ch）+32）Else dtox=ch
End Function
Private Sub Form_Load（　　）
'对部分变量和数组进行初始化，代码略
End Sub
Private Sub Text2_KeyPress（KeyAscii As Integer）
'将逐个输入的关键词依次存入数组key中，并在List1中显示出来，代码略
End Sub
Private Sub Command1_Click（　　）
'其他变量的定义，代码略
    List2．Clear
'以下程序段用于将作文中的每个单词提取出来，存入数组wd中
    atc=Text1．Text：m=0：word=““
    flag1=False'flag=False表示一个单词的开始，单词个数m增加1，
'flag=True表示余下的连续字母不再计数，
    For i=1 To Len（atc）

①

①

'按位取出字符，若是大写字母，则转换为小写字母
           If char＞=“a“And char＜=“z“Then
               word=word+char
               If Not flag1 Then m=m+1：flag1=True
           Else
               flag1=False
'检查该单词在数组wd中是否已经存在
               flag2=False
               For j=1 To m-1
                    If wd（j）=word Then.