數(shù)組 a 存儲(chǔ) n 個(gè)地區(qū)的所屬省份、城市及防疫物資缺口數(shù)據(jù)，其存儲(chǔ)結(jié)構(gòu)如下表所示：

1

2

3

4

5

6

7

8

9

…

3n-2

3n-1

3n

省份

城市

物資缺口

省份

城市

物資缺口

省份

城市

物資缺口

…

省份

城市

物資缺口

為 n 個(gè)地區(qū)調(diào)配防疫物資：湖北省全部在前面，從高到低排序；其它省份全部在后面，從高到低排（所有地區(qū)的防控物資h 為整數(shù)，單位萬(wàn)），排序前顯示于 List1，排序后顯示于 List2，如圖所示：

實(shí)現(xiàn)上述功能的 VB 程序如下，請(qǐng)回答下列問(wèn)題。
Const n=10
Dim a（1 To 3*n） As String Private Sub Form_Load

（　?。?/div>

（　?。?/div>
'讀取省份、城市和防疫物資缺口數(shù)據(jù)，存儲(chǔ)在數(shù)組a 中，并顯示于列表框 List1 中'代碼略
End Sub
Private Sub Comd1_Click

（　?。?/div>

（　　）

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）“排序”按鈕的對(duì)象名為

Comd1

Comd1

。
（2）程序代碼中，將下橫線處語(yǔ)句補(bǔ)充完整。
（3）程序代碼中，加框處有錯(cuò)誤，請(qǐng)改正。