以下程序实现了冒泡排序的优化，请在划线处填写合适的代码。

Dim n As Integer

Dim a (1 to 100) As Integer

Private Sub Form_Load()

    ‘n=10，排序前生成的数据存储在数组a中，并在列表框List1中显示

    ‘代码略

End Sub

Private Sub Command1_Click()

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

           {#blank#}1{#/blank#}

  Do While i < n

    start = n

    For j = n To i Step      {#blank#}2{#/blank#}

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

            t = a(j): {#blank#}3{#/blank#} : a(j - 1) = t

            start = j

        End If

    Next j

        {#blank#}4{#/blank#}

  Loop

  For i = 1 To n

    List2.AddItem Str(a(i))

  Next i

End Sub

For i=1 To 2

 For j=1 To 6-i

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

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

  End If

 Next j

Next i

数组元素a(1)到a(6)的值依次为“71，54，58，29，31，78”，经过该程序段处理后，数组元素a(1)到a(6)的值依次为（  ）

a数组

b数组

c数组

当窗体Form1加载时，自动产生a、b数组的数据，并分别显示在列表框List1与List2中，单击合并按钮Command1后，在c数组中保存按规则合并后的a、b数组的数据，并显示在列表框List3中。程序截图如下所示：

实现该功能的VB程序如下：

Const m = 5

Const n = 6

Dim a(1 To m) As Integer

Dim b(1 To n) As Integer

Dim c(1 To m + n) As Integer

‘窗体加载时，生成数组a、b中的数据，并按要求排序后显示在列表框中，代码略

Private Sub Command1_Click()

Dim pa As Integer, pb As Integer, pc As Integer, s As Integer, flag As Boolean

pa = m: pb = 1: pc = 1

flag = True

Do While         ①        

    If a(pa) < b(pb) Then

        s = a(pa)

        pa = pa - 1

    Else

        s = b(pb)

        pb = pb + 1

    End If

    c(pc) = s

    If  flag Then

        pc = m + n - pc + 1

    Else

        pc =

    End If

            ②       

Loop

‘处理a、b数组中剩余数据，并在列表框List3中输出数组c，代码略

End Sub

Dim n As Integer

Dim a(1 To 100) As Integer

Dim b(1 To 100) As Integer

Private Sub Form Load()

‘读取若干数据依次存储到数组a中，并将数据元素的总个数存储到变量n中。

‘将每段数据的元素个数及排序的次序依次存储到数组b中；

‘b(1)、b(2)分别存储第1段数据的元素个数、排序的次序，

‘b(3)、b(4)分别存储第2段数据的元素个数、排序的次序，.....

“代码略。

End Sub

Private Sub Command1_Click())

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

    Dim pb As Integer, endpos As Integer

    pb=1: endpos =b(1)

    For i=1 To n-1

        If i=endpos Then

            pb=pb+2:i=endpos+1

               ①  

        End If

        k=i

        For j =i+1 To endpos

            If  Then k=j     ‘⑵

        Next j

        If k<>i Then

                ②  

        End If

    Next i

    Text3.Text =""     ‘⑷

    For i=1 To n

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

    Next i

End Sub

a=[27,5,25,36,78]

f=[False]*5

i=0

while i<4 and not f[i]:

    for j in range(4, i, -1):

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

            a[j], a[j-1]=a[j-1], a[j]

            f[i]=True

    i+=1

执行该程序段后，数组f中值为True的元素个数是（   ）