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

Const  n = 50

Dim d(0 To n) As single , name(1 to n) as string

'读入50个学生的身高，依次存入d(1)…d(50),姓名存入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

    ①

    For j = i To n

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

         If     ②  Then

           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   ‘输出被选的10个人的名字和身高。

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

Next i

End Sub

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

Private Sub Command1_Click()

Dim s As String, s1 As String, c As String

s = Text1.Text

For i = 1 To Len(s)

  c = Mid(s, i, 1)

  s1 =          ⑴           

  For  j =           ⑵                

   If c <> Mid(s, j, 1) Then

   s1 = s1 + Mid(s, j, 1)

   End If

  Next j

         ⑶         

Next i

Text2.Text = s

End Sub