学进去

小李上网时发现词云图很有意思，出现频率越高的文字越会突出显示。他以此获得灵感，编写了一个“词云榜”的VB程序，功能如下：单击“读取”按钮command1，从数据库中读取英文名言的相关数据，将各条名言存储在数组st中，并将各元素显示在列表框List1；在文本框Text1中输入需要输出的行数，单击“统计”按钮command2，先在数组st各元素中提取单词（单词间隔符号只可能是空格、逗号和句号）存储到数组word中，再将word数组各元素值进行整理和归类，把不同的单词分别存储到数组term中，同时统计各单词的出现次数，接着按照各单词出现次数从高到低排序，最后在列表框List1中的第一行显示出现次数最多的一个单词，第二行显示出现次数第二、第三多的两个单词，第三行显示出现次数第四、第五、第六多的三个单词……以此类推。程序运行界面如下图所示。

（1）分析程序，可知数据库的文件名为_________。
（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．oledb．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))
_________
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 __________ 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
____________
txt = txt + "  " + term(z)
Next y
List2．AddItem txt
txt = ""
x = x + 1
v = z
Loop
End Sub