For i= 1 To 2

    For j=5 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(5)的值依次为“33，24，45，16，77”，经过该程序段“加工”后，数组元素a(1)到a(5)的值依次为（  ）

Dim a(1 To 10) As Integer，b(1 To 10) As Integer

k = 0

For i = 10 To 1 Step -1

Do While b(i) <> 0 k = k + 1

a(k) = i: b(i) = b(i) - 1

Loop

Next i

若 a(1)～a(10)的值分别为 7，9，8，1，9，4，4，2，1，1，则运行以上程序后，下列说法正确的是（  ）

Dim flag(0 To 4) As Boolean, p As Integer

For i=1 To 4

    flag(i)=False

Next i

i=1: flag(0)=True

Do While i <= 4 And flag(i-1)

    For j=5 To i+1 Step-1

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

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

            flag(i)=True

        End If

    Next j

    i=i+1

Loop

数组元素a(1)到a(5)值依次为“16，4，24，33，77”，程序运行后，flag数组中为True个数及i的值分别是（   ）

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

数组元素a(1)至a(7)中值分别为3，9，1，5，8，6，2，该程序段运行后，文本框Text1中显示的内容是（   ）

请回答下列问题: