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

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

舉例說(shuō)明如下：
實(shí)現(xiàn)上述功能的 VB 程序如下，請(qǐng)回答下列問(wèn)題：
（1）請(qǐng)?jiān)跈M線處填入合適的代碼。
①

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）程序代碼中，加框處有錯(cuò)，請(qǐng)改正。
改正：

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 名學(xué)生（包括男生和女生）的編號(hào)、性別和身高由數(shù)據(jù)庫(kù)導(dǎo)出，分別存儲(chǔ)在數(shù)組 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'改錯(cuò)
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））+“號(hào)“Next i
End Sub