【加试题】合唱队列是按队员的身高进行排列，形成中间高两边有序降低的队形；例如有六个队员“己、戊、丁、丙、乙和甲”的身高依次由小到大，则排列后的顺序为“戊、丙、甲、乙、丁、己”．小李用VB编写模拟“合唱队列”程序，功能如下：在文本框Text1中输入各队员身高，输入结束并回车，则输入的各队员身高分别存入数组a中；单击“合唱队列”按钮Command1，对数组a的元素进行有序排列后，将各元素存入数组C中形成合唱队列，并将结果显示在文本框Text2中．程序运行界面如图所示：甲、乙、丙、丁、戊和己

实现上述功能的VB程序如下：
（1）如果输入各队员身高为“190，191，194，179，166”，则合唱队列的结果为

166，190，194，191，179

166，190，194，191，179

．
（2）实现上述功能的VB程序如下，请在横线处填入合适代码．
Dim a（1To 20）As Integer
Dim n As Integer
Private Sub Text1_KeyPress（KeyAscii As Integer）
'将输入各队员身高分别存入数组a中，队员个数为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 ①

a（j）＞a（j+1）

a（j）＞a（j+1）

 Then
t=a（j）：a（j）=a（j+1）：a（j+1）=t
End If
Next j
Next i
‘下列程序段实现数组C的合唱队列
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
②

left=left-1

left=left-1

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

Str（c（1））

Str（c（1））

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