Do While i <= 5

If i = 1 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

数组元素a(0)到a(8)的初始值依次为“0,4,7,3,5,1,8,6,2”。执行该程序段后，数组元素a(1)到a(8)的值分别是

For i=1 To 6

 j=7

 Do While j > i

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

   a(j)=a(j)+a(j-1)

   a(j-1)=a(j)-a(j–1)

   a(j)=a(j)-a(j-1)

  End If

  j=j-1

 Loop

Next i

For i=3 To 6

 s=s+a(i)

Next i

Label1. Caption=Str(s)

已知数组元素a(1)到a(7)的值依次为“8, 2, 3, 7, 10, 6, 5”，则执行该程序段后，标签Label1中显示的是（  ）

For i=1 To 3

 For j=8 To i+1 Step-1

  If a(j) < a(i) Then

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

  End If

 Next j

Next i

数组元素a(1)到a(8)的值依次为“35， 18， 14， 20， 30， 15， 28， 26”，运行该程序段后，a(5)到a(8)的值依次是（  ）

Const n = 10

Dim a(1 To n) As Integer

Private Sub Command1_Click()

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

Dim bottom As Integer

'获取排序前数据依次存储在数组a中，并在文本框Text1中显示。代码略

bottom = n

i = 1

Do While i <= bottom - 1

   For j = bottom To i + 1 Step -1

      If  Then  {#blank#}1{#/blank#}

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

      ElseIf a(j) = a(j - 1) Then    '相邻两个数据相等，进行剔除处理

            {#blank#}2{#/blank#}

         bottom = bottom - 1

      End If

   Next j

   i = i + 1

Loop

Text2.Text = " "

For i = 1 To bottom

   Text2.Text = Text2.Text + Str(a(i))

Next i

End Sub

s =" shenzhen"

For i=1 To Len(s)

    a(i) = Mid(s，i，1)

    b(i) = i

Next i

For i=Len(s) To 2 Step-1

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

        t=b(i)：b(i)=b(i-1)：b(i-1)=t

    End If

Next i

Text1.Text = b(1)

文本框Text1中显示的内容是（    ）

a = [ 6 , 12 , 9 , 20 , 8 , 11 , 4 ]

for j in range( 1 , len( a ) ) :

    if  a[ j ] < a[ j - 1 ] :

 a[ j ] = a[ j ] + a[ j - 1 ] ;  a[ j - 1 ] = a[ j ] - a[ j - 1 ] ;  a[ j ] = a[ j ] - a[ j - 1 ]

执行该段程序后，列表a的值是（   ）