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

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

冒泡排序

冒泡排序

．
（2）當前程序處理的數據庫文件“major.jye.ai”，默認創建該文件的數據庫庫管理系統是

Access

Access

（填軟件名稱）．
（3）請在橫線處填入合適的代碼．
Dim num As Integer’變量num存儲數據庫實際的記錄數
Dim book（1 To 5000）As String
Dim content （1 To 5000）As String,content 1（1 To 5000）As String’存儲類別內容
Dim sales（1 To 5000）As Long,sales1（1 To 5000）As Long’存儲銷售量
Private Sub Form Load（　　）
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
’從數據表中讀取圖書類別、類別內容、銷售量分別存儲到數組book、contcnt、sales中．
’數據庫實際讀取的記錄數存儲在變量num中
’代碼略．
End Sub
Private Sub Commandl_ Click（　　）
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’將符合的類別內容、銷售量重新存儲到數組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.