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)的值分别是

实现上述功能的VB程序如下：

Dim a(1 To 7) As Integer, i As Integer, j As Integer

Dim k As Integer, c As Integer

a(1)=4: a(2)=9: a(3)=1: a(4)=5

a(5)=8: a(6)=6: a(7)=2

s=“”

For i=1 To 3

 For j=i+1 To 7

  If a(j) < a(i) Then

   k=a(j): a(j)=a(i): a(i )=k

   c=c+1

  End If

 Next j

 s=Str(a(i))+s

Next i

Text1.Text=Str(c) & “:” & s

该程序段运行后，文本框Text1中显示的内容是（  ）

For i=1 To 9

 For j=10 To i+2 Step-1

  If a(j) < a(j-2) Then

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

  End If

 Next j

Next i

数组元素a(1)到a(10)的值依次为“10,9,8,7,6,5,4,3,2,1”，执行该程序段后,数组元素a(8)中的值为（  ）

Private Sub Command1_ Click ( )

  Dim a(1 To 5) As Integer, i As Integer, 3 As Integer, c As Integer

  a(1) = 22: a(2) = 44: a(3) = 11: a(4) =33: a(5) = 55: c = 0

  For i = 1 To 4

m = i

For j = i + 1 To 5

  If a(i) > a(m) Then m = j

    Next j

    If m <> i Then

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

      c=c+1

    End If

  Next i

  Label1.Caption= Str (c)

End sub

该程序运行后，标签Label1中显示的内容是（  ）

a(1)="20": a(2)="16": a(3)= "12": a(4)="o": a(5)="k"

For i=1 To 4

    For j=5 To i+1 Step-1

        If a(j)>a(j-1) Then t=a(j):a(j)=a(j-1):a(j-1)=t

    Next j

    List3.AddItem a(i)

Next i

该程序段运行后，列表框List1中显示的内容为（   ）