注：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程序如下：

Const n=10

Dim a(1 To 10)As Integer

Private Sub Command1  Click()

For i=1 To n

               ‘①

    List1．Addltem Str(a(i))

    Next i

End Sub

 Private Sub Command2  Click()

    tmp=1

    For i=1 To n-1

    For j=n To i+1 Step-1

    If  ＞0 Then    ①

    t=a(j)：a(j)=a(j-1)：a(j-1)=t

    End If

    Next j

    ②

    Next i

    For i=1 To 10

    List2．Addltem Str(a(i))

    Next i

 End Sub

For i=1 to 3

 For j=1 to 5-i

  If a(j)>a(j+1) Then

  t=a(j):a(j)=a(j+1):a(j+1)=t

  End If

 Next j

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

Next i

数组元素a(1)到a(5)的值依次为“3,9,6,8,4”。该程序段执行后，文本框Text1显示的内容是（  ）

Const n = 10

    Dim d(1 To n) As Integer, pm(1 To n) As Integer

    Private Sub Form_Load()

    '代码略，本过程功能：产生10个随机整数存数组d中，并在列表框list1 中显示。

    End Sub

    Private Sub Command1_Click()

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

    i = 1

    Do While i <= n - 1

    k = i

    For j = i + 1 To n

    If  Then k = j     ‘①

    Next j

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

    i = i + 1

    Loop

    pm(1) = 1

    For i = 2 To n

    If  Then     ‘②

    pm(i) = i

    Else

    pm(i) = pm(i - 1)

    End If

    Next i

    For i = 1 To n

    List2.AddItem Str(i) +" " +Str(d(i)) + " " + "第" + Str(pm(i)) + "名"

    Next I 

    End Sub

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

Dim a(1 To 100) As Integer, n As Integer

Function moving( start As Integer, finish As Integer, st As Integer)

'将元素 a(finish)插入到元素 a(start)和元素 a(start+st)之间

Dim i As Integer, k As Integer k = a(finish)

For i = finish - st To start Step -st a(i + st) = a(i)

Next i a(start) = k

End Function

Private Sub Command1_Click()

Dim head As Integer, end1 As Integer, i As Integer, ans As String

' 将待排序的数存储在数组 a 的 a(1)至 a(n)中，并输入元素个数 n，代码略

head = 1: end1 = n + 1

Do While head < end1

If    ①    Then

For i = 1 To head - 1

If a(i) > a(head) Then Exit For

Next i

Call moving(i, head, 1)

head =     ②    

Else

For i = end1 To n

If a(i) < a(head) Then Exit For

Next i

Call moving(    ③    )

End1 = end1 - 1

End If

Loop

For i = 1 To n

ans = ans + Str(a(i))

Next i

Text2.Text = ans End Sub 请回答下列问题：