当前位置: 高中信息技术 / 综合题
  • 1. (2019·浙江模拟) 合唱队列是按队员的身高进行排列,形成中间高两边有序降低的队形;例如有六个队员“己、戊、丁、丙、乙和甲”的身高依次由小到大,则排列后的顺序为“戊、丙、甲、乙、丁、己”。小李用VB编写模拟“合唱队列”程序,功能如下:在文本框Text1中输入各队员身高,输入结束并回车,则输入的各队员身高分别存入数组a中;单击“合唱队列”按钮Command1,对数组a的元素进行有序排列后,将各元素存入数组C中形成合唱队列,并将结果显示在文本框Text2中。程序运行界面如图所示:

    实现上述功能的VB程序如下:

    1. (1) 如果输入各队员身高为“190,191,194,179,166”,则合唱队列的结果为
    2. (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

      以上程序段运行时,为了实现上述功能,划线处应填入的代码为:

      ; ②; ③

微信扫码预览、分享更方便