2016年某書城的部分書籍銷售數(shù)據(jù)存放在相應(yīng)的數(shù)據(jù)表中，如圖a所示，小明編寫了一個VB程序，實現(xiàn)如下功能：在文本框Textl中輸入圖書類別，單擊“查詢”按鈕Commandl,程序從數(shù)據(jù)庫讀取相關(guān)數(shù)據(jù)進行處理，在列表框Listl中顯示該類圖書所有的銷售數(shù)據(jù)（從高到低排序），在文本框Text2中顯示該類圖書的總銷售量．VB程序面如圖b所示．

實現(xiàn)上述功能的VB 程序如下，請回答下列問題：
（1）加虛線框處的程序，采用的排序算法是

冒泡排序

冒泡排序

．
（2）當前程序處理的數(shù)據(jù)庫文件“major.jye.ai”，默認創(chuàng)建該文件的數(shù)據(jù)庫庫管理系統(tǒng)是

Access

Access

（填軟件名稱）．
（3）請在橫線處填入合適的代碼．
Dim num As Integer’變量num存儲數(shù)據(jù)庫實際的記錄數(shù)
Dim book（1 To 5000）As String
Dim content （1 To 5000）As String,content 1（1 To 5000）As String’存儲類別內(nèi)容
Dim sales（1 To 5000）As Long,sales1（1 To 5000）As Long’存儲銷售量
Private Sub Form Load（　?。?br />Dim conn As New ADODB．Connection,rs As New AD0DB．Recordset
Dim strSQL As String
conn.ConnectionString=“Provider=Microsoft.ACE.0LEDB.12.0：Data Source“&
App.Path &“\major.jye.ai“
conn.Open
strSQL=“SELECT*FROM count“
Set rs.ActiveConnection=conn
’從數(shù)據(jù)表中讀取圖書類別、類別內(nèi)容、銷售量分別存儲到數(shù)組book、contcnt、sales中．
’數(shù)據(jù)庫實際讀取的記錄數(shù)存儲在變量num中
’代碼略．
End Sub
Private Sub Commandl_ Click（　?。?br />Din m As String,n As String,c As Integer,s As Long
Dim i As Integer,j As Integer,k As Integer,
Listl.Clear
c=0：s=0
m=Textl.Text
For i=1To num’將符合的類別內(nèi)容、銷售量重新存儲到數(shù)組content1、sales1中
If m=book（i） Then
c=c+1
content 1（c）=content （i）
sales1（c）=sales（i）

s=s+sales（i）

s=s+sales（i）

’①
End If
Next i

For i=1 To

c

c

’②

List1．Addltem contentl（i） &““& Str（salesl（i））
Next i
Text2．Text=Str（s）
End Sub.