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 中各个元素的值可能的是（  ）

实现上述功能的VB程序代码如下，但加框处语句有误，请改正。

Private Sub Command1_Click()

 Dim i As Integer, n As Integer, s As String

 n = Val(Text1.Text)

 s = “”

 For i = 1 To     ‘①

  If i<= n Then

   s = s + Str(n - i + 1)

  Else

         ‘②

  End If

 Next i

 Text2.Text = s

End Sub

程序中①处应改为{#blank#}1{#/blank#};

程序中②处应改为{#blank#}2{#/blank#}。

For i = 1 To 5

 b(a(i)) = b(a(i)) + 1

Next i

pa = 0

For j = 1 To 10

 For k = 1 To b(j)

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

 Next k

Next j

a(1)到a(5)的初值依次是7、5、9、4、3，程序段运行后，数组a值依次是（  ）

Fori=1To5

b(a(i))=b(a(i))+1

Nexti

t=0

Forj=1To10

Fork=1Tob(j)

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

Nextk

Nextj

a(1)到a(5)d初值依次是7、5、9、4、3，程序段运行后，数组a的值依次是（）