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)的值为（   ）

Private Sub Command1_Click()

  Dim a(0 To 5) As Integer

  Dim i As Integer               ’①

  a(0) = 1                      '②

  For i = 1 To 5

    a(i) = 2 * a(i - 1) + 1          '③

  Next i

  Text1.Text = Str(a(6))         '④

End Sub

Const n = 8

Dim a(1 To n) As Integer

For i = 1 To n

    a(i) = Int(Rnd * 20)

Next i

x = n \ 2

For i = x To 2 Step -1

    For j = 1 To i - 1

      If a(j) < a(i) Then

        t = a(j): a(j) = a(i): a(i) = t

      End If

    Next j

Next i

i = n

Do While i > x + 1

    k = i

    For j = i - 1 To x + 1 Step -1

      If a(j) > a(k) Then k = j

    Next j

    If k <> i Then

      t = a(k): a(k) = a(i): a(i) = t

    End If

    i = i - 1

Loop

执行完这段代码后，数组 a 中各个元素的值可能的是（  ）

执行该流程图后，输出b的结果是（  ）

Dim a(1 To 5) As Integer

t=0

For i = 1 To 5

  a(i) = Int(Rnd * 30 + 10)

  t = t + a(i) \ 10

Next i

For j = 1 To t \ 3

  If j Mod 2 = 1 Then a(j) = a(j) + 1 Else a(j) = a(j) - 1

Next j

运行程序后，数组a各个元素的值，不可能的是（  ）