i = 1

Do While i <= 5

      If i = 0 or a(i - 1) <= a(i) Then

        i = i + 1

      Else

        t = a(i): a(i) = a(i - 1): a(i - 1) = t

        i = i - 1

      End If

Loop

For i = 1 To 5

      List2.AddItem  a(i)

Next i

数组元素a(0)到a(5)的值依次为“0，71，22，48，79，27”，经过该程序段“加工”后，数组元素a(4)的值为（   ）

        小张经分析，每次n堆金币如果都是从小到大，将前两堆合并成新一堆，然后，继续进行从小到大排序，如此合并成最后一堆，此时消耗体力最少，为此他编写了一个解决上述问题，求最少体力的VB程序，功能如下：窗体加载时，自动读取n堆金币的数据，依次存储在数组元素a(1)、a(2)、a(3)…中，金币堆数存储在变量n中，n堆金币的重量数据显示在列表框List1中。单击“求解”按钮Command1，程序对n堆金币进行合并处理，消耗最少的体力显示在文本框Text1中。程序运行界面如图所示。

num = 0

  For i = 1 To 3

    For j = 8 To i + 1 Step -1

      If a(j) < = a(i) Then

         temp = a(j): a(j) = a(i): a(i) = temp

num = num +1

      End If

    Next j

  Next i

数组元素a(1)到a(8)的值依次为“25,44,16,34,57,25,34,60”，执行该程序段，变量num的值是（  ）

 For i = 1 To 2

    For j = 1 To 6 - i

        If a(j) - a(j + 1) > 0 Then

           t = a(j): a(j) = a(j + 1): a(j + 1) = t

        End If

     Next j

  Next i Text1.Text = "" For i = 1 To 6

  Text1.Text = Str(a(i)) + Text1.Text Next i

数组元素a(1)到a(6)的初值依次为15，11，58，38，26，9，执行该程序段，文本框Text1显示的内容是（  ）

For i= n To 2 step -1

  For j =

    If a(j) > a(j + 1) Then

      t = a(j): a(j)=a(j + 1): a(j + 1)=t

    End If

  Next j

Next i

方框中的代码会是以下四句中的某一句：

① 1 To i -1                ② n–1 To i Step -1

③ 1 To n - i                ④ n–1 To n - i+1 Step-1

正确的选项是（    ）

For i=4 To 3 Step-1

    If a(i)>a(i-1) Then

        tmp=a(i)

        For j=i-1 To 1 Step-1

            If tmp>a(j) Then Exit For

            a(j+1)=a(i)

        Next j

        a(j+1)=tmp

    End If

Next i

数组元素a(1)到(6)的值依次为“19，8，96，92，85，88”，经过该程序段“加工”后，数组元素a(1)到a(6)的值依次为（   ）