数组 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 nIf 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）“排序”按钮的对象名为

Comd1

Comd1

。
（2）程序代码中，将下横线处语句补充完整。
（3）程序代码中，加框处有错误，请改正。