题目

合唱队列是按队员的身高进行排列，形成中间高两边有序降低的队形；例如有六个队员“己、戊、丁、丙、乙和甲”的身高依次由小到大，则排列后的顺序为“戊、丙、甲、乙、丁、己”。小李用VB编写模拟“合唱队列”程序，功能如下：在文本框Text1中输入各队员身高，输入结束并回车，则输入的各队员身高分别存入数组a中；单击“合唱队列”按钮Command1，对数组a的元素进行有序排列后，将各元素存入数组C中形成合唱队列，并将结果显示在文本框Text2中。程序运行界面如图所示： 实现上述功能的VB程序如下： （1） 如果输入各队员身高为“190,191,194,179,166”，则合唱队列的结果为。 （2） 实现上述功能的VB程序如下，请在划线处填入合适代码。 Dim a(1 To 20) As Integer Dim n As Integer Private Sub Text1_KeyPress(KeyAscii As Integer) ‘将输入各队员身高分别存入数组a中，队员个数为n，代码略! End Sub Private Sub Command1_Click()   Dim c(1 To 20) As Integer   Dim right As Integer, left As Integer, i As Integer   For i = 1 To n – 1               For j =1 To n-i         If      ①      Then                       t = (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                  ②               c(left) = a(n-i+1)     End If     i = i + 1 Loop s =      ③      For i = 2 To n     s = s + "," + Str(c(i)) Next i Text2.Text = s End Sub 以上程序段运行时，为了实现上述功能，划线处应填入的代码为： ① ； ②； ③。 答案： 【1】166，190，194，191，179 【1】a(j)>a(j+1)【2】left = left – 1【3】Str(c(1))

查看本题答案和解析