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

Dim a(1 To 8) As Integer

Dim n As Integer

Private Sub Form_Load()

  'n=8，排序前数据存储在数组a中，并在列表框Listl中显示

  '代码略

End Sub

Private Sub Command1_Click()

Dim flag As Boolean         

i = 1

flag = True

Do While             '改错

     flag = False

     For j = n To i + 1 Step -1

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

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

           flag = True

        End If

     Next j

     i = i + 1

Loop

Label3.Caption = "排序过程的加工遍数为" +              '填空

For i = 1 To n

   List2.AddItem Str(a(i))

Next i

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#}