程序界面如图所示，左边列表框List1中显示数据（成绩和姓名），单击 “开始排序”按钮（Command1），排序后的结果按成绩从高到低显示在列表框List2中。

解决此问题的排序部分的程序段如下：

Dim result(1 To 10) As Single

Dim name(1 To 10) As String

Private Sub Command1_Click( )

Dim I, J, K, X As Single, Y As String

For I = 1 To 9

    K = I

    For J = I + 1   To  10

        If      ①      Then K = J

    Next J

    If K <> I Then

        X = result(I) : result(I) = result(K) :       ②      

        Y = name (I) :  name (I) = name (K)   :  name (K) = Y

    End If

Next I

    For I = 1  To  10

        List2.AddItem Str(result(i)) + "     " + result(i)

    Next i

End Sub

Private Sub Form_Load()

       ' 此过程用于对数组a和数组b进行初始赋值，代码略

End Sub

在程序①和②划线处，填入适当的语句或表达式，把程序补充完整：

程序中①划线处应填入{#blank#}1{#/blank#}。

程序中②划线处应填入{#blank#}2{#/blank#}。

n = 10

Text1.Text = ""

  For i = 1 To 5

    For j = n To i + 1 Step -1

      If a(j) < a(i) Then

        temp = a(j): a(j) = a(i): a(i) = temp

      End If

    Next j

  Next i

  For i = 1 To 10

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

  Next i

数组元素a(1)到a(10)的值依次为“965,155,195,444,106,734,172,983,898,360”，执行该程序段，文本框Text1中显示的是（   ）

①检查产生号码是否重复：把产生的中奖号码放在数组a中，新产生的号码与已经产生的号码进行一一对比，如果找到相等的数，则重新产生新号码。

②找到新产生号码存放的数组下标：从下标为1的数组元素开始，新号码（第i个号码）分别与他们进行一一比较，找到第一个比新号码大的数，该数所在的下标就是新号码应存放的下标。如果在已经产生的数中没有找到比新号码大的数，则新号码应存放在下标为i的数组元素中。下表以产生第5个号码为例，如果产生的号码是130，第一个比他大的数是a(2)，下标为2的数组元素应存放新号码；如果产生的号码是300，则新号码应存放在下标为5的数组元素中。

③移动数组元素到新的位置：如果在已经产生的号码中找到比新号码大的数，从上一个产生的号码开始，到新号码应存放的数组元素，依次把他们向后面移动。以②中产生130为例，从a(4)开始，让a(5)的值等于a(4)，a(4)的值等于a(3)，依次类推，直到新号码应存放的数组元素a(2)为止。

④将新产生的号码放在相应的数组元素中。

程序运行的界面如下图所示，实现上述功能的VB程序代码如下：

Dim a(10) As Single

Private Sub Command1_Click()

Dim i As Integer, j As Integer

Dim temp As Single, k As Integer   'temp产生随机数，k随机数存放数组元素的下标

Randomize

a(1) = Int(Rnd() * 900 + 100)

For i = 2 To 10

  temp = Int(Rnd() * 900 + 100)

  If seach(temp, i - 1) = True Then

    i = i - 1

  Else

k = i

    For j = 1 To i - 1

        If  temp < a(i)  Then k = j: Exit For   ‘①

    Next j

    For j = i - 1 To k Step -1

      a(j + 1) = a(j)

    Next j

         ②    

  End If

Next i

List1.Clear

For i = 1 To 10

  List1.AddItem Str(a(i))

Next i

End Sub

‘函数实现在数组a中，从下标为1的数组元素到下标为t数组元素，查找有无s的数值

Function seach(s  As Single, t As Integer) As Boolean

Dim i As Integer

seach = False

For i = 1 To t

  If     ③    Then seach = True: Exit For

Next i

End Function

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= n To 2 step -1

  For j =

    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

方框中的代码会是以下四句中的某一句：

① 1 To i -1                ② n–1 To i Step -1

③ 1 To n - i                ④ n–1 To n - i+1 Step-1

正确的选项是（    ）