小李上网时发现词云图很有意思，出现频率越高的文字越会突出显示。他以此获得灵感，编写了一个“词云榜”的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