数组a用于存储产生的10个随机整数，函数f(x)用于判断随机整数x与已生成的整数是否有重复，若有重复则返回True，否则返回False。

①检查产生号码是否重复：把产生的中奖号码放在数组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

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

For i=1 To 3

 k=i

 For j=i+1 To 6

  If a(j) > a(k) Then k=j

 Next j

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

Next i

数组元素a(1)到a(6)的值依次为“8,2,9,3,5,1”，经过该程序段“加工”后，数组元素a(1)到a(5)的值依次为（  ）

Const n = 6

Dim a(1 To n) As Integer, f(1 To 10) As Boolean

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

‘f数组各元素的初值置为False，代码略

For i = 1 To   ⑴ 

    t = Int(1 + Rnd * 10)

    If Not f(t) Then

        a(i) = t : f(t) = True

        For j =   ⑵ 

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

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

            End If

        Next j

    Else

      ⑶ 

    End If

Next i

上述程序段3个方框处的表达式分别为(   )