Const n = 6

   Dim a(1 To n) As Integer

   Dim i As Integer, j As Integer, t As Integer

   Do While True

For i=1 to n-1

      If a(i)>a(i+1) then Exit For

Next i

     If i < n Then

       For i = 1 To n

        j = Int(Rnd * 6) + 1

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

       Next i

     Else

       Exit Do

     End If

   Loop

数组中a(1)到a(6)的值依次为“56，34，48，87，65，96”，经上述程序段执行后a(1)到a(6)的值依次为（  ）

Const n =10

For i = 1 To n - 1

    t = n - (n + i ) Mod 2

    For j = t To i + 2  Step -2

        If d(j)> d(j - 2)  Then

            Temp=d(j)

            d(j) = d(j - 2)

            d(j - 2) = temp

        End If

    Next j

Next i

已知数组元素d(1)到d(10)的原始数据为1、2、3、4、5、6、7、8、9、10.程序运行后，d(10)的值为（ ）