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

3

3

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