若采用冒泡排序算法对这组数据进行升序排列，那么在完成第一遍排序时，数组元素a(1)到a(6)的数据依次是（   ）

实现上述功能的VB代码如下：

请在划线处填入合适代码。

Private Sub Command1Click()

    Dim a As Integer, b As Integer

    Dim n As Integer, t As Integer

    Dim m(1 To 100) As Integer

    a = Val(Text1.Text)

    b = Val(Text2.Text)

    n = Val(Text3.Text)

    If  a > b Then t = a: a = b: b = t

    Randomize

         ①        

    For i = 2 To n

    m(i) = Int(Rnd * (b - a + 1)) + a

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

           ②     

    For j = i - 1 To 1 Step -1

    If temp < m(j) Then Exit For

    m(j + 1) = m(j)

    Next j

          ③     

    End If

    Next i

    For i = 1 To n

    List1.AddItem Str(m(i))

    Next i

End Sub

程序①处的代码是{#blank#}1{#/blank#}

程序②处的代码是{#blank#}2{#/blank#}

程序③处的代码是{#blank#}3{#/blank#}

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

Dim a(1 To 10) As Integer

Dim s As String, n, i As Integer

s = "54851845236": n = Len(s)

For i = 1 To n - 1

a(i) = Val(Mid(s, i, 2))

Next i

For i = 1 To n - 2

k = i

For j = i + 1 To n - 1

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

Next

If k <> i Then

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

End If

Next i

Text1.Text = Str(a(1))

该程序段运行后，文本框 Text1 中显示的内容是：（  ）

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

Dim n As Integer

Dim a(1 To 50) As Integer

Sub makedata(s As String)     ‘该过程实现将输入的体重分别存入数组a中

Dim in As Long, x As Long, c As String, i As Integer

m=Len (s) : n=0

For i=1 To m

 c=Mid(s, i, 1)

 If c >=“0” And c <=“9” Then

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

  x=x+Asc(c)-Asc(“0”)

 Else

  If x > 0 Then n=n+1: a(n)=x

  x=0

 End If

Next i

n=n+1: a(n)=x

End Sub

Private Sub Command1_Click()

Dim s As String, i As Integer, j As Integer, t As Integer

Dim cnt As Integer, st As Integer, ed As Integer

s=Text1.Text Call makedata(s)      ‘调用过程

For i=1 To n-1     ‘实现降序排序

For j=n To i+1 Step-1

If{#blank#}2{#/blank#}Then

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

  End If

 Next j

Next i

‘下列程序段实现计算最多可组队伍

cnt=0: st=1: ed=n

Do While st < ed

 If a(st)+a(ecl) <=120 Then

  List1. AddItem Str(a(st))+“和”+Str(a(ed))+“组队”

  cnt=cnt+1

  st=st+1

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

 Else

  st=st+1

 End If

Loop

Label2. Caption=“最多可以组”+Str (cnt)+“组队伍”

End Sub

For i=1 To 7

 k=i

 For j=i+1 To 8

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

 Next j

 If k<>i Then t=a(i): a(i)=a(k): a(k)=t

Next i

数组元素a(1)到a(8)的原始数据依次为“89，70，79，85，99，80，82，74”，则第3遍“加工”后数组元素a(1)到a(8)的数据依次是（  ）