郑强收集了某月部分品牌电脑在某城市的销售量，并设计了一个Visual Basic排序程序。程序运行界面如图所示，左边列表框List1中显示排序前数据，单击“排序”按钮Command1，在右边列表框List2中显示按销售量从高到低排序后的结果。程序中数组a和数组b分别存储品牌名称和对应的销售量。

程序代码如下：
Const n As Integer=10'n为品牌数
Dim a（1To n） As String'数组a用于存储品牌名称
Dim b（1To n） As Integer'数组b用于存储销售量
Private Sub Command1_Click （　　）
Dim i As Integer,j As Integer,c As Integer,t As String
For i=1To

①n-1

①n-1

For j=1To n-i
If

②b（j）＜b（j+1）

②b（j）＜b（j+1）

Then
c=b（j+1）：b（j+1）=b（j）：b（j）=c
t=a（j+1）：a（j+1）=a（j）：a（j）=t
End If
Next j
Next i
For i=1To n
List2．AddItem a（i）+““+Str（b（i））
Next i
End Sub
Private Sub Form_Load

（　　）

（　　）

'此过程用于对数组a和数组b进行赋初值，并显示在List1中，代码略
End Sub
（1）解决此问题采用的算法是

冒泡排序

冒泡排序

。（填：选择排序/冒泡排序）
（2）在程序①和②横线处填入适当的语句或表达式，将程序补充完整：
程序中①横线处应填入

n-1

n-1

。
程序中②横线处应填入

b（j）＜b（j+1）

b（j）＜b（j+1）

。