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

实现上述功能的VB程序如下，在划线处填入合适的代码。

Const n=10

Dim a(1 To n)As Integer

Private Sub Command1_Click()

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

Dim k As Integer, bottom As Integer

‘获取排序前数据，依次存储在数组a中，并在文本框Text1中显示。代码略

bottom = n: i = 1

Do While i <= bottom - 1

 k = i: j = bottom

 Do While j > i

  If a(j) < a(k) Then

   k = j

  Elself a(j) = a(i) Then

   a(j) = a(bottom)

   If{#blank#}1{#/blank#}Then k=j

   bottom = bottom - 1

 End If

 j = j - 1

 Loop

 If k <> i Then

  t = a(k): a(k) = a(i): a(i) = t

 Else

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

  End If

Loop

For i = 1 To{#blank#}3{#/blank#}

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

Next i

End Sub

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

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

n=8: flag=True: k=0

First=1: Last =n

Do While flag

    p= False: flag= False

    For j=Last To First +1 Step-1

        k=k+1

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

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

            First=j: flag =True

            If p= False Then Last=j: p=True

        End If

    Next j

    If Last <> n Then Last =Last +1

Loop

数组元素a(1)到a(8)值依次为“2，8，12，17，13，14，18，19”，程序运行后，变量k的值为（   ）