數組 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）程序代碼中，加框處有錯誤，請改正。