小李上網(wǎng)時(shí)發(fā)現(xiàn)詞云圖很有意思，出現(xiàn)頻率越高的文字越會(huì)突出顯示。他以此獲得靈感，編寫了一個(gè)“詞云榜”的VB程序，功能如下：單擊“讀取”按鈕command1，從數(shù)據(jù)庫中讀取英文名言的相關(guān)數(shù)據(jù)，將各條名言存儲(chǔ)在數(shù)組st中，并將各元素顯示在列表框List1；在文本框Text1中輸入需要輸出的行數(shù)，單擊“統(tǒng)計(jì)”按鈕command2，先在數(shù)組st各元素中提取單詞（單詞間隔符號(hào)只可能是空格、逗號(hào)和句號(hào)）存儲(chǔ)到數(shù)組word中，再將word數(shù)組各元素值進(jìn)行整理和歸類，把不同的單詞分別存儲(chǔ)到數(shù)組term中，同時(shí)統(tǒng)計(jì)各單詞的出現(xiàn)次數(shù)，接著按照各單詞出現(xiàn)次數(shù)從高到低排序，最后在列表框List1中的第一行顯示出現(xiàn)次數(shù)最多的一個(gè)單詞，第二行顯示出現(xiàn)次數(shù)第二、第三多的兩個(gè)單詞，第三行顯示出現(xiàn)次數(shù)第四、第五、第六多的三個(gè)單詞……以此類推。程序運(yùn)行界面如圖所示。

（1）分析程序，可知數(shù)據(jù)庫的文件名為

名言.accdb

名言.accdb

。
（2）請(qǐng)?jiān)跈M線處填入合適的代碼。
Dim conn As New ADODB．Connection
Dim rs As New ADODB．Recordset
Dim st（1 To 100）As String
Dim n As Integer
Private Sub Command1_Click

（　?。?/div>

（　?。?/div>
conn.ConnectionString=“provider=microsoft.ace.jye.ai.12.0；data source=“& App.Path &“\名言．a(chǎn)ccdb“
conn.Open
Set rs.ActiveConnection=conn
rs.Open“Select*From sayings“
n=0
Do While Not rs.EOF
n=n+1
st（n）=rs.Fields（“sentence“）
rs.MoveNext
Loop
rs.Close
conn.Close
Set conn=Nothing
For i=1 To n
List1．AddItem st（i）
Next i
End Sub
Private Sub Command2_Click

（　?。?/div>

（　　）

Dim word（1 To 1000）As String
Dim term（1 To 1000）As String
Dim num（1 To 1000）As Integer
k=1
For i=1 To n
For j=1 To Len（st（i））

c=Mid（st（i），j,1）

c=Mid（st（i），j,1）

If c＞=“A“And c＜=“Z“Then c=Chr（Asc（c）+32）
If c＜＞““And c＜＞“，“And c＜＞“．“Then
temp=temp+c
Else
word（k）=temp
k=k+1
temp=““
End If
Next j
Next i
t=1
term（1）=word（1）：num（1）=1
For i=2 To k-1
For j=1 To t
If 

word（i）=term（j）

word（i）=term（j）

 Then Exit For
Next j
If j＞t Then
t=t+1
term（t）=word（i）
num（t）=1
Else
num（j）=num（j）+1
End If
Next i
’數(shù)組term按照單詞出現(xiàn)次數(shù)從高到低進(jìn)行排序，代碼略
List2．AddItem““+term（1）
x=2：w=1：v=1：txt=““
Do While x＜=Val（Text1．Text）
w=w+1
For y=1 To w

z=v+y

z=v+y

txt=txt+““+term（z）
Next y
List2．AddItem txt
txt=““
x=x+1
v=z
Loop
End Sub