小李要給全班學(xué)生拍合照，要求所有學(xué)生站成一排，中間高，兩端低。小李 采用如下排隊(duì)方法：按身高信息從高到低排序，讓身高第一位的同學(xué)單獨(dú)站出來(lái)，身高第二位同學(xué)站在他的左手邊，身高第三位同學(xué)站在他的右手邊，再依次向兩端安排其他人。每個(gè) 學(xué)生的學(xué)號(hào)與身高信息已存入數(shù)據(jù)庫(kù)中。小李編寫(xiě)了 VB 程序，從數(shù)據(jù)庫(kù)中讀取學(xué)號(hào)和身高 信息，在“原始信息”下方的列表框 List1 中顯示，單擊“排隊(duì)”按鈕 Command1，在“排 好的隊(duì)形”下方的列表框 List2 中顯示排好的隊(duì)形。程序界面如圖所示：

實(shí)現(xiàn)上述功能的 VB  程序如下，但加框處代碼有錯(cuò)，請(qǐng)改正。
Const maxn=100
Dim id（1To  maxn）  As Integer'存儲(chǔ)每個(gè)學(xué)生的學(xué)號(hào) Dim tall（1to  maxn）  As Single'存儲(chǔ)每個(gè)學(xué)生的身高 Dim n As Integer'存儲(chǔ)學(xué)生的個(gè)數(shù) Private  Sub  Form_Load （　?。?br/>'從數(shù)據(jù)庫(kù)得到學(xué)生的總?cè)藬?shù) n
'從數(shù)據(jù)庫(kù)讀取學(xué)號(hào)信息，并存入 id 數(shù)組中
'從數(shù)據(jù)庫(kù)讀取身高信息，并存入 tall 數(shù)組中
'在列表框 List1 中顯示學(xué)號(hào)與身高
End Sub
Private  Sub  Command1_Click （　　）
Dim a（1  To maxn）  As  Integer'存儲(chǔ)排好隊(duì)形的學(xué)號(hào) Dim b（1  To maxn）  As  Single'存儲(chǔ)排好隊(duì)形的身高 Dim i As Integer,j As Integer
Dim tl As Integer,tr As  Integer,mid As Integer
Dim tmp1As  Single,tmp2As Integer
For i=1To n-1
For  j=n To i+1Step-1
IfThen
tmp1=tall（j）：tall（j）=tall（j-1）：tall（j-1）=tmp1
tmp2=id（j）：id（j）=id（j-1）：id（j-1）=tmp2
End  If
Next  j
Next i
If n Mod  2=0Then'根據(jù)總?cè)藬?shù)的奇偶性，確定隊(duì)形的中間位置
mid=n\2+1
Else
mid=（n+1）\2
End If
'身高第一位的同學(xué)，安排在隊(duì)形的中間位置
a（mid）=id（1）b（mid）=tall（1）tl=mid-1
tr=mid+1
For i=2To n
IfThen a（tr）=id（i）
b（tr）=tall（i）
tr=tr+1
Else
a（tl）=id（i） b（tl）=tall（i） tl=tl-1
End  If
Next i
List2．AddItem“位置“+“學(xué)號(hào)“+“身高“For i=1To n
List2．AddItem Str（i）+““+Str（a（i））+““+Str（b（i）） Next i
End Sub