学进去

小李要为学校采购一批篮球，他收集了一些不同品牌不同价格的数据以便于挑选，并设计了VB程序。功能为：运行程序，从数据库中读取数据并存储在相关变量中，并将数据显示在列表框List1中。在文本框Text1中输入品牌名称如“李宁”，单击“查找排序”按钮，在列表框List2中输出该“品牌”价格从低到高的信息。程序运行界面如图所示。

（1）根据程序段可知，“查询排序”按钮的对象名是__________。
（2）实现上述功能的VB程序如下，请在划线处填入合适的代码。
（3）程序中加框处代码有错，请改正。
Dim n As Integer
Private Sub Form_Load()
'从数据库中读取数据并存储在相关变量中，pp数组存储品牌名称，xh数组存储型号，jg数组存储价格，pj数组存储好评率，并将相关数据显示在列表框List1中，变量n存储记录个数。代码略。
End Sub
Private Sub select_Click()
Dim a(1 To 10) As String       '存储品牌名称
Dim b(1 To 10) As Integer     '存储每个品牌的开始位置
Dim c(1 To 10) As Integer     '存储每个品牌的型号个数
________
b(1) = 1:c(1) = 1:k = 1
s = Text1.Text
For i = 2 To n
       If pp(i) = a(k) Then
             ________
       Else
             k = k + 1
             a(k) = pp(i)
             b(k) = i
             c(k) = 1
       End If
Next i
For i = 1 To k
       If a(i) = s Then
             _________
             ln = c(i)
             Exit For
       End If
Next i
For i = p To p + ln - 2
       For j = p + ln - 1 To i + 1 Step -1
             If   Then_________
                    st = pp(j): pp(j) = pp(j - 1): pp(j - 1) = st
                    st = xh(j): xh(j) = xh(j - 1): xh(j - 1) = st
                    t = jg(j): jg(j) = jg(j - 1): jg(j - 1) = t
                    t = pj(j): pj(j) = pj(j - 1): pj(j - 1) = t
             End If
       Next j
Next i
'将对应品牌排序后的数据显示在列表框List2中，代码略。
End Sub