【加试题】小明基于选择排序算法编写了一个VB程序，功能如下：某班：50个学生，从中选择10个身高最高的同学，要求被选的任何两个人不能身高一样(所给的数据保证能选10个)。 实现上述功能的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
