22. 小明是电影迷,一般选择关注度较高的电影观看。为此他编写了一款对电影关注度进行排序的程序。程序运行界面如图所示。
电影的关注度信息存放在数据库文件“ Movie.accdb”的“T_Movie”表中,如图所示。
VB应用程序的功能如下:程序运行时,列表框List1中显示从数据表中读取的电影编号和电影关注度数据。单击“排序”按钮Command1,在列表框List2中显示按电影关注度降序排序后的结果。代码如下:
Dim a(1 To 100) As String `定义存储电影编号的数组a
Dim b(1 To 100) As Integer `定义存储电影关注度的数组b
Dim n As Integer `定义存储电影总数的变量n
Private Sub Command1_Click( )
Dim t1 As String, t2 As Integer
For i=1 To n
List2.AddItem a(i)+"-----"+Str(b(i))
Next i
End Sub
Private Sub Form_Load( )
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
conn.ConnectionString="provide=Microsoft.ACE.OLEDB.12.0;datasource="&App.Path&"\Movie.accdb"
conn.Open
set rs.ActiveConnection=conn
rs.Open "SELECT*FROM T_Movie"
n=0
Do While Not rs.EOF
n=n+1
a(n)=rs.Fields("电影编号")
b(n)=rs.Fields("电影关注度")
List1.AddItem a(n)+"-----"+Str(b(n))
rs.MoveNext
Loop
rs.Close
conn.Close
End Sub
回答下列问题:
(1)分析程序,可知连接的数据库文件名为_________,程序中打开的数据表名为_________。
(2)当“Form_Load( )
”事件处理过程运行结束时,变量n的值为_________。
(3)加实线框中的代码采用的排序算法为___________________________。
(4)为实现上述功能,程序中画线处的代码:①_________________;②___________________。