注：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

For i=1 to 3

  For j=6 to i+1 step -1

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

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

End if

  Next j

Next i

则程序运行之后，数组a（1）到a（6）的值依次为（   ）

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

Const n=10

Dim a(1 To n) As Integer

Private Sub Command1_Click()

Dim i As Integer,j As Integer

Dim temp As Integer,flag As Boolean

'读取一组正整数，存储在数组a中，代码略

i=1:j=n

temp=a(j):flag=True

Do While i<j

If flag Then

If a(i) Mod 2=0 Then

   a(j)=a(i)

   j=j-1

   flag=Not flag

Else

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

End If

Else

If a(j) Mod 2=1 Then

   a(i)=a(j)

   flag=Not flag

Else

   j=j-1

End If

End If

Loop

 ' {#blank#}2{#/blank#}

'依次输出排序后的数据，代码略。

End Sub

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

Const n = 10

Dim a(1 To n) As Integer

Private Sub Command1_Click()

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

  '获取排序前数据依次存储在数组a 中，并在文本框Text1 中显示。代码略

  bottom = n : i = 1

  Do While i <= bottom - 1

    For j = bottom To i + 1 Step -1

        If  Then     ‘⑴

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

        ElseIf a(j) = a(j - 1) Then ' 相邻两个数据相等，进行剔除处理

                 ‘⑵

            bottom = bottom - 1

        End If

    Next j

    i = i + 1

  Loop

Text2.Text = " "

For i = 1 To bottom

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

Next i

End Sub

⑴{#blank#}1{#/blank#} ⑵{#blank#}2{#/blank#} 

For i=1 To 9

 For j=10 To i+2 Step-1

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

   t=a(j): a(j)=a(j-2): a(j-2)=t

  End If

 Next j

Next i

数组元素a(1)到a(10)的值依次为“10,9,8,7,6,5,4,3,2,1”，执行该程序段后,数组元素a(8)中的值为（  ）

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

Dim a（1 To 8）As Integer

Dim n As Integer

Private Sub Form_Load（）

    a（1）= 30：a（2）= 47：a（3）= 30：a（4）= 72

    a（5）= 70：a（6）= 23：a（7）= 99：a（8）= 24

    n = 8

    For i = 1 To 8

      List 1.Addltem a（i）

    Next i

End Sub

Private Sub Command1_Click（）

    Dim i As Integer， j As Integer， k As Integer

    Dim pos As Integer

    Dim s As String

    s = Text1.Text

    pos = Val（Text1.Text）

    For i = 1 To n- 1

      For j = n To i+1 Step-1

        If a（j）< a（j -1） Then

                ‘⑴

          a（j-1）= a（j）

          a（j）= k

          '如果pos位置的数据参与交换，则更新pos值，记录pos变化位置

          If pos = j Then

            pos = j-1

            s = s + " →" + Str（pos）

              ‘⑵

            pos = j

            s = s + " →" + Str（pos）

          End If

        End If

      Next j

    Next i

    Label1.Caption = "位置变化情况：" +s

    For i = 1 To n

      List2.AddItem Str（a（i））

    Next i

End Sub

⑴{#blank#}1{#/blank#} ⑵{#blank#}2{#/blank#}