合唱隊(duì)列是按隊(duì)員的身高進(jìn)行排列，形成中間高兩邊有序降低的隊(duì)形；例如有六個(gè)隊(duì)員“己、戊、丁、丙、乙和甲”的身高依次由小到大，則排列后的順序?yàn)椤拔?、丙、甲、乙、丁、己”．小李用VB編寫模擬“合唱隊(duì)列”程序，功能如下：在文本框Text1中輸入各隊(duì)員身高，輸入結(jié)束并回車，則輸入的各隊(duì)員身高分別存入數(shù)組a中；單擊“合唱隊(duì)列”按鈕Command1，對(duì)數(shù)組a的元素進(jìn)行有序排列后，將各元素存入數(shù)組C中形成合唱隊(duì)列，并將結(jié)果顯示在文本框Text2中．程序運(yùn)行界面如圖所示：

實(shí)現(xiàn)上述功能的VB程序如下：
（1）如果輸入各隊(duì)員身高為“190，191，194，179，166”，則合唱隊(duì)列的結(jié)果為

166，190，194，191，179

166，190，194，191，179

．
（2）實(shí)現(xiàn)上述功能的VB程序如下，請(qǐng)?jiān)诋嬀€處填入合適代碼．
Dim　a（1 To　20）As　Integer
Dim　n　As　Integer
Private　Sub　Text1_KeyPress（KeyAscii　As　Integer）
'將輸入各隊(duì)員身高分別存入數(shù)組a中，隊(duì)員個(gè)數(shù)為n,代碼略!
End　Sub
Private　Sub　Command1_Click （　　）
Dim　c（1To　20）As　Integer
Dim　right　As　Integer,left　As　Integer,i　As　Integer
For　i=1To　n-1
For　j=1To　n-i
If

①

①

　Then
t=a（j）：a（j）=a（j+1）：a（j+1）=t
End　If
Next　j
Next　i
‘下列程序段實(shí)現(xiàn)數(shù)組C的合唱隊(duì)列
m=（1+n）\2
left=m：right=m
c（m）=a（n）
i=2
Do　While　i＜=n
If　　i　　Mod　2=0　　Then
right=right+1
c（right）=a（n-i+1）
Else

②

②

c（left）=a（n-i+1）
End　If
i=i+1
Loop
s=

③

③

For　i=2To　n
s=s+“，“+Str（c（i））
Next　i
Text2．Text=s
End　Sub.