為了找出QQ在線時(shí)間最長的5名學(xué)生，李風(fēng)設(shè)計(jì)了一個(gè)排序程序．程序運(yùn)行界面如圖所示：

左邊列表框List1中顯示排序前數(shù)據(jù)，單擊“排序”按鈕Command1，在右邊列表框List2中顯示在線時(shí)間從高到低排名前5名的數(shù)據(jù)．程序中數(shù)組a和數(shù)組b分別存儲學(xué)生的QQ昵稱和對應(yīng)的QQ在線時(shí)間．
程序代碼如下：
Const n As Integer=14'n為學(xué)生數(shù)
Dim a（1To n） As String'數(shù)組a用于存儲學(xué)生的QQ昵稱
Dim b（1To n） As Integer'數(shù)組b用于存儲學(xué)生的QQ在線時(shí)間
Private Sub Command1_Click （　?。?br />Dim i As Integer,j As Integer,t As String,p As Integer
For i=1To n-1
For j=n To i+1Step-1
If  ①Then
t=a（j-1）：a（j-1）=a（j）：a（j）=t
p=b（j-1）：b（j-1）=b（j）：b（j）=p
End If
Next j
Next i
For i=1To 5
List2．AddItem SpaceEx（a（i））+Str（b（i））+“分鐘“
Next i
End Sub
'以下函數(shù)用于在字符串后補(bǔ)插空格
Function SpaceEx（s As String） As String
Dim t As String,d As Integer,i As Integer
t=s：d=Len（s）
For i=1To 5-d
t=t+““
Next i
SpaceEx=②
End Function
Private Sub Form_Load （　?。?br />'此過程用于對數(shù)組a和數(shù)組b進(jìn)行賦值，并顯示在List1中，代碼略
End Sub
（1）解決此問題采用的算法是

冒泡排序

冒泡排序

．（填：選擇排序/冒泡排序）
（2）在程序①和②填入適當(dāng)?shù)恼Z句或表達(dá)式，將程序補(bǔ)充完整：
程序中①應(yīng)填入

b（j）＞b（j-1）

b（j）＞b（j-1）

．程序中②處應(yīng)填入

t

t

．