在英語學(xué)科的網(wǎng)上閱卷中，因技術(shù)還不夠成熟，寫作部分仍需手工評卷．在李老師的建議下，小明決定用VB語音對識別成功后的作文做一些初評．他的設(shè)想是：
（1）按位依次取出每個單詞，存入數(shù)組wd中：每個單詞出現(xiàn)的次數(shù)存儲在數(shù)組wd_num中；單詞的字符長度存儲在數(shù)組wd_len中．為方便統(tǒng)計，所有字母均轉(zhuǎn)換為小寫．
（2）所有單詞全部取出并存好后，將這些單詞按字典順序重新排列，對應(yīng)的長度和出現(xiàn)的次數(shù)也跟著重新排列．
（3）評卷的標準之一是“必須出現(xiàn)指定的關(guān)鍵詞”．這些關(guān)鍵詞在統(tǒng)計之前先輸入并存放在數(shù)組key中．程序中用二分查找法在數(shù)組wd中找到每個關(guān)鍵詞出現(xiàn)的次數(shù)，存儲在數(shù)組key_num中．
（4）最后輸出統(tǒng)計結(jié)果，包括單詞的數(shù)量、單詞的平均長度，以及每個關(guān)鍵詞出現(xiàn)的次數(shù)．運行界面如圖所示：
請回答下列問題：
（1）根據(jù)小明的設(shè)想，如果輸入距離“Read,let the words warm your stillness.”，則經(jīng)過統(tǒng)計后，數(shù)組元素wd_len（3）的值為

3

3

．
（2）實現(xiàn)上述功能的VB程序如下，請在橫線處填入合適的代碼．
Const keynum=7'關(guān)鍵詞的個數(shù)為7個
Dim key （1 To keynum） As String'數(shù)組key用于存放指定的關(guān)鍵詞
Dim key_num（1 To keynum） As Integer'數(shù)組key_num用于存放每個關(guān)鍵詞出現(xiàn)的次數(shù)
Dim wd（1 To 500）As String'數(shù)組wd用于存放從作文中提取出來的每個單詞
Dim wd_len（1 To 500）As Integer'數(shù)組wd_len用于存放wd中每個單詞的長度
Dim wd_num（1 To 500）As Integer'數(shù)組wd_num用于存放wd中每個單詞在作文中出現(xiàn)的次數(shù)
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（　?。?br />'對部分變量和數(shù)組進行初始化，代碼略
End Sub
Private Sub Text2_KeyPress（KeyAscii As Integer）
'將逐個輸入的關(guān)鍵詞依次存入數(shù)組key中，并在List1中顯示出來，代碼略
End Sub
Private Sub Command1_Click（　?。?br />'其他變量的定義，代碼略
    List2．Clear
'以下程序段用于將作文中的每個單詞提取出來，存入數(shù)組wd中
    atc=Text1．Text：m=0：word=““
    flag1=False'flag=False表示一個單詞的開始，單詞個數(shù)m增加1，
'flag=True表示余下的連續(xù)字母不再計數(shù)，
    For i=1 To Len（atc）

①

①

'按位取出字符，若是大寫字母，則轉(zhuǎn)換為小寫字母
           If char＞=“a“And char＜=“z“Then
               word=word+char
               If Not flag1 Then m=m+1：flag1=True
           Else
               flag1=False
'檢查該單詞在數(shù)組wd中是否已經(jīng)存在
               flag2=False
               For j=1 To m-1
                    If wd（j）=word Then.