Dim a(1 To 10) As Integer

Dim flag As Boolean

Dim i As Integer, j As Integer, tmp As Integer

随机生成10个不重复的数据存入数组A中，代码略

For i=2To 10

    tmp= a(i)

    j=i

    flag=False

    Do While   ①   And Not flag

        a(j)=a(j-1)

        j=j-1

          ② 

    Loop

    a(j)=tmp

Next i

要实现上述功能，方框①②中的语句分别是（  ）

For i=4 To 3 Step-1

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

        tmp=a(i)

        For j=i-1 To 1 Step-1

            If tmp>a(j) Then Exit For

            a(j+1)=a(i)

        Next j

        a(j+1)=tmp

    End If

Next i

数组元素a(1)到(6)的值依次为“19，8，96，92，85，88”，经过该程序段“加工”后，数组元素a(1)到a(6)的值依次为（   ）

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的元素个数是（   ）