某班級學生為畢業晚會的一個男生節目設計一個仿“V”字隊形，先篩選出班級里所有男生，然后將 參演的所有男生按照身高，擺出中間低兩邊高（先右后左）的隊形，如圖 1 所示。

小孟同學用 VB 編寫模擬“節目隊形”程序，功能如下：從數據庫中導入所有學生的編號、性別和 身高數據；單擊“篩選并排序”Command1 按鈕，篩選出所有男生的身高并按照從低到高的順序進行排序，結果顯示在文本框 Text1 中；單擊“設計隊形”Command2 按鈕，隊形的編號結果顯示在文本框 Text2 中。程序運行界面如圖 2 所示。

舉例說明如下：
實現上述功能的 VB 程序如下，請回答下列問題：
（1）請在橫線處填入合適的代碼。
①

h（j-1）＞h（j）or sex（j-1）=false

h（j-1）＞h（j）or sex（j-1）=false

②

num2（mid）=num1（1）

num2（mid）=num1（1）

③

num2（mid-L）=num1（i+1）

num2（mid-L）=num1（i+1）

（2）程序代碼中，加框處有錯，請改正。
改正：

m=i-1

m=i-1

Const n=8
Dim h（1 To n） As Integer,num1（1 To n） As Integer,num2（1 To n） As Integer Dim sex（1 To n） As Boolean'男生 sex=True,女生 sex=False
Dim i As Integer,j As Integer,m As Integer Private Sub Form_Load _____
'n 名學生（包括男生和女生）的編號、性別和身高由數據庫導出，分別存儲在數組 num1、h 和 sex 中，代碼略!End Sub
Private Sub Command1_Click ____ For i=1 To n-1
For j=n To i+1 Step-1
If sex（j）=True Then
If  ①Then
t=h（j）：h（j）=h（j-1）：h（j-1）=t
t=sex（j）：sex（j）=sex（j-1）：sex（j-1）=t
t=num1（j）：num1（j）=num1（j-1）：num1（j-1）=t
End If
End If
Next j Next i
For i=1 To n
If sex（i） Then
Text1.Text=Text1.Text+““+Str（h（i））
End If
If Not sex（i） Then m=i：Exit For'改錯
Next i
End Sub
Private Sub Command2_Click _____
Dim L，R As Integer,mid As Integer
mid=Int（（1+m）/2）L=0：R=0
②For i=2 To m Step 2
R=R+1
num2（mid+R）=num1（i）
L=L+1
③Next i
For i=1 To m
Text2.Text=Text2.Text+“男“+CStr（num2（i））+“號“Next i
End Sub