实现上述功能的VB程序如下，但加框处代码有错，请改正。

  Const n=50

  Dim d(0 To n)As Single，name(1 to n)As String

  ‘读人50个学生的身高，依次存入d(1)…d(50)，最高身高小于2，姓名存入

  name(1)…name(50)

  ‘代码略

  Private Sub Command1_Click()

  Dim i As Integer，j As Integer，temp As Single，k As Integer，r As String

  d(0)=2

  For i=1 To 10

        ‘(1)

      For j=i To n

        If d(j)<d(i-1)Then

           If     Then ‘(2)

            k=j

           End If

        End If

      Next j

    If k<>i Then

       temp=d(k)：d(k)=d(i)：d(i)=temp

       r=name(k)：name(k)=name(i)：name(i)=r

     End If

     Next i

     For i=1 To 10    ‘输出被选的l0个人的名字和身高。

       List2．AddItem name(i)&d(i)

     Next i

    End Sub

实现该功能的VB程序如下，但加框处代码有错，请改正。

Const n = 10

Dim a(1 To n) As Integer

Private Sub Form_Load()

    随机产生 n 个不重复的整数存数组 a，并在列表框 list1 中显示。代码略。

End Sub

Private Sub Command1_Click()

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

    Dim imin1 As Integer, imin2 As Integer

    For i = 1 To n \ 2

      imin1 = i: imin2 = i + 1

    If a(imin1) > a(imin2) Then t = imin1: imin1 = imin2: imin2 = t

    For j = i + 2 To n - i + 1

      If a(j) < a(imin1) Then

      imin2 = imin1: imin1 = j

      '①

      imin2 = j

    End If

Next j

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

If imin2 = i Then    '②

If n - i + 1 <> imin2 Then

    t = a(n - i + 1): a(n - i + 1) = a(imin2): a(imin2) = t

End if

Next i

For i = 1 To n

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

Next i

End Sub

①{#blank#}1{#/blank#}  ②{#blank#}2{#/blank#}

例如，有如下年龄存在数组a中：

利用一个数组b(b(10 To 20))记录每个数出现的次数：

根据数组b对数组a进行排序：

Dim a(10000) As Integer      ‘存放读入的年龄数据

Dim b(100) As Integer      ‘存放各个年龄出现的个数

Private Sub Command1_Click()

‘从数据库读入年龄数据放入数组a中

End Sub

Private Sub Command2_Click()

 For i = 1 To 100

 b(i) = 0

 Next i

 For i = 1 To 10000      ‘统计每个年龄数据的个数

    ①    

 Next i

 End Sub

Private Sub Command3_Click()

 j = 0

 For i = 1 To 100

  If b(i) <> 0 Then

   Do While b(i) <> 0

      ②       

    a(j) = i

     ‘③

  Loop

 End If

Next i

 For i = 1 To 10000

 List2.AddItem Str(a(i))

Next i

End Sub

数据库文件“stud. accdb”信息如图所示。

程序界面如图所示，左边列表框List1中显示所有学生信息（包括编号和完成次数），单击“排序”按钮（Command），所有编号按照作业完成次数从高到低显示在列表框List2中。

代码如下：

Dim conn As New ADODB. Connection

Dim rs As New ADODB. Recordset

Dim n As Integer

Dim a(500)As String

Dim b(500)As Integer

Private Sub Fom Load()

    Dim i As Integer

    conn. Connection String="Provider=Mi-crosoft. AC

    A.OLEDB. 12.0；DATA Source="& App. Path &"\stud. accdb"

    conn Open

    Set rs. Active Connection=conn

    rs. Open "Select*From info"

    n=0

    Do While not rs.EOF            '到记录集最后一条记录后退出循环

        n=n+1

        a(n)=rs. fields("id")

        b(n)=rs. fields("finshed")

        rs. MoveNext                 '移动到下一条记录

    Loop

    For i=1 To n

        List1. AddItem a(i)+" "+Str(b(i))

    Next i

    rs. Close

    conn. Close

    Set rs= Nothing

    Set conn= Nothing

End sub

Private Sub Command1_Click()

    Dim i As Integer, j As Integer, t1 As Integer, t2 As String, k As Integer

    For i=1 To n-1             'n表示学生总数

        k=i           'k保存第i大的数，一开始假定是a(i)

        For j=i+1 To n

            If b(k)<b(j) Then k=j            '比较完成数

                ①      

            If    ②      Then

                t1=b(i): b(i)=b(k): b(k)=t1           '交换完成次数

                t2=a(i): a(i)=a(k): a(k)=t2           '交换编号

            End If

        Next j

    Next i

    For i=1 To n          '在列表框List2中输出排序结果

        Listt2. Addltem a(i)+" "+Str(b(i))

    Next i

End sub

For i=1 To 5

    For j=i+1 To 6

        If s(i)+ s(j)< s(j)+ s(i) Then

            t=s(j):s(j)=s(i):s(i)=t

        End If

    Next j

Next i

For i= 1 To 6

    Text1.Text= Text1.text+s(i)

Next i

如果程序运行,开始当数组元素s(1)到s(6)的值依次为“4”、“343”、“312”、“12”、“246”、“121”，运行该段代码后，文本框Text1中显示的内容为（   ）