注：BMI指数的计算公式为：BMI=体重（千克）除以身高（米）的平方（kg/m2）。 BMI<18.5为偏瘦（表明营养不足）；BMI=18.5～24.9为体重正常；BMI=25～29.9为超重；BMI>30为肥胖。

该VB应用程序的代码如下：

Dim stuBMI(1 To 55) As Single

Dim stuName(1 To 55) As String

Private Sub Command1_Click()

    Dim k As Integer, i As Integer, j As Integer

    Dim t1 As Single, t2 As String

    Dim Results As String

    For i = 1 To 54        

        For j = i + 1 To 55

            If stuBMI(j) < stuBMI(k) then      ②    

        Next j

        If  k<>I  Then  

            t1 = stuBMI(i): stuBMI(i) = stuBMI(k): stuBMI(k) = t1

            t2 = stuName(i): stuName(i) = stuName(k): stuName(k) = t2

        End If

    Next i

List1.AddItem "姓名" + vbTab + "BMI指数" + vbTab + "结果"  

    For i = 1 To 55

        If stuBMI(i) < 18.5 Then

            Results = "偏瘦"

        ElseIf stuBMI(i) >= 18.5 And stuBMI(i) < 25 Then

            Results = "正常"

        ElseIf stuBMI(i) >= 25 And stuBMI(i) < 30 Then

            Results = "超重"

        Else

            Results = "肥胖"

        End If

        List1.AddItem stuName(i) + vbTab + str(stuBMI(i)) + vbTab + Results

    Next i

End Sub

Private Sub Form_load()

    Dim conn As New ADODB.Connection

    Dim rs As New ADODB.Recordset

    Dim strSQL As String

    Dim i As Integer

    conn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" + App.Path + "\Student.accdb"

    conn.Open

    strSQL = "SELECT * FROM Student"

    Set rs.ActiveConnection = conn

    rs.Open strSQL

    i = 0

    Do While Not rs.EOF

        i = i + 1

        stuName(i) = rs.Fields("StuName")

        stuBMI(i) = Round(rs.Fields("Weight") / rs.Fields("height") ^ 2, 1)

        rs.MoveNext

    Loop

    rs.Close

    conn.Close

    Set rs = Nothing

    Set conn = Nothing

End Sub

实现上述功能的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#}

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)的值依次为（  ）

For i=1 To 3

 For j=8 To i+1 Step-1

  If a(j) < a(i) Then

   t=a(j): a(j)=a(i): a(i)=t

  End If

 Next j

Next i

数组元素a(1)到a(8)的值依次为“35， 18， 14， 20， 30， 15， 28， 26”，运行该程序段后，a(5)到a(8)的值依次是（  ）

Private Sub Command2_Click()

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

Dim s1 As String, t As Integer, s2 As String

t=1

For i=1 To n-2

    For j= To n Step 2     ‘改错

        If a(i)*t>a(j)*t Then

            tmp =a(i): a(i)= a(j): a(j)=tmp

        End if

    Next j

                   ‘填空①

Next i

For i =1 To n

    If     Then       ‘填空②

        s1 =s1 Str(a(i))

    Else

        s2=s2+Str(a(i))

    End If

Text2. Text=“奇数位：”+s1

Text3. Text=“偶数位：”+s2

End Sub

回答以下问题：

p = 1: q = 10

Do While p < q

    iMin = p: iMax = p

    For i = p + 1 To q

        If a(i) < a(iMin) Then

            iMin = i

        elseIf a(i) > a(iMax) Then

            iMax = i

        endif

    Next i

    t = a(iMax): a(iMax) = a(q): a(q) = t

      ①  

    t = a(iMin): a(iMin) = a(p): a(p) = t

    p = p + 1:q = q -1

Loop

要使程序实现上述算法思想，则方框中的语句是（  ）