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

（1）分析程序，可知數據庫的文件名為

名言.accdb

名言.accdb

。
（2）請在橫線處填入合適的代碼。
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

（　　）

（　　）

conn.ConnectionString=“provider=microsoft.ace.jye.ai.12.0；data source=“& App.Path &“\名言．accdb“
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

（　　）

（　　）

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
’數組term按照單詞出現次數從高到低進行排序，代碼略
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