学进去

数组 a 存储 n 个地区的所属省份、地市及防疫物资缺口数据，其存储结构如下表所示：

1

2

3

4

5

6

7

8

9

…

3n-2

3n-1

3n

省份

地市

物资 缺口

省份

地市

物资 缺口

省份

地市

物资 缺口

…

省份

地市

物资 缺口

 
为 n 个地区调配防疫物资：湖北省全部在前面，从高到低排序；其它省份全部在后面，从高到低排（所有地区的防控物资h 为整数，单位万），排序前显示于 List1，排序后显示于 List2，如下图所示：

实现上述功能的 VB 程序如下，请回答下列问题。
Const n = 10
Dim a(1 To 3 * n) As String Private Sub Form_Load()
'读取省份、地市和防疫物资缺口数据，存储在数组a 中，并显示于列表框 List1 中'代码略
End Sub
Private Sub Comd1_Click()
Dim t As Integer,i As Integer,j As Integer,k As Integer
For i = 1 To n - 1
    ①  
For j = i + 1 To n

If a(3 * j-2 ) = "湖北" Then

If    Then k =j
Else  If
a(3 * k - 2) <> "湖北" And a(3 * j)>a(3 * k) Then k = j

End If

 Next j
If k <> i Then
t = a(3 * i):    ②     :a(3 * k) = t
t = a(3 * i - 1):a(3 * i - 1) = a(3 * k - 1):a(3 * k - 1) = t
t = a(3 * i - 2):a(3 * i - 2) = a(3 * k - 2):a(3 * k - 2) = t End If
Next i
For i = 1 To n
List2.AddItem a(3 * i - 2) + a(3 * i-1) + a(3 * i)
Next i
End Sub
（1）“排序”按钮的对象名为     。
（2）程序代码中，将下划线处语句补充完整。
（3）程序代码中，加框处有错误，请改正。