若采用选择排序算法对其进行从大到小排序，则第二趟的排序结果是（   ）

实现上述功能的VB代码如下，但加框处代码有错，请改正。

Dim a(1 To 100) As Integer

Sub sort(left As Integer,right As Integer)

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

For i=1 To right-left

For j= 　'{#blank#}1{#/blank#}

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

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

End If

Next j

Next i

End Sub

Private Sub Command1_Click()

Dim p As Integer,q As Integer

Dim i As Integer,j As Integer,n As Integer,x As Integer

Randomize

n=Val(Text1.Text):Text2.Text=″ ″:Text3.Text=″ ″

p=0

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

For i=1 To n

x=Int(Rnd*100)

Text2.Text=Text2.Text+Str(x)

If x Mod 2=0 Then

   p=p+1

   a(p)=x

Else

   q=q-1

   a(q)=x

End If

Next i

Call sort(1,p)

Call sort(p+1,n)

For i=1 To n

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

Next i

End Sub

n = 0 : i =1 : j = 7

Key = Val(Textl.Text)

f = False

Do While i <= j And Not f

   m = fix((i + j)/2+0.5)

   n = n + 1

       If key = d(m) Then

          f = True

       Elseif key > d(m) then

          j = m - 1

   Else

          i = m + 1

       end if

Loop

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)的值依次为（  ）

i=1

Do While i<=5

    P=6

    For j=6 To i+1 Step-1

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

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

            p=j

        End If

    Next j

    i=p

    n=n+1

Loop

Text1.Text=Str(n)

数组元素a(1)到a(6)的数据依次为“8，3，9，16，22，2”，则程序运行后，文本框Text1中显示的内容为（   ）