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

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

冒泡排序

冒泡排序

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

Access

Access

（填軟件名稱）．
（3）請(qǐng)?jiān)跈M線處填入合適的代碼．
Dim num As Integer’變量num存儲(chǔ)數(shù)據(jù)庫(kù)實(shí)際的記錄數(shù)
Dim book（1 To 5000）As String
Dim content （1 To 5000）As String,content 1（1 To 5000）As String’存儲(chǔ)類別內(nèi)容
Dim sales（1 To 5000）As Long,sales1（1 To 5000）As Long’存儲(chǔ)銷售量
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)容、銷售量分別存儲(chǔ)到數(shù)組book、contcnt、sales中．
’數(shù)據(jù)庫(kù)實(shí)際讀取的記錄數(shù)存儲(chǔ)在變量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)容、銷售量重新存儲(chǔ)到數(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.